ªð¦^¦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 : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD