エクセルのファイルに有期限を設定し、期日が来たら特定の
"Seet"を削除してしまい、利用に値しない物にする。
このようなプログラムを作りたいのですが、他の方の質問を
参考に、流用して、いろいろやってみたのですが、どうもうまく行きません。
どなたかお知恵をお貸しください。
よろしくお願いたします。
This Workseet Openのプログラム中には、次の構文が入っています。
メッセージBOXを表示するまではうまく行きましたが、それ以降で
行き詰まっております。
-----------------
Private Sub Workbook_Open()
Dim i As Integer, j As Integer, k As Integer
Dim Start As Integer, Finish As Integer
Dim Lbl As Variant
Dim Cmb(4) As ComboBox
Lbl = Array("札幌", "函館", "福島", "新潟", "東京", "中山", "中京", "京都", "阪神", "小倉")
With Sheet1
.ListBox1.Clear
.ListBox1.Font.Size = 10
For i = 0 To 9
.ListBox1.AddItem Lbl(i)
Next
.ListBox1.ListIndex = 4
Set Cmb(1) = .ComboBox1: Set Cmb(2) = .ComboBox2
Set Cmb(3) = .ComboBox3: Set Cmb(4) = .ComboBox4
Lbl = Array("", "開催年", "開催月", "開催日", "発走")
For i = 1 To 4
Cmb(i).Clear
Cmb(i).Font.Size = 10
Cmb(i).AddItem Lbl(i)
Next
Select Case Sheet1.Range("E4")
Case 2003 To 2999: Start = Sheet1.Range("E4")
Case Else: Start = 2003
End Select
Select Case Sheet1.Range("F4")
Case 2003 To 2999: Finish = Sheet1.Range("F4")
Case Else: Finish = 2003
End Select
k = 0
For i = Start To Finish
k = k + 1
.ComboBox1.AddItem i
If .ComboBox1.List(k) = Format(Date, "yyyy") Then
.ComboBox1.ListIndex = k
End If
Next
For i = 1 To 12
.ComboBox2.AddItem Format(i, "00")
Next
For i = 1 To 31
.ComboBox3.AddItem Format(i, "00")
Next
For i = 1 To 12
.ComboBox4.AddItem Format(i, "00")
Next
.ComboBox2.ListIndex = Month(Date)
.ComboBox3.ListIndex = Day(Date)
.ComboBox4.ListIndex = 1
End With
MsgBox ("使用期限は 2009/9/18です")
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#1です。
コードが1つもれてました。シート削除の後に、
Application.DisplayAlerts = True
で、アラート設定を元に戻しておいてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) userformでSheetを選択して開くコード 1 2023/05/15 16:27
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコンの設定でGoodGameエン...
-
photoshop CS2がアンインストー...
-
出てくる変な広告を消したいの...
-
Java(TM)6 Updateって削除し...
-
EPU-6 Engineのアンインストー...
-
INSTALL LOGファイルがオープン...
-
Lhasaのアンインストール
-
拡張子の関連付けを削除したい
-
bigfixは消してもいいですか?
-
スタートアップ画面から「スト...
-
ノートンインターネットセキュ...
-
Lhasa(フリーの解凍ソフト)の...
-
メッセンジャー
-
autocad2013学生版のinventorが...
-
Adobe Flash Playerのアップデート
-
DVD Makerとは?
-
音声プログラムの再インストー...
-
メディアプレイヤーの映像だけ...
-
フォルダ内のファイルは削除せ...
-
更新していないのにフォルダの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンの設定でGoodGameエン...
-
出てくる変な広告を消したいの...
-
Lhasa(フリーの解凍ソフト)の...
-
bigfixは消してもいいですか?
-
TOCATのアンインストール
-
Smart sound Quick Track plugi...
-
steamのアンインストールを[コ...
-
コーデックのアンインストール方法
-
デスクトップにamcapという名前...
-
メッセンジャー
-
Acer のガジェットは削除しても...
-
マカフィーの警告文が邪魔なん...
-
VLC Media Playerのアンインス...
-
エクセルからアクセスへのコピ...
-
筆まめの「Hot!Update」を削除...
-
フリーソフトのゲームの削除の仕方
-
yahoo メールのアンインストー...
-
EPU-6 Engineのアンインストー...
-
PCの画面上の変なアイコン
-
iTunesとApple Software Update...
おすすめ情報