Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

150 / 886

←次へ　｜　前へ→


	【761】Re:選択した文字列から１文字ずつ削除するには

マナ - 13/5/19(日) 9:20 -


	引用なし

	パスワード

今更ですが、自分の勉強のために書いてみました。

InStrだとワイルドカードが使えないので、Likeを使用しました。

Sub test()
　　Dim myStr As String
　　Dim s As String
　　Dim i As Long
　　Dim Yougo As String

　　myStr = Selection.Text
　　For i = 1 To Len(myStr)
　　　　s = Mid(myStr, i, 1)
　　　　If s Like "[A-z0-9]" Then
　　　　　　Yougo = Mid(myStr, 1, i - 1)
　　　　　　Exit For
　　　　End If
　　Next
　　If Len(Yougo) > 0 Then
　　　　MsgBox "「" & Yougo & "」が取り出されました"
　　Else
　　　　MsgBox "取り出しに失敗しました"
　　End If
　　
End Sub

481 hits

▼

【578】選択した文字列から１文字ずつ削除するには ｋ.ぬま 08/6/25(水) 11:02