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

¦A°ÝÀx¦s®æ¦C°ªªº³]©w

¦A°ÝÀx¦s®æ¦C°ªªº³]©w

¬Q¤Ñªº°ÝÃD°¨¤W´N¦³¦^µª,Åý§Ú¹ï³o­Ó¶é¦a«H¤ß¤j¼W
©Ò¥H·Q¦A½Ð°Ý¥t¤@­Ó°ÝÃD?
§Ú¼g¤F¤@¬qVBA§âAªí¤ºªºªF¦è§ì¨ìBªí
¦ý¬O¨C¦¸Bªí¤¤Àx¦s®æ¤¤ªºBÄæÁ`¦³´X®æ¨Sªk§¹¾ãÅã¥Ü©Ò¦³ªº¤º®e
¤w¸g¸Õ¹LWraptext©MAutoFit¨â­Ó¤èªk³£¨Sªk¸Ñ¨M¦C°ªªº°ÝÃD
¦ý¤S¦]¬°¨C¦¸§ìªº¸ê®Æ¼Æ¶q¤S¤£©T©w,©Ò¥H¦pªG­n¤@­Ó¤@­Ó½Õ¾ã¦C°ª¹ê¦b«Ü³Â·Ð
¤£ª¾¹D¦U¦ì¥ý¶i¦³¨S¦³¤H¥i¥H¸Ñ¨M³o­Ó°ÝÃD
ÁÂÁÂ!!

¬Q¤Ñªº°ÝÃD°¨¤W´N¦³¦^µª,Åý§Ú¹ï³o­Ó¶é¦a«H¤ß¤j¼W
©Ò¥H·Q¦A½Ð°Ý¥t¤@­Ó°ÝÃD?
§Ú¼g¤F¤@¬qVBA§âAªí¤ºªºªF¦è§ì ...
modelcrazyer µoªí©ó 2012-10-3 22:20

Worksheets("Sheet1").Rows("3:9").AutoFit

TOP

ÁÂÁÂ,¥i¬O¨S¦³¥Î­C!!

TOP

¦^´_ 3# modelcrazyer
¸Õ¸Õ¬Ý³o­Ó¡I (¤£ª¾³o¬O§_¬O§A©Ò´y­zªº»Ý¨D¡H)
  1. Sub Test()
  2.     ' ¤u§@ªí2.[F2] = "=¤u§@ªí1!A3"
  3.     ¤u§@ªí1.[A3].Copy ¤u§@ªí2.[F2]
  4.     ' ¥H¤W¨âºØ¥Îªk·|±o¨ì¤@¼Ëªºµª®×¡A
  5.     ' ¥u¬O²Ä¤@ºØ¬O±a¤J¤½¦¡¡A¥t¤@­Ó¬Oª½±µ½Æ»s¡C
  6.    
  7.     ¤u§@ªí2.[F2].WrapText = True
  8. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ±zªº¸Ñµª!!¤£¹L¤£¬O§Ú­nªºµ²ªG

TOP

§ÚªºVBA½X¬O³o¼Ë:
ActiveSheet.UsedRange.Select
Selection.WrapText = True
Selection.EntireRow.AutoFit
¦ý¬O´N¬O¦³Äæ¦ìµLªk§¹¥þÅã¥Ü???½Ð°Ý³o¬OExcelªºBug¶Ü??

TOP

§ÚªºVBA½X¬O³o¼Ë:
ActiveSheet.UsedRange.Select
Selection.WrapText = True
Selection.EntireRow.Au ...
modelcrazyer µoªí©ó 2012-10-4 21:34

§AÀ³¸Ó¶Kªþ¤W§AªºÀÉ®×»¡©ú¡A¤£µM¤j®a·|¤£²M·¡§Aªº°ÝÃD¡C

TOP

¦^´_ 6# modelcrazyer
½Ð¦Û¦æ½Õ¾ã¦X©ó§Aªº­n¨D.
   
  1. Option Explicit
  2. Sub Ex()
  3. ActiveSheet.UsedRange.Select
  4. Selection.WrapText = False '¤£´«¦æ
  5. Selection.EntireColumn.AutoFit  'Äæ¦ì§¹¥þÅã¥Ü
  6. 'Selection.EntireRow.AutoFit  '¦C¦ì§¹¥þÅã¥Ü
  7. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ modelcrazyer ©ó 2012-10-6 21:39 ½s¿è

ÁÂÁ¦U¦ìªº¸Ñµª
ToGBKEE¤j:
¦]¬°§ÚªºÄæ¼e¨ü­­©ó­¶­±©Ò¥H¤£¯à¦Û°Ê½Õ¾ã
©Ò¥H¦pªG¤£´«¦æ,Äæ¼e·|¤Ó¤j
To c_c_lai¤j:
¥H¤U¬O§Úªº¹ÏÀÉ
·Ð±z¯à´£¨ÑÀ°§U

1.jpg (70.43 KB)

1.jpg

TOP

¦^´_ 9# modelcrazyer
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     With ActiveSheet.UsedRange
  3.         .WrapText = True                    '´«¦æ
  4.         .EntireColumn.AutoFit               '¥þ³¡Äæ¦ì§¹¥þÅã¥Ü.
  5.         .Range("A:A").ColumnWidth = 20      '«ü©wÄæ¦ì¼e«×
  6.         .Range("k:k").ColumnWidth = 15      '«ü©wÄæ¦ì¼e«×
  7.         .RowHeight = 80                     '«ü©w¥þ³¡¦C¼e
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD