No.1ベストアンサー
- 回答日時:
ツールバーですか?「書式」も質問に入っているので
メニューバーの話と理解しました。
メニューバーから、ファイル(F)の保存・上書き保存・印刷、書式、ツール(T)のマクロを選べなくする1つの方法です。
Sub auto_open()
'
Dim tmpCBar As CommandBar
Dim tmpCMenu As CommandBarControl
Set tmpCBar = Application.CommandBars("Worksheet Menu Bar")
Set tmpCMenu = tmpCBar.Controls("ファイル(&F)")
With tmpCMenu
.Controls("上書き保存(&S)").Enabled = False
.Controls("名前を付けて保存(&A)...").Enabled = False
.Controls("印刷(&P)...").Enabled = False
End With
tmpCBar.Controls("書式(&O)").Enabled = False
Set tmpCMenu = tmpCBar.Controls("ツール(&T)")
With tmpCMenu
.Controls("マクロ(&M)").Enabled = False
End With
'
End Sub
Sub auto_close()
'
Application.CommandBars("Worksheet Menu Bar").Reset
'
End Sub
あと、VBAがこけるのを制御するときは、on error 文を
使います。
制御をどうしたいかによりますので、あとはヘルプを参照してください。
この回答への補足
VBAがこけ場合、exit sub をしたいのです。
どこでこけるかというと
acount(0) = Format(Cells(i + 1, 6).Value) * Format(Cells(i + 1, 7).Value)
acount(1) = acount(0) + acount(1) '原価*数量=部品原価
acount(2) = Format(Cells(i, 6).Value) * Format(Cells(i, 7).Value)
acount(3) = acount(2) + acount(3) '売上単価*数量=部品代
acount(4) = Format(Cells(i, 9).Value)
acount(5) = acount(4) + acount(5) '工賃(売上)
acount(6) = Format(Cells(i + 1, 9).Value)
acount(7) = acount(6) + acount(7) '工賃(原価)
というような計算式において、数値が入力されていないと
計算ができず、こけてしまいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) エクセルで計算結果が0でないときのみセルを更新したい 4 2022/07/30 11:58
- Excel(エクセル) マクロ/VBAについて教えてください。 10 2022/05/27 12:59
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) Excel VBA セルの書式設定 2 2022/03/30 10:48
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 書式を関数で判断。
-
Excelの条件付き書式を崩された...
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
エクセルで、書式は変えずに連...
-
エクセル:一定以上の数値にな...
-
excelで選択範囲の反転をしたい...
-
エクセルのピボットテーブルの...
-
エクセルで2つのシートで重複し...
-
条件付き書式(色変更)は、予...
-
Excel 条件付書式で二つの条件...
-
Excel2007で、条件付き書式の一...
-
条件付き書式の条件に時刻を指...
-
Excel 条件付書式で土日の左・...
-
Excelで4勤2休のカレンダーを作...
-
Excel リスト中の品番と重複が...
-
条件付き書式が選択できない?!
-
文字だけでなく書式も判別でき...
-
EXCEL2003で「条件付き書式」を...
-
EXCEL 条件付書式で1つの条件欄...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
Excel 書式を関数で判断。
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
エクセルのピボットテーブルの...
-
excelで選択範囲の反転をしたい...
-
エクセルで、書式は変えずに連...
-
Excel 条件付書式で土日の左・...
-
エクセルで2つのシートで重複し...
-
VBAでシート書式の自動変換を作...
-
エクセルで1年前の日付になった...
-
エクセル:一定以上の数値にな...
-
Excel 条件付書式で二つの条件...
-
条件付き書式の条件に時刻を指...
-
VBAで転記すると元のシートの条...
-
Excelで、塗りつぶしを含め同じ...
-
条件付き書式(色変更)は、予...
-
エクセル→貼り付けのオプション...
-
条件付書式で色づけしたセルの...
-
エクセル関数で、Falseの場合赤...
おすすめ情報