- ©«¤l
- 2805
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2861
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-4
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2020-2-9 11:42 ½s¿è
¦^´_ 4# 7777
Application.Goto Sheets("¤u§@ªí1").Rows("12:12"): ActiveWindow.FreezePanes = True
Application.Goto Sheets("¤u§@ªí3").Rows("10:10"): ActiveWindow.FreezePanes = True
Application.Goto Sheets("¤u§@ªí4").Rows("12:12"): ActiveWindow.FreezePanes = True
©Î:
Dim AR, i%
AR = Array(1, "12", 3, "10", 4, "12")
For i = 0 To UBound(AR) Step 2
Sheets("¤u§@ªí" & AR(i)).Select
Rows(AR(i + 1)).Select
ActiveWindow.FreezePanes = True
Next i |
|