Excel VBA質問箱 IV

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

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


56931 / 76738 ←次へ | 前へ→

【24548】該当日(今日)のサンプル数表示
質問  改造したいな E-MAIL  - 05/4/25(月) 15:38 -

引用なし
パスワード
   早速ですが、データ抽出の方法がわからず、困っています。
まず、
Sub XXX()
Sheets("B").Select
NN2 = 35
For i2 = 2 To 700
  If Cells(i2, 21).Value = 1 Then
  NN1 = Cells(i2 - 1, 21).Value: ST1 = Cells(i2 - 1, 15).Value
  Cells(3, NN2).Value = NN1: Cells(2, NN2).Value = ST1: NN2 = NN2 + 1
  End If
Next i2
End Sub
というコードで
2005/4/21 2005/4/22 2005/4/23 2005/4/24 2005/4/25
    20     30    35     50     60
と表示したセルの今日に該当2005/4/25の60を抽出し、他のシートにコピーし、
Pasteしたいのですが、If Cells(2, i2).Value = Now Thenからうまくできません。データサンプルの簡単な引き出し方法でもよいので誰か教えていただきたく投稿します。
0 hits

【24548】該当日(今日)のサンプル数表示 改造したいな 05/4/25(月) 15:38 質問
【24549】Re:該当日(今日)のサンプル数表示 m2m10 05/4/25(月) 15:56 発言
【24551】Re:該当日(今日)のサンプル数表示 kazu 05/4/25(月) 16:47 発言
【24552】Re:該当日(今日)のサンプル数表示 改造したいな 05/4/25(月) 17:12 発言
【24553】Re:該当日(今日)のサンプル数表示 kazu 05/4/25(月) 17:54 発言

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