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

[µo°Ý] ¤å¦r¸ò¼Æ¦r²V¦b¤@°_¡A¦p¦ó¥uÅý¼Æ¦rÅܦ¨¬õ¦â?

[µo°Ý] ¤å¦r¸ò¼Æ¦r²V¦b¤@°_¡A¦p¦ó¥uÅý¼Æ¦rÅܦ¨¬õ¦â?

¤å¦r¸ò¼Æ¦r²V¦b¤@°_¡A¦p¦ó¥uÅý¼Æ¦rÅܦ¨¬õ¦â?
Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1) = "³Ì°ª" & Sheets("Sheet3").Range("Q10").value
Sheets("Sheet3").Range("Q10").value ¤p©ó 0 «hÅܦ¨¬õ¦â(¼Æ¦r)

¤å¦r¸ò¼Æ¦r²V¦b¤@°_¡A¦p¦ó¥uÅý¼Æ¦rÅܦ¨¬õ¦â?
  1. Sub test()

  2.     '°²³]­n§PÂ_ªº¤å¦r+¼Æ¦r©ñ¦bA1Àx¦s®æ
  3.    
  4.     i = Len(Range("A1"))

  5.     For j = 1 To i  '¹ïA1³v¦r§PÂ_,¼Æ¦r«h§ï¬°¬õ¦r
  6.         If Asc(Mid(Range("A1"), j, 1)) > 47 And Asc(Mid(Range("A1"), j, 1)) < 58 Then
  7.             With Range("A1").Characters(Start:=j, Length:=1).Font
  8.                 .ColorIndex = 3
  9.             End With
  10.         End If
  11.     Next j
  12.    
  13.     'asc ªºµ²ªG¦pªG¬O¸¨¦b48-57,¥Nªí¼Æ¦r,¨ä¾l¥i°Ñ¦Ò asc »yªk
  14.    
  15. End Sub
½Æ»s¥N½X

TOP

jackdream µoªí©ó 2014-12-15 23:12


ÁÂÁ«ü¾É

TOP

¦^´_ 2# jackdream
¥i¥Î Like ¹Bºâ¤l
  1. Option Explicit
  2. Sub Ex()
  3.     '°²³]­n§PÂ_ªº¤å¦r+¼Æ¦r©ñ¦bA1Àx¦s®æ
  4.     Dim j
  5.     For j = 1 To Len(Range("A1"))
  6.         With Range("A1").Characters(Start:=j, Length:=1).Font
  7.             .ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[0-9]", 3, 0)  '¬O¼Æ¦r
  8.             '.ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[A-z]", 3, 0)  '¬O­^¤å¦r¥À
  9.             '.ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[A-Z]", 3, 0)  '¬O¤j¼g­^¤å¦r¥À
  10.             '.ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[!A-z]", 3, 0) '¤£¬O­^¤å¦r¥À
  11.         End With
  12.     Next   
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-12-17 11:54 ½s¿è
¦^´_  jackdream
¥i¥Î Like ¹Bºâ¤l
GBKEE µoªí©ó 2014-12-17 11:22


Like "[0-9]", 3, 0)
1. 3¸ò0 ¬O??
2. like ¥i¥H§PÂ_¤¤¤å¦r¶Ü?

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2014-12-17 12:14 ½s¿è

¦^´_ 5# t8899


   1.  3,0 -> ªí¥ÜÃC¦âªº¼Æ¦r

   2. GBKEE  ¤j¤j  ¦b¥Lªºµ{¦¡½X²Ä10¦C¤w¸g¡A¼g¦n¤F§r~ ¤£¬O­^¤å¦rªº®É­Ô¬O¬Æ»òÃC¦â
       ¨ÌGBKEE¤j¤jªº¼gªk­×§ï¡A ³o¼Ë´N¥i¥HÀ³¥Î¨ì¦UºØ¦rªº«¬ºAÃC¦âÅÜ´«¡C
  1. [code]Sub Ex()
  2.     '°²³]­n§PÂ_ªº¤å¦r+¼Æ¦r©ñ¦bA1Àx¦s®æ
  3.     Dim j
  4.     For j = 1 To Len(Range("A1"))
  5.         With Range("A1").Characters(Start:=j, Length:=1).Font
  6.             If Mid(Range("A1"), j, 1) Like "[0-9]" Then       '¬O¼Æ¦r
  7.                .ColorIndex = 3
  8.             ElseIf Mid(Range("A1"), j, 1) Like "[A-Z]" Then   '¬O¤j¼g­^¤å¦r¥À
  9.                .ColorIndex = 8
  10.             ElseIf Mid(Range("A1"), j, 1) Like "[A-z]" Then   '¬O­^¤å¦r¥À
  11.                .ColorIndex = 4
  12.             ElseIf Mid(Range("A1"), j, 1) Like "[!A-z]" Then  '¤£¬O­^¤å¦r¥À
  13.                .ColorIndex = 6
  14.             End If
  15.         End With
  16.     Next
  17. End Sub
½Æ»s¥N½X
[/code]
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_  t8899


   1.  3,0 -> ªí¥ÜÃC¦âªº¼Æ¦r

   2. GBKEE  ¤j¤j  ¦b¥Lªºµ{¦¡½X²Ä10¦C¤w¸g¡A¼g¦n¤F§r ...
hugh0620 µoªí©ó 2014-12-17 11:59


¨º§ì¤¤¤åÀ³¸Ó¬O   Like "[!A-z]" and Like "[!0-9]"     ? (¤£¬O¼Æ¦r¡A¤£¬O­^¤å)

TOP

¥»©«³Ì«á¥Ñ chingmac ©ó 2014-12-22 01:27 ½s¿è

¦^´_ 7# t8899

¤£¬O³o¼Ë³á¡I°£¤F­^¤å¡B¼Æ¦r¡B¤¤¤å¥H¥~¡AÁÙ¦³²Å¸¹³á¡I(¨Ò¦p!@#$....¡A¬Æ¦ÜªÅ¥ÕÁä¡BEsc¤§Ãþªº)¡A¥i¥ÎASCII½X¥h°Ï§O
  1. Sub Ex()
  2.     '°²³]­n§PÂ_ªº¤å¦r+¼Æ¦r©ñ¦bA1Àx¦s®æ
  3.     Dim j
  4.     For j = 1 To Len(Sheets("sheet1").Range("A1"))
  5.         With Range("A1").Characters(Start:=j, Length:=1).Font
  6.             If Mid(Range("A1"), j, 1) Like "[0-9]" Then       '¬O¼Æ¦r
  7.                .ColorIndex = 3
  8.             ElseIf Mid(Range("A1"), j, 1) Like "[A-Z]" Then   '¬O¤j¼g­^¤å¦r¥À
  9.                .ColorIndex = 8
  10.             ElseIf Mid(Range("A1"), j, 1) Like "[a-z]" Then   '¬O¤p¼g­^¤å¦r¥À
  11.                .ColorIndex = 4
  12.             ElseIf Asc(Mid(Range("A1"), j, 1)) > 0 Then       '¤£¬O¼Æ¦r¤]¤£¬O­^¤å¤]¤£¬O¤¤¤åªº¨ä¥L²Å¸¹
  13.                .ColorIndex = 1
  14.             ElseIf Asc(Mid(Range("A1"), j, 1)) < 0 Then       '¬O¤¤¤å
  15.                .ColorIndex = 5
  16.             End If
  17.         End With
  18.     Next
  19. End Sub
½Æ»s¥N½X

TOP

¦^´_  t8899

¤£¬O³o¼Ë³á¡I°£¤F­^¤å¡B¼Æ¦r¡B¤¤¤å¥H¥~¡AÁÙ¦³²Å¸¹³á¡I(¨Ò¦p!@#$....¡A¬Æ¦ÜªÅ¥ÕÁä¡BEsc¤§Ãþ ...
chingmac µoªí©ó 2014-12-22 01:26

ÁÂÁ«ü¾É

TOP

­ì¨Ó¥i¥H³o¼Ë°µ§PÂ_
ÁöµM¨S¦³³oºØ»Ý¨D
¦ýÁÙ¬O¾Ç²ß¤F
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD