Anritsu MS9740B - Page 319

Appendix G Excel Macro
G-3
Appendix G
Sub Macro1()
'
'Define variables
'
Dim Start_Wl, Stop_Wl, Smple_Cnt, VB_Val As Single
Dim Data_Area, File_name, Date_time, Row_shift As String
Dim Value_Sw, RBW, Act_RBW, VBW, Smpl_Num As String
Dim Avr_Sw, Smooth_Sw, OptATT_Sw, D_Range_SW As String
Dim Trc_Type, Trc_Mode, Ext_trg, Interval_t As String
Dim Trc_Cal, Trc_num, MM_mod As String
'
' Storing value to variables
'
File_name = Sheets("Sheet1").Range("B1")
Date_time = Sheets("Sheet1").Range("B2")
If Sheets("Sheet1").Range("A4") = "Trace" Then
Start_Wl = Sheets("Sheet1").Range("B7")
Stop_Wl = Sheets("Sheet1").Range("B8")
Value_Sw = Sheets("Sheet1").Range("A9") & " " & Sheets("Sheet1").Range("B9")
OptATT_Sw = Sheets("Sheet1").Range("A10") & " " & _
Sheets("Sheet1").Range("B10")
RBW = Sheets("Sheet1").Range("A11") & " " & Sheets("Sheet1").Range("B11")
Act_RBW = Sheets("Sheet1").Range("A12") & " " & _
Sheets("Sheet1").Range("B12") & " " & Sheets("Sheet1").Range("C12")
VBW = Sheets("Sheet1").Range("A13") & " " & _
Sheets("Sheet1").Range("B13") & " " & Sheets("Sheet1").Range("D13")
'VB_Val = Sheets("Sheet1").Range("B12")
Avr_Sw = Sheets("Sheet1").Range("A14") & " " & Sheets("Sheet1").Range("B14")
Smooth_Sw = Sheets("Sheet1").Range("A15") & " " & _
Sheets("Sheet1").Range("B15")
Smpl_Num = Sheets("Sheet1").Range("A16") & " " & _
Sheets("Sheet1").Range("B16")
Smple_Cnt = Val(Sheets("Sheet1").Range("B17"))
Trc_Type = Sheets("Sheet1").Range("A18") & " " & _
Sheets("Sheet1").Range("B18")
Trc_Mode = Sheets("Sheet1").Range("A19") & " " & _
Sheets("Sheet1").Range("B19")
Trc_Cal = Sheets("Sheet1").Range("B20") & " - " & _
Sheets("Sheet1").Range("B21")
D_Range_SW = Sheets("Sheet1").Range("A22") & " " & _
Sheets("Sheet1").Range("B22")
Ext_trg = Sheets("Sheet1").Range("A23") & " " & Sheets("Sheet1").Range("B23")