Excelにて、セルをダブルクリックすると、数字や日付が入る。又、ユーザーフォームを表示する

Excelにて、セルをダブルクリックすると、連番で数字が入る。また、別の列のセルをダブルクリックすると今日の日付が入る。更に、別の列のセルをダブルクリックするとユーザーフォームが表示して、ユーザーフォームが使える様にしたいのですが、どのようにすれば良いのか分からず困っております。
お分かりになる方がおりましたら　ご教授願います。
（コードなど教えていただきたいです。）

＜やりたいこと＞
・シート名（伝票一覧表）のA列（A5から）のセルをダブルクリックすると連番で数字が入る。
例えば、A5に1が入力してあれば、A6をダブルクリックすると2が自動的に入力される。
A7をダブルクリックすると３が自動的に入力されるというように続きます。

・シート名（伝票一覧表）のＢ列（B5から）のセルをダブルクリックすると今日の日付が自動的に入る。
ここについては、下記コードで、動きますが、つながりなど、どのようにすれば良いか分かりません。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B5:B10000")) Is Nothing Then Exit Sub
If ActiveCell = "" Then
ActiveCell = Date
Cancel = True
End If
End Sub


・シート名（伝票一覧表）のC列（C5から）のセルをダブルクリックするとユーザーフォーム１を
表示させて、ユーザーフォームが使える様にしたい。

・シート名（伝票一覧表）のI列（I5から）のセルをダブルクリックするとユーザーフォーム2を
表示させて、ユーザーフォームが使える様にしたい。



説明がへたですみません
見にくいですが、添付写真参照願います。

質問者からの補足コメント

• 早々の対応ありがとうございます。
  
  大変申し訳ありません
  下記内容を追加したいです
  
  ・G列（G5から）のセルをダブルクリックするとユーザーフォーム3を
  表示させて、ユーザーフォームが使える様にしたい。
  ・I列（I5から）のセルをダブルクリックするとユーザーフォーム4を
  表示させて、ユーザーフォームが使える様にしたい。
  ・J列（J5から）のセルをダブルクリックするとユーザーフォーム5を
  表示させて、ユーザーフォームが使える様にしたい。
  ・K列（K5から）のセルをダブルクリックするとユーザーフォーム6を
  表示させて、ユーザーフォームが使える様にしたい。
  ・L列（L5から）のセルをダブルクリックするとユーザーフォーム7を
  表示させて、ユーザーフォームが使える様にしたい。
  
  宜しくお願いします

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/05/16 09:46

No.1 ベストアンサー 回答者： tom04 回答日時： 2020/05/16 08:18

こんにちは！

一例です。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　If Intersect(Target, Range("A:C,I:I")) Is Nothing Then Exit Sub
　　With Target
　　　If .Row >= 5 Then
　　　　Cancel = True
　　　　　Select Case .Column
　　　　　　Case 1
　　　　　　　.Value = .Row - 4
　　　　　　Case 2
　　　　　　　.Value = Date
　　　　　　Case 3
　　　　　　　UserForm1.Show
　　　　　　Case Else
　　　　　　　UserForm2.Show
　　　　　End Select
　　　End If
　　End With
End Sub

※　あくまで、途中の行を飛ばさず順に上からの操作にしています。
まずはこの程度で・・・m(_ _)m

この回答へのお礼

思い通りの内容でした
誠にありがとうございました。

お礼日時：2020/05/16 16:06

No.2 回答者： tom04 回答日時： 2020/05/16 10:42

No.1です。

補足を拝見しましたが、
I列が重複していますね。

前回ではI列ダブルクリックで「ユーザーフォーム2」となっていますが、
補足ではI列は「ユーザーフォーム4」となっています。

「ユーザーフォーム2」がどこかに消えていますね。

いずれにしても
Select Case　で分岐を増やすだけの操作になります。m(_ _)m

この回答へのお礼

分岐を増やして、対応しました
アドバイスありがとうございました。

お礼日時：2020/05/16 16:07