Board logo

¼ÐÃ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¤þ ©³¦â§¡¶À¦â

³o­n«ç¼g??


°ÝÃD¶L ¬O§_¥i­áµ²¥ª°¼¤@Äæ¦ì?



ªþÀÉ
[attach]10487[/attach]
§@ªÌ: register313    ®É¶¡: 2012-4-18 08:56

¦^´_ 1# mark15jill

¤u§@ªí¼Ò²Õ
  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. With ActiveWindow
  7.   .SplitColumn = 1
  8.   .FreezePanes = True
  9. End With
  10. 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
  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

§@ªÌ: mark15jill    ®É¶¡: 2012-4-18 17:04

¦^´_ 4# register313

§Ú§ä¨ì­ì¦]¤F...
¦]¦³­áµ² §âAÄæ ¥þÁôÂÃ= ="
©Ò¥H ¦A«ç»òÂI ¤]ÂI¤£¨ìAÄæ¦ìªº¥ô¦ó¦ì¸m..




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)