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

¿z¿ï°ÝÃD

¦^´_ 1# spermbank
  1. Sub nn()
  2. Dim A As Filter
  3. With Sheet1
  4.    For Each A In .AutoFilter.Filters
  5.       If A.On Then .ShowAllData
  6.    Next
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD