|
▼mariko さん:
>これはAとBのシートどちらに対して入力したらいいのでしょうか?
>基本的なことでしょうが申し訳ありません。
なんか不親切だった気がするので、書き換えてみました。
1.新しいブックを開き、標準モジュールを追加し、下記コードを貼り付け
2.Set wsA = Workbooks("ブックA").Sheets("シートA")
ブックA、シートAの部分を実際のブック名、シート名に変更
3.Set wsB = Workbooks("ブックB").Sheets("シートB")
同上
4.varD = Split(wsA.Range("A1").Text, "/")
"A1"の部分をシートAの検査したいアドレスに変更
5.varD = Split(wsB.Range("A1").Text, "/")
同上(シートBの)
検査対象のブックは開いた状態で実行してください。
Sub Test()
Dim ws As Worksheet
Dim wsA As Worksheet
Dim wsB As Worksheet
Dim varD As Variant
Set ws = ThisWorkbook.Sheets(1)
Set wsA = Workbooks("ブックA").Sheets("シートA") '2
Set wsB = Workbooks("ブックB").Sheets("シートB") '3
varD = Split(wsA.Range("A1").Text, "/") '4
ws.Cells(1, 1).Value = Format(Join(varD), "yyyy/mm/dd")
varD = Split(wsB.Range("A1").Text, "/") '5
ws.Cells(1, 2).Value = Format(Join(varD), "yyyy/mm/dd")
If wsA.Cells(1, 1).Value = ws.Cells(1, 2).Value Then
MsgBox "同じ"
Else
MsgBox "違う"
End If
Set ws = Nothing
Set wsA = Nothing
Set wsB = Nothing
End Sub
|
|