|
▼mariko さん:
>Bは変換されずにyyyy/mm/ddのままでした。
>Bに貼付けるデータはもともとexcelではなくあるシステムの画面をコピーして
>貼付けていますのでその影響なのでしょうか?
なるほど、可能性としてはありますねぇ。
では、下記のコードを実行するとどうでしょう?
Sub Test2()
Dim ws As Worksheet
Dim varD As Variant
Set ws = ActiveSheet
varD = Split(ws.Cells(1, 1).Text, "/")
ws.Cells(1, 1).Value = Format(Join(varD), "yyyy/mm/dd")
varD = Split(ws.Cells(1, 2).Text, "/")
ws.Cells(1, 2).Value = Format(Join(varD), "yyyy/mm/dd")
If ws.Cells(1, 1).Value = ws.Cells(1, 2).Value Then
MsgBox "同じ"
Else
MsgBox "違う"
End If
Set ws = Nothing
End Sub
|
|