Excel VBA質問箱 IV

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

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


7504 / 76732 ←次へ | 前へ→

【74815】Re:表示形式の改修
発言  mariko  - 13/9/19(木) 17:46 -

引用なし
パスワード
   ▼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のシートどちらに対して入力したらいいのでしょうか?
基本的なことでしょうが申し訳ありません。

2 hits

【74804】表示形式の改修 mariko 13/9/19(木) 14:28 質問
【74805】Re:表示形式の改修 AceNumber 13/9/19(木) 15:03 発言
【74806】Re:表示形式の改修 mariko 13/9/19(木) 15:34 質問
【74807】Re:表示形式の改修 AceNumber 13/9/19(木) 15:44 回答
【74808】Re:表示形式の改修 mariko 13/9/19(木) 15:51 発言
【74809】Re:表示形式の改修 mariko 13/9/19(木) 15:53 質問
【74810】Re:表示形式の改修 AceNumber 13/9/19(木) 16:11 回答
【74811】Re:表示形式の改修 AceNumber 13/9/19(木) 16:25 発言
【74812】Re:表示形式の改修 AceNumber 13/9/19(木) 16:26 発言
【74813】Re:表示形式の改修 mariko 13/9/19(木) 17:26 発言
【74814】Re:表示形式の改修 AceNumber 13/9/19(木) 17:37 発言
【74815】Re:表示形式の改修 mariko 13/9/19(木) 17:46 発言
【74816】Re:表示形式の改修 AceNumber 13/9/19(木) 17:52 回答
【74817】Re:表示形式の改修 AceNumber 13/9/19(木) 18:48 発言
【74818】Re:表示形式の改修 13/9/19(木) 21:19 発言
【74819】Re:表示形式の改修 AceNumber 13/9/20(金) 1:13 発言
【74820】Re:表示形式の改修 13/9/20(金) 7:31 発言
【74821】Re:表示形式の改修 AceNumber 13/9/20(金) 10:17 発言

7504 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free