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

[µo°Ý] ½Ð°Ý¹ï¤£¦PÄæ¦ìªº¦Û°Ê¿z¿ï°µ¦P¼Ë°Ê§@µ{¦¡½X­×§ï

[µo°Ý] ½Ð°Ý¹ï¤£¦PÄæ¦ìªº¦Û°Ê¿z¿ï°µ¦P¼Ë°Ê§@µ{¦¡½X­×§ï

½Ð°Ý¦pªG§Ú­n¹ï7, 8, 15, 16³o¨ÇÄæ¦ì°µ¦P¼Ë°Ê§@
¤U­±ªºµ{¦¡½X¬O§Ú¼gªº¥i¬O¹B§@¤£°_¨Ó
¥L¤£·|¨Ì§Ç¶]¨º¨ÇÄæ¦ì
§Úªºµ{¦¡½X¦³°ÝÃD¶Ü?
ÁÙ¬O­n§ï­þÃä?
  1. Sub Macro2()
  2.     n = Array(7, 8, 15, 16)
  3.     For i = 1 To UBound(n)
  4.      Selection.AutoFilter Field:="i", Criteria1:=":"
  5.     ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
  6.     Selection.AutoFilter Field:="i"
  7.     Next
  8.    
  9. End Sub
½Æ»s¥N½X
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

  1. Sub Macro2()
  2.     n = Array(7, 8, 15, 16)
  3.     For i = 0 To UBound(n)
  4.         Selection.AutoFilter Field:=n(i), Criteria1:=":"
  5.         ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
  6.         Selection.AutoFilter Field:=n(i)
  7.     Next
  8. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 2# kimbal


    ÁÂÁª©¥D
   ­ì¨Ó®t¦b³o´X¦U¦a¤è
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD