[[20170815143244]]　『ブックを開くと今日の日付からリストを表示させた』（オレンジ）　ページの最後に飛ぶ

『ブックを開くと今日の日付からリストを表示させたい』（オレンジ）

こんにちは。
EXCELシート状のボタンを押すと、今日の日付からリストが表示されるようになっています。【Private Sub CmdToday_Click()】

それをブックを立ち上げると自動的に今日の日付からリストを表示させたく、
【Private Sub CmdToday_Click()】のところを【Private Sub Workbook_Open()】
に変えてみたのですが、上手く行きません。

調べてはみたのですが、方法が見つからず質問をさせていただきました。
ご教授をお願致します。

《F3のセル》=TODAY()
《G3のセル》=2020/3/31

Private Sub Workbook_Open()

Dim 開始日 As String
Dim 終了日 As String

開始日 = Format(Worksheets("企業1").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("企業1").Range("G3"), "yyyy/mm/dd")

Worksheets("企業1").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日

Worksheets("企業1").Activate

      Worksheets("企業1").Range("A5:M10000") _
             .Sort Key1:=Range("D5"), order1:=xlAscending, _
                   Key2:=Range("F5"), order2:=xlAscending, _
                   Key3:=Range("B5"), order3:=xlAscending

End Sub

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

オレンジさん

私の方でやってみると、上手くいくようなのですが....

どのようになって上手く行かないのでしょうか？
最初からマクロが走らずに、単純にシートがOpenする　とか？

Excel 2016 Windows 10ですが...
（ﾊﾟｵ～～ン） 2017/08/15(火) 15:27

ﾊﾟｵ～～ンさん、返信ありがとうございます。

全くマクロが作動していない状態です。
（オレンジ） 2017/08/15(火) 15:48

 こんにちわ。

 一応念の為確認ですけど、
 ThisWorkbookモジュールに記述されていますか？

（sy） 2017/08/15(火) 15:54

 よく解ってないけど。
 ブックを開いたときにボタンを押せばいいのかな？？
 ※シート名とボタン名は変えてね。

 Private Sub Workbook_Open()
 Worksheets("Sheet1").OLEObjects("CommandButton1").Object.Value = True
 End Sub 
（BJ） 2017/08/15(火) 16:04

syさん、完全に見落としていました。
ThisWorkbook内で、上手く行きました!

ありがとうございました。

BJさん、そういう方法もあるのですね。
参考にさせていただきます。
（オレンジ） 2017/08/15(火) 16:40

コメント返信：

[ 一覧(最新更新順) ]

[[20170815143244]] 『ブックを開くと今日の日付からリストを表示させた』（オレンジ） ページの最後に飛ぶ

[[20170815143244]]　『ブックを開くと今日の日付からリストを表示させた』（オレンジ）　ページの最後に飛ぶ