Hsieh

¦^´_ 2# hugh0620
²³æ»¡©ú¤@¤U
¼Ó¥D¥Øªº¥u¬OÀu¤Æµ{¦¡
¥HÅÞ¿è¨Ó»¡´N¬O­n±N¹s¶Ãªº½s¸¹­«·s¥Ñ1¶}©l
¹J¨ì»P«e®æ¤£¦P®É¥[1
¥H±z¹L¥hªº¾Ç²ßºA«×§Ú·QÀ³¸Ó¼g±o¥X¨Ó
¥u»Ý°j°é¶]§¹³o¨ÇÀx¦s®æ
¤¤¶¡¥[¤J§PÂ_¦Ó¤w
µù:¼Ó¥Dªºµo°ÝºA«×§Ú·Q¤j®a­n¤Þ¥H¬°§Ù
      ¦]¬°³o¼Ë©¹©¹·|±o¤£¨ì¦nªº¸Ñµª

Hsieh

¦^´_ 4# hugh0620


¾Ç²ß´N¬O¤£Â_½m²ß¡A¤£©È¿ù¡A¥u©È¤£¥h°µ
¥H¦¹¬°¨Ò¡A´N¬O±q²Ä3Äæ¶}©l¡A¹J¨ì¼Æ­È¤£¦P´N¥[1
°Ñ¦Ò¬Ý¬Ý

1. Sub ½s¸¹()
   
2. k = 3: n = 1
   
3. Do Until Cells(153, k) = ""
   
4. test = Cells(153, k)
   
5.     Cells(153, k) = n
   
6.     If test <> Cells(153, k + 1) Then n = n + 1
   
7. k = k + 1
   
8. Loop
   
9. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 14# hugh0620

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.      Select Case Target(1).Address(0, 0)
   
3.         Case "B1"
   
4.             ActiveWindow.ScrollColumn = 1
   
5.         Case "B2"
   
6.         k = IIf(ActiveWindow.ScrollColumn + 15 > 255, -(ActiveWindow.ScrollColumn) + 3, 15)
   
7.             ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + k
   
8.             Range("A2").Select
   
9.         End Select
   
10. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 16# hugh0620
¦b¤w¨Ï¥Î½d³ò¤º´`Àô

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.      Select Case Target(1).Address(0, 0)
   
3.         Case "B1"
   
4.             ActiveWindow.ScrollColumn = 1
   
5.         Case "B2"
   
6.         k = IIf(ActiveWindow.ScrollColumn + 15 > UsedRange.Columns.Count, -(ActiveWindow.ScrollColumn) + 3, 15)
   
7.             ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + k
   
8.             Range("A2").Select
   
9.         End Select
   
10. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 23# myleoyes

1. Sub nn()
   
2. Range([L1], Cells(1, Columns.Count)) = ""
   
3. Do Until i = [A1]
   
4. [L1].Offset(, i * 10) = i + 1
   
5. i = i + 1
   
6. Loop
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 26# myleoyes


    ÅܼÆi´N¬O±N¨Ó­nªº½s¸¹
Do Until i=[a1]
·N«ä¬O°j°é°õ¦æ¨ìi­Èµ¥©ó[a1]ªº­È°±¤î