- ©«¤l
- 352
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- vba,vb,excel2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-1-8
- ³Ì«áµn¿ý
- 2024-3-29
|
¦^´_ 1# papaya
§Aªº±Ôz¦³ÂI¼Ò½k
¤jP¤W¥ý°Q½×¤@¤U
¦pªG§Ú¨S²q¿ù ¹ê»Ú¤W¬O
if Number = "1-49" then ¼g¿ù ©Ò¥H¥Ã»·³o¦æ¤£·|°õ¦æ
³o¦æªº·N«ä¬O
¦pªGNumber ªº¤å¦r ¨Ã«D ("1-49" ³oÓ4Ó¦r¤¸¦r¦ê) ªº±¡ªp¤U ´N¬Ofalse
¨º»ò®Ú¾Ú¥Ø«eªºª¬ªp¨Ó»¡
ªí¤¤¨Ã¨S¦³"1-49"ªº°ê¤å¦r¦ê
¥¿½T¼gªkÀ³¸Ón§ï¦¨
if --Number >= 1 and --Number <= 49 then
³o¼Ë¤~¬O§PÂ_ ·í«e¼Æ¦r¬O§_¤¶©ó1~49ªº¼Æ¦r
if --Number >= 1 and --Number <= 49 then
ReDim Preserve INnum(48)
For i = 0 To 48
INnum(i) = i + 1
Next
ElseIf Number = 0 Then
ReDim Preserve INnum(6)
ReNumber = 1
ElseIf Number = "" Then
ReDim Preserve INnum(0)
ReNumber = 0
End If |
|