[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロ・・・』(まりお)
いつも拝見させていただいております。 以前、みやほりんさまに作っていただいたマクロ [[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.