質問編集履歴
2
コードの変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -45,7 +45,6 @@
|
|
|
45
45
|
End With
|
|
46
46
|
|
|
47
47
|
End Sub
|
|
48
|
-
~~[打ち消し線](url)~~
|
|
49
48
|
```
|
|
50
49
|
|
|
51
50
|
|
1
コードの記述の変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
ダブルクリックしたセルに数字の入った円形吹き出し図形を挿入したいです。
|
|
4
4
|
また、次にダブルクリックしてセルに図形を挿入したときに中の数字を＋１カウントアップしたいです。（数字は１から始めます）
|
|
5
5
|
|
|
6
|
-
|
|
6
|
+
```ここに言語を入力
|
|
7
7
|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
|
|
8
8
|
|
|
9
9
|
Dim StartX As Single
|
|
@@ -45,6 +45,8 @@
|
|
|
45
45
|
End With
|
|
46
46
|
|
|
47
47
|
End Sub
|
|
48
|
+
~~[打ち消し線](url)~~
|
|
49
|
+
```
|
|
48
50
|
|
|
49
51
|
|
|
50
52
|
ネットの力を借りて、なんとかダブルクリックしたセルに数字の入った図形を挿入することはできました。
|