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

[µo°Ý] ½Ð±ÐÂI¿ïÀx¦s®æªº°ÝÃD

¦^´_ 3# mark15jill
¶·±N¥H¤U¤§µ{¦¡½X¶K¤J¨ì§Aªº "¤u§@ªí1" ªºµ{¦¡½X°Ï¶ôùØ (¦Ó«D ThisWorkbook ùØ)¡A¶K§¹«á¦A¦Ü "¤u§@ªí1"ÂIÂI¬Ý¡I
  1. Private Sub worksheet_selectionchange(ByVal target As Range)
  2.     If target.Column = 1 Then
  3.        Cells.Interior.ColorIndex = xlNone
  4.        target.EntireRow.Interior.ColorIndex = 6
  5.     End If
  6.    
  7.     With ActiveWindow
  8.         .SplitColumn = 1
  9.         .FreezePanes = True
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD