質問編集履歴
1
コード追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,5 +13,21 @@
|
|
|
13
13
|
【困っていること】
|
|
14
14
|
①はもちろん算出できますが、②のコードが思い付きませんでした。
|
|
15
15
|
|
|
16
|
+
【現在までのコード（①まで）】
|
|
17
|
+
|
|
18
|
+
Sub 最小値()
|
|
19
|
+
|
|
20
|
+
Dim wave As Worksheet
|
|
21
|
+
Dim thicknenn As Worksheet
|
|
22
|
+
Dim i As Long
|
|
23
|
+
|
|
24
|
+
Set wave = Worksheets("テキスト")
|
|
25
|
+
Set thickness = Worksheets("結果")
|
|
26
|
+
|
|
27
|
+
For i = 1 To thickness.Cells(1, 5).Value
|
|
28
|
+
wave.Cells(4, i + 1).Value = WorksheetFunction.Min(Range(Cells(307, i + 1), Cells(407, i + 1)))
|
|
29
|
+
Next i
|
|
30
|
+
End Sub
|
|
31
|
+
|
|
16
|
-
②に対応するコードなど、御教授したく、今回質問致しました。
|
|
32
|
+
これ以降の②に対応するコードなど、御教授したく、今回質問致しました。
|
|
17
33
|
アイデア頂けると幸いです。宜しく御願い致します。
|