Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55911 / 76732 ←次へ | 前へ→

【25586】Re:ファンクションキー
回答  小僧  - 05/6/6(月) 16:21 -

引用なし
パスワード
   ▼年寄り さん:
こんにちは。
邪道…な方法ですが…。

Public ATAI As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  ATAI = Target.Value
End Sub

Sub ショートカット()
  ActiveCell.Value = ATAI
End Sub


上のコードを記述した後、ツールバーの

[ツール] → [マクロ] → [マクロ] を選択後、

「ショートカット」を選択してオプションをクリック

ショートカットキーのところで Ctrl + □

ここで割り当ててみてはいかがでしょうか?

Ctrl + 任意の1文字で、最後に変更したセルの値が呼び出せると思います。
1 hits

【25577】ファンクションキー 年寄り 05/6/6(月) 13:03 質問
【25578】訂正 年寄り 05/6/6(月) 13:17 質問
【25579】Re:ファンクションキー つん 05/6/6(月) 13:17 発言
【25581】Re:ファンクションキー 小僧 05/6/6(月) 14:44 発言
【25582】Re:ファンクションキー 年寄り 05/6/6(月) 15:07 お礼
【25586】Re:ファンクションキー 小僧 05/6/6(月) 16:21 回答
【25596】Re:ファンクションキー 年寄り 05/6/7(火) 7:07 お礼

55911 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free