質問編集履歴

1

コード部分の記法を修正しました

2020/07/28 14:02

投稿

usamix
usamix

スコア3

test CHANGED
File without changes
test CHANGED
@@ -28,13 +28,17 @@
28
28
 
29
29
  **検索については下記が理想に一番近いです。**
30
30
 
31
+ ```VBA
32
+
31
33
  Range("H:H").SpecialCells(xlCellTypeConstants, xlNumbers).Select
32
34
 
33
-
35
+ ```
34
36
 
35
37
 
36
38
 
37
39
  **動作や結果についてはいろいろと検索した結果、下記が一番近いです。**
40
+
41
+ ```VBA
38
42
 
39
43
  Set FoundCell = Cells.find(What:="任意")
40
44
 
@@ -69,3 +73,5 @@
69
73
  End If
70
74
 
71
75
  Loop
76
+
77
+ ```