こんばんは。
エクセルのマクロについて質問です。
作業工数管理表を作成しています。
作業を開始時間と終了時間を入力する際、
ダブルクリックすると現在時間が表示されるように下記コードを組んでいますが、
何かキーを打つと自動的に現時間が表示されるようにマクロを組むことはできるでしょうか。
-------------------
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
[EXCEL]ボタン押す→時刻が表に入る方法
Excel(エクセル)
-
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
ダブルクリックすると現在の時刻が表示されるVBA
Excel(エクセル)
-
-
4
【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excelを開いた時に表示さ...
-
ワードで画像を自動で挿入する方法
-
【Excel VBA】エラー番号400
-
Wordで「原稿用紙○枚」を換算す...
-
Excel VBA のdebug(F8キー) が...
-
EXCEL 複数のシートの同一の位...
-
EXCELのセルへ、デジタル時計を...
-
エクセルのマクロボタンがどん...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
パワーポイントで、スライドご...
-
エクセルに画像を貼付け縮小す...
-
TeraTermのマクロについて
-
マクロボタンを作ってのマクロ...
-
モジュール内のマクロを全て実...
-
エクセルのマクロ機能で前のシ...
-
PowerPointでクリックしたオブ...
-
エクセルのマクロについて印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
Excel VBA のdebug(F8キー) が...
-
複数ファイルにある特定のシー...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
エクセル グラフの軸の最小値最...
-
ワードからエクセルへ貼り付け...
-
エクセルのマクロ機能で前のシ...
-
Wordの画面を左右にスクロール...
-
モジュール内のマクロを全て実...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelの改ページ 同シート内で...
-
EXCEL 複数のシートの同一の位...
-
Accessのクエリを実行するショ...
-
エクセルで複数のシートをまと...
-
Excelマクロでオプションボタン...
-
【Excel VBA】エラー番号400
-
《エクセル2000》非表示になっ...
おすすめ情報