Excel VBA質問箱 IV

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

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


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

35644 / 76732

←次へ　｜　前へ→


	【46284】Re:文字列の取得

かみちゃん - 07/1/29(月) 16:19 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>○２行目全体を検索し、
>○「あ」、「い」、「う」を配列に格納し、
>○レコード件数をカウントし、（この場合は３件）
>○「あ」、「い」、「う」のセル位置を取得する
>（この場合は、A2、B2、C2を配列に格納する）

以下のような感じになるかと思います。
コードの意味は、ヘルプで調べてみてください。

Sub Sample()
　Dim rng As Range
　Dim c As Range
　Dim i As Integer
　
　On Error Resume Next
　Set rng = Rows("2:2").SpecialCells(xlCellTypeConstants, 23)
　On Error GoTo 0
　　
　If Not rng Is Nothing Then
　　rng.Select
　　ReDim vntData(rng.Count)
　　i = 0
　　For Each c In rng
　　　vntData(i) = c.Address(0, 0)
　　　i = i + 1
　　Next
　Else
　　MsgBox "2行目には値がありません"
　End If
　For i = 0 To UBound(vntData, 1)
　　Debug.Print vntData(i)
　Next
End Sub

1 hits

▼

【46266】文字列の取得 okitsun 07/1/29(月) 13:40