Excel VBA質問箱 IV

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

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


24782 / 76732 ←次へ | 前へ→

【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

0 hits

【57294】セル内の条件に合う文字列のみを抽出したい わんころもち 08/8/5(火) 13:48 質問
【57297】Re:セル内の条件に合う文字列のみを抽出し... ハチ 08/8/5(火) 15:47 発言
【57308】Re:セル内の条件に合う文字列のみを抽出し... わんころもち 08/8/6(水) 9:24 お礼
【57309】Re:セル内の条件に合う文字列のみを抽出し... ハチ 08/8/6(水) 10:07 発言
【57315】Re:セル内の条件に合う文字列のみを抽出し... わんころもち 08/8/6(水) 18:04 発言
【57317】Re:セル内の条件に合う文字列のみを抽出し... kanabun 08/8/7(木) 11:08 発言

24782 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free