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

[µo°Ý] ¦p¦ó¦b¿é¤J§¹¤@¬q¦r«á¡A¦b³Ì«e­±¥[¤J²Î¤@¶×´Ú¦r¼Ë

[µo°Ý] ¦p¦ó¦b¿é¤J§¹¤@¬q¦r«á¡A¦b³Ì«e­±¥[¤J²Î¤@¶×´Ú¦r¼Ë

·íºK­nKEYIN¤@¬q¦r«á¡A¸õÂ÷­ìÀx¦s®æ¡A
¥B«e¤è³f¸¹Ä欰ªÅ¥Õ®É¡A«h¦b³o¤@¬q¦r³Ì«e¤è²Î¤@¥[¤W
²Î¤@¶×´Ú-(¬õ¦r)
¦p¡G²Î¤@¶×´Ú-Âø³f1§å¡C

Book12.rar (1.57 KB)

§Æ±æ¤ä«ù!

¦^´_ 1# s7659109
§A·Q­nªº¥\¯à¦b Excel¤@¯ë°Ï(§Y³æ¯Â³z¹LÀx¦s®æ¿é¤J¸ê®Æ©Î¤½¦¡) ¬O«ÜÃø°µ¨ìªº,
¦]¬° Excel ªºÀx¦s®æ¤º®e¦b "¥ô¤@®É¶¡ÂI¤W" °£«D¨Ï¥ÎªÌ©Î¬Oµ{¦¡(¥]§t¤½¦¡¤¤ªº¤é´Á®É¶¡©Î¬O¶Ã¼Æ¨ç¼Æµ¥,¤£¦P®ÉÂI¸ê®Æ¥i¯à·|¤£¦PªÌ)¦³°µ¤FÅܧó,
¤£µM¬O¤£·|¦Û¤vÅܰʪº,
§Y«K¬O¤º®e¬°¤½¦¡¥ç©Î¬O¼Ï¯Ã¤ÀªRªí¤]¬O°k²æ¤£¥X¦¹ÂI.

©Ò¥H¬JµM§Aªº»Ý¨D¬O¨Ï¥ÎªÌ¿é¤J¸ê®Æ«á,
Àx¦s®æªº¤º®eÁÙ­n¦³©ÒÅÜ°Ê,
¨º´N¥u¯à³z¹Lµ{¦¡Åo,
²{¨Ì§Aªº»Ý¨D¹ê§@¦p¤U :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   With Target
  3.     If .Column = 2 Then
  4.       If .Offset(, -1) = "" And .Value <> "" Then
  5.         Application.EnableEvents = False
  6.         .Font.ColorIndex = -4105
  7.         .Value = "²Î¤@¶×´Ú-" & .Value
  8.         .Characters(1, 5).Font.ColorIndex = 3
  9.         Application.EnableEvents = True
  10.       End If
  11.     End If
  12.   End With
  13. End Sub
½Æ»s¥N½X

TOP

­Y­ì¥ý¤w¦³ªº¸ê®Æ¡A¦p¦ó¤@¦¸¥þ³¡¦b«e­±¸É¥R²Î¤@¶×´Ú¦r¼Ë¡A«á­±¦A¿é¤J¨Ì¦^µª¤è¦¡³B²z¡C

Book12-1.rar (7.43 KB)

§Æ±æ¤ä«ù!

TOP

¦^´_ 3# s7659109
  1. Sub Add_Character()
  2. Dim A As Range
  3. For Each A In Range("B:B").SpecialCells(xlCellTypeConstants) '°w¹ïBÄæ¦ì¸ê®Æ°µÀˬd
  4.    If Left(A, 5) <> "²Î¤@¶×´Ú-" And A.Offset(, -1) <> "" Then
  5.    A = "²Î¤@¶×´Ú-" & A: A.Characters(1, 5).Font.ColorIndex = 3
  6.    ElseIf Left(A, 5) = "²Î¤@¶×´Ú-" And A.Offset(, -1) = "" Then
  7.    A.Characters(1, Len(A)).Font.ColorIndex = 0: A = Replace(A, "²Î¤@¶×´Ú-", "")
  8.    End If
  9. Next
  10. End Sub

  11. Private Sub Worksheet_Change(ByVal Target As Range)
  12. Application.EnableEvents = False
  13. Add_Character
  14. Application.EnableEvents = True
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

­Y­n±N¤w¶ñ¤J²Î¤@¶×´Úªº»¡©úÄæ¡Acopy¥X¨Ó¤@Â÷¶}Àx¦s®æ¡A·|¦b¶ñ¤J²Î¤@¶×´Ú¦r¼Ë¡Acopy·U¦h¦¸¡A´N¶ñ¤J·U¦h¦¸¡C
§Æ±æ¤ä«ù!

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD