Excel VBA質問箱 IV

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

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


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

24857 / 76807

←次へ　｜　前へ→


	【57297】Re:セル内の条件に合う文字列のみを抽出したい

ハチ - 08/8/5(火) 15:47 -


	引用なし

	パスワード

▼わんころもちさん：
>>If Like構文でそれぞれのセルに該当する文字列が含まれているかどうかのチェックは出来るのですが、
>該当する部分だけを変数に格納する方法がわからずに難儀しております。

この部分ができるのであれば、
対象のセルに対してMidで1文字づつズラしながら、
文字列を切り出していってはどうでしょうか？
文字数によっては重たい処理になりますので、もっと良い案があるかも。

'例)アルファベット1文字＋数字1文字を抜き出す
Sub Test()
　　Dim i As Long
　　Dim buf As Variant
　　
　　With ActiveCell
　　　　For i = 1 To Len(.Value)
　　　　　　buf = Mid(.Value, i, 2)
　　　　　　If buf Like "[A-Z]#" Then
　　　　　　　　MsgBox buf
　　　　　　End If
　　　　Next
　　End With

End Sub

2 hits

▼

【57294】セル内の条件に合う文字列のみを抽出したい わんころもち 08/8/5(火) 13:48