こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

回答受付中の質問

日付のカ増減は特に行っていません

参考日が個々でバラバラのため、セルを下に順繰りに送って基準日と照らし合わせる形をとっています。
下記に簡素ではありますが、プロシージャを貼り付けて置きます。
ご回答いただければ助かります
Sub ranking()

Dim o As Integer
Dim Date1 As Date, Date2 As Date

o = 5
Date2 = wsFrom.Cells(16, 3)
Date1 = wsFrom.Cells(o, 6)←こちらはきちんとセルごとの参考日が代入されている
↑ここのデータ変数が変わらない
Do While Cells(3, o) <> ""
If DateDiff("m", Date1, Date2) > 0 Then

   Cells(7,o).Copy
Cells(12,o).paste

Else

   Cells(7,o).Copy
Cells(14,o).paste

End If
o = o + 1
Loop
End Sub

投稿日時 - 2019-06-18 10:45:26

QNo.9626906

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

これは、前に出した質問の補足か?
それならば、その旨と、その質問番号なり書くべきでは?

投稿日時 - 2019-06-18 11:53:57

ANo.2

書き忘れましたが
変数oが列だったり行だったりしてますが、それでいいのでしょうか。

投稿日時 - 2019-06-18 11:00:55

補足

書き間違いですね。申し訳ありません
正しくはDo While Cells(o、3) <> ""となります。

投稿日時 - 2019-06-18 12:01:28

ANo.1

> Date1 = wsFrom.Cells(o, 6)

Cells(5, 6)のデータを一度だけしか代入してませんよね。
Do While Cells(3, o) <> ""
のあとに
Date1 = wsFrom.Cells(o, 6)
なのではないでしょうか。

投稿日時 - 2019-06-18 10:58:22

お礼

ありがとうございます。
おかげで動き出しました。

投稿日時 - 2019-06-18 12:08:50

あなたにオススメの質問