32 lines
533 B
QBasic
32 lines
533 B
QBasic
Attribute VB_Name = "Module1"
|
|
Sub Macro1()
|
|
Attribute Macro1.VB_ProcData.VB_Invoke_Func = " \n14"
|
|
'
|
|
' Macro1 Macro
|
|
'
|
|
|
|
'
|
|
Selection.NumberFormat = "0.000"
|
|
End Sub
|
|
Sub Macro2()
|
|
Attribute Macro2.VB_ProcData.VB_Invoke_Func = " \n14"
|
|
'
|
|
' Macro2 Macro
|
|
'
|
|
|
|
'
|
|
Worksheets("Sheet1").Columns("A:AZ").EntireColumn.AutoFit
|
|
|
|
End Sub
|
|
Sub Macro3()
|
|
Attribute Macro3.VB_ProcData.VB_Invoke_Func = " \n14"
|
|
'
|
|
' Macro3 Macro
|
|
'
|
|
|
|
'
|
|
Rows("11:11").EntireRow.AutoFit
|
|
Rows("11:11").RowHeight = 71.25
|
|
Rows("11:11").EntireRow.AutoFit
|
|
End Sub
|