Excel VBA質問箱 IV

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

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


41112 / 76732 ←次へ | 前へ→

【40702】Re:VBA基本
回答  Kein  - 06/7/20(木) 17:26 -

引用なし
パスワード
   ブックオープンイベントで、"編集"ツールバーにコンボボックスを配置して
そこに目的のファイルのみをリストアップする。→リストをクリックして
開きたいブックを開く。というマクロを考えてみました。

[ThisWorkbookモジュール]

Private Sub Workbook_Open()
  Dim MyF As String

  With Application.CommandBars("Formatting")
   .Visible = True
   With .Controls.Add(msoControlComboBox)
     MyF = Dir("D:\売上\DB\ES08*")
     Do Until MyF = ""
      .AddItem MyF: MyF = Dir()
     Loop
     If .ListCount = 0 Then
      .Delete
     Else
      .OnAction = "MyB_Open"
     End If
   End With
  End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.CommandBars("Formatting").Reset
End Sub

[標準モジュール]

Sub MyB_Open()
  Dim WB As Workbook
  Dim MyBook As String
  Const Fol As String = "D:\売上\DB\"
 
  With Application.CommandBars("Formatting")
   With .Controls(.Controls.Count)
     MyBook = .List(.ListIndex)
   End With
  End With
  For Each WB In Workbooks
   If WB.Name = MyBook Then
     MsgBox MyBook & " は既に開いています", 48
     Exit Sub
   End If
  Next
  Workbooks.Open Fol & MyBook
End Sub

0 hits

【40697】VBA基本 トホホ 06/7/20(木) 16:28 質問
【40699】Re:VBA基本 へっぽこ 06/7/20(木) 16:46 回答
【40700】Re:VBA基本 へっぽこ 06/7/20(木) 16:47 発言
【40712】Re:VBA基本 トホホ 06/7/21(金) 9:19 お礼
【40723】すみません トホホ 06/7/21(金) 13:56 質問
【40724】Re:すみません Jaka 06/7/21(金) 14:06 発言
【40726】Re:すみません Kein 06/7/21(金) 14:45 回答
【40781】Re:すみません トホホ 06/7/24(月) 9:35 お礼
【40702】Re:VBA基本 Kein 06/7/20(木) 17:26 回答
【40711】Re:VBA基本 トホホ 06/7/21(金) 9:19 お礼

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