Excel VBA質問箱 IV

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

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


10215 / 13644 ツリー ←次へ | 前へ→

【23072】セル内の検索 あきら 05/3/12(土) 8:22 質問[未読]
【23073】Re:セル内の検索 かみちゃん 05/3/12(土) 8:50 回答[未読]
【23077】Re:セル内の検索 あきら 05/3/12(土) 10:38 お礼[未読]

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

引用なし
パスワード
   A   B    C      D   E    F   
東京  新宿区  山川浩三   東京  新宿区  山川浩三
神奈川 横浜   佐藤肇    神奈川 横浜   佐藤肇
茨城  水戸   立山二郎   
 
ユーザーホーム内にテキストボックスを置きその中に「川」と入力
し、コマンドボタンを押した際にシート内のAからCないで川が入っている
セルを検索し、D以降に貼り付ける際の
コードを教えてください

【23073】Re:セル内の検索
回答  かみちゃん  - 05/3/12(土) 8:50 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ユーザーホーム内にテキストボックスを置きその中に「川」と入力
>し、コマンドボタンを押した際にシート内の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

【23077】Re:セル内の検索
お礼  あきら  - 05/3/12(土) 10:38 -

引用なし
パスワード
   TOかみちゃん
有難うございました
解決しました

10215 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free