Excel VBA質問箱 IV

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

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


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

35487 / 76738

←次へ　｜　前へ→


	【46450】Re:異なるブックのセルをIF条件で指定

ichinose - 07/2/3(土) 20:50 -


	引用なし

	パスワード

こんばんは。

>異なるブックのセルをＩＦ条件で指定したいのですが、
>イメージとしてはこんな感じです。
>
>IF ブックＡ（セルＡ１）＝ブックＢ（セルＡ1）Then
>　ブックＡ（セルＢ1）をブックＢ（セルＢ1）に貼り付け。

Sub test()
　　Dim shtA As Worksheet
　　Dim shtB As Worksheet
　　Set shtA = Workbooks("ブックA").Worksheets("シート１")
　　Set shtB = Workbooks("ブックB").Worksheets("シート１")
　　If shtA.Range("a1").Value = shtB.Range("a1").Value Then
　　　 shtB.Range("b1").Value = shtA.Range("b1").Value
　　　 End If
End Sub

試してみてください。

0 hits

▼

【46448】異なるブックのセルをIF条件で指定 Sen 07/2/3(土) 20:38