SUB 138 Dim a As Variantの解決方法

an class="coin-step" style="margin-right:3px">質問者が納得an>90人以上が見ても回答が無いのは、回答者に答えるスキルが不足しているのでは無く、ご質問の文章や表現などに問題があると考えた事はありませんか？ 「まったく状況や内容を知らない人が読む」という観点で質問を読み返してみて下さい。果たして何人の人が望んでいる事を理解出来るでしょうか？ 見ていない人に文章で伝えるのはかなり大変なことですし、特に文字数制限がある掲示板では尚更です。込み入った内容の質問であればあるほど伝えるのは容易ではありません。書いてもらったコードをコピペで載せるのではなく、読む人の環境で再現させ...

an class="coin-step" style="margin-right:3px">質問者が納得an>失礼しました。B列で判定でしたね＾＾； こんな感じでどうでしょうか？ Private Sub UserForm_Initialize() Me.StartUpPosition = 0 Me.Left = 586 Me.Top = 138 'タイトルを設定 Me.Caption = "印刷フォーム" Label1.Caption = "日付リスト" Dim Rng As Range, fRng As Range Dim lst As Vari...