Excel VBA質問箱 IV

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

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


36893 / 76732 ←次へ | 前へ→

【45014】Re:日にちで抽出したいのですが・・・
発言  DY  - 06/12/10(日) 0:34 -

引用なし
パスワード
   まず、
>新しいシートはちゃんとできるのですが、

>のシートをSheet2に12月15日分だけ抽出させたいのですが
で、出力先が矛盾しています。


次にコードですが、
>Sub 日付抽出()
>
>'---------------------------宣言セクション(各項目 最大1000件まで格納する)---
>Dim 日付(1000) As Date
>Dim 社員番号(1000) As String
>Dim 担当(1000) As String
>Dim ファイル(1000) As String
>
>
>Dim n As Integer
>Dim i As Integer
>
>Dim mstr As String
>
>Dim WS1 As Worksheet
>Dim WS2 As Worksheet
>Dim TDate As Date
>Dim SName As String
>
>'-----------------------メッセージボックスの表示------------------------------
>  mstr = InputBox("何日を抽出しますか?(数字のみ)", "抽出日指定")
ここで「mstr」の値は InputBox に入力された文字で、
”1”とか”43”などの数字(文字列型ですが)になりますよね?
日付にしてやる必要があるのでは?
>
>'----------------------該当データを一旦メモリ上に格納する---------------------
>  Set WS1 = ThisWorkbook.Worksheets("Sheet2")
WS1は抽出元のデータになるはずなので"Sheet2"ではなく"Sheet1"ですよね?
>
中略
>'----------------------抽出シート作成----------------------------------------
>
>  Sheets.Add After:=Worksheets(Worksheets.Count) '----------シート挿入
>  SName = Day(mstr) & "日分"  '----------シート名(シート名に『/』は使えない)
>  ActiveSheet.Name = SName
> 
>  Set WS2 = ThisWorkbook.Worksheets(SName)
WS2 が追加シートならこれでいいでしょう。
しかし、WS2 が"Sheet2"なら・・・、わかりますね?

ここから先はあまり見てませんが、
ざっと見た限りではそんなに問題はないように思います・・・


ここまでコードが書けるのであれば

>  Set WS1 = ThisWorkbook.Worksheets("Sheet2")
の後に
  MsgBox WS1.Name

  Debug.Print WS1.Name
とか

>    TDate = WS1.Cells(i + 1, "A")
の後に
      MsgBox Month(TDate) & " " & Month(mstr) & " " & Day(TDate) & " " & Day(mstr)

        Debug.Print Month(TDate), Month(mstr), Day(TDate), Day(mstr)

のように変数の中身を確認するデバッグ方法を身に付けるといいと思いますよ。
(ブレークポイントを設定するなども良く使われますね)

0 hits

【45006】日にちで抽出したいのですが・・・ 初心者 06/12/9(土) 21:03 質問
【45007】Re:日にちで抽出したいのですが・・・ 初心者 06/12/9(土) 21:09 質問
【45008】Re:日にちで抽出したいのですが・・・ Mariko 06/12/9(土) 21:59 発言
【45009】Re:日にちで抽出したいのですが・・・ ponpon 06/12/9(土) 22:45 発言
【45014】Re:日にちで抽出したいのですが・・・ DY 06/12/10(日) 0:34 発言
【45049】Re:日にちで抽出したいのですが・・・ 初心者 06/12/11(月) 9:20 お礼

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