質問編集履歴

1

コード追記

2020/11/20 02:48

投稿

somechan1
somechan1

スコア17

test CHANGED
File without changes
test CHANGED
@@ -28,6 +28,38 @@
28
28
 
29
29
 
30
30
 
31
+ 【現在までのコード(①まで)】
32
+
33
+
34
+
35
+ Sub 最小値()
36
+
37
+
38
+
39
+ Dim wave As Worksheet
40
+
41
+ Dim thicknenn As Worksheet
42
+
43
+ Dim i As Long
44
+
45
+
46
+
47
+ Set wave = Worksheets("テキスト")
48
+
49
+ Set thickness = Worksheets("結果")
50
+
51
+
52
+
53
+ For i = 1 To thickness.Cells(1, 5).Value
54
+
55
+ wave.Cells(4, i + 1).Value = WorksheetFunction.Min(Range(Cells(307, i + 1), Cells(407, i + 1)))
56
+
57
+ Next i
58
+
59
+ End Sub
60
+
61
+
62
+
31
- ②に対応するコードなど、御教授したく、今回質問致しました。
63
+ これ以降の②に対応するコードなど、御教授したく、今回質問致しました。
32
64
 
33
65
  アイデア頂けると幸いです。宜しく御願い致します。