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

[µo°Ý] MsgboxÅã¥Ü²Å¦X±ø¥óªº¥[Á`

[µo°Ý] MsgboxÅã¥Ü²Å¦X±ø¥óªº¥[Á`

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("I6:I1000")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
   
    MsgBox "§¹¦¨!"
   
End Sub
³o¬Oµ²ªG


§Æ±æ"§¹¦¨!"ªº³¡¤À¥i¥HÅã¥Ü²Å¦X±ø¥óªºÁ`µ§¼Æ

¦^´_ 1# cowww


¤£¦n·N«ä¤£¤Ó¯à²z¸Ñ»Ý¨D¡A²Å¦X¬O¤°»ò±ø¥ó? ¥i¥H¦b¸ÑÄÀ¸Ô²Ó¬O¤@ÂI¥B´£¨Ñªþ¥ó´ú¸Õ¶Ü?·PÁÂ

TOP

¦^´_ 2# samwang


±ø¥ó¬O"¾÷¥x"Äæ¦ì¦³¸ê®Æªº¤ñ¼Æ¥[Á`¡AªÅ¥ÕÄæ¦ì¤£ºâ

¦Ü©óÀɮתº³¡¤À¡A¦]¬°¥¦¦³³sµ²¥t¤@­ÓECXELÀÉ¡A¥t¤@­ÓECXELÀÉ®e¶q«Ü¤j¡A¼È®ÉµLªk´£¨Ñ
Àɮתº³¡¤À§Ú·|¦A·Q·Q¿ìªk

TOP

¦^´_ 2# samwang


¦ÑÁó¦o§Æ±æ¥i¥H°w¹ï"¾÷¥x"Äæ¦ì¦³¾÷¥xªº°µ¥[Á`¡AªÅ¥Õªº¤£­nºâ¶i¥h

¶×¤J¸ê®ÆTEST123.zip (317.29 KB)

TOP

¦^´_ 4# cowww

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range, Ar(), a, n%,xD
    Set xD = CreateObject("Scripting.Dictionary")
    n = 0

    Application.ScreenUpdating = False
        For Each xRg In Range("I6:I10000")
           If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
                If xD.exists(xRg.Value) = False Then
                    xD(xRg.Value) = "": ReDim Preserve Ar(n)
                    Ar(n) = Application.CountIf(Columns("I"), xRg)
                    n = n + 1
                End If
            End If
        Next
        
        a = Join(Ar, ",")
    Application.ScreenUpdating = True
   
    MsgBox "§¹¦¨!" & a
   
End Sub

TOP

¦^´_ 5# samwang
«D±`·PÁÂsamwang¤j¤jªº¸Ñµª



¦pªG¥i¥H¡A¥u­n"I"Äæ¦ìªºÁ`¼Æ´N¦n
¤£»Ý­n°w¹ï¤£¦Pªº¾÷¥x­Ó§O¥[Á`

TOP

¦^´_  samwang
«D±`·PÁÂsamwang¤j¤jªº¸Ñµª



¦pªG¥i¥H¡A¥u­n"I"Äæ¦ìªºÁ`¼Æ´N¦n
¤£»Ý­n°w¹ï¤£¦Pªº¾÷ ...
cowww µoªí©ó 2021-7-12 10:43


½Ð¦A¸Õ¬Ý¬Ý¡AÁÂÁÂ

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
     Dim xRg As Range, Ar(), a, n%, xD
    Set xD = CreateObject("Scripting.Dictionary")
     n = 0
     Application.ScreenUpdating = False
         For Each xRg In Range("I6:I10000")
            If xRg.Value = "" Then
                 xRg.EntireRow.Hidden = True
             Else
                 xRg.EntireRow.Hidden = False
                 If xD.exists(xRg.Value) = False Then
                     xD(xRg.Value) = "": ReDim Preserve Ar(n)
                     Ar(n) = Application.CountIf(Columns("I"), xRg)
                     n = n + 1
                 End If
            End If
         Next
         
         If UBound(Ar) > 0 Then
            For j = 0 To UBound(Ar): a = a + Ar(j): Next
         End If
    Application.ScreenUpdating = True
     
     MsgBox "§¹¦¨!" & a
   
End Sub

TOP

¦^´_ 7# samwang


«D±`·PÁÂsamwang¤j¤jªº¸Ñµª

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD