- ©«¤l
- 253
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 308
- ÂI¦W
- 0
- §@·~¨t²Î
- W10
- ³nÅ骩¥»
- Excel 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-6-16
- ³Ì«áµn¿ý
- 2024-3-20
|
¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-26 04:11 ½s¿è
¦^´_ 35# PJChen
¦]¬° E5 ¬O¤å¦r E9 ´N¤£¯à¦³¤º®e : ³æ¤@¤u§@ªí®É E9 ´N¤£¯à¦³¤º®e
³o¤w¸g¬O ¦X¨Öªº§PÂ_¤F
³o¬q§ï¤@¤U ¸Õ¸Õ¬ÝÁÙ¦³¨S¦³°ÝÃD ·PÁÂ
'¦b¦P¤@Ó¬¡¶Ã¯«ü©w³æ¤@¤u§@ªí
My_Sh_Name$ = [¤u§@ªí2!E5].Value
If Not IsNumeric(My_Sh_Name) Then [¤u§@ªí2!E9] = ""
If [¤u§@ªí2!E9] <> "" Then
'¦b¦P¤@Ó¬¡¶Ã¯«ü©w¦hÓ¤u§@ªí Sheets(1)¨ì Sheets(N)Ó
°_ÂI% = [¤u§@ªí2!E5].Value
µ²§ôÂI = [¤u§@ªí2!E9].Value
If °_ÂI = 0 Then
MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
Exit Sub
ElseIf IsNumeric(°_ÂI) And IsNumeric(µ²§ôÂI) Then
MsgBox °_ÂI & "¨ì" & µ²§ôÂI
Else
MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
Exit Sub
End If
End If
¥t¥~,µ{¦¡¶K¨ì§Ú¥±`¨Ï¥Îªº¤u§@ªí®É,¤@ª½¥X²{°ÝÃD, ¤@¤U¬O¨S©w¸q,¤@¤U¬Onwith...
¦UºØªº°ÝÃD,§¹¥þµLªk¨Ï¥Î,¥u¦³·í¥¦¬O³æ¿W¤@ÓÀÉ®É,¤~¯à¹B§@,³o¯à¸Ñ¨M¶Ü?
½Ð°Ý ¶K¨ì§Ú¥±`¨Ï¥Îªº¤u§@ªí ¬O¬Æ»òÀÉ®×? ¥i§_¤W¶Ç¬Ý¤@¤U ·PÁÂ
¥i¥H¥Î¦Ûqªí³æ ©ÎµÛ InputBox µM«á¦s¦¨¼W¯q¶° |
|