Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9964 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24548】該当日（今日）のサンプル数表示 改造したいな 05/4/25(月) 15:38 質問[未読]
【24549】Re:該当日（今日）のサンプル数表示 ｍ2ｍ10 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 発言[未読]
【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からうまくできません。ﾃﾞｰﾀサンプルの簡単な引き出し方法でもよいので誰か教えていただきたく投稿します。
【24549】Re:該当日（今日）のサンプル数表示
発言  ｍ2ｍ10  - 05/4/25(月) 15:56 -
引用なし
パスワード
   セルのカウントを考えれば

　仮に
　　
　　　　A　 B　 C　 D　 E　 F　 G　 H　 I
1　　　 4/1 4/2 4/3 4/4 4/5 4/6 4/7 4/8 4/9

　 と考えれば。

　　Cells(列、行）　　ですから

　　　　4/8　にちは　
　　　Cells(8、1）　連番処理のほうが良いかも。　　　　　

　　　
【24551】Re:該当日（今日）のサンプル数表示
発言  kazu  - 05/4/25(月) 16:47 -
引用なし
パスワード
   ▼改造したいな さん：

これ実行してみて下さい。
何か気づくかも。

Sub H()
A = Now
B = Date
C = Format(Date, "YY/MM/DD")

MsgBox A
MsgBox B
MsgBox C

MsgBox "2005/04/25" = A
MsgBox "2005/04/25" = B
MsgBox "2005/04/25" = C


End Sub
【24552】Re:該当日（今日）のサンプル数表示
発言  改造したいな E-MAIL  - 05/4/25(月) 17:12 -
引用なし
パスワード
   B=Dateではプロジェクトエラーで進めません。
B=Year(A):C=Month(A):D=Day(A)で一度取りだし
DATESS=B＆"/"&C"/"&Dといった形で日付を表示には使っているのですが、
それDATESSとの＝でその下のセルを選択させたほうが良いのでしょうか。
【24553】Re:該当日（今日）のサンプル数表示
発言  kazu  - 05/4/25(月) 17:54 -
引用なし
パスワード
   ▼改造したいな さん：
・・・97迄しかDate使えないんでしたっけ？
それでは・・・

Format(Now,"YYYY/MM/DD")
又は
Format(Now,"YY/MM/DD")

にしてみては？
ちなみに、ｾﾙの値はString型なんですよね？
日付型とかでは無いんですよね？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9964 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free