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

[µo°Ý] ¼Ð¥Ü¿ï¾ÜªºÀx¦s®æ

[µo°Ý] ¼Ð¥Ü¿ï¾ÜªºÀx¦s®æ

¤j®a¦n¡A¥i¥HÅý­ì¥»¦³©³¦âªºÃC¦â¤£­n®ø¥¢¶Ü¡H¥u¦³¿ï¨úªº¦C·|¼Ð¥ÜÃC¦â ¼Ð¥ÜÃC¦â.zip (20.83 KB)
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  2. Application.ScreenUpdating = False

  3. Cells.Interior.ColorIndex = -4142

  4. '¨ú®ø³æ¤¸®æ­ì¦³¶ñ¥R¦â¡A¦ý¤£¥]§t±ø¥ó®æ¦¡²£¥ÍªºÃC¦â¡C

  5. Rows(Target.Row).Interior.ColorIndex = 36

  6. '¬¡°Ê³æ¤¸®æ¾ã¦æ¶ñ¥RÃC¦â

  7. 'Columns(Target.Column).Interior.ColorIndex = 36

  8. '¬¡°Ê³æ¤¸®æ¾ã¦C¶ñ¥RÃC¦â(¦p¤£»Ý­n¾ã¦C°ª«G¡A¥i§R°£¸Ó¦æ©R¥O)

  9. Application.ScreenUpdating = False

  10. End Sub
½Æ»s¥N½X

¦^´_ 1# ÅÚ½³ªd

¸Õ¸Õ¬Ý~~~
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  2. If Application.CutCopyMode = xlCopy Then Me.Paste
  3.   On Error Resume Next
  4.   [colorCell].FormatConditions.Delete
  5.   Rows(Target.Row).Name = "colorCell"
  6.   With [colorCell].FormatConditions      ' ³]©w®æ¦¡¤Æ±ø¥ó
  7.       .Delete
  8.       .Add xlExpression, , "TRUE"        ' ±ø¥ó(¤@)¤º¤½¦¡¬°
  9.       .Item(1).Interior.ColorIndex = 36  ' .Item(1)µ¥©óFormatConditions(1)
  10.       .Item(1).Font.Bold = True
  11.   End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# ÅÚ½³ªd

¤£­n³o¼Ë°µ, ·|Åý¬Y¨Ç¥\¯àµLªk¾Þ§@, ¨Ò¦p"½Æ»s""¶K¤W",
­Y¬O¦]"¾î¦V"¤Ó¦hÄ椣¦n¬d¬Ý, ¥i§Q¥Î"Äæ¸s²Õ"ªº"ÁôÂÃ/®i¶}"¨Ó¬d¬Ý!

TOP

¨Ï¥Î±²¶bª«¥ó¶i¦æÄ檺ÅÜ´«,
¹w³]¨C 5 Äæ¸õ°Ê, ¥iµø»Ý¨D¦Û¦æ¦bµ{¦¡½X¤¤­×§ï:
Xl0000128(ÄæÅÜ´«À˵ø).rar (13.91 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD