Ans=MsgBox(“Continue?”,vbYesNo) '在消息框中點擊“是”按鈕,則Ans值為vbYes;點擊“否”按鈕,則Ans值為vbNo。
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub '返回值不為“是”,則退出
Config=vbYesNo+vbQuestion+vbDefaultButton2 '使用常量的組合,賦值組Config變量,並設置第二個按鈕為缺省按鈕
MsgBox “This is the first line.” & vbNewLine & “Second line.” '在消息框中強制換行,可用vbCrLf代替vbNewLine。
MsgBox "the average is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vbInformation, "selection count average" & Chr(13) '應用工作表函數返回所選區域的平均值並按指定格式顯示
沒有留言:
張貼留言