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

[µo°Ý] VBA¨Ì±ø¥ó¦Û°Ê¿z¿ï

¦^´_ 10# ­ã´£³¡ªL


   ÁÂÁ­ã¤j~~~~~~~~~~~~~~~~
*¦v¤k¤@ªTµL»~*

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-12-18 08:11 ½s¿è

¦^´_ 11# msmplay


  
  1. Option Explicit
  2. Sub Ex_§@·~¤Ñ¼Æ()
  3.     Ex_¿z¿ï "§@·~¤Ñ¼Æ", 10, 3   'xlTop10Items=3 ½Ð¬Ý¹Ï¥Ü  
  4. End Sub
  5. Sub Ex_§¹¦¨²v()
  6.     Ex_¿z¿ï "§¹¦¨²v", "<0.9", 0
  7. End Sub
  8. Sub Ex_¹O´Á¼Æ()
  9.     Ex_¿z¿ï "¹O´Á¼Æ", 10, 3
  10. End Sub
  11. Sub Ex_¿z¿ï(¿z¿ï As String, ¿z¿ï·Ç«h As String, xl_Operator As Integer)
  12.     Dim Rng As Range
  13.     With Sheets("¤u§@§¹¦¨²v²Î­p")
  14.         Set Rng = .Rows("1:3").Find(¿z¿ï, lookat:=xlWhole)
  15.         If Rng Is Nothing Then MsgBox "§ä¤£¨ì  " & ¿z¿ï: Exit Sub
  16.         Set Rng = Range(Rng.Range("A3"), Rng.Range("A4").End(xlDown).Offset(-1))
  17.         If .FilterMode Or .AutoFilterMode Then .AutoFilterMode = False   ' ¨ú®ø [¦Û°Ê¿z¿ï]
  18.         If xl_Operator > 0 Then
  19.             Rng.AutoFilter Field:=1, Criteria1:=¿z¿ï·Ç«h, Operator:=xl_Operator ', VisibleDropDown:=False
  20.         Else
  21.             Rng.AutoFilter Field:=1, Criteria1:=¿z¿ï·Ç«h ', VisibleDropDown:=False
  22.         End If
  23.         '**  VisibleDropDown:=False :¤£¦b¤u§@ªí¤WÅã¥Ü¦³ [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹
  24.         Rng(1).Select
  25.     End With
  26. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


   ÁÂÁÂG¤j¼ö¤ßÀ°¦££°~~~~~~~~~~
*¦v¤k¤@ªTµL»~*

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD