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

[µo°Ý] (¤v¸Ñ¨M!)¦p¦ó¤@¦¸¶}±Ò©Ò¦³Sheet ¤ºªº¸s²Õ

¥»©«³Ì«á¥Ñ kimbal ©ó 2011-8-9 22:48 ½s¿è

³o­Ó¼Ë¤l?
  1.     For Each sht In ActiveWorkbook.Worksheets
  2.         sht.Select
  3.         For Each cel In sht.UsedRange.Resize(, 1)
  4.             With sht.Rows(cel.Row).EntireRow
  5.                 If Not .ShowDetail Then
  6.                     .ShowDetail = True
  7.                 End If
  8.             End With
  9.         Next
  10.     Next
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD