回答編集履歴

2

追加

2020/08/26 07:52

投稿

radames1000
radames1000

スコア1925

test CHANGED
@@ -21,3 +21,37 @@
21
21
  Col1StとColEndがStringの場合のみエラーとなっているようです。
22
22
 
23
23
  予め数値で宣言しておけば問題ないのでそうしていただけたら助かります。
24
+
25
+
26
+
27
+ ---
28
+
29
+ あと、これではまずいでしょうか?
30
+
31
+ ```VBA
32
+
33
+ Sub 書式貼り付け_自動縦横判定()
34
+
35
+
36
+
37
+ Dim buf_from As Range, buf_To As Range
38
+
39
+ Set buf_from = Application.InputBox(Prompt:="書式取得元セルを選択してください。", Type:=8)
40
+
41
+ Set buf_To = Application.InputBox(Prompt:="書式貼付先セルを選択してください。", Type:=8)
42
+
43
+
44
+
45
+ buf_from.Copy
46
+
47
+ buf_To.PasteSpecial xlPasteFormats
48
+
49
+
50
+
51
+ Application.CutCopyMode = False
52
+
53
+
54
+
55
+ End Sub
56
+
57
+ ```

1

見間違い

2020/08/26 07:52

投稿

radames1000
radames1000

スコア1925

test CHANGED
@@ -7,3 +7,17 @@
7
7
  ```
8
8
 
9
9
  Col1stとColEndにスペースが含まれており、文字列扱いになっているのでエラーになっています。
10
+
11
+ ⇒スペースは入っていませんでした!すいません!見間違いでした。
12
+
13
+
14
+
15
+ ![見間違い](ab6034790ea1cfe4e20edb30eabc35d9.png)
16
+
17
+ ローカルウィンドウの画像です。これを見間違いました。
18
+
19
+ row1stとrowEndもStringですが、うまくいくのは謎です。
20
+
21
+ Col1StとColEndがStringの場合のみエラーとなっているようです。
22
+
23
+ 予め数値で宣言しておけば問題ないのでそうしていただけたら助かります。