Excel VBA質問箱 IV

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

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


9962 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【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:該当日(今日)のサンプル数表示
発言  m2m10  - 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型なんですよね?
日付型とかでは無いんですよね?

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