Excel VBA質問箱 IV

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

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


51018 / 76732 ←次へ | 前へ→

【30590】Re:同一データを検索して一定のデータを入力する
質問  tbtk  - 05/10/31(月) 15:29 -

引用なし
パスワード
   ▼あ さん:
>こんにちは。
>返信、ありがとうございます。
>Sub test()
>Dim 背番号 As String
>Dim 品番 As String
>Dim 最下行 As Integer
>Dim i As Integer
>Dim 検索セル As Variant
>
>Windows("データ取込").Activate
>最下行 = Range("A1").End(xlDown).Row
>
>For i = 2 To 最下行
>  品番 = Range("B" & i).Value
>  Windows("背番号表").Activate
>  検索セル = Cells.Find(what:=品番, after:=Range("A1"))
>  If Not 検索セル Is Nothing Then
        ↑
ここでオブジェクトが必要ですとエラーが出てしまうのですが
このコードの動作がよく分からないので何のことか分かりません。
もし、よろしければ教えて頂いてもよろしいでしょうか?
>    背番号 = 検索セル.Value
>  End If
>  Windows("データ読込").Activate
>  Range("D" & i).Value = 背番号
>Next
>
>End Sub
>
>外していたらごめんなさい。
>ファイル名は書いていたとおりのようにしたので、
>本来のファイル名変換してください。

1 hits

【30584】同一データを検索して一定のデータを入力する tbtk 05/10/31(月) 14:17 質問
【30589】Re:同一データを検索して一定のデータを入... 05/10/31(月) 15:14 回答
【30590】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 15:29 質問
【30591】Re:同一データを検索して一定のデータを入... 05/10/31(月) 15:38 発言
【30593】Re:同一データを検索して一定のデータを入... とまと 05/10/31(月) 16:19 発言
【30594】Re:同一データを検索して一定のデータを入... 05/10/31(月) 16:22 発言
【30596】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 16:54 質問
【30598】Re:同一データを検索して一定のデータを入... とまと 05/10/31(月) 17:05 回答
【30600】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 17:31 お礼
【30595】Re:同一データを検索して一定のデータを入... ちくたく 05/10/31(月) 16:23 回答
【30597】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 17:01 発言
【30602】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 18:06 お礼

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