Excel VBA質問箱 IV

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

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


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

58388 / 76732

←次へ　｜　前へ→


	【23073】Re:セル内の検索

かみちゃん - 05/3/12(土) 8:50 -


	引用なし

	パスワード

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

>ユーザーホーム内にテキストボックスを置きその中に「川」と入力
>し、コマンドボタンを押した際にシート内のＡからＣないで川が入っている
>セルを検索し、Ｄ以降に貼り付ける際の

次のような感じになります。
対象の最大行、最大列は適宜設定してください。
また、処理前に、貼付先をクリアしておく必要があるかと思いますが、それは入れ
ていません。

Option Explicit
Private Sub CommandButton1_Click()
　Dim RowNo As Long, MaxRowNo As Long
　Dim ColumnNo As Integer, MaxColumnNo As Integer
　　
　'処理対象の最大行
　MaxRowNo = 3
　'処理対象の最大列
　MaxColumnNo = 3
　For RowNo = 1 To MaxRowNo
　　For ColumnNo = 1 To MaxColumnNo
　　　'TextBox1の値がセルの値にの一部分にあれば
　　　If InStr(Cells(RowNo, ColumnNo).Value, Me.TextBox1.Value) <> 0 Then
　　　　Range(Cells(RowNo, 1), Cells(RowNo, MaxColumnNo)).Copy _
　　　　　Destination:=Cells(RowNo, MaxColumnNo + 1)
　　　　Exit For
　　　End If
　　Next
　Next
End Sub

1 hits

▼

【23072】セル内の検索 あきら 05/3/12(土) 8:22