質問編集履歴
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -75,4 +75,4 @@
|
|
|
75
75
|
|
|
76
76
|
### 補足情報（FW/ツールのバージョンなど）
|
|
77
77
|
|
|
78
|
-
Mac版だからなのか、これまでにもExcelVBAが作動しないことが多々ありました。
|
|
78
|
+
Mac版だからなのか、これまでにもExcelVBAが作動しないことが多々ありました。それらのマクロはWindowsでは正常に作動しました。
|
3
書式の改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,7 +11,8 @@
|
|
|
11
11
|
```
|
|
12
12
|
### 該当のソースコード
|
|
13
13
|
|
|
14
|
+
```
|
|
14
|
-
|
|
15
|
+
'実行速度を遅める
|
|
15
16
|
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
|
|
16
17
|
|
|
17
18
|
**Sub anime4()****問題のエラーが発生したところです。**
|
2
書式の改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
```'実行速度を遅める
|
|
15
15
|
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
|
|
16
16
|
|
|
17
|
-
Sub anime4()
|
|
17
|
+
**Sub anime4()****問題のエラーが発生したところです。**
|
|
18
18
|
|
|
19
19
|
'Sheet1を定義
|
|
20
20
|
Dim sh1 As Worksheet
|
1
初心者アイコンの付与
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -58,9 +58,10 @@
|
|
|
58
58
|
Pattern(k).copy Destination = sh2.Cells(1, 1)
|
|
59
59
|
Area.Clear
|
|
60
60
|
|
|
61
|
+
Sleep 200
|
|
62
|
+
|
|
61
63
|
End If
|
|
62
64
|
|
|
63
|
-
Sleep 200
|
|
64
65
|
|
|
65
66
|
End Sub
|
|
66
67
|
|