|
こんにちは。かみちゃん です。
>ユーザーホーム内にテキストボックスを置きその中に「川」と入力
>し、コマンドボタンを押した際にシート内のAからCないで川が入っている
>セルを検索し、D以降に貼り付ける際の
次のような感じになります。
対象の最大行、最大列は適宜設定してください。
また、処理前に、貼付先をクリアしておく必要があるかと思いますが、それは入れ
ていません。
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
|
|