VBA教えて下さい

質問

VBAのコード考えましたが上手くできません

まず、例として
ファイル名を
試験1
試験2の2つのエクセルのファイルがあります

やりたい事
セルを1つ1つ調べる
試験1のファイル(今開いてるシート)
のD1～D20セルのどれかのセルが何か入力されているならば

試験2のファイル(今開いてるシート)
のB1～B20セルのどれかのセルをクリアする(例えばD5セルに値が入ってればB5セルをクリアすると言う内容です)
をしたいです

考えたコードを書きます

sub test()

dim a as variant
dim i as variant

set a = workbooks("試験2").activesheet

with workbooks("試験1").activesheet

for i = 1 to 20
if cells(i,"D") <> "" then
cells(i,a).clear

end if

next i
end with
end sub

これでは上手く結果がでませんでした
勉強不足ですみませんm(__)m

宜しければコードを書いてくれると助かります
回答お願いします

回答No.1

noname#231195 · ベストアンサー

(-ω-;)ウーン、変数や引数が単なるフィーリングで指定して合って、人間ならわかるけど、VBAは確かにわからないかも。

こんな風にすればいいです。
Sub test()
Dim a As Variant
Dim i As Variant
Set a = Workbooks("試験2.xlsx").ActiveSheet
With Workbooks("試験1.xlsx").ActiveSheet
For i = 1 To 20
If .Cells(i, 4) <> "" Then
a.Cells(i, 2).Clear
End If
Next i
End With
End Sub

Workbooksコレクションのそれぞれのオブジェクトを指定するときは、拡張子も書いておきます。.xlsは書かなくてもいいのかもしれませんが、少なくとも今の場合、私の手元では拡張子.xlsxを書かないと走りませんでした。

またCellsプロパティの引数は数字で指定します。

でわでわ。

お礼

拡張子書くの忘れてましたm(__)m

思った結果が出ました！
めちゃくちゃ助かりました
ありがとうございますm(__)m

回答No.2

imogasi

この質問の意図がはっきりしないのは、ＶＢＡのイベントという考え方に関連した質問なのか，はっきりしないことです。
（１）試験１のＳｈｅｅｔ１は作業時点で完成した（静止した）データとみて、試験２のブックシートを開いて試験1のデータに対応するセルに結果を作りたいということか
（２）イベント的な仕組み
試験２のＳｈｅｅｔ１のＤ列セルをクリックし他機会をとらえて、データを入力したデータによって、試験２のブックシートを開いおいて、試験1のデータに対応するセルに結果を作りたいということか
＞セルを1つ1つ調べる、という表現から質問は（１）のことらしいが、（２）の方は初心者的課題ではないが、往々にして初心者の考え（思っていること）に沿うものであるからはっきりさせておく方がよい。
ーー
質問のコードは試験１のシートと試験２のシートの区別が、コード的に書けていない。
私見では、初心者が初めの課題として、別ブックのデータを扱うのは適当でないと思う。
Ａ同一シート
Ｂ別シート
Ｃ別ブックシート
の順に学習すべきだ。
ーー
しかし、こんな質問コーナーを頼らずとも、Ｇｏｏｇｌｅなどで
「エクセルＶＢＡ　他ブックのシートを参照」で照会すべきだ。
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_070_11.html
の
「シートやブックを越えたRangeオブジェクト取得」の
下記部分をじっくり学ぶべきだと思う。
Set objWBK = ThisWorkbook
Set objSH = objWBK.Worksheets("Sheet3")
Set objR = objSH.Range("A1").Offset(1, 1).Resize(5, 4)
objR.Value = "aaa"
ーー
＞宜しければコードを書いてくれると助かります
なるべく丸投げしないこと。
年月が経ち、内容が充実したので、今どきＷＥＢで説明されてない事項は、よっぽどの特殊問題である。