GBKEE

¦^´_ 1# jesscc
¥i¬O§Úªº¼gªk¦n¹³¨S¤°»ò§@¥Î¡A¤£ª¾¹D°ÝÃD¦b­þ¸Ì?
Sub OpenFile1()
FileToOpen = Application.GetOpenFilename _
(Title:="¶}±Ò¥»¶g»Ý¨Dªí", _
FileFilter:="Matl Request *.xls (*.xls),")
If FileToOpen = False Then
MsgBox "¥²¶·¶}±Ò »Ý¨Dªí¡A¤u§@¤~¯àÄ~Äò!", 48, "ÀÉ®×¥¼¶}±Ò"
Exit Sub
Else
Var = MsgBox("½T©w¬O¶}±Ò³o¥÷»Ý¨Dªí¶Ü?", 36, "½Ð½T»{±ý¶}±Ò¤§ÀÉ®×")
'No  ->Var =7
'Yes->Var =6
If Var = 6 Then
Workbooks.Open Filename:=FileToOpen
Workbooks("Main.xls").Activate
Sheets("MRP").Range("D1").Value = FileToOpen
Else
End If
End If
End Sub

MsgBox «öÁä§PÂ_

1. Sub Ex()
   
2.     A = MsgBox("½T©w¬O¶}±Ò³o¥÷»Ý¨Dªí¶Ü?", vbYesNoCancel, "½Ð½T»{±ý¶}±Ò¤§ÀÉ®×")
   
3.     If A = vbYes Then
   
4.         MsgBox "¶}±ÒÀÉ®×"
   
5.     ElseIf A = vbNo Then
   
6.         MsgBox "¤£¶}±ÒÀÉ®×"
   
7.     ElseIf A = vbCancel Then
   
8.         MsgBox "¨ú®ø"
   
9.     End If
   
10. End Sub

½Æ»s¥N½X