ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] TEXTBOX«O¯d¿é¤J¹Lªº¦r¤¸

¦^´_  apao2000
Hsieh µoªí©ó 2014-3-13 15:54



    Thank you Hsiehªº¦^ÂСA§Ú©Òªº¤èªk¬O commandbutton_click() ¸Ì­±¥[¦h¤@¦æ Me.TextBox1.Value = "" ³£°µ¨ì§Úªº®ÄªG
   ¦ý¤S¦³¥t¤@­Ó°ÝÃD´N¬O¦P¼Ëcommandbutton_click() ¼g¤J¥H¤Uµ{¦¡¡A¦ýÂI¤Fok«á¤´·|°õ¦æprint out°Ê§@¡A¦p¦ó¤~¥i«ö¤Fok´N°±¤î¡A¥iÅý§Ú°µ¦^¤W¤@­Ó°Ê§@¡A§Ú¤Ó¦h°ÝÃD¤F½Ð¦U¤j¤j¨£½Ì
  If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
  End If

TOP

¦^´_ 11# apao2000
¥u¦³¤ù¬qµ{¦¡½X¡AµLªkª¾¹D§Aªº¥Î·N¡A¦pªG³æ¯Âµ²§ô³oµ{§Ç¡A¥[¤Wexit sub§Y¥i
 If Sheet1.Cells(1,1) = "" Then
  MsgBox "Please choose location!", vbOKonly
exit sub
  End If
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Thank you Hsieh:
©ú¤Ñ¦^¤½¥q¸Õ¸Õ§a¡A¨ä¹ê§Ú¤@ÂIVBAªºª¾Ãѳ£¨S¦³¡A¹ï«Ü¦h»yªk³£¤£À´¡A³£¬O¤Wºô§ä¤@¨ÇÃþ¦üªº¦A¦Û¤v§ï¤@§ï¸Õ¸Õ¬Ý¡A©Ò¥H§Ú³£¤£¤ÓÀ´µo°Ý¥O¨ì¦U¦ì³£¼Ò¤£着ÀY¡A¦ý¦U¦ì³£ºÉ¤O¬Û§U¡A·P¿E¸U¤À!

TOP

¦^´_  apao2000
¥u¦³¤ù¬qµ{¦¡½X¡AµLªkª¾¹D§Aªº¥Î·N¡A¦pªG³æ¯Âµ²§ô³oµ{§Ç¡A¥[¤Wexit sub§Y¥i
 If Sh ...
Hsieh µoªí©ó 2014-3-13 18:27


¦]¬°§Ú«Ø¥ß¤F¤T­Óoptionbutton¥Nªí¤T­Ólocation "A¼Ó" "B¼Ó" "C¼Ó"¡AµM«á¦b¤U­±ªºtextbox¿é¤J¤J­Ü½s¸¹¦A«öcommandbutton«ü¥Ü¦C¦L :¨Ò¦p802-14031301(location+in house no)
¦Ó¤§«e¦p§Ñ°OÂIoptionbutton¡A¦L¥Xªºlabel·|¨S¦³locationªº¡A©Ò¥H·Q¥Î¤èªkªý¤îµo¥Í³o­Ó°ÝÃD¡A¦Ó§Ú°µ¨ì¥u¥i¥H¡A¦p¨SÂIoptionbutton·|¼u¥Xĵ§i "please choose location!"¡A¦ý«öok«á¤´·|Ä~Äò°õ¦æ¦C¦L°Ê§@........§Æ±æ§A·|©ú¥Õ§Úªº·N«ä

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD