|
sub 値を割り出す
If Worksheets(3).Cells(4, 9) = 88 Then Exit Sub
Select Case Worksheets(3).Cells(4, 9)
Case 0 To 87
Select Case Worksheets(3).Cells(4, 9)
Case 0
a = 1
Case 1 To 86
a = Worksheets(3).Cells(1, 10)
End Select
For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"
Do While False = Flg
DoEvents
Loop
a = a + 1
Next x
For z = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"
Do While False = Flg
DoEvents
Loop
a = a + 1
Next x
For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"
Do While False = Flg
DoEvents
Loop
a = a + 1
Next x
For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"
Do While False = Flg
DoEvents
Loop
a = a + 1
Next x
Worksheets(3).Cells(2, 9) = 上 + 1
Worksheets(3).Cells(3, 9) = 上 + 100
Worksheets(3).Cells(4, 9) = Worksheets(3).Cells(4, 9) + 1
Select Case Worksheets(3).Cells(4, 9)
Case 10, 20, 30, 40, 50, 60, 70, 80
Worksheets(3).Cells(4, 9) = Worksheets(3).Cells(4, 9) & "再起"
End Select
DoEvents
数 = 0
Worksheets(3).Cells(1, 10) = Worksheets(3).UsedRange.Rows.Count + 1
Workbooks(1).Save
値を割り出す
End Sub
Sub 値に変換()
Worksheets(3).Cells(a, 1) = Worksheets(3).Cells(a, 1)
Flg = True
End Sub
|
|