Excel VBA質問箱 IV

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

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


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

19470 / 76807

←次へ　｜　前へ→


	【62770】Re:連続したセルのパターンの個数を調べるには

Yuki - 09/8/31(月) 11:46 -


	引用なし

	パスワード

▼fool さん：
こんな感じでは

Sub TEST_Pattrn()
　　Dim varD　　As Variant
　　Dim varR　　As Variant
　　Dim strF　　As String
　　Dim i　　　 As Long
　　Dim j　　　 As Long
　　Dim strMsg　As String
　　
　　strF = "101"　　' 検索値
　　varD = Range("B1").Resize(Range("B" & Rows.Count).End(xlUp).Row).Value
　　varD = Application.Transpose(varD)
　　varD = Join(varD, "")
　　
　　' パターン１
　　'1001101101011' の時
　　'　　xxxyyy
　　varR = Split(varD, strF)　 '2個
　　strMsg = "パターン１は " & UBound(varR) & "個　" & vbCrLf
　　
　　' パターン２
　　'1001101101011' の時
　　'　　xxxyyy
　　'　　　　 zzz
　　j = 1
　　i = 0
　　Do
　　　　j = InStr(j, varD, strF)
　　　　If j = 0 Then Exit Do
　　　　i = i + 1
　　　　j = j + 1
　　Loop
　　strMsg = strMsg & "パターン２は " & i & "個"
　　MsgBox strMsg
End Sub

0 hits

▼

【62767】連続したセルのパターンの個数を調べるには fool 09/8/31(月) 8:55