質問編集履歴

1

補足

2021/06/22 13:11

投稿

ypk
ypk

スコア83

test CHANGED
File without changes
test CHANGED
@@ -38,6 +38,10 @@
38
38
 
39
39
  押せない.Enabled
40
40
 
41
+
42
+
43
+ Application.Goto Reference:=Range("A1"), Scroll:=True
44
+
41
45
 
42
46
 
43
47
 
@@ -45,3 +49,19 @@
45
49
  End Sub
46
50
 
47
51
  ```
52
+
53
+
54
+
55
+ ②については
56
+
57
+
58
+
59
+ ```ここに言語を入力
60
+
61
+ Application.Goto Reference:=Range("A1"), Scroll:=True
62
+
63
+ ```
64
+
65
+
66
+
67
+ のソースコードを書いてあげることで実現できました。