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

[µo°Ý] call ¼Ò²Õ«á²Å¦X±ø¥ó®É¡A¦p¦ó°±¤îµ{¦¡½X°õ¦æ?

¦^´_ 3# c_c_lai

c_c_lai¤j¤j¡A±z¦n¡G
±zªº¤èªk¤w¸g´ú¸Õ¹L¤F¡A§âEnd²¾°£±¼«á¡Aªí³æ¤ºªºµ{¦¡½X¨Ì·|°õ¦æ¡A§Úªº»Ý¨D¬O¥ýCall¼Ò²Õµ{¦¡½X°õ¦æ¡A²Å¦X±ø¥ó«á¡A³s¦Pªí³æ¤¤ªºµ{¦¡½X¤@°_°±¤î°õ¦æ¡A¤£¦n·N«ä³á¡I
§Ú¬O´µ¦h

TOP

¦^´_ 1# reangame
§Aªºtutu¥i¥H§ï¥Îfunction¨Ã¦^¶Çtutuªº°õ¦æª¬ªpµ¹©I¥s¥¦ªº¦a¤è¡A¦A§PÂ_¸Ó«ç»ò¸õ¥X¡C

¦p:
  1. Function tutu() as boolean
  2.     Set sh = Sheets("¶}¥ð¥«¤é´Áªí")
  3.     Set r = sh.Columns("B").Find(md)
  4.     If Not r Is Nothing Then
  5.         md = ""
  6.     End If
  7.     If week = "¬P´Á¤»" Or week = "¬P´Á¤é" Or md = "" Then
  8.         MsgBox "©Ò¿ï¤é´Á¬°¥¼¶}½L¤é¡A½Ð­«·s¿ï¾Ü¡I", 0, "¨t²Î°T®§"
  9.         tutu = false
  10.     else
  11.         tutu = true
  12.     End If
  13. End Function
½Æ»s¥N½X
©I¥stutuªºªí³æ«ö¶s:
  1. Private Sub CommandButton1_Click()
  2.     if not tutu then exit sub
  3. End Sub
½Æ»s¥N½X

TOP

¸É¥R¤@¤U¡A°ÝÃDÀ³¸Ó¬O¥X¦b¥N½X²Ä10¦æ¡A§âEnd§ó§ï¬°Exit  sub®É¡A¥u·|°±¤î¼Ò²Õªºµ{¦¡½X¡AÁÙ¬O·|Ä~Äò°õ¦æªí³æ ...
reangame µoªí©ó 2014-5-22 00:07

§â²Ä¤Q¦æ²¾°£´N¦æ¤F¡C
If ...... End If °õ¦æ§¹²¦µ{¦¡½X«K·|©¹¤U°õ¦æ¡Aª½¨ì End Sub §Y¦æ¸õÂ÷¸Óµ{¦¡¼Ò²Õ (Sub tutu()  ~  End Sub)¡C

TOP

¸É¥R¤@¤U¡A°ÝÃDÀ³¸Ó¬O¥X¦b¥N½X²Ä10¦æ¡A§âEnd§ó§ï¬°Exit  sub®É¡A¥u·|°±¤î¼Ò²Õªºµ{¦¡½X¡AÁÙ¬O·|Ä~Äò°õ¦æªí³æªºµ{¦¡½X¡A¦p¦ó¥þ³£°±¤î¤S¤£Ãö³¬ªí³æ?
§Ú¬O´µ¦h

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD