Excel VBA質問箱 IV

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

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


35097 / 76732 ←次へ | 前へ→

【46838】Re:EnterにTabの機能を割り付けたい
回答  りん E-MAIL  - 07/2/18(日) 14:57 -

引用なし
パスワード
   RDK さん、こんにちわ。

>エクセルの表に、保護をかけて入力可能なセルと、
>入力不可のセルに分けています。
>このときにTabキーを押すと、入力可能なセルにだけアクティブセルが移動します。
>この機能をEnterキーに割り付けることは可能なのでしょうか。
XL2003では、シートを保護する時に「ロックされた範囲の選択」のチェックをはずすと、EnterでもTabでも入力可能なセルだけに移動します。
Enterでも横に走りたいときはオプションで変更できます。

この保護のオプションはXLXP(2002)以降のだったと思いますが、それ以前のバージョンですか?


全部ThisWorkbookに書いてください。

'クローズ時にリセット
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnKey "{ENTER}"
  Application.OnKey "~"
End Sub
'オープン時に組み込む
Private Sub Workbook_Open()
  Application.OnKey "{ENTER}", ThisWorkbook.Name & "!ThisWorkbook.TBMove"
  Application.OnKey "~", ThisWorkbook.Name & "!ThisWorkbook.TBMove"
End Sub
'TABキーを送る
Private Sub TBMove()
  If TypeName(Selection) = "Range" Then
   Application.SendKeys vbTab
  End If
End Sub
マクロを使うならこんな感じです。

1 hits

【46834】EnterにTabの機能を割り付けたい RDK 07/2/18(日) 10:14 質問
【46838】Re:EnterにTabの機能を割り付けたい りん 07/2/18(日) 14:57 回答
【46873】Re:EnterにTabの機能を割り付けたい RDK 07/2/19(月) 14:34 お礼
【46839】Re:EnterにTabの機能を割り付けたい Kein 07/2/18(日) 16:02 回答
【46874】Re:EnterにTabの機能を割り付けたい RDK 07/2/19(月) 14:41 お礼

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