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

[µo°Ý] ¦p¦ó¸T¤î¨Ï¥ÎVBA«ö¶s

¥»©«³Ì«á¥Ñ koo ©ó 2015-10-24 16:39 ½s¿è

«Øij¤@¤U:¿é¤J¹ï¤F´N°õ¦æµ{§Ç..¿é¤J¿ù»~´NÂ÷¶}Sub
¦A§âµ{§Ç¤WÂê
¤£µM·|¦³"«ö¶s¤´¬O¦Ç¦â"°ÝÃD
  1. Private Sub CommandButton1_Click()
  2. x = InputBox("½Ð¿é¤J±K½X", "±K½X")
  3. If x = 12345 Then
  4.     Call Splitbook
  5. Else
  6.     MsgBox "¿é¤J¿ù»~"
  7.     Exit Sub
  8. End If
  9. End Sub

  10. Sub Splitbook()
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD