質問編集履歴

1

コード乗っけるの忘れてました。

2019/05/23 06:42

投稿

Naoko_Coco
Naoko_Coco

スコア54

test CHANGED
File without changes
test CHANGED
@@ -11,3 +11,69 @@
11
11
  15シートのうちの5シート分に同じダブルクリックイベントを発生させたいのです。
12
12
 
13
13
  できる様であれば、そのやり方もご教示ください。
14
+
15
+
16
+
17
+ ```VBA
18
+
19
+ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
20
+
21
+ Dim jan As String
22
+
23
+ Dim name As String
24
+
25
+ Dim i As Long
26
+
27
+ Dim r As Long
28
+
29
+ Dim sh As Worksheet
30
+
31
+ Dim rng As Range
32
+
33
+
34
+
35
+ Set sh = Worksheets("couponSku")
36
+
37
+ Set rng = ActiveCell
38
+
39
+ ' B列を選んでいればJanを取得
40
+
41
+ If rng.Column = 2 And rng.Row >= 47 Then
42
+
43
+ jan = Target.Address(False, False)
44
+
45
+ jan = Range(jan).Value
46
+
47
+ r = sh.Range("A1").End(xlDown).Row
48
+
49
+ For i = 2 To r
50
+
51
+ If jan = sh.Cells(i, 1).Value Then
52
+
53
+ jan = sh.Cells(i, 2).Value
54
+
55
+ End If
56
+
57
+ Next
58
+
59
+ Call Google_serch(jan)
60
+
61
+ ' C列を選んでいればクーポン名取得
62
+
63
+ ElseIf rng.Column = 3 And rng.Row >= 47 Then
64
+
65
+ name = Target.Address(False, False)
66
+
67
+ name = Range(name).Value
68
+
69
+ Call Google_serch(name)
70
+
71
+ End If
72
+
73
+
74
+
75
+ End Sub
76
+
77
+
78
+
79
+ ```