
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
ユーザーフォームを使って、ボタンを押すとパスワードの
入力を促すようにしてはどうでしょうか。
パスワードは1111にしてあります。
Private Sub CommandButton1_Click()
PASS = TextBox1
If PASS = 1111 Then
Call lowrobasanさんが作成したマクロ
Unload Me
Else
MsgBox "パスワードが違います。"
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

No.5
- 回答日時:
ANo.3です。
思ったのですが、指定日以外は実行不可にするのではなくて、月末日以外は確認メッセージで選択できるようにした方がいいのでは?
その場合を参考までに記載します。マクロの先頭に次を追加してください。
If Day(Date + 1) <> 1 Then
If MsgBox("今日は月末日ではないですが、実行しますか?", 4) = vbNo Then Exit Sub
End If
ありがとうございます。
MsgBox("月末ですか?") キャンセルで"月末に実行してください"と入れてあるのですが、
確認メッセージを読まない人(不特定多数)がいる可能性がありますので、実行できないようにしたいのです。
No.4
- 回答日時:
>ボタンを押してもマクロを実行しない方法でも良いです。
Sub Test2()
Dim 月末 As Date
'当月末日を算出
月末 = DateSerial(Year(Date), Month(Date) + 1, 0)
'本日が最終営業日でなければExit
If Date <> 月末 Then
MsgBox "月末しか実行できません", 16
Exit Sub
End If
'<月末処理>
End Sub
土日を除く最終営業日なら(祝日には対応していません)
Sub Test2()
Dim 月末 As Date
'当月末日を算出
月末 = DateSerial(Year(Date), Month(Date) + 1, 0)
If Weekday(月末) = 7 Then
'月末が日曜なら2日前
月末 = 月末 - 2
ElseIf Weekday(月末) = 6 Then
'月末が土曜日なら1日前
月末 = 月末 - 1
End If
'本日が最終営業日でなければExit
If Date <> 月末 Then
MsgBox "月末しか実行できません", 16
Exit Sub
End If
'<月末処理>
End Sub
No.3
- 回答日時:
ボタンを押してもマクロが実行されないようにするには、マクロの先頭に次の行を追加します。
Select Case Month(Date)
Case 1
If Day(Date) <> 31 Then Exit Sub
Case 2
If Day(Date) <> 28 Then Exit Sub
Case 3
If Day(Date) <> 31 Then Exit Sub
Case 4
If Day(Date) <> 30 Then Exit Sub
Case 5
If Day(Date) <> 31 Then Exit Sub
Case 6
If Day(Date) <> 30 Then Exit Sub
Case 7
If Day(Date) <> 31 Then Exit Sub
Case 8
If Day(Date) <> 31 Then Exit Sub
Case 9
If Day(Date) <> 30 Then Exit Sub
Case 10
If Day(Date) <> 31 Then Exit Sub
Case 11
If Day(Date) <> 30 Then Exit Sub
Case 12
If Day(Date) <> 31 Then Exit Sub
End Select
月末日が休日の場合は別の日になるでしょうから、実際の日付に修正してください。
No.2
- 回答日時:
コマンドボタンを配置しておいても月末でなければマクロが作動しないようにする方法です。
コマンドボタンを右クリックしてマクロの記載画面を表示させ次のマクロを記載します。
Private Sub CommandButton1_Click()
A = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
If Date = A Then
Call あなたが作成したマクロ
End If
End Sub
ありがとうございます。
表に関数で、=DATE(YEAR(日付けセル),MONTH(日付けセル),0)-DATE(YEAR(日付けセル),MONTH(日付けセル)+1,0)で、その月の日数をだして、当日のDAY(日付セル)が一致しなければ、「月末ではありません」と空いているセルに表示させているので、それを利用してできそうです。
やってみます。
No.1
- 回答日時:
こちらのページを参考にしてみてください。
http://www.excel-vba.net/excel-userform-002.html
参考URL:http://www.excel-vba.net/excel-userform-002.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
EXCEL-VBAでコマンドボタンに条件を追加したい
Visual Basic(VBA)
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
-
4
エクセルVBAでオプションボタンを無効にする方法
Excel(エクセル)
-
5
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
6
Excel VBAで、実行時にsheet上のコマンドボタンのCaptionを変更する。
Excel(エクセル)
-
7
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
8
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
9
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
10
未記入がある場合はマクロを実行させない方法
その他(Microsoft Office)
-
11
オブジェクト名をVBAで指定する方法を教えてくださ
PowerPoint(パワーポイント)
-
12
エクセルVBAが途中で止まります
Visual Basic(VBA)
-
13
ボタン
Visual Basic(VBA)
-
14
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
<EXCEL> セルが非表示になったらチェックボックスも非表示にする方法
Excel(エクセル)
-
17
エクセル マクロの実行について
Excel(エクセル)
-
18
Excel VBAで、ユーザーフォームの値を、モジュールで使用したい。
Visual Basic(VBA)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
パワーポイントで、スライドご...
-
複数ファイルにある特定のシー...
-
エクセルを開くときにvisibleが...
-
エラーになってないのにVBA...
-
モジュール内のマクロを全て実...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
wordのマクロについて
-
【Excel VBA】エラー番号400
-
エクセルで複数のシートをまと...
-
エクセルのマクロショートカッ...
-
マクロボタンをある条件の時に...
-
Excelを開いた時に表示さ...
-
VBAでEXCELに埋め込んだPDFを開...
-
開いているフォルダを全て閉じ...
-
Excel VBA のdebug(F8キー) が...
-
Image J ソフトの使い方
-
Accessのマクロで「yes、no」の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Wordの画面を左右にスクロール...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセルで複数のシートをまと...
-
エクセルでマクロ実行中に任意...
-
ワードからエクセルへ貼り付け...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelマクロでオプションボタン...
-
マクロを実行した日付をセルに...
-
TeraTermのマクロについて
-
Accessのクエリを実行するショ...
おすすめ情報