Excel VBA質問箱 IV

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

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


19880 / 76732 ←次へ | 前へ→

【62278】Re:VBSからマクロの呼び出し
発言  さくら  - 09/7/6(月) 13:08 -

引用なし
パスワード
   ありがとうございます。
わかりやすいご指南助かります。

>とりあえず、今のコードでは Rangeの親シートの指定がないですよね?ws2.Cells(2, 4)

このws2の部分で指定しているつもりでしたが不十分だったということでしょうか…。
初歩的な話だったら大変申し訳ありません。

ws1とws2が入れ替わっているようだったので、
その辺を弄って、いただいた構文で試してみました。

この過程で気づいたのですが
ws2.Range("D3").Value にはworkday関数を使用しておりまして、
vbsで呼び出した場合はここが計算できておらず、
その結果「型が違う」とエラーが出ているようです(当り前ですね…)

workday関数を使用している理由は
今日の時間外から翌営業日の朝9時までに当てはまるものを拾いたいからなんですが
workday関数を使わずにマクロだけで処理するしかないでしょうか…


  Public Sub Before2()
   Dim ws0 As String
   Dim ws1 As Worksheet, ws2 As Worksheet
   Dim i As Long, k As Long
   Dim date1 As Date
   Dim date2 As Date 'Double
  
   ws0 = Format$(Date, "yyyyMM")
   Set ws1 = ThisWorkbook.Worksheets(ws0)
   Set ws2 = ThisWorkbook.Worksheets("日付")
   date1 = ws2.Range("D2").Value
   date2 = ws2.Range("D3").Value
  
   Dim c As Range
   For Each c In ws1.Range("A1", ws1.Cells(ws1.Rows.Count, 1).End(xlUp))
     Select Case c.Value
      Case date1 To date2
        MsgBox c.Value
     End Select
   Next
  
  End Sub
1 hits

【62268】VBSからマクロの呼び出し さくら 09/7/6(月) 10:21 質問
【62272】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 11:16 発言
【62274】Re:VBSからマクロの呼び出し さくら 09/7/6(月) 11:43 発言
【62276】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 12:03 発言
【62278】Re:VBSからマクロの呼び出し さくら 09/7/6(月) 13:08 発言
【62280】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 14:04 発言
【62281】Re:VBSからマクロの呼び出し さくら 09/7/6(月) 14:30 発言
【62282】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 15:06 発言
【62284】Re:VBSからマクロの呼び出し さくら 09/7/6(月) 15:28 発言
【62285】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 15:55 発言
【62287】Re:VBSからマクロの呼び出し さくら 09/7/6(月) 16:35 発言
【62286】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 16:25 発言
【62288】Re:VBSからマクロの呼び出し さくら 09/7/6(月) 16:54 お礼
【62289】Re:VBSからマクロの呼び出し kanabun 09/7/6(月) 17:21 発言

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