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

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

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

¦P¤@Àx¦s®æ¿é¤J¨®µP abc-8888 §Æ±æ¯à¦Û°ÊÂà¤Æ ABC-8888 ¤§®æ¦¡
¨Ò¦p¦b E3Àx¦s®æ¿é¤Jabc-8888 §Æ±æ¯à¦Û°ÊÂà¤Æ ABC-8888
             E4Àx¦s®æ¿é¤J2050-sa   §Æ±æ¯à¦Û°ÊÂà¤Æ 2050-SA
§Ú¥u·Q¦b E3:E1002 Àx¦s®æ¤º¦Û°ÊÂà´«¤j¼g­^¤å...
±æ½Ð¦U¦ì°ª¤â¸Ñ´b

¥Î¤½¦¡ UPPER¥i¥H¹F¦¨¡C

TOP

¦pªG­n§¹¥þ¦Û°Ê¡C
°Ñ¦Ò§A¥t¤@©«
¨­¤ÀÃÒ¥N½X
http://forum.twbts.com/thread-16089-1-1.html

TOP

¸Ô¬Ýªþ¥ó:
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Application.Intersect([E3:E1002], Target) Is Nothing Then Exit Sub
  3. Application.EnableEvents = 0
  4. Target.Value = UCase(Target.Value)
  5. Application.EnableEvents = 1
  6. End Sub
½Æ»s¥N½X

zz.zip (13.34 KB)

TOP

¥H«e°Ý¹L¤@¼Ò¤@¼Ëªº»Ý¨D, ¥u¬O¨­¥÷ÃÒ¸¹´«¦¨¨®¸¹,
¤S­n°Ý¤@¦¸, ³o¤S«ç»ò¾Ç±o¨ìªF¦è©O???

TOP

·PÁÂ¥ý¶iªº«ü¾É

TOP

¦^´_ 4# ikboy
·PÁÂ¥ý¶i«ü¾É
°w¹ï¤W­z¤½¦¡µ{¦¡½X...
¥H¹Ï¬°¨Ò ­Y E3 ¿é¤Jabc-8558

¨Ì¤½¦¡µ{¦¡½X ·|¶i¦æ­^¤å¤p¼gÂà´«¤j¼g
­Y¬O·Q­n¥Î½Æ»s¨ä¥L¤u§@ªí¤§¨®µP¸¹½X(k3:k20)
¦Ü E3:E20 Àx¦s®æ...
¸Óµ{¦¡½XµLªk¤@¦¸¦Û°ÊÂà´«¦Ü¤j¼g­^¤å
»Ý¸Ó¦p¦ó­«·s½s¼gµ{¦¡½X?
0609.jpg

0609.rar (9.67 KB)

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-6-9 11:11 ½s¿è

¦^´_ 7# cypd

¥H¤UÂŦâ¦r³£­ncopy¨ì


Dim CK%

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range
With Target
     If .Columns.Count > 1 Or .Column <> 5 Then Exit Sub
     If CK > 0 Then Exit Sub
     On Error GoTo 999
     CK = 1
     For Each xR In .Cells
         If xR.Row < 3 Or xR.Value = "" Then GoTo 101
         xR.Value = UCase(xR.Value)
101: Next
End With
999: CK = 0
End Sub

TOP

¦^´_ 8# ­ã´£³¡ªL
¦n¯«©_ªº»yªk...·P®¦
¤£©ú¥ÕÀx¦s®æ¥Î
1.¿é¤Jªº¤è¦¡
¤Î¥Î 2.½Æ»s¶K¤W¤§¤è¦¡
¨âªÌ¶¡¤§­^¤å¤p¼gÂà´«¤j¼g¡A®t²§¤j¤£¦P?
Àµ°Ýµ{¦¡½X¤¤¤ºªº¼Æ¦r¦U¥Nªí¬Æ»ò·N«ä?
If xR.Row < 3 Or xR.Value = "" Then GoTo 101
         xR.Value = UCase(xR.Value)
101: Next
End With
999: CK = 0

TOP

¦^´_ 9# cypd


¤£¬O¤@¨¥¨â»y¥i»¡²M,
¥ý³v¦æ¥h²z¸Ñ§a!
­Y³s.row, .value, .column, .columns³£¤£À´, ¸ÑÄÀ¤F¤]¨S¥Î~~

¸ÕµÛ±N¨C¦æ¤F¸Ñ¤@¤U, ¨Ã°µµù¸Ñ

CK ¥Î¨Ó´À¥N Application.EnableEvents
ÁקK"¤ÏÂÐIJ°Ê", ³y¦¨·í¾÷~~

ON ERROR GOTO 999
­Yµ{¦¡°õ¦æ¿ù»~¤¤Â_, ·|ª½±µ¥h°õ¦æ 999:CK=0
§_«h¤U¦¸´N¤£¯à²£¥ÍCHANGE¨Æ¥ó~~

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD