- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2013-7-30 00:55 ½s¿è
¤F¸Ñ¡A¨º»òCase aa Like "*¦¨¥æ*"¥i¥H¦³2Ó±ø¥ó¥H¤W¶Ü¡H
Case aa Like "*¦¨¥æ*" or "*¥¼¦¨¥æ*"¡A¹³³o¼Ë¶Ü
eric093 µoªí©ó 2013-7-29 23:40 
§AÀ³¸Ón¥Î Case aa Like "*¦¨¥æ*" Or aa Like "*¥¼¦¨¥æ*" (¦b Or ªº¥ª¥kÃä³£À³¸Ón©ñ§¹¾ãªº±ø¥ó¦¡)
¨ä¹ê aa Like "*¦¨¥æ*" ´N¤w¸g¦³¥]§t aa Like "*¥¼¦¨¥æ*" ¤F. (¦]¬° "¥¼¦¨¥æ" ¦¹È¹ï©ó Like "*¦¨¥æ*" ¬O True)
Select Case ¸û±`¥Î©ó "¦P¤@ÅܼÆ(©Î¼Ðªº)" ©ó¤£¦PȤU»Ý¦³¤£¦Pªº³B²z¤è¦¡(§Y«D³æ¯ÂÂǥѤ½¦¡©Îµ{¦¡´N¯à¹ê²{¨ä¥Øªº)®É¨Ï¥Î,(¦³¨Ì¬Y¼Ðªºªº±ø¥ó©ÎȨӰµ "¤À¬y" ªº·N¨ý)
¦Ó If «h¸û±`¥Î©ó¨ã¦³±Æ¥¦©Ê±ø¥óªº»Ý¨D¤U¨Ï¥Î.(¦³¼h¼h¿z¿ïªº·N¨ý)
Select Case «ü¥Xn¤ñ¹ïªº¼Ðªº, ¦Ó Case «h«ü¥X¸Ó¼ÐªºÀ³§PÂ_ªº±ø¥ó(¥i¥ÎÃþ¦ü Case Is > 5 ¤§Ãþªº±ø¥ó¦¡)©ÎÈ ,¤]¦]¬Ò¬°¬Û¦P¼Ðªº,¬GCase¤£»Ý«ü©ú¼Ðªº.
°£«D§A¥Î Select Case True, ¨º»ò©Ò¦³ Case ªº±ø¥ó¼Ðªº³£À³¸Ó¬O¬Û¦Pªº,
§_«h§Y«K«D¸Óá᪺ªº²Ä1Ó±ø¥ó¦¡¦¨¥ß, ¤]¤£·|°õ¦æ¨ä¤Uªºµ{§Ç,¦Ó¬O·|Ä~Äò¶]¥h§PÂ_¤U¤@ÓCase¬O§_¦¨¥ß(¤@¥¹¤£¦¨¥ß¥ß¨èµ²§ô),Á`¤§®e©öµo¥Í«D¹w´Áµ²ªG.
¨ä§Î¦¡¬° :
With Target ' ¼ÐªºÀx¦s®æ
Select Case .Row ' Àx¦s®æ¦C¸¹
Case 1 ' Y¸ÓÀx¦s®æ¦ì©ó²Ä 1 ¦C
...
Case 9 ' Y¸ÓÀx¦s®æ¦ì©ó²Ä 3 ¦C, ¦¹³B²Ä 2 ~ 8 ¦C¤£³B²z, ¬G¤£¾A¥Î For ...Next
...
Case 13 ' ²Ä 13 ¦C
...
Case Else ' Y¦C¸¹«D¤Wz±¡§Î®É©ó¦¹³B²z
...
End Select
Edn With
Y¤W¦¡§ï¥Î If ¨Óªí¥Ü,«h¬°
With Target ' ¼ÐªºÀx¦s®æ
If .Row=1 Then ' Y¸ÓÀx¦s®æ¦ì©ó²Ä 1 ¦C
...
ElseIf .Row= 9 Then ' Y¸ÓÀx¦s®æ¦ì©ó²Ä 9 ¦C, (YÀx¦s®æ¦ì©ó²Ä 2 ~ 8 ¦C«h¤£·|³B²z, ¬G¤£¾A¥Î For ...Next, ©Î¤½¦¡)
...
Elseif .Row=13 Then ' Y¸ÓÀx¦s®æ¦ì©ó²Ä 13 ¦C
...
Else ' Y¦C¸¹«D¤Wz±¡§Î®É©ó¦¹³B²z
...
End If
Edn With |
|