[µo°Ý] °õ¦æ¶¥¬q¿ù»~'380'

wang077

¦U¦ì¤j¯«¡A§Ú¦b°µ¤@­Ó¬d¸ß¨t²Î
·í§Ú¿ï¾Üsheet2µM«á¥Îcombobox2¿z¿ï§¹«á
·Q­nÅý¬Y´X­ÓÄæ¦ìª½±µ¦blistbox¤WÅã¥Ü¡A©Ò¥H¦³¤F²©ö¬d¬Ýªº«ö¶s
¦ý¬O§ì¨ìAJÄæ®É¡A«o¤@ª½Åã¥Ü[°õ¦æ¶¥¬q¿ù»~'380']
½Ð°Ý¦³­þùؼg¿ù¶Ü?
test.zip (27.46 KB)

¤U¸ü¦¸¼Æ: 8

2021-7-27 15:42

wang077

¦^´_ 21# n7822123
¨ä¹ê§Ú¤]ı±o³Â·Ð¡A¦ý²¦³º¥DºÞ­n¨D

wang077

¦^´_ 20# ­ã´£³¡ªL
´N¹³­ã¤j»¡ªº¡A­ìªí¤Ó¹L©óÁcÂø
¥DºÞ·Q§ó§Ö½Õ¥X«ü©w¸ê®Æ¡A©Ò¥H¥Î¤Fªí³æ

n7822123

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

«¢«¢¡A§Ú¸ò­ã¤jªº·Qªk¤@¼Ë­C!  §Ú¤]ı±o³oªí³æ¦³ÂI¦h¾l

§ÚÀ³¸Ó·|ª½±µ®³¥t¤@­Óªí®æ·í°µ¾Þ§@¤¶­±

¨Ã¦b¤U­±¨q¥X¬d§äªº¸ê®Æ¡A°µ³oªí³æÁÙ¤£¬O­n "¸ê®Æ³B²z"¡A¤£·|¤ñ¸û¬Ù¨Æ

­ã´£³¡ªL

¸Ü»¡³oºØªí³æ¬d¸ß¦³¦ó°µ¥Î???
­Y¬O¦]¬°ªí®æ¾î¼e¤ÎÁaªø¤Ó¤j, ·Q½Õ¥X«ü©w¸ê®Æ°µ­×§ï,
¨ºÁÙ¬O¦b­ìªí¾Þ§@¸û¹ê¦b~~

wang077

¦^´_ 18# samwang
·PÁ¤j¤jÀ°¦£¡A§Ú¦³¦^«H¨ì§Aªºmail³á¡I

samwang

¦^´_ 16# wang077


¤£¦n·N«ä¡A§ó·s17¼Óµ{¦¡¡A±N²Ä1¦C²¾¨ì°j°é¥~¡AÁÂÁÂ
   
Private Sub CommandButton3_Click()
Dim Arr, Ar(), xD, i&, j&
Set xD = CreateObject("Scripting.Dictionary")
b = ComboBox1.Text
Sheets(b).Select
If Me.ComboBox2.Text <> "" And Me.ComboBox3.Text = "" Then
    Arr = Sheets(b).AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible)
    ReDim Ar(1 To UBound(Arr), 1 To 4): m = 1
    Ar(1, 1) = Cells(2, 1): Ar(1, 2) = Cells(2, 2)  '²Ä¤@¦C
    Ar(1, 3) = Cells(2, 4): Ar(1, 4) = Cells(2, 36)
   
    For i = 1 To UBound(Arr)
        T = Arr(i, 1) & Arr(i, 2) & Arr(i, 4)
        If InStr(T, "´£À˼Æ") Or InStr(T, "¨}«~¼Æ") Or InStr(T, "¨}²v") Then
            If xD(T & "/3") <> 1 Then
                xD(T & "/3") = 1: m = m + 1
                If xD(Arr(i, 1) & "/1") <> 1 Then xD(Arr(i, 1) & "/1") = 1: Ar(m, 1) = Arr(i, 1)
                If xD(Arr(i, 2) & "/2") <> 1 Then xD(Arr(i, 2) & "/2") = 1: Ar(m, 2) = Arr(i, 2)
                Ar(m, 3) = Arr(i, 4)
                If InStr(T, "¨}²v") Then Ar(m, 4) = Format(Arr(i, 36), "0%") Else Ar(m, 4) = Arr(i, 36)
            End If
        End If
    Next
   
    With Me.ListBox1
      .ColumnWidths = "40,50,70,40"
      .List = Ar
      .ColumnCount = m
    End With
End If
Sheets(b).Select
End Sub

samwang

¦^´_ 16# wang077

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

Private Sub CommandButton3_Click()
Dim Arr, Ar(), xD, i&, j&
Set xD = CreateObject("Scripting.Dictionary")
b = ComboBox1.Text
Sheets(b).Select
If Me.ComboBox2.Text <> "" And Me.ComboBox3.Text = "" Then
    Arr = Sheets(b).AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible)
    ReDim Ar(1 To UBound(Arr), 1 To 4): m = 1
    For i = 1 To UBound(Arr)
        T = Arr(i, 1) & Arr(i, 2) & Arr(i, 4)
        If InStr(T, "´£À˼Æ") Or InStr(T, "¨}«~¼Æ") Or InStr(T, "¨}²v") Then
            If xD(T & "/3") <> 1 Then
                xD(T & "/3") = 1: m = m + 1
                If Ar(1, 1) = "" Then '²Ä1¦C
                    Ar(1, 1) = Cells(2, 1): Ar(1, 2) = Cells(2, 2)
                    Ar(1, 3) = Cells(2, 4): Ar(1, 4) = Cells(2, 36)
                End If
                If xD(Arr(i, 1) & "/1") <> 1 Then xD(Arr(i, 1) & "/1") = 1: Ar(m, 1) = Arr(i, 1)
                If xD(Arr(i, 2) & "/2") <> 1 Then xD(Arr(i, 2) & "/2") = 1: Ar(m, 2) = Arr(i, 2)
                Ar(m, 3) = Arr(i, 4)
                If InStr(T, "¨}²v") Then Ar(m, 4) = Format(Arr(i, 36), "0%") Else Ar(m, 4) = Arr(i, 36)
            End If
        End If
    Next
   
    With Me.ListBox1
      .ColumnWidths = "40,50,70,40"
      .List = Ar
      .ColumnCount = m
    End With
End If
Sheets(b).Select
End Sub

wang077

¦^´_ 15# samwang
¤j¤j¡A§Ú¦³±HÀɮרì§Aªºgmail
¥i¥H³Â·Ð§A¬Ý¤@¤U¶Ü¡AÁÂÁÂ

samwang

¦^´_ 14# wang077

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

Private Sub CommandButton3_Click()
Dim Arr, Ar(), xD, i&, j&
Set xD = CreateObject("Scripting.Dictionary")
b = ComboBox1.Text
Sheets(b).Select
If Me.ComboBox2.Text <> "" And Me.ComboBox3.Text = "" Then
    Arr = Sheets(b).AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible)
    ReDim Ar(1 To UBound(Arr) + 1, 1 To UBound(Arr, 2))
    For j = 1 To UBound(Arr, 2)
        If j > 4 And j < 36 Then GoTo 99
        For i = 1 To UBound(Arr)
            If j > 3 Then
                If Arr(i, j) = "¤£¨}" Then i1 = i: GoTo 98
                If Arr(i, j) = "³ø¼o" Then i2 = i: GoTo 98
                If i1 = i Or i2 = i Then GoTo 98
            End If
            If Arr(i, j) <> "" Then
                If xD(Arr(i, j)) <> 1 Then
                   If j < 35 Then xD(Arr(i, j)) = 1
                    If j <> j1 Then j1 = j: n = n + 1: m = 2
                    Ar(1, n) = Cells(2, j)
                    If j = 36 And i = UBound(Arr) Then
                        Ar(m, n) = Format(Arr(i, j), "0%")
                    Else
                        Ar(m, n) = Arr(i, j): m = m + 1
                    End If
                End If
            End If
98:   Next
99: Next
    With Me.ListBox1
       .ColumnWidths = "30,30,30,40,40"
      .List = Ar
      .ColumnCount = n
    End With
End If
Sheets(b).Select
End Sub