Excel VBA質問箱 IV

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

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


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

51319 / 76738

←次へ　｜　前へ→


	【30290】findで別のブックに値を代入したい

kono - 05/10/24(月) 16:10 -


	引用なし

	パスワード

教えてください。
activesheetの
A1=カタログNo.
E20=原価
B20=点数
A4=改訂No.
が入っています。
別のブック（『売上』ブックの『原価一覧表』というシート）の
A列にカタログNo.の一覧があります。
findでカタログNo.の行を見つけ、D列＝改訂No.、F列＝原価、G列＝点数
をそれぞれ代入しようと思いました。
activesheeと同じフォームのブックが１００以上あるので、
personalにコードを書きました。

Sub 原価jump()
Dim kata As String
Dim genka As String
Dim tensu As String
Dim kaite As String
Dim ra As String
Dim r1 As Range
kata = ActiveWorkbook.ActiveSheet.Range("A1")
genka = ActiveWorkbook.ActiveSheet.Range("E20")
tensu = ActiveWorkbook.ActiveSheet.Range("B20")
kaite = ActiveWorkbook.ActiveSheet.Range("A4")

With Workbooks("売上.xls").Worksheets("原価一覧表").Columns("A:A")

Set r1 = .Find(what:=kata, LookIn:=xlFormulas, lookat:=xlPart, searchdirection:=xlNext, MatchCase:=False)
r1.Activate
If Not r1 Is Nothing Then
ra = r1.Address '⇒ここがデバックで止まりました
Do
r1.Offset(0, 3).Value = kaite
r1.Offset(0, 5).Value = genka
r1.Offset(0, 6).Value = tensu
Set r1 = .FindNext(r1)
Loop While Not r1 Is Nothing And r1.Address <> ra
Else
MsgBox "カタログNo.がありません"
End If
End With

End Sub

上記の『ra=r1.Address』でエラーが出ました。
どこに問題があるのか、おわかりになる方がいらっしゃいましたら
是非、教えてください。よろしくお願い致します。

0 hits

▼

【30290】findで別のブックに値を代入したい kono 05/10/24(月) 16:10

≪