Excel VBA質問箱 IV

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

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


7506 / 76736 ←次へ | 前へ→

【74817】Re:表示形式の改修
発言  AceNumber  - 13/9/19(木) 18:48 -

引用なし
パスワード
   ▼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

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 発言

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