|
▼AceNumber さん:
>▼mariko さん:
>なるほど、可能性としてはありますねぇ。
>
>では、下記のコードを実行するとどうでしょう?
>
>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
これはAとBのシートどちらに対して入力したらいいのでしょうか?
基本的なことでしょうが申し訳ありません。
|
|