ªð¦^¦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 : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD