[[20150915223037]]　『カウンターを作りたい』（ナッツ）　ページの最後に飛ぶ

『カウンターを作りたい』（ナッツ）

スピンボタンで▲だけ使って書類の枚数を数える時にカウンター的なものとして使用しております。
書類の大きさもまちまちなせいかとにかく数え間違いが多くて自分が数えたあとも点検してもらっています。
自分なりに書類の枚数を手動で数えてそしてスピンボタンでもう1回クリッククリックで数が合えばOKとしています。
ですが、やはり書類を数えながらマウスでクリックは面倒です。
マウスの代わりにエンターキーをクリックなら小指で行けそうかなって思い始めたこの頃です。
エンターキーでカウンターが作れますか？

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 Enterキーではありませんが、Onkeyメソッドで
 特定のキーにマクロを割り付けることで、キー押下で
 マクロを実行することができます。

 ↓の例は「Z」キー押下でA1セルで数値をカウントアップします。

 '標準モジュール

 Option Explicit

 Sub ctup()
  With Worksheets(1).Cells(1, 1)
   If .Value = "" Then
      .Value = 1
   Else
      .Value = .Value + 1
   End If
  End With
 End Sub

 'ThisWorkbookモジュール

 Option Explicit

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnKey "z", ""
 End Sub

 Private Sub Workbook_Open()
  Application.OnKey "z", "ctup"
 End Sub
（カリーニン） 2015/09/15(火) 23:10

 Enterキーを割り当てる場合は下記のように
 ~(チルダ)を指定します。

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnKey "~", ""
 End Sub

 Private Sub Workbook_Open()
  Application.OnKey "~", "ctup"
 End Sub
（カリーニン） 2015/09/15(火) 23:29

 エンターキーなら、A1に合わせてエンター押していけば
 行番号でわかるんじゃない？
（稲葉） 2015/09/16(水) 08:35

 カリーニンさん　おはようございます。　
 昨夜よりいろいろやってはみましたが、マクロは初心者で調べながらにしてもどこに何を状態で。
 せっかく教えていただいたので引き続きチャレンジしますね。
 Enterキーにマクロを割り付けることが出来るんだっていうことがわかりました。
 勉強になりました。

 稲葉さん　おはようございます。
 今の私にはこれが一番確実ですね。

 お二方ともありがとうございました。

（ナッツ） 2015/09/16(水) 09:06

 カリーニンさん　おはようございます。
 できました！っていうか貼り付けました。えへへ
 いろいろ勉強になりますね。
 ありがとうございました。

（ナッツ） 2015/09/16(水) 10:19

コメント返信：

[ 一覧(最新更新順) ]

[[20150915223037]] 『カウンターを作りたい』（ナッツ） ページの最後に飛ぶ

[[20150915223037]]　『カウンターを作りたい』（ナッツ）　ページの最後に飛ぶ