
Excelにて、セルをダブルクリックすると、連番で数字が入る。また、別の列のセルをダブルクリックすると今日の日付が入る。更に、別の列のセルをダブルクリックするとユーザーフォームが表示して、ユーザーフォームが使える様にしたいのですが、どのようにすれば良いのか分からず困っております。
お分かりになる方がおりましたら ご教授願います。
(コードなど教えていただきたいです。)
<やりたいこと>
・シート名(伝票一覧表)のA列(A5から)のセルをダブルクリックすると連番で数字が入る。
例えば、A5に1が入力してあれば、A6をダブルクリックすると2が自動的に入力される。
A7をダブルクリックすると3が自動的に入力されるというように続きます。
・シート名(伝票一覧表)のB列(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から)のセルをダブルクリックするとユーザーフォーム1を
表示させて、ユーザーフォームが使える様にしたい。
・シート名(伝票一覧表)のI列(I5から)のセルをダブルクリックするとユーザーフォーム2を
表示させて、ユーザーフォームが使える様にしたい。
説明がへたですみません
見にくいですが、添付写真参照願います。

No.1ベストアンサー
- 回答日時:
こんにちは!
一例です。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
このQ&Aを見た人はこんなQ&Aも見ています
-
【Excel】クリックするとその日の日付が表示されるようにしたい
Excel(エクセル)
-
ダブルクリックすると現在の時刻が表示されるVBA
Excel(エクセル)
-
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
-
4
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
5
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
6
エクセルでセルをクリックすると“○”と入力
Excel(エクセル)
-
7
空欄のセルをダブルクリックした時に現在の年月日を入力させたいのです。
Visual Basic(VBA)
-
8
ダブルクリックして数値の1を入力するマクロを
Excel(エクセル)
-
9
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
10
エクセルで、日付を入力すると、別のセルに文字を自動的に表示させるようにするには。
Excel(エクセル)
-
11
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
エクセル表のカウントの仕方に...
-
エクセル セル幅
-
数式が入ったセルを含めて、数...
-
SUMに含まれる範囲から特定のセ...
-
EXCEL2010の関数で空白は...
-
Excelでの検索結果を含む行だけ...
-
Excelのセル内文字の並び替えに...
-
Excelの入力規則で2列表示したい
-
エクセルで質問です。
-
エクセルで、毎日の走行距離(...
-
列の数字に100をかけたい
-
エクセルである文字の並びの入...
-
ナンプレ(数独)で解けない問題...
-
エクセル 年度表示の仕方を教...
-
エクセルで、「ここ10試合の勝...
-
エクセルの関数
-
Excel データのあるセルの最終...
-
エクセルで~を除いて合計を出す
-
[関数について]わかる方教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの入力規則で2列表示したい
-
複数の文字列のいずれかが含ま...
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
Excel上でのデータ数字が連番で...
-
Excelでの検索結果を含む行だけ...
-
エクセルで曜日に応じた文字を...
-
「エクセル」特定の行(セル)...
-
エクセル:横長の表を改行して...
-
エクセルでセルの値分の個数の...
-
エクセルで表示されている数字...
-
スペースとスペースの間の文字...
-
列の数字に100をかけたい
-
エクセルで、毎日の走行距離(...
-
エクセルのsumifでかけ算してか...
-
時間を「昼間」と「夜間」に分...
-
エクセルのVLOOKUP関数について
-
Excelのセル内文字の並び替えに...
-
エクセルにデータを入力すると...
-
別のセルに値が入力されたら、...
おすすめ情報
早々の対応ありがとうございます。
大変申し訳ありません
下記内容を追加したいです
・G列(G5から)のセルをダブルクリックするとユーザーフォーム3を
表示させて、ユーザーフォームが使える様にしたい。
・I列(I5から)のセルをダブルクリックするとユーザーフォーム4を
表示させて、ユーザーフォームが使える様にしたい。
・J列(J5から)のセルをダブルクリックするとユーザーフォーム5を
表示させて、ユーザーフォームが使える様にしたい。
・K列(K5から)のセルをダブルクリックするとユーザーフォーム6を
表示させて、ユーザーフォームが使える様にしたい。
・L列(L5から)のセルをダブルクリックするとユーザーフォーム7を
表示させて、ユーザーフォームが使える様にしたい。
宜しくお願いします