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

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

¦^´_ 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

§Úªº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

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD