[[20060111100048]] 『マクロ・・・』(まりお) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロ・・・』(まりお)

 いつも拝見させていただいております。
 以前、みやほりんさまに作っていただいたマクロ
[[20050415103520]]、
 年末まですごく順調に動いていたのですが、
 年明けにさあ仕事だと思ったら、マクロが使えないんです・・・

  エラーの内容は

 (抽出) ボタンを押すと、
 ”実行時エラー'13':”
 型が一致しません。
 と表示され、デバックを押すと
  Rem ユーザーフォーム呼び出し
     UserForm1.Show 0 ← この部分が黄色になります。

 マクロのコードは何も触っていないし、特別何かをしたということも
 ありません。ファイルの入っているパソコンは会社で使用していますが、
 他に誰かが使用することも考えられないのです。

 以前質問させていただいたボードを呼び出し、サンプルをもう一度保存
 しなおしてみたのですが、それでも同じエラーがでてしまいます。

 まだマクロを理解できないのが、本当になさけないのですが、
 わかるかたどうか教授お願いします。

 UserformのInitializeイベントに書かれたコードを直してみてください。

     Rem 抽出対象日付の初期設定
'   StartDate = Month(Date) - 1 & "-21" & "-" & Year(Date)
    StartDate = Month(DateAdd("M", -1, Date)) & "-21" & "-" & Year(DateAdd("M", -1, Date))
(やっちん)


 衝突しました。
 衝突時のをそのまま挙げます。

 やっちんさんのおっしゃるように、Initialize内のコードで以下の部分を
 変更してみてください。

   Rem 抽出対象日付の初期設定
   StartDate = Month(Date) - 1 & "-21" & "-" & Year(Date)
   EndDate = Month(Date) & "-20" & "-" & Year(Date) 

 以下に変更
   StartDate = DateSerial(Year(Date), Month(Date) - 1, 21)
   EndDate = DateSerial(Year(Date), Month(Date), 20)

 同様にCommandButton2内のコードも直してください。

 (川野鮎太郎)

 川野鮎太郎さんのコードの方がきれいなのでそちらをお勧めします。
 (やっちん)

 (やっちん)さま(川野鮎太郎)さま
 ありがとうございました。

 (川野)さまにご教授いただいたコードに変更しました。
 以前の様に使用することが出来る様になりました。
 本当にありがとうございました。(まりお)

 [やっちん]さん[川野鮎太郎]さんフォロー感謝です。
(みやほりん)(-_∂)b


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.