Anritsu MS9740B - Page 320

Appendix G Excel Macro
G-4
Interval_t = Sheets("Sheet1").Range("A24") & " " & _
Sheets("Sheet1").Range("B24")
MM_mod = Sheets("Sheet1").Range("A25") & " " & Sheets("Sheet1").Range("B25")
Trc_num = Sheets("Sheet1").Range("A4") & " " & Sheets("Sheet1").Range("B4")
Set FoundCell = Cells.Find(What:="Level(?)")
Row_shift = FoundCell.Row
'MsgBox "Level(?) is row " & FoundCell.Row & ".", vbInformation
Data_Area = "A" & LTrim(Str(Row_shift + 1)) & _
":B" & LTrim(Str(Row_shift + Smple_Cnt))
Else
Start_Wl = Sheets("Sheet1").Range("B6")
Stop_Wl = Sheets("Sheet1").Range("B7")
Value_Sw = Sheets("Sheet1").Range("A8") & " " & Sheets("Sheet1").Range("B8")
OptATT_Sw = Sheets("Sheet1").Range("A9") & " " & Sheets("Sheet1").Range("B9")
RBW = Sheets("Sheet1").Range("A10") & " " & Sheets("Sheet1").Range("B10")
Act_RBW = Sheets("Sheet1").Range("A11") & " " _
& Sheets("Sheet1").Range("B11") & " " & Sheets("Sheet1").Range("C11")
VBW = Sheets("Sheet1").Range("A12") & " " _
& Sheets("Sheet1").Range("B12") & " " & Sheets("Sheet1").Range("D12")
'VB_Val = Sheets("Sheet1").Range("B12")
Avr_Sw = Sheets("Sheet1").Range("A13") & " " & Sheets("Sheet1").Range("B13")
Smooth_Sw = Sheets("Sheet1").Range("A14") & " " & _
Sheets("Sheet1").Range("B14")
Smpl_Num = Sheets("Sheet1").Range("A15") & " " & _
Sheets("Sheet1").Range("B15")
Smple_Cnt = Val(Sheets("Sheet1").Range("B16"))
Trc_Type = Sheets("Sheet1").Range("A17") & " " & _
Sheets("Sheet1").Range("B17")
Trc_Mode = Sheets("Sheet1").Range("A18") & " " & _
Sheets("Sheet1").Range("B18")
Trc_Cal = Sheets("Sheet1").Range("B19") & " - " & _
Sheets("Sheet1").Range("B20")
D_Range_SW = Sheets("Sheet1").Range("A21") & " " & _
Sheets("Sheet1").Range("B21")
Ext_trg = Sheets("Sheet1").Range("A22") & " " & Sheets("Sheet1").Range("B22")
Interval_t = Sheets("Sheet1").Range("A23") & " " & _
Sheets("Sheet1").Range("B23")
MM_mod = Sheets("Sheet1").Range("A24") & " " & Sheets("Sheet1").Range("B24")
Trc_num = Sheets("Sheet1").Range("A26") & " " & Sheets("Sheet1").Range("B26")