Tính số hàng tồn kho không sử dụng AutoFilter.

[@momo]

Xin chào các anh(chị) trong diễn đàn!
Hiện tại em đang tính số hàng tồn kho của các dòng xe.Em dùng autofilter để lọc và tính như công thức như ở dưới.
Có cách làm nào khác ngoài việc sử dụng autofilter không ah?
Mong các anh(chi)huớng dẫn ah!

Private Sub CommandButton1_Click()
Range("D1").AutoFilter Field:=4, Criteria1:="Hiace"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim aq As Integer
    aq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox1 = aq - 1
    
    
    Range("D1").AutoFilter Field:=4, Criteria1:="Vios"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim sq As Integer
    sq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox2 = sq - 1
  
    Range("D1").AutoFilter Field:=4, Criteria1:="Forte"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim dq As Integer
    dq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox3 = dq - 1
    
    Range("D1").AutoFilter Field:=4, Criteria1:="Starex"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim fq As Integer
    fq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox4 = fq - 1
    
End Sub

Em có đính kèm file giả lập để mọi người dễ hình dung ah.

 

[snow25]

Xin chào các anh(chị) trong diễn đàn!
Hiện tại em đang tính số hàng tồn kho của các dòng xe.Em dùng autofilter để lọc và tính như công thức như ở dưới.
Có cách làm nào khác ngoài việc sử dụng autofilter không ah?
Mong các anh(chi)huớng dẫn ah!

Private Sub CommandButton1_Click()
Range("D1").AutoFilter Field:=4, Criteria1:="Hiace"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim aq As Integer
    aq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox1 = aq - 1
   
   
    Range("D1").AutoFilter Field:=4, Criteria1:="Vios"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim sq As Integer
    sq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox2 = sq - 1
 
    Range("D1").AutoFilter Field:=4, Criteria1:="Forte"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim dq As Integer
    dq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox3 = dq - 1
   
    Range("D1").AutoFilter Field:=4, Criteria1:="Starex"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim fq As Integer
    fq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox4 = fq - 1
   
End Sub

Em có đính kèm file giả lập để mọi người dễ hình dung ah.

Có nhiều cách.Nhưng bạn làm thế này không ổn nếu nó có nhiều mã cần tính tồn kho thì sao nhỉ.

 

[@momo]

Có nhiều cách.Nhưng bạn làm thế này không ổn nếu nó có nhiều mã cần tính tồn kho thì sao nhỉ.

Cảm ơn @snow25 đã góp ý.
Mình cũng nghĩ như vậy ah.
Nếu có nhiều dòng xe thì sẽ tốn thời gian cho việc viết chuơng trình, và chạy nên mình mới hỏi thử có cách nào nhanh và gọn hơn không ah?

 

[Ba Tê]

Xin chào các anh(chị) trong diễn đàn!
Hiện tại em đang tính số hàng tồn kho của các dòng xe.Em dùng autofilter để lọc và tính như công thức như ở dưới.
Có cách làm nào khác ngoài việc sử dụng autofilter không ah?
Mong các anh(chi)huớng dẫn ah!

Private Sub CommandButton1_Click()
Range("D1").AutoFilter Field:=4, Criteria1:="Hiace"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim aq As Integer
    aq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox1 = aq - 1
   
   
    Range("D1").AutoFilter Field:=4, Criteria1:="Vios"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim sq As Integer
    sq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox2 = sq - 1
 
    Range("D1").AutoFilter Field:=4, Criteria1:="Forte"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim dq As Integer
    dq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox3 = dq - 1
   
    Range("D1").AutoFilter Field:=4, Criteria1:="Starex"
    Range("G1").AutoFilter Field:=7, Operator:=xlAnd, Criteria2:=""
    Dim fq As Integer
    fq = Application.WorksheetFunction.Subtotal(103, Range("G1").CurrentRegion.Columns(1))
    TextBox4 = fq - 1
   
End Sub

Em có đính kèm file giả lập để mọi người dễ hình dung ah.

Không cần đưa code, với dữ liệu như vậy, bạn chỉ cần ghi ra kết quả bạn muốn có, giải thích cách tính thôi.

 

[@momo]

Không cần đưa code, với dữ liệu như vậy, bạn chỉ cần ghi ra kết quả bạn muốn có, giải thích cách tính thôi.

Cảm ơn Ba Tê đã góp ý.
cách tính:
Cột "dongxe" với "NgayNhanhang" để tính
Nếu cột"NgayNhanhang" còn trống thì dòng xe đó vẫn còn tồn lai.
ví dụ:Đối với dongxe Forte thì ta đếm số lần xuất hiện của nó trong cột "Dongxe" và cột "NgayNhanhang" còn trống.
có thể mình giải thích hơi khó hiểu nên mọi người thông cảm ah.

 

[hocexcel_1991]

Cảm ơn Ba Tê đã góp ý.
cách tính:
Cột "dongxe" với "NgayNhanhang" để tính
Nếu cột"NgayNhanhang" còn trống thì dòng xe đó vẫn còn tồn lai.
ví dụ:Đối với dongxe Forte thì ta đếm số lần xuất hiện của nó trong cột "Dongxe" và cột "NgayNhanhang" còn trống.
có thể mình giải thích hơi khó hiểu nên mọi người thông cảm ah.

Bạn có thể tìm hiểu:
-Power Query
-PivotTable (dùng cột phụ)
-Dùng công thức

 

[@momo]

Bạn có thể tìm hiểu:
-Power Query
-PivotTable (dùng cột phụ)
-Dùng công thức

Cảm ơn @hocexcel_1991 đã góp ý.
-Power Query
-PivotTable (dùng cột phụ)
2 cái này thì em không lành lắm ah.
-Còn sử dụng công thức thì em có sử dụng autofilter nhu o tren rồi,nhưng em muốn làm cách khác gọn hơn ah.

 

[Ba Tê]

Cảm ơn @hocexcel_1991 đã góp ý.
-Power Query
-PivotTable (dùng cột phụ)
2 cái này thì em không lành lắm ah.
-Còn sử dụng công thức thì em có sử dụng autofilter nhu o tren rồi,nhưng em muốn làm cách khác gọn hơn ah.

Ý bạn "mắc" dùng VBA?

 

[@momo]

Ý bạn "mắc" dùng VBA?

đúng rồi ah！
Nhưng em muốn kết quả trả về trên textbox như file của em í ah!
Anh có thể xem giúp em với ah.

 

[Ba Tê]

đúng rồi ah！
Nhưng em muốn kết quả trả về trên textbox như file của em í ah!
Anh có thể xem giúp em với ah.

Kết quả trong TextBox để làm gì? Chỉ nhìn cho "đã mắt" sao?

 

[@momo]

Kết quả trong TextBox để làm gì? Chỉ nhìn cho "đã mắt" sao?

Do file gốc của em thì hàng tồn kho nằm trên form tiềm kiếm,và sau khi show form tìm kiếm này thì số luongwj hàng tồn kho sẽ hiên lên ah.
đây chi là file giả lập ra để mọi người dễ hiểu ý của em nói thôi ah!

 

[Ba Tê]

Do file gốc của em thì hàng tồn kho nằm trên form tiềm kiếm,và sau khi show form tìm kiếm này thì số luongwj hàng tồn kho sẽ hiên lên ah.
đây chi là file giả lập ra để mọi người dễ hiểu ý của em nói thôi ah!

Tôi cũng chiều bạn 1 lần cuối. Áp dụng thế nào tùy bạn.

 

[@momo]

Tôi cũng chiều bạn 1 lần cuối. Áp dụng thế nào tùy bạn.

Cảm ơn sự nhiệt tình @Ba Tê
em sẽ xem và áp dụng vào bài của mình ah!

 

[@momo]

Tôi cũng chiều bạn 1 lần cuối. Áp dụng thế nào tùy bạn.

@Ba Tê
Xin lỗi bạn@Ba Tê có thể giúp mình xem lại bài này với ah!
mình có xemvà làm lại bằng cách ,biến đổi cột "ngày nhận"bằng cách chuyển cột "ngày nhận" từ cột G sang H,I thì mình làm được .Nhưng nếu chuyển về cột A hay B thì ,mình làm ko được .Mình có tra trên mạng và lam nhưng vẫn không được !
Làm phiền bạn hưóng dẫn giúp mình ah?