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

[µo°Ý] abc-8888 ¦Û°ÊÂà¤Æ ABC-888...

¦^´_ 10# ­ã´£³¡ªL
·PÁª©¥D«ü¾É...
¿n·¥¶i¨ú¾Ç²ß¤¤   ^^

TOP

¦^´_ 8# ­ã´£³¡ªL


    ÁÂÁ«e½ú
«á¾ÇÂǦ¹©«¾Ç²ß¨ì­«­n§Þ¥©,¾Ç²ß¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú¦A«ü¾É

Option Explicit
Dim CK%
'¡ô«Å§iÅܼÆ:CK¬Oµu¾ã¼ÆÅܼÆ,©ñ¦b³Ì¤WºÝ¬O¬°¤FÅý¦¹¤u§@ªí¼Ò²Õ³£¯à¥Î

Private Sub Worksheet_Change(ByVal Target As Range)
'¡ô·í¨Ï¥ÎªÌ©Î¥~³¡³sµ²Åܧó¤u§@ªí¤¤ªºÀx¦s®æ®É·|µo¥Í¦¹¨Æ¥ó
Dim xR As Range
'¡ô«Å§iÅܼÆ:xR¬OÀx¦s®æÅܼÆ
With Target
'¡ô¥H¤U¬OÃö©óIJµoªºµ{§Ç
     If .Columns.Count > 1 Or .Column <> 5 Then Exit Sub
     '¡ô¦pªGIJµoÄæ¼Æ¤j©ó1 ©ÎIJµoÄæ¦ì¤£¬O²Ä5Äæ!´Nµ²§ôµ{¦¡°õ¦æ
     If CK > 0 Then Exit Sub
     '¡ô¦pªGCKÅܼƤj©ó 0!´Nµ²§ôµ{¦¡°õ¦æ
     On Error GoTo 999
     '¡ô¦pªG¥H¤Uµ{¦¡¹J¨ì¿ù»~´N¸õ¨ì¼Ð¥Ü999¦ì¸mÄ~Äò°õ¦æ
     CK = 1
     '¡ô¥OCKÅܼƬO1,Åý«á¤èFor Each°j°é¤£·|¦bIJµo
     For Each xR In .Cells
     '¡ô³]³v¶µ°j°é!¥OxRÅܼƬOIJµo®æ§C¨ä¤¤¤@®æ
         If xR.Row < 3 Or xR.Value = "" Then GoTo 101
         '¡ô¦pªGxRÅܼƩҦbªº¦C¸¹¤p©ó3 ©Î¨ä­È¬OªÅªº,
         '´N¸õ¨ì¼Ð¥Ü101¦ì¸mÄ~Äò°õ¦æ

         xR.Value = UCase(xR.Value)
         '¡ô¥OxRÅܼÆ(Àx¦s®æ)­È¬O­^¤åÂର¤j¼gªº·s¦r¦ê
101: Next
End With
999: CK = 0
'¡ô¥OCKÅܼÆÂk¹s
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 12# Andy2483

·PÁ Andy2483 ¥t¤@¸Ô²Ó¸Ñ»¡
¯à¦n¦n¬ãŪ...^^

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD