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

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

Sub Splitbook()
AA = InputBox("½Ð¿é¤J±K½X")
If AA = "" Then Exit Sub
If AA <> "12345" Then MsgBox "¡°±K½X¿ù»~! ": Exit Sub
¡@
¡ã¡ã±µ¥t¦sÀɵ{¦¡½X¡ã¡ã
End Sub

±K½X¥¼¿é¤J©Î¿ù»~¡Aª½±µ¸õ¶}¡A¤£»Ý¹ï«ö¶s¥t§@³B²z¡ã¡ã

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD