Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56931 / 76738

←次へ　｜　前へ→


	【24548】該当日（今日）のサンプル数表示

改造したいな

- 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

≪