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

·s¤â°ÝÃD,¦p¦ó¿z¿ï«á¦Û°Ê±N¸ê®Æ¥Ñ²Ä¤@Äæ§R°£¦Ü³Ì«á¤@Äæ???

·s¤â°ÝÃD,¦p¦ó¿z¿ï«á¦Û°Ê±N¸ê®Æ¥Ñ²Ä¤@Äæ§R°£¦Ü³Ì«á¤@Äæ???

¥»©«³Ì«á¥Ñ p6703 ©ó 2012-1-5 11:33 ½s¿è

¤p§Ìªñ´Á¶}©l¾Ç²ßVBA¡A²{¶¥¬qÁÙ¬O¨Ï¥Î¿ý»sªº¤è¦¡¾Ç²ß¡A¦]¸ê®Æ¨C¦¸§¡·|¦³©ÒÅܧó¡A­ì¿ý»s®É¬O«ö©w·í®É¸Ó¦C¼Æ¡]¨Ò¡A¤W¦¸¿ý»sªº¦C¼Æ¬°11¦C¶}©l§R°£¡A¦ý¤U¦¸ªº¸ê®Æ¿z¿ï«áªº¸ê®Æ¥Ñ²Ä2¦C¶}©l®É¡A2~10¦Cªº¸ê®Æ´NµLªk§R°£¤F¡^¡A½Ð°Ý¦p¦ó³]©w¥¨¶°¡A¨Ï¨ä¿z¿ï«á¥Ñ²Ä¤@²Å¦X±ø¥óªº¸ê®Æ¶}©l§R°£¦Ü³Ì«á¤@¦C

¥t¦p¦ó³]©w«ü©wÄæ¦ìªº¸ê®Æ¥u­n²Å¦X¬Y±ø¥ó¡A§Y¦Û°Ê±N°£¤F¸Ó±ø¥ó¥~ªº¸ê®Æ¥þ¼Æ§R°£???¡]¨Ò¡GEÄæ¤Z¦³M¶}ÀYªº¸ê®Æ¯dµÛ¡A¨ä¾l­ì¸ê®Æ¦Û°Ê§R°£¡^==>¦p­n¦hÄæ¦ì²Å¦X³]©w±ø¥ó¡A¬O§_¤]¥i¨Ì¼Ë§@·~§Y¥i¹F¦¨???

¦p©ó³ÆµùÄæ¦ì¶ñ¤J¦h¦C¸ê®Æ¡A¥i§_¨Ì¨C¦C©T©w¦æ°ª15¡A¦Û°Ê½Õ¾ã¾A·íªº¦C°ª¡]¨Ò¡G¦pÄæ¦ì¤º¦³4¦C¡A§Y¦C°ª¬°60¡^

¥H¤W°ÝÃD·Ð½Ð¥ý¶i¤£§[«ü±Ð¡A¥ý¦b¦¹ÁÂÁ¤F:handshake

·PÁÂGBKEE¥S§Y®Éªº§iª¾¡A¤w±N¸ê®Æªþ¥ó¦p¤U

Book2.rar (2.29 KB)

¦^´_ 1# p6703
½Ð¤W¶ÇÀÉ®×½d¨Ò »¡©ú

TOP

³o´X¤ÑºN¯Á¦]VBA¤´¤£¼ô¡A¥u¥Î¨ä¥L¤èªk¤]¥ý¦³¸Ñ¨M¤F¤p§Ìªº°ÝÃD¡A»¡©ú¦p¤U¡G

1.«ü©w³Ì¤W¼h¦C¼Æ¥Ñ¤U§R°£¡A«ü©w¬°²Ä2¦æ¤@¼Ë¥i¹F¦¨¡A¦]¿z¿ï«á¥u·|¨q¥X²Å¦X±ø¥óªº­È¡A¥Ñ²Ä2¦C§R°£¦A¨ú®ø¿z¿ï¡A¨Ã¤£·|±N­ì2¦C¥¼²Å¦X±ø¥óªº¸ê®Æ¤@¨Ö§R°£

2.¤p§Ì¬O¥H®w¦ì¿z¿ï¡A±N¹w­p­n¯d°£ªº®w¦ì¸ê®Æ¨q©ó¨ä¥L¤u§@ªí¡AµM«á¥HVLOOKUP¤ñ¹ï¥u­n«D¸Ó®w¦ìªº´N©ó¸ê®Æ³Ì«á¤@Äæ¦ì¦Û°Ê¨q¥X"*"¡A¨Ã¥Î¿z¿ï±N*¦C¼Æ§R°£¡A¦A¥Î­«·s±Æ§Ç§Y¥i§¹¦¨¯d¤U«ü©w®w¦ìªº¸ê®Æ

²{¥u¦³²Ä3ÂI°ÝÃD¤´µLªk¸Ñ¨M¡A½Ð¦U¦ì¥ý¶i¨ó§U¬O§_¥i¨Ì«ü©wÄæ¦ìªº¦C¼Æ¦Û°Ê³]©w¨ä¦C°ª???¡]¤@¦C©T©w¦C°ª15¡^

TOP

¦^´_ 3# p6703
¤@¦C©T©w¦C°ª15   ¿ý»s«á¥i®M¤J
  1. Option Explicit
  2. Sub Ex()   '¦¹µ{¦¡:½Ð¿z¿ï¸ê®Æ«á®M¤W
  3.     Dim Rng As Range, Rng1 As Range, E As Range
  4.     With ActiveSheet     '§@¥Î¤¤¤u§@ªí
  5.         If .FilterMode = True Then                            '¦pªG«ü©w¬¡­¶Ã¯³B©ó¦³¿z¿ï¼Ò¦¡«h¬° True
  6.         Set Rng = .UsedRange.SpecialCells(xlCellTypeVisible)  '³]©w¿z¿ï¸ê®Æ½d³ò
  7.         '****¤è¦¡1  Åã¥Ü©Ò¦³¸ê®Æ
  8.         .AutoFilterMode = False                               'Äݩʬ° False  ¨ú®ø¤u§@ªí [¦Û°Ê¿z¿ï]
  9.         '¦pªG¥Ø«e¦b¤u§@ªí¤WÅã¥Ü¦³ [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹¡A«h¦¹Äݩʬ° True
  10.         '****¤è¦¡2  Åã¥Ü©Ò¦³¸ê®Æ
  11.         ' .ShowAllData          'ShowAllData ¤èªk: ¨Ï¥Ø«e¿z¿ï²M³æªº©Ò¦³¦C§¡¥i¨£¡C¦pªG¥¿¦b¨Ï¥Î¦Û°Ê¿z¿ï¡A¥»¤èªk±N½bÀYÅÜ§ó¬° [¥þ³¡]¡C
  12.         '¦p³B©ó¨S¦³¿z¿ï¼Ò¦¡:  ShowAllData·|¦³¿ù»~
  13.         For Each E In .UsedRange.Rows    '©Ò¦³¸ê®Æ¦C
  14.             If Application.Intersect(E, Rng) Is Nothing Then   '¤ñ¹ï¸ê®Æ¦C: ¤£¦b¿z¿ï¸ê®Æ½d³ò¤º
  15.                 If Rng1 Is Nothing Then         '¥¼³]©wRng1
  16.                     Set Rng1 = E                '²Ä¤@¦¸:³]©wRng1
  17.                 Else
  18.                     Set Rng1 = Union(E, Rng1)   '²Ä¤@¦¸¥H«á:³]©w½d³ò¥[¤W(Union)¤W¦¸ Rng1
  19.                 End If
  20.             End If
  21.         Next
  22.         Rng1.Delete xlShiftUp                    '§R°£¤£¬O¿z¿ï¸ê®Æ½d³ò¤ºªºRange ¤U¤è¤W²¾
  23.         End If
  24.     End With
  25. End Sub
½Æ»s¥N½X

TOP

·PÁÂGBKEE¥S¡A¦ý§Ú§Æ±æªº¦C°ª¡A¬O·|¨Ìªþ¥ó¤¤ªºFÄæ¦ì¦C¼Æ¥h¦Û°Ê½Õ¾ã¡A¨Ò¦p¡G²Ä2¦C¦³3¦æ¡A«h¨ä¦æ°ª·|¦Û°ÊÅܬ°45¡A ²Ä11¦C¦³5¦æ¡A«h¨ä¦æ°ª¬°75¡A¨Ì¦¹Ãþ±À...

¥t¿z¿ïªº¥¨¶°·|¦A¥J²Ó¬ã¨s¤@¤U¡A¥ý¦æ·PÁÂ...^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-10 11:12 ½s¿è

¦^´_ 5# p6703
¬Ý¬Ý§A¬O»Ý­n­þ­Ó  ¦C°ª½Õ¾ã
  1. Sub ¦C°ª½Õ¾ã()
  2.      ActiveSheet.Cells.EntireRow.AutoFit
  3. End Sub
½Æ»s¥N½X
  1. Option Explicit
  2. Sub ¦C°ª½Õ¾ã()
  3.     Dim Rng As Range, Ar(), I
  4.     With ActiveSheet
  5.         .Cells.EntireRow.AutoFit
  6.         Set Rng = .Range("A2:A" & [A2].End(xlDown).Row)
  7.         Ar = Rng
  8.         For I = 1 To Rng.Count
  9.             Ar(I, 1) = Rng(I).RowHeight
  10.         Next
  11.         Rng.RowHeight = Application.Max(Ar)
  12.     End With
  13. End Sub
½Æ»s¥N½X
  1. Option Explicit
  2. Sub Ex()   '¦¹µ{¦¡:½Ð¿z¿ï¸ê®Æ«á®M¤W
  3.     Dim Rng As Range, Rng1 As Range, E As Range
  4.     With ActiveSheet     '§@¥Î¤¤¤u§@ªí
  5.         If .FilterMode = True Then                            '¦pªG«ü©w¬¡­¶Ã¯³B©ó¦³¿z¿ï¼Ò¦¡«h¬° True
  6.         Set Rng = .UsedRange.SpecialCells(xlCellTypeVisible)  '³]©w¿z¿ï¸ê®Æ½d³ò
  7.         '****¤è¦¡1  Åã¥Ü©Ò¦³¸ê®Æ
  8.         .AutoFilterMode = False                               'Äݩʬ° False  ¨ú®ø¤u§@ªí [¦Û°Ê¿z¿ï]
  9.         '¦pªG¥Ø«e¦b¤u§@ªí¤WÅã¥Ü¦³ [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹¡A«h¦¹Äݩʬ° True
  10.         '****¤è¦¡2  Åã¥Ü©Ò¦³¸ê®Æ
  11.         ' .ShowAllData          'ShowAllData ¤èªk: ¨Ï¥Ø«e¿z¿ï²M³æªº©Ò¦³¦C§¡¥i¨£¡C¦pªG¥¿¦b¨Ï¥Î¦Û°Ê¿z¿ï¡A¥»¤èªk±N½bÀYÅÜ§ó¬° [¥þ³¡]¡C
  12.         '¦p³B©ó¨S¦³¿z¿ï¼Ò¦¡:  ShowAllData·|¦³¿ù»~
  13.         For Each E In .UsedRange.Rows    '©Ò¦³¸ê®Æ¦C
  14.             If Application.Intersect(E, Rng) Is Nothing Then   '¤ñ¹ï¸ê®Æ¦C: ¤£¦b¿z¿ï¸ê®Æ½d³ò¤º
  15.                 If Rng1 Is Nothing Then         '¥¼³]©wRng1
  16.                     Set Rng1 = E                '²Ä¤@¦¸:³]©wRng1
  17.                 Else
  18.                     Set Rng1 = Union(E, Rng1)   '²Ä¤@¦¸¥H«á:³]©w½d³ò¥[¤W(Union)¤W¦¸ Rng1
  19.                 End If
  20.             End If
  21.         Next
  22.         Rng1.Delete xlShiftUp                    '§R°£¤£¬O¿z¿ï¸ê®Æ½d³ò¤ºªºRange ¤U¤è¤W²¾
  23.         End If
  24.     End With
  25.     ¦C°ª½Õ¾ã         '
  26. End Sub
½Æ»s¥N½X

TOP

·PÁÂGBKEE¥S¡A¤p§Ì¤´¤£©ú¥¨¶°¥Îªk¡A¯S¦A½Ð°Ý¡G

²Ä¤GºØ¥¨¶°°õ¦æ«á¦æ°ªÅܬ°36¡A¥B¦n¹³¨C­Ó³øªí°õ¦æ°_¨Ó¦æ°ª§¡¤£¦P¡A¥B©ó¥¨¶°¤¤¥¼¨£¦³«ü©w¥HFÄæ¦ì¦æ°ª§P©w¡A¤£ª¾¬O§_¥i¦A¥[¥H¸ÑÄÀ¥¨¶°ªº¥Îªk???

TOP

¦^´_ 7# p6703
¥B¦n¹³¨C­Ó³øªí°õ¦æ°_¨Ó¦æ°ª§¡¤£¦P     ·íµM¬O¤£¤@¼Ë   §A¨S»¡¦³­n°õ¦æ¤@­Ó¥H¤Wªº³øªí°Ú
  1. Option Explicit     'Option Explicit ³¯­z¦¡ ¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
  2. Sub ¦C°ª½Õ¾ã()
  3.     Dim Rng As Range, Ar(), i As Integer
  4.     With ActiveSheet                 '§@¥Î¤¤ªº¤u§@ªí
  5.         .Cells.EntireRow.AutoFit     'ActiveSheet.Cells : ActiveSheetªºÀx¦s®æ
  6.         Set Rng = .Range("A2:A" & [A2].End(xlDown).Row)
  7.         'a2 ¨ì a2.End(xlDown)(©¹¤U¨ì³Ì«áªº¸ê®Æ).Row(¦C¸¹)
  8.         '¥i§ï¬°FÄæ     .Range("F2:F" & [F2].End(xlDown).Row)
  9.         Ar = Rng                     'Ar°}¦C¤¸¯À=Rngªº(¤º®e)¼Æ¶q: Ar°}¦C¤¸¯À=Range ¬O¬°¤Gºû°}¦C
  10.         For i = 1 To Rng.Count
  11.             Ar(i, 1) = Rng(i).RowHeight
  12.             ' Ar(i, 1)        : Ar(i, ²Ä2ºû¯À) Ar°}¦C²Ä2ºû¯À=1
  13.             'Rng(i).RowHeight : Rngªº(i)ªºÀx¦s®æ¤§RowHeight(¦C°ª)
  14.         Next
  15.         Rng.RowHeight = Application.Max(Ar) '¨ú±oAr°}¦C¤¸¯À¤¤ªº³Ì¤j­È
  16.     End With
  17. End Sub
½Æ»s¥N½X

TOP

¨þ¨þ..·PÁÂGBKEE¥S°Õ,§Ú¥u¬O·Q»¡©¹«á¥i¯àÁÙ¥i¹B¥Î,«ö¥H¤W¥¨¶°°õ¦æ«áÀ³¥i²Å¦X­n¨D¤F,¦ý¤p§ÌÁÙ¬O¦³¤@°ÝÃD,ÁöµM¤w¥i«öÄæ¦ì­n¨D¦Û°Ê³]©w¦C°ª,¦ýµo²{¬O«ö¹w³]ªº¦C°ª12¥h½Õ¾ãªº,¦]¤p§Ì¨Ï¥Îªº²ßºD¦rÅé¤j¤p¬°9®É,¾A·íªº¦C°ª¬°15,³o¬O§_¥i¦A¸g¥Ñ¥¨¶°½Õ¾ã©O???

TOP

¦^´_ 9# p6703
½Ð¦Û¦æ®M¤J
  1. Sub Ex()
  2.     With Sheet1.Range("A1:A10").EntireRow   
  3.         .RowHeight = 15
  4.         .Font.Size = 9
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD