• 締切
  • すぐに回答を!

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

  • 質問No.9626906
  • 閲覧数58
  • ありがとう数3
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 14% (1/7)

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

回答 (全3件)

  • 回答No.3

ベストアンサー率 28% (4489/15985)

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

ベストアンサー率 53% (525/983)

他カテゴリのカテゴリマスター
書き忘れましたが
変数oが列だったり行だったりしてますが、それでいいのでしょうか。
補足コメント
rksksk3669

お礼率 14% (1/7)

書き間違いですね。申し訳ありません
正しくはDo While Cells(o、3) <> ""となります。
投稿日時:2019/06/18 12:01
  • 回答No.1

ベストアンサー率 53% (525/983)

他カテゴリのカテゴリマスター
> Date1 = wsFrom.Cells(o, 6)

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

お礼率 14% (1/7)

ありがとうございます。
おかげで動き出しました。
投稿日時:2019/06/18 12:08
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ