[[20180104143224]]　『VBAでマウスWクリックで〇を入力する方法』（KINKO）　ページの最後に飛ぶ

『VBAでマウスWクリックで〇を入力する方法』（KINKO）

超初心者です
　Sub 〇を入力()

この次になにを記述したら良いのか教えて下さい。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

ちょっと記述する場所がちがうかもしれません。
ダブルクリックという「イベント」を感知してアクションを起こして欲しい場合は、標準モジュールではなく、そのオブジェクトモジュールにコードを記述してください。

たとえば、sheet1でダブルクリックしたらそのセルに○を入力して欲しい場合は、sheet１モジュールに以下を記述してください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True 'セルへの入力状態を解除
    Target.Value = "○" 'ターゲットセルに「○」を設定
End Sub

（もこな２） 2018/01/04(木) 14:50

 標準モジュールでなくThisWorkbookをクリックしたモジュールに
Sub 〇を入力() 
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    Cancel = True 'セルへの入力状態を解除
    Target.Value = "○" 'ターゲットセルに「○」を設定
End Sub

実行するとコンパイルエラーでEnd Subが必要のメッセージが出てしまいます
（KINKO） 2018/01/04(木) 16:59

Sub 〇を入力()
↑の部分を、削除してください。
（通りすがり） 2018/01/04(木) 17:05

 ThisWorkbookモジュールではなくワークシートモジュール（Sheet1などと表記されている場所）に記載してくれ。
 ワークシートのシートタブを右クリックしてコードの表示でも表示される。

（ねむねむ） 2018/01/04(木) 17:16

 ThsiWorkbookモジュールの場合は
 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True 'セルへの入力状態を解除
    Target.Value = "○" 'ターゲットセルに「○」を設定

End Sub

 でも。
（ねむねむ） 2018/01/04(木) 17:18

 なお、ワークシートモジュールの場合はそのワークシートだけ、ThisWorkbookモジュールの場合はすべてのシートでとなる。
（ねむねむ） 2018/01/04(木) 17:19

コメント返信：

[ 一覧(最新更新順) ]

[[20180104143224]] 『VBAでマウスWクリックで〇を入力する方法』（KINKO） ページの最後に飛ぶ

[[20180104143224]]　『VBAでマウスWクリックで〇を入力する方法』（KINKO）　ページの最後に飛ぶ