ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] µøµ¡-­áµ²µøµ¡°ÝÃD½Ð±Ð

[µo°Ý] µøµ¡-­áµ²µøµ¡°ÝÃD½Ð±Ð

DEAR  ALL ¤j¤j
1.¨Ï¥Î EXCEL µøµ¡-­áµ²µøµ¡ ¥\¯à·|¦Û°Ê­áµ² A1-G11.
   ½Ð°Ý§Ú¥u·Q­áµ² ²Ä¤@¦C(A1-ZZ1) . ¸Ó¦p¦ó¤U«ü¥O.
2.·Ð¤£§[½ç±Ð   THANKS*10000
ù

  1. Sub »k¥ú°j¯T()

  2.     ActiveWindow.FreezePanes = False  '¨ú®ø­áµ²µøµ¡
  3.     Rows("2:2").Select: ActiveWindow.FreezePanes = True  '­áµ²µøµ¡(¦C)
  4.     'Range("H:H").Select: ActiveWindow.FreezePanes = True  '­áµ²µøµ¡(Äæ)
  5.    
  6. End Sub
½Æ»s¥N½X
¤£ª¾¹D³o¬O¤£¬O§A­nªº®ÄªG­C~
¦]¬°§A±Ô­zªº¤£¬O«Ü²M·¡¡A
¤]¨S¦³¹Ï¤ù¥i¥HÅý§Ú½T»{§A­nªº®ÄªG......
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

DEAR SIR
  Rows("2:2").Select: ActiveWindow.FreezePanes = True  '­áµ²µøµ¡(¦C)
  100%²Å¦X»Ý¨D. ·PÁ±z¤§«ü¾É.  THANKS*10000
ù

TOP

¦p¦ó¥i¥H ­áµ²µøµ¡ ©ó¤£¦Pªº¤u§@ªí
¦p¤U  ³o¼Ë ¸Ó¦p¦ó §@·~ ·PÁÂ~~~

  Sheets("¤u§@ªí1").Rows("12:12").Select: ActiveWindow.FreezePanes = True
  Sheets("¤u§@ªí3").Rows("10:10").Select: ActiveWindow.FreezePanes = True
  Sheets("¤u§@ªí4").Rows("12:12").Select: ActiveWindow.FreezePanes = True
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ª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

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD