Truy Vấn Excel trong BV6 (2 người xem)

[duy0909939382]

Xin giúp.Mình có mốt bài tập như sau :

Tạo ra 1 form gồm có 3 nút CẤP 1 , CẤP 2 ,CÂP 3
CẤP 1 : Liệt kê ra tất cả trong TK với 3 số đầu giống nhau.
CẤP 2 : Liệt kê ra tất cả trong TK với 4 số đầu giống nhau.
CẤP 3 : Liệt kê ra tất cả trong TK với 5 số đầu giống nhau.

Ái biết giúp mình với.Xin cảm ơn
yahoo : dangquocduyit@yahoo.com​

 

[duy0909939382]

Pro vào giúp với. Em đang cần gấp .huhu

 

[Hai Lúa Miền Tây]

Xin giúp.Mình có mốt bài tập như sau :

Tạo ra 1 form gồm có 3 nút CẤP 1 , CẤP 2 ,CÂP 3
CẤP 1 : Liệt kê ra tất cả trong TK với 3 số đầu giống nhau.
CẤP 2 : Liệt kê ra tất cả trong TK với 4 số đầu giống nhau.
CẤP 3 : Liệt kê ra tất cả trong TK với 5 số đầu giống nhau.

Ái biết giúp mình với.Xin cảm ơn
yahoo : dangquocduyit@yahoo.com​

Bạn dùng code củ chuối như sau thử nhé.

Sub LocTK()
Dim rng As Range
Dim r, s, c As Integer
Columns("E:F").ClearContents
Set rng = Application.InputBox(prompt:="Chon vung du lieu co chua so TK ", Type:=8)
 s = InputBox(prompt:="Go so tai khoan can trich loc" & vbNewLine & "VD: 211, 2113....")
 c = InputBox(prompt:="Go tai khoan cap may ?" & vbNewLine & "VD: 1,2,3,....")
For Each rng In rng
    With Sheet1
        r = .Range("E65000").End(xlUp).Row + 1
        If Left(rng, c + 2) = s Then
            .Range("E" & r) = rng
            .Range("F" & r) = rng.Offset(, 1)
        End If
    End With
    
Next

End Sub

 

[duy0909939382]

Tạo ra 1 form gồm có 3 nút CẤP 1 , CẤP 2 ,CÂP 3
CẤP 1 : Liệt kê ra tất cả trong TK với 3 số đầu giống nhau.
CẤP 2 : Liệt kê ra tất cả trong TK với 4 số đầu giống nhau.
CẤP 3 : Liệt kê ra tất cả trong TK với 5 số đầu giống nhau.

Ý MÌNH LÀ :
- KHI BẤM VÀO NÚT CẤP 1 TRÊN GIAO DIỆN THÌ SẼ XUẤT RA FILE EXCEL
-VÀ TÍNH TỔNG SỐ TIỀN .VÍ DỤ KHI BẤM NÚT CẤP 1 THÌ RA FILE EXCEL.

 

[duy0909939382]

Cảm ơn bạn domfootwear .Bạn có thể cho mình Yahoo + SĐT được không. Còn nhiều vấn đề cần bạn giúp. Xin cảm ơn.

 

[Hai Lúa Miền Tây]

Tạo ra 1 form gồm có 3 nút CẤP 1 , CẤP 2 ,CÂP 3
CẤP 1 : Liệt kê ra tất cả trong TK với 3 số đầu giống nhau.
CẤP 2 : Liệt kê ra tất cả trong TK với 4 số đầu giống nhau.
CẤP 3 : Liệt kê ra tất cả trong TK với 5 số đầu giống nhau.

Ý MÌNH LÀ :
- KHI BẤM VÀO NÚT CẤP 1 TRÊN GIAO DIỆN THÌ SẼ XUẤT RA FILE EXCEL
-VÀ TÍNH TỔNG SỐ TIỀN .VÍ DỤ KHI BẤM NÚT CẤP 1 THÌ RA FILE EXCEL.

Theo yêu cầu của bạn thì mình thấy tôi đã làm cho bạn.
Còn 1 vấn đề là ý bạn muốn xuất thành file riêng ? Dòng tổng thì có thể thêm được.

 

[duy0909939382]

Theo yêu cầu của bạn thì mình thấy tôi đã làm cho bạn.
Còn 1 vấn đề là ý bạn muốn xuất thành file riêng ? Dòng tổng thì có thể thêm được.

Bạn hiểu sai ý mình rồi.Mình nói rỏ hơn nè..Giao diện chỉ có 3 nút là : CẤP 1 - CẤP 2 - CẤP 3
Khi chọn CẤP 1 : thì sẽ xuất ra file excel toan TK cấp 1 (mình không phải nhập số TK để nó so sánh mà phải tự nó biết so sánh vì cấp 1 không phải bao nhiêu đó TK mà còn nhiều vd như có thêm TK 30111,30112,30123 v.v).

 

[duy0909939382]

Bạn hiểu sai ý mình rồi.Mình nói rỏ hơn nè..Giao diện chỉ có 3 nút là : CẤP 1 - CẤP 2 - CẤP 3
Khi chọn CẤP 1 : thì sẽ xuất ra file excel toan TK cấp 1 (mình không phải nhập số TK để nó so sánh mà phải tự nó biết so sánh vì cấp 1 không phải bao nhiêu đó TK mà còn nhiều vd như có thêm TK 30111,30112,30123 v.v).
Giúp mình làm chạy rồi cho mình code luôn nha.* cảm ơn.

 

[ThuNghi]

Bạn hiểu sai ý mình rồi.Mình nói rỏ hơn nè..Giao diện chỉ có 3 nút là : CẤP 1 - CẤP 2 - CẤP 3
Khi chọn CẤP 1 : thì sẽ xuất ra file excel toan TK cấp 1 (mình không phải nhập số TK để nó so sánh mà phải tự nó biết so sánh vì cấp 1 không phải bao nhiêu đó TK mà còn nhiều vd như có thêm TK 30111,30112,30123 v.v).
Giúp mình làm chạy rồi cho mình code luôn nha.* cảm ơn.

Căn cứ nào để biết là TK cấp 1 hay 2, hay 3.

 

[duy0909939382]

Căn cứ vào Tk :
CẤP 1 : 3 số đầu giống nhau.
CẤP 2 :i 4 số đầu giống nhau.
CẤP 3 : 5 số đầu giống nhau.

Vd :TK gôm file excel sau

 

[ThuNghi]

Căn cứ vào Tk :
CẤP 1 : 3 số đầu giống nhau.
CẤP 2 :i 4 số đầu giống nhau.
CẤP 3 : 5 số đầu giống nhau.

Vd :TK gôm file excel sau

Vậy TK 211331 này có 6 ký tự là cấp mấy.
Trong file trên nếu lấy TK cấp 1 thì 21101 và 211341 ...lấy làm sao.
Tôi cũng là dân làm kt mà kg hiểu yêu cầu.
Bạn nên cụ thể hơn 1 chút.
1/ Cấp 1 thì KQ là sao.
2/ ...
Viết code thử với D1 là Cấp TK và gán vào E1

Sub LocTK()
Dim endR&, i&, s&, iCap&, nR&
Dim sTK$, LuyKe As Double
Dim Dic As Object
Dim Arr(), ArrKQ()
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet1
  iCap = .[D1]
  endR = .Cells(65000, 1).End(3).Row
  Arr = .Range(.Cells(2, 1), .Cells(endR, 2)).Value
End With
s = 0
ReDim ArrKQ(1 To UBound(Arr) + 1, 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr)
  sTK = Left(Trim(Arr(i, 1)), iCap + 2)
  LuyKe = LuyKe + Arr(i, 2)
  If Not Dic.Exists(sTK) Then
    s = s + 1
    Dic.Add sTK, s
    ArrKQ(s, 1) = sTK
  End If
  nR = Dic.Item(sTK)
  ArrKQ(nR, 2) = ArrKQ(nR, 2) + Arr(i, 2)
Next i
ArrKQ(s + 1, 2) = LuyKe
With Sheet1
  With .[G2]
    .Resize(1000, 2).ClearContents
    .Resize(s + 1, 2) = ArrKQ
  End With
End With
Set Dic = Nothing
Erase Arr(), ArrKQ()
End Sub

 

[duy0909939382]

Cấp 1 : Trùng 3 số đầu của TK vd 211**** đều là cấp 1 không cần biết là TK có bao nhiêu số.
Cấp 2 : Trùng 4 số đầu của TK
Cấp 3 : Trùng 5 số đầu của TK

TK gồm nhiều loại số từ 1 số cho đến 7 số.Cảm ơn bạn trước nha.
Cho mình xin luôn code luon nha.

Cho mình xin SĐT nha.