Excel VBA質問箱 IV

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

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


479 / 13645 ツリー ←次へ | 前へ→

【80138】別のシートから別のシートへ まくろ 18/9/10(月) 11:42 質問[未読]
【80139】Re:別のシートから別のシートへ γ 18/9/10(月) 21:40 回答[未読]
【80144】Re:別のシートから別のシートへ まくろ 18/9/11(火) 9:49 発言[未読]
【80147】Re:別のシートから別のシートへ γ 18/9/11(火) 19:01 発言[未読]
【80149】Re:別のシートから別のシートへ まくろ 18/9/12(水) 11:26 お礼[未読]

【80138】別のシートから別のシートへ
質問  まくろ  - 18/9/10(月) 11:42 -

引用なし
パスワード
   シート1へシート2のデータを日付を照合してデータを自動コピーする
マクロを作りました。
何故か昨日の日付と今日の日付がデータが入らないのですが何故でしょうか?
いつ行っても一昨日やほかの日のデータは入ります。
VBA初心者です。よろしくお願いします。

[sheet1]
A列に1行目から2018/4/1〜2018/9/31のように日付が書いてあります。
B列以降は空欄です。
[sheet2]
A列に1行目に2018/9/10など日付があります。
B列以降のデータをコピーしたいです。

9/8のデータは反映されるのですが、9/9や9/10は0が入ってしまいます。


Sub ()

Dim c As Range
Dim myRow As Long
Dim myrow2 As Long


Sheets("Sheet1").Activate
With Sheets("Sheet2")
myRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range("A1:A" & myRow)
If WorksheetFunction.CountIf(Columns(1), c) Then
myrow2 = WorksheetFunction.Match(c, Columns(1), 0)
Cells(myrow2, 1).Resize(, 50).Value = c.Offset(, 0).Resize(, 50).Value
End If
Next c
End With
Range("B3").SpecialCells(xlCellTypeBlanks) = 0


End Sub

【80139】Re:別のシートから別のシートへ
回答  γ  - 18/9/10(月) 21:40 -

引用なし
パスワード
   Range("B3").SpecialCells(xlCellTypeBlanks) = 0
はどういう意図でしょうか?

【80144】Re:別のシートから別のシートへ
発言  まくろ  - 18/9/11(火) 9:49 -

引用なし
パスワード
   ▼γ さん:
>Range("B3").SpecialCells(xlCellTypeBlanks) = 0
>はどういう意図でしょうか?

間違えました
Range("B1:E31").SpecialCells(xlCellTypeBlanks) = 0
です。

一致しなかったブランクのところに0が入るようにしています。
なくても別に大丈夫です。

【80147】Re:別のシートから別のシートへ
発言  γ  - 18/9/11(火) 19:01 -

引用なし
パスワード
   ステップ実行して確認することをお勧めする。
わたしも実行してみたが問題なかった。
データの関係かと思います。
自分で確認するより他に道はないです。

【80149】Re:別のシートから別のシートへ
お礼  まくろ  - 18/9/12(水) 11:26 -

引用なし
パスワード
   ▼γ さん:
>ステップ実行して確認することをお勧めする。
>わたしも実行してみたが問題なかった。
>データの関係かと思います。
>自分で確認するより他に道はないです。

ステップ実行して解決致しました!
ありがとうございました

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