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

¦³ÃöExcel vba¤¤ªºDo Loop¤£¤Ó©ú¥Õ

¦^´_ 1# drgv11

³o¼Ë¹ï¶Ü¡H
  1. Sub test()
  2. a = 0
  3. b = 20 - 40 + 5
  4. Do Until a + b = 0
  5. If b >= 0 Then a = a - 1
  6. If b <= 0 Then a = a + 1
  7. Loop
  8. c = a + 10
  9. MsgBox c
  10. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD