¼ÐÃD:
[µo°Ý]
½Ð±ÐÂI¿ïÀx¦s®æªº°ÝÃD
[¥´¦L¥»¶]
§@ªÌ:
mark15jill
®É¶¡:
2012-4-18 08:31
¼ÐÃD:
½Ð±ÐÂI¿ïÀx¦s®æªº°ÝÃD
¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-4-18 08:34 ½s¿è
½Ð°Ý¤@¤U
°ÝÃD1
1 1¥Ò 1¤A 1¤þ
2 2¥Ò 2¤A 2¤þ
3 3¥Ò 3¤A 3¤þ
4 4¥Ò 4¤A 4¤þ
5 5¥Ò 5¤A 5¤þ
¦pªG¤µ¤Ñ§ÚÂI¿ï 1¥Ò ªº®ÉÔ «h 1¥Ò 1¤A 1¤þ ©³¦â§¡¶À¦â
¦pªG¤µ¤Ñ§ÚÂI¿ï 2¥Ò ªº®ÉÔ «h 2¥Ò 2¤A 2¤þ ©³¦â§¡¶À¦â
³on«ç¼g??
°ÝÃD¶L ¬O§_¥iáµ²¥ª°¼¤@Äæ¦ì?
ªþÀÉ
[attach]10487[/attach]
§@ªÌ:
register313
®É¶¡:
2012-4-18 08:56
¦^´_
1#
mark15jill
¤u§@ªí¼Ò²Õ
Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Column = 1 Then
Cells.Interior.ColorIndex = xlNone
target.EntireRow.Interior.ColorIndex = 6
End If
With ActiveWindow
.SplitColumn = 1
.FreezePanes = True
End With
End Sub
½Æ»s¥N½X
§@ªÌ:
mark15jill
®É¶¡:
2012-4-18 13:57
ÁÂÁ±z¡C
áµ²OK~ ÃC¦â¶]¤£¥X= =
§@ªÌ:
register313
®É¶¡:
2012-4-18 14:30
¦^´_
3#
mark15jill
ÂIA1 =>²Ä1¦CÅܶÀ©³
ÂIA2 =>²Ä2¦CÅܶÀ©³
...
ÂIA5 =>²Ä5¦CÅܶÀ©³
§@ªÌ:
c_c_lai
®É¶¡:
2012-4-18 16:16
¦^´_
3#
mark15jill
¶·±N¥H¤U¤§µ{¦¡½X¶K¤J¨ì§Aªº "¤u§@ªí1" ªºµ{¦¡½X°Ï¶ôùØ (¦Ó«D ThisWorkbook ùØ)¡A¶K§¹«á¦A¦Ü "¤u§@ªí1"ÂIÂI¬Ý¡I
Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Column = 1 Then
Cells.Interior.ColorIndex = xlNone
target.EntireRow.Interior.ColorIndex = 6
End If
With ActiveWindow
.SplitColumn = 1
.FreezePanes = True
End With
End Sub
½Æ»s¥N½X
§@ªÌ:
mark15jill
®É¶¡:
2012-4-18 17:04
¦^´_
4#
register313
§Ú§ä¨ìì¦]¤F...
¦]¦³áµ² §âAÄæ ¥þÁôÂÃ= ="
©Ò¥H ¦A«ç»òÂI ¤]ÂI¤£¨ìAÄæ¦ìªº¥ô¦ó¦ì¸m..
Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)