Excel VBA質問箱 IV

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

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


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

14313 / 76807

←次へ　｜　前へ→


	【67993】Re:dictionaryオブジェクトについて

MIMI - 11/1/24(月) 11:21 -


	引用なし

	パスワード

▼ｍｏｍｏさん：

momoさん
アドバイスありがとうございます
正規表現という言葉を初めて知りました

とりあえず、momoさんの記述してくれたコードをそのまま動かしてみたところ、
うまくいかなくて、なんでなのか？調べているところです

コードの意味が分からないことだらけなので、
いろいろと調べてみて、再度、挑戦してみます

また、分からないところが多々でてくると思います
そのときは、聞くことがあるかもしれませんが、よろしくお願いします

>正規表現でSubMatchesを使ってみるとかはどうでしょうね？
>（にしても長いPattern・・・・）
>
>　Option Explicit
>　Sub 正規表現パターン逆引()
>　Dim ans() As Variant, tbl1 As Variant, tbl2 As Variant
>　Dim i As Long, j As Long
>　Dim myPt As String
>　tbl1 = Worksheets("Sheet1").Range("A1").CurrentRegion.Value
>　For i = 2 To UBound(tbl1)
>　　myPt = myPt & "|(" & Replace(Replace(tbl1(i, 1), "*", ".*"), "?", ".{1}") & ")"
>　Next i
>　myPt = Mid$(myPt, 2)
>　tbl2 = Worksheets("Sheet2").Range("A1").CurrentRegion.Value
>　ReDim Preserve ans(1 To UBound(tbl2), 1 To 1)
>　With CreateObject("VBScript.RegExp")
>　　.Pattern = myPt
>　　.Global = True
>　　For i = 2 To UBound(tbl2)
>　　　If .test(tbl2(i, 1)) Then
>　　　　With .Execute(tbl2(i, 1)).Item(0).SubMatches
>　　　　　For j = 1 To .Count
>　　　　　　If Not IsEmpty(.Item(j - 1)) Then
>　　　　　　　ans(i, 1) = tbl1(j + 1, 2)
>　　　　　　　Exit For
>　　　　　　End If
>　　　　　Next j
>　　　　End With
>　　　End If
>　　Next i
>　End With
>　Worksheets("Sheet2").Range("B1").Resize(UBound(ans)).Value = ans
>　End Sub

0 hits

▼

【67986】dictionaryオブジェクトについて MIMI 11/1/21(金) 16:28