こんばんは。
エクセルのマクロについて質問です。
作業工数管理表を作成しています。
作業を開始時間と終了時間を入力する際、
ダブルクリックすると現在時間が表示されるように下記コードを組んでいますが、
何かキーを打つと自動的に現時間が表示されるようにマクロを組むことはできるでしょうか。
-------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B4:B200,J4:J200")) Is Nothing Then Exit Sub
If ActiveCell = "" Then
ActiveCell = Time
Cancel = True
End If
End Sub
---------------------
「Ctrl」+「;」ではなく、ひとつのキーで表示させたいと考えています。
方法がございましたらご教示いただけますようどうぞよろしくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんにちは、
メッセージ:マクロ'[ブック名]![マクロ名]'を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。
という表示が出ましたら、
〔セキュリティの警告〕欄の[オプション]ボタンをクリックします。[Microsoft Officeセキュリティオプション]ダイアログボックスが表示され、[このコンテンツを有効にする]を選択して、[OK]ボタンをクリックします。
なお、[F2]は、既存のショートカットがありますから、押してもぶつからないものが良いと思います。
VBEditor 側で、OnKey をヘルプで調べれば、適当なキーが出てくるはずです。
すでに、回答は出ていますが、念のために、こちらも書かせていただくことにします。
Auto_Open を実行しても、ブックを再度開いても、設定されます。
'標準モジュール
'-------------------------------------------
Sub Auto_Open()
'SetKey '起動時に設定
Application.OnKey "{F12}", "ShowTime"
End Sub
Sub Auto_Close()
'Set Key off '終了時に解除
Application.OnKey "{F12}"
End Sub
Private Sub ShowTime()
ActiveCell.Value = Format(Time, "hh:mm")
End Sub
No.3
- 回答日時:
Sheetのコードに下記を
Private Sub Worksheet_Activate()
Application.OnKey "{F2}", "test"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{F2}", ""
End Sub
標準モジュールに下記を
Sub test()
Range("A1") = Time
End Sub
この回答への補足
okormazdさん
ご回答ありがとうございます。
教えていただいたコードを試してみましたが、
どうにも私の思うように動作せず行き詰ってしまい、返事が遅くなってしまいました。 ごめんなさい。
上記コードはF2キーを押下した際にA1セルに現在時間が表示されるという認識でよろしいでしょうか。
試してみたところ、F2キーを押すと通常のセルの編集になります。
「マクロの実行」をクリックすると、A1セルに現在時刻が表示されました。
私のやり方に、何か根本的な誤りがあるのでしょうか。
ご指摘いただけますようよろしくお願いいたします。
No.1
- 回答日時:
Sub FkeySet()
Application.OnKey "{F12}", "時刻登録"
End Sub
Sub FkeyReset()
Application.OnKey "{F112}" 'タブキーの設定を解除
End Sub
Sub 時刻登録()
ActiveCell = Time
End Sub
FkeySetを起動してからFkeyResetを起動するまでの間はF12に反応して時刻登録が実行されます。
キーを変えたいときはヘルプでOnkeyを調べてみたください。
こんばんは。
早速の回答ありがとうございます。
いただいたコードを試してみたところ、
FkeySetを実行しF12キーを押下しても
「マクロ'ブック名!時刻登録を実行できません。このブックでマクロが使用できないか、
または全てのマクロが無効になっている可能性があります。」
と表示されます。
[マクロ]より"時刻登録"を実行すると、時間が表示されるのですが。
当方マクロに関してまったくの初心者のため、教えていただいたコードをコピペしておるのですが、何か他に手を加えないといけないでしょうか。
----------------
Sub FkeySet()
Application.OnKey "{F12}", "時刻登録"
End Sub
Sub FkeyReset()
Application.OnKey "{F12}"
End Sub
Sub 時刻登録()
ActiveCell = Time
End Sub
-------------------
お手数をおかけしますがご教示いただけますようよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelのワークシート上に検索窓...
-
エクセル グラフの軸の最小値最...
-
Accessのマクロで「yes、no」の...
-
ワードからエクセルへ貼り付け...
-
エクセルで複数のシートをまと...
-
複数ファイルにある特定のシー...
-
マクロ ブックをマクロなしでコ...
-
TeraTermのマクロについて
-
パワーポイントで、スライドご...
-
エラーになってないのにVBA...
-
エクセルのマクロ機能で前のシ...
-
EXCEL 複数のシートの同一の位...
-
Excelを開いた時に表示さ...
-
モジュール内のマクロを全て実...
-
エクセル 自動で別シートへ並...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excelのワークシート上に検索窓...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
モジュール内のマクロを全て実...
-
EXCEL 複数のシートの同一の位...
-
エクセルで複数のシートをまと...
-
ワードからエクセルへ貼り付け...
-
【Excel VBA】エラー番号400
-
Wordの画面を左右にスクロール...
-
Excelマクロでオプションボタン...
-
TeraTermのマクロについて
-
マクロ ブックをマクロなしでコ...
-
Wordで「原稿用紙○枚」を換算す...
おすすめ情報