Cộng dồn trong lisbox

Liên hệ QC
doancu

doancu

Thành viên mới
Tham gia
20/1/11
Bài viết
14
Được thích
0
Giới tính
Nam
Mọi cho mình hỏi làm sao cộng dồn trong lisbox đc vậy, ai biết chỉ giúp mình với, xuat kho11.pngmình có gửi file qua và chi tiết, nhờ anh em cộng đồng chỉ giúp mình với thanks!!!
Bài đã được tự động gộp:

Dim dongcuoi As Long
dongcuoi = Sheets("Xuat").Range("B" & Rows.Count).End(xlUp).Row + 1
TextBox_sct.Value = "CTX" & dongcuoi 'tu dong tim dong cuoi chu tu nhap so tu dong
'---------------------------------------------------------
Dim a As Long
a = lstDMsanpham.ListIndex
TextBox_MaSP.Value = lstDMsanpham.List(a, 1) 'in maSP len TextBox_MaSP
TextBox_TenSP.Value = lstDMsanpham.List(a, 2) 'in tenSP len TextBox
TextBox_gia.Value = Format(lstDMsanpham.List(a, 4), "#,##0") 'in maSP len TextBox_MaSP

'--------------------------------------------------------------
TextBox_sl.SetFocus
End Sub

Private Sub lstDMsanpham_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim a As Long, b As Long, c As Long, arr, i As Integer, ii As Integer


a = lstDMsanpham.ListIndex

'----------------------------doc du lieu trong lstDMsanpham roi gan vao 10 bien
c = ListBox2.ListCount
ReDim arr(1 To c + 1, 1 To 11)
If c Then
For i = 0 To c - 1
arr(i + 1, 1) = ListBox2.List(i, 0)
arr(i + 1, 2) = ListBox2.List(i, 1)
arr(i + 1, 3) = ListBox2.List(i, 2)
arr(i + 1, 4) = ListBox2.List(i, 3)
arr(i + 1, 5) = ListBox2.List(i, 4)
arr(i + 1, 6) = ListBox2.List(i, 5)
arr(i + 1, 7) = ListBox2.List(i, 6)
arr(i + 1, 8) = ListBox2.List(i, 7)
arr(i + 1, 9) = ListBox2.List(i, 8)
arr(i + 1, 10) = ListBox2.List(i, 9)
arr(i + 1, 11) = ListBox2.List(i, 10)

Next i
End If
'--------------------------------doc du lieu trong lstDMsanpham roi gan vao 10 bien

'--------------------------------gan du lieu vao listbox2 gom 10 cot khai bao du 10 cot
c = c + 1
'-----------------------------------------------
' For ii = 1 To c
'
' If arr(ii, 5) = TextBox_MaSP.Value Then
' arr(ii, 8) = arr(ii, 8) + 1 'SO LUONG
' Else
'-----------------------------------------------

arr(c, 1) = TextBox_sct.Value 'MA CHUNG TU NHAP

'-------------------------------------------------KIEM TRA KO BO TRONG
If TextBox_ngay.Value = "" Then
MsgBox "Ban chua nhap NGAY ?", vbCritical
TextBox_ngay.SetFocus ' DUA CON CHUOC VE DUNG VI TRI vbCritical
Exit Sub
Else
arr(c, 2) = TextBox_ngay.Value 'GHI NGAY THANG
End If
'-------------------------------------------------KIEM TRA KO BO TRONG
If ComboBox_MaKH.Value = "" Then
MsgBox "Ban chua CHON MA KHACH HANG ?", vbCritical
ComboBox_MaKH.SetFocus ' DUA CON CHUOC VE DUNG VI TRI vbCritical
Exit Sub
Else
arr(c, 3) = ComboBox_MaKH.Value 'MA NHA CUNG CAP
End If
'-------------------------------------------------

arr(c, 4) = TextBox_tenKH.Value 'TEN NHA CUNG CAP
arr(c, 5) = lstDMsanpham.List(a, 1) 'MA SAN PHAM
arr(c, 6) = lstDMsanpham.List(a, 2) 'TEN SAN PHAM
arr(c, 7) = lstDMsanpham.List(a, 3) 'DON VI TINH
'-------------------------------------------------KIEM TRA KO BO TRONG
If TextBox_sl.Value = 0 Then
MsgBox "Ban chua NHAP SO LUONG ?", vbCritical
TextBox_sl.SetFocus ' DUA CON CHUOC VE DUNG VI TRI vbCritical
Exit Sub
Else
If CLng(TextBox_sl.Value) > lstDMsanpham.List(a, 10) Then
MsgBox "So luong khong duoc Lon hon So luong trong KHO ?", vbCritical
TextBox_sl.SetFocus
Exit Sub
Else
'---------------------------------------

arr(c, 8) = TextBox_sl.Value 'SO LUONG
lstDMsanpham.List(a, 10) = lstDMsanpham.List(a, 10) - CLng(TextBox_sl.Value) '======= tru sl xuat con lai sl ton ========================

'---------------------------------------
End If
End If
'-------------------------------------------------

arr(c, 9) = Format(TextBox_gia.Value, "#,##0") 'DON GIA
arr(c, 10) = Format(TextBox_ThanhTien.Value, "#,##0") 'THANH TIEN
arr(c, 11) = TextBox_VAT.Value 'VAT

'-----------------------------------------------

ListBox2.List = arr
TextBox_Tongtien.Value = Format(arr(c, 10) + CLng(TextBox_Tongtien.Value), "#,##0") 'THANH TIEN

'--------------------------------gan du lieu vao listbox2 gom 10 cot khai bao du 10 cot

TextBox_sl.SetFocus
TextBox_sl.Value = 0
CommandButton_luu.Enabled = True
CommandButton_in.Enabled = False
 

File đính kèm

  • 5.NXTDN.xlsm
    547.4 KB · Đọc: 23
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
doancu đã viết:
Mọi cho mình hỏi làm sao cộng dồn trong lisbox đc vậy, ai biết chỉ giúp mình với, View attachment 283186mình có gửi file qua và chi tiết, nhờ anh em cộng đồng chỉ giúp mình với thanks!!!
Bài đã được tự động gộp:

Dim dongcuoi As Long
dongcuoi = Sheets("Xuat").Range("B" & Rows.Count).End(xlUp).Row + 1
TextBox_sct.Value = "CTX" & dongcuoi 'tu dong tim dong cuoi chu tu nhap so tu dong
'---------------------------------------------------------
Dim a As Long
a = lstDMsanpham.ListIndex
TextBox_MaSP.Value = lstDMsanpham.List(a, 1) 'in maSP len TextBox_MaSP
TextBox_TenSP.Value = lstDMsanpham.List(a, 2) 'in tenSP len TextBox
TextBox_gia.Value = Format(lstDMsanpham.List(a, 4), "#,##0") 'in maSP len TextBox_MaSP

'--------------------------------------------------------------
TextBox_sl.SetFocus
End Sub

Private Sub lstDMsanpham_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim a As Long, b As Long, c As Long, arr, i As Integer, ii As Integer


a = lstDMsanpham.ListIndex

'----------------------------doc du lieu trong lstDMsanpham roi gan vao 10 bien
c = ListBox2.ListCount
ReDim arr(1 To c + 1, 1 To 11)
If c Then
For i = 0 To c - 1
arr(i + 1, 1) = ListBox2.List(i, 0)
arr(i + 1, 2) = ListBox2.List(i, 1)
arr(i + 1, 3) = ListBox2.List(i, 2)
arr(i + 1, 4) = ListBox2.List(i, 3)
arr(i + 1, 5) = ListBox2.List(i, 4)
arr(i + 1, 6) = ListBox2.List(i, 5)
arr(i + 1, 7) = ListBox2.List(i, 6)
arr(i + 1, 8) = ListBox2.List(i, 7)
arr(i + 1, 9) = ListBox2.List(i, 8)
arr(i + 1, 10) = ListBox2.List(i, 9)
arr(i + 1, 11) = ListBox2.List(i, 10)

Next i
End If
'--------------------------------doc du lieu trong lstDMsanpham roi gan vao 10 bien

'--------------------------------gan du lieu vao listbox2 gom 10 cot khai bao du 10 cot
c = c + 1
'-----------------------------------------------
' For ii = 1 To c
'
' If arr(ii, 5) = TextBox_MaSP.Value Then
' arr(ii, 8) = arr(ii, 8) + 1 'SO LUONG
' Else
'-----------------------------------------------

arr(c, 1) = TextBox_sct.Value 'MA CHUNG TU NHAP

'-------------------------------------------------KIEM TRA KO BO TRONG
If TextBox_ngay.Value = "" Then
MsgBox "Ban chua nhap NGAY ?", vbCritical
TextBox_ngay.SetFocus ' DUA CON CHUOC VE DUNG VI TRI vbCritical
Exit Sub
Else
arr(c, 2) = TextBox_ngay.Value 'GHI NGAY THANG
End If
'-------------------------------------------------KIEM TRA KO BO TRONG
If ComboBox_MaKH.Value = "" Then
MsgBox "Ban chua CHON MA KHACH HANG ?", vbCritical
ComboBox_MaKH.SetFocus ' DUA CON CHUOC VE DUNG VI TRI vbCritical
Exit Sub
Else
arr(c, 3) = ComboBox_MaKH.Value 'MA NHA CUNG CAP
End If
'-------------------------------------------------

arr(c, 4) = TextBox_tenKH.Value 'TEN NHA CUNG CAP
arr(c, 5) = lstDMsanpham.List(a, 1) 'MA SAN PHAM
arr(c, 6) = lstDMsanpham.List(a, 2) 'TEN SAN PHAM
arr(c, 7) = lstDMsanpham.List(a, 3) 'DON VI TINH
'-------------------------------------------------KIEM TRA KO BO TRONG
If TextBox_sl.Value = 0 Then
MsgBox "Ban chua NHAP SO LUONG ?", vbCritical
TextBox_sl.SetFocus ' DUA CON CHUOC VE DUNG VI TRI vbCritical
Exit Sub
Else
If CLng(TextBox_sl.Value) > lstDMsanpham.List(a, 10) Then
MsgBox "So luong khong duoc Lon hon So luong trong KHO ?", vbCritical
TextBox_sl.SetFocus
Exit Sub
Else
'---------------------------------------

arr(c, 8) = TextBox_sl.Value 'SO LUONG
lstDMsanpham.List(a, 10) = lstDMsanpham.List(a, 10) - CLng(TextBox_sl.Value) '======= tru sl xuat con lai sl ton ========================

'---------------------------------------
End If
End If
'-------------------------------------------------

arr(c, 9) = Format(TextBox_gia.Value, "#,##0") 'DON GIA
arr(c, 10) = Format(TextBox_ThanhTien.Value, "#,##0") 'THANH TIEN
arr(c, 11) = TextBox_VAT.Value 'VAT

'-----------------------------------------------

ListBox2.List = arr
TextBox_Tongtien.Value = Format(arr(c, 10) + CLng(TextBox_Tongtien.Value), "#,##0") 'THANH TIEN

'--------------------------------gan du lieu vao listbox2 gom 10 cot khai bao du 10 cot

TextBox_sl.SetFocus
TextBox_sl.Value = 0
CommandButton_luu.Enabled = True
CommandButton_in.Enabled = False
Nhấp chuột vào đây để mở rộng...
Đơn giản duyệt qua cái Listbox sau.Kiểm tra xem nó đã có chưa nếu chưa có thì add thêm mới.Còn có rồi thì sửa dữ liệu.
 
Upvote 0
snow25 đã viết:
Đơn giản duyệt qua cái Listbox sau.Kiểm tra xem nó đã có chưa nếu chưa có thì add thêm mới.Còn có rồi thì sửa dữ liệu.
Nhấp chuột vào đây để mở rộng...
mình dung for quét qua từng phần tử nhưng thì ok nhưng nó mang theo 2 dòng thừa nửa,
For ii = 1 To c

If arr(ii, 5) = TextBox_MaSP.Value Then
'ii = ListBox2.ListIndex
arr(ii, 8) = arr(ii, 8) + 1 'SO LUONG
Else
Bài đã được tự động gộp:

doancu đã viết:
mình dung for quét qua từng phần tử nhưng thì ok nhưng nó mang theo 2 dòng thừa nửa,
For ii = 1 To c

If arr(ii, 5) = TextBox_MaSP.Value Then
'ii = ListBox2.ListIndex
arr(ii, 8) = arr(ii, 8) + 1 'SO LUONG
Else
Nhấp chuột vào đây để mở rộng...
snow25 đã viết:
Đơn giản duyệt qua cái Listbox sau.Kiểm tra xem nó đã có chưa nếu chưa có thì add thêm mới.Còn có rồi thì sửa dữ liệu.
Nhấp chuột vào đây để mở rộng...
bạn biết xem lại dùm mình với
 

File đính kèm

  • a121212.png
    a121212.png
    486.1 KB · Đọc: 17
Upvote 0
doancu đã viết:
mình dung for quét qua từng phần tử nhưng thì ok nhưng nó mang theo 2 dòng thừa nửa,
For ii = 1 To c

If arr(ii, 5) = TextBox_MaSP.Value Then
'ii = ListBox2.ListIndex
arr(ii, 8) = arr(ii, 8) + 1 'SO LUONG
Else
Bài đã được tự động gộp:



bạn biết xem lại dùm mình với
Nhấp chuột vào đây để mở rộng...
Bạn làm cái Add xuống Litstbox2 sao lại phải ghi lại vào mảng làm gì.Add luôn được mà.Bạn viết cái code nó dài loằng ngoằng quá sửa rắc rối.Gửi cái code mới lên đây xem.
 
Upvote 0
snow25 đã viết:
Bạn làm cái Add xuống Litstbox2 sao lại phải ghi lại vào mảng làm gì.Add luôn được mà.Bạn viết cái code nó dài loằng ngoằng quá sửa rắc rối.Gửi cái code mới lên đây xem.
Nhấp chuột vào đây để mở rộng...
Mã: 
Private Sub lstDMsanpham_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim a As Long, b As Long, c As Long, arr, i As Integer
        a = lstDMsanpham.ListIndex
    '----------------------------doc du lieu trong lstDMsanpham roi gan vao 10 bien
        c = ListBox2.ListCount
        ReDim arr(1 To c + 1, 1 To 11)
        If c Then
          For i = 0 To c - 1
              arr(i + 1, 1) = ListBox2.List(i, 0)
              arr(i + 1, 2) = ListBox2.List(i, 1)
              arr(i + 1, 3) = ListBox2.List(i, 2)
              arr(i + 1, 4) = ListBox2.List(i, 3)
              arr(i + 1, 5) = ListBox2.List(i, 4)
              arr(i + 1, 6) = ListBox2.List(i, 5)
              arr(i + 1, 7) = ListBox2.List(i, 6)
              arr(i + 1, 8) = ListBox2.List(i, 7)
              arr(i + 1, 9) = ListBox2.List(i, 8)
              arr(i + 1, 10) = ListBox2.List(i, 9)
              arr(i + 1, 11) = ListBox2.List(i, 10)
          Next i
          End If
'===================================================
        c = c + 1
        arr(c, 1) = TextBox_sct.Value 'MA CHUNG TU NHAP
        arr(c, 2) = TextBox_ngay.Value 'GHI NGAY THANG
        arr(c, 3) = ComboBox_MaKH.Value 'MA NHA CUNG CAP
        arr(c, 4) = TextBox_tenKH.Value 'TEN NHA CUNG CAP
        arr(c, 5) = lstDMsanpham.List(a, 1) 'MA SAN PHAM
        arr(c, 6) = lstDMsanpham.List(a, 2) 'TEN SAN PHAM
        arr(c, 7) = lstDMsanpham.List(a, 3) 'DON VI TINH
        arr(c, 8) = TextBox_sl.Value 'SO LUONG
        arr(c, 9) = Format(TextBox_gia.Value, "#,##0") 'DON GIA
        arr(c, 10) = Format(TextBox_ThanhTien.Value, "#,##0") 'THANH TIEN
        arr(c, 11) = TextBox_VAT.Value  'VAT
        ListBox2.List = arr
    TextBox_Tongtien.Value = Format(arr(c, 10) + CLng(TextBox_Tongtien.Value), "#,##0") 'THANH TIEN
    
End Sub

GIUP MINH VOI
Bài đã được tự động gộp:

Giúp mình với
Hoàng Trọng Nghĩa đã viết:
Có phải ý của bạn là khi click vào hàng nào ở ListBox trên thì nó sẽ chuyển xuống ListBox dưới và cộng dồn số liệu?
Nhấp chuột vào đây để mở rộng...
đúng rồi bạn
Bài đã được tự động gộp:

snow25 đã viết:
Bạn làm cái Add xuống Litstbox2 sao lại phải ghi lại vào mảng làm gì.Add luôn được mà.Bạn viết cái code nó dài loằng ngoằng quá sửa rắc rối.Gửi cái code mới lên đây xem.
Nhấp chuột vào đây để mở rộng...
file mình dọn dẹp lại code ròi bạn . bạn giúp mình cái nha
 

File đính kèm

  • 5.NXTDN.xlsm
    549.5 KB · Đọc: 6
  • 5.NXTDN.xlsm
    549.5 KB · Đọc: 5
Upvote 0
Bạn diễn giải cho tôi biết, từ lúc show form lên, bạn phải thao tác những gì, sau đó mới click vào ListBox1 để có kết quả cộng dồn ở ListBox2 bạn cần phải có những điều kiện gì và dữ liệu lấy ở sheet nào?
 
Lần chỉnh sửa cuối:
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Bạn diễn giải cho tôi biết, từ lúc show form lên, bạn phải thao tác những gì, sau đó mới click vào ListBox1 để có kết quả cộng dồn ở ListBox2 bạn cần phải có những điều kiện gì và dữ liệu lấy ở sheet nào?
Nhấp chuột vào đây để mở rộng...
chỉ cần lick đúc trong listbox sản phẩm, thì dòng sp đó chuyển xuống listbox2 phía dưới và nếu MaSP trùng nhau thì cộng 1, con ko thì xuống bình thường
 
Upvote 0
doancu đã viết:
chỉ cần lick đúc trong listbox sản phẩm, thì dòng sp đó chuyển xuống listbox2 phía dưới và nếu MaSP trùng nhau thì cộng 1, con ko thì xuống bình thường
Nhấp chuột vào đây để mở rộng...
Giỡn chơi hoài, làm gì có mã sản phẩm trùng nhau từ ListBox trên? Vả lại, nếu số chứng từ khác nhau thì lấy cái nào?
 
Upvote 0
doancu đã viết:
chỉ cần lick đúc trong listbox sản phẩm, thì dòng sp đó chuyển xuống listbox2 phía dưới và nếu MaSP trùng nhau thì cộng 1, con ko thì xuống bình thường
Nhấp chuột vào đây để mở rộng...
Bạn thử thêm sub Test_Group_Listbox() này:
Mã: 
'cong gop so luong neu cung Ma hang trong Listbox2
Sub Test_Group_Listbox()
    Dim i As Long, j As Long, k As Long, x As Long
    Dim Dic As Object
    Dim Arr()
    Set Dic = CreateObject("Scripting.Dictionary")
    ReDim Arr(1 To ListBox2.ListCount, 1 To 11)
    For i = 0 To ListBox2.ListCount - 1
        If Not IsEmpty(ListBox2.List(i, 5)) And Not Dic.Exists(ListBox2.List(i, 5)) Then
            k = k + 1
            Dic.Add ListBox2.List(i, 5), k
            For j = 0 To 10
                Arr(k, j + 1) = ListBox2.List(i, j)
            Next
        ElseIf Not IsEmpty(ListBox2.List(i, 5)) And Dic.Exists(ListBox2.List(i, 5)) Then
            x = Dic.Item(ListBox2.List(i, 5))
            Arr(x, 8) = Format(CLng(Arr(x, 8)) + CLng(ListBox2.List(i, 7)), "#,##0")    'cong don so luong
            Arr(x, 10) = Format(CLng(Arr(x, 8)) * CLng(ListBox2.List(i, 8)), "#,##0")   'tinh TT moi
            'Arr(x, 11) = Val(Arr(x, 11)) + Val(ListBox2.List(i, 10))                   'cong don VAT - chua ro cong thuc tinh the nao. ban tu tinh
        End If
    Next
    ListBox2.clear
    ListBox2.List = Arr
End Sub
và thêm vào dòng cuối của sự kiện double click Private Sub lstDMsanpham_DblClick(ByVal Cancel As MSForms.ReturnBoolean) code này:
Mã: 
If ListBox2.ListCount <> 0 Then Test_Group_Listbox
 
Upvote 0
qtm1987 đã viết:
Bạn thử thêm sub Test_Group_Listbox() này:
Mã: 
'cong gop so luong neu cung Ma hang trong Listbox2
Sub Test_Group_Listbox()
    Dim i As Long, j As Long, k As Long, x As Long
    Dim Dic As Object
    Dim Arr()
    Set Dic = CreateObject("Scripting.Dictionary")
    ReDim Arr(1 To ListBox2.ListCount, 1 To 11)
    For i = 0 To ListBox2.ListCount - 1
        If Not IsEmpty(ListBox2.List(i, 5)) And Not Dic.Exists(ListBox2.List(i, 5)) Then
            k = k + 1
            Dic.Add ListBox2.List(i, 5), k
            For j = 0 To 10
                Arr(k, j + 1) = ListBox2.List(i, j)
            Next
        ElseIf Not IsEmpty(ListBox2.List(i, 5)) And Dic.Exists(ListBox2.List(i, 5)) Then
            x = Dic.Item(ListBox2.List(i, 5))
            Arr(x, 8) = Format(CLng(Arr(x, 8)) + CLng(ListBox2.List(i, 7)), "#,##0")    'cong don so luong
            Arr(x, 10) = Format(CLng(Arr(x, 8)) * CLng(ListBox2.List(i, 8)), "#,##0")   'tinh TT moi
            'Arr(x, 11) = Val(Arr(x, 11)) + Val(ListBox2.List(i, 10))                   'cong don VAT - chua ro cong thuc tinh the nao. ban tu tinh
        End If
    Next
    ListBox2.clear
    ListBox2.List = Arr
End Sub
và thêm vào dòng cuối của sự kiện double click Private Sub lstDMsanpham_DblClick(ByVal Cancel As MSForms.ReturnBoolean) code này:
Mã: 
If ListBox2.ListCount <> 0 Then Test_Group_Listbox
Nhấp chuột vào đây để mở rộng...
đúng ý mình luôn bạn ơi. tuyệt vời ông mặt trời...cám ơn bạn nhiều nhiều nha.....
 
Upvote 0
qtm1987 đã viết:
Bạn thử thêm sub Test_Group_Listbox() này:
Mã: 
'cong gop so luong neu cung Ma hang trong Listbox2
Sub Test_Group_Listbox()
    Dim i As Long, j As Long, k As Long, x As Long
    Dim Dic As Object
    Dim Arr()
    Set Dic = CreateObject("Scripting.Dictionary")
    ReDim Arr(1 To ListBox2.ListCount, 1 To 11)
    For i = 0 To ListBox2.ListCount - 1
        If Not IsEmpty(ListBox2.List(i, 5)) And Not Dic.Exists(ListBox2.List(i, 5)) Then
            k = k + 1
            Dic.Add ListBox2.List(i, 5), k
            For j = 0 To 10
                Arr(k, j + 1) = ListBox2.List(i, j)
            Next
        ElseIf Not IsEmpty(ListBox2.List(i, 5)) And Dic.Exists(ListBox2.List(i, 5)) Then
            x = Dic.Item(ListBox2.List(i, 5))
            Arr(x, 8) = Format(CLng(Arr(x, 8)) + CLng(ListBox2.List(i, 7)), "#,##0")    'cong don so luong
            Arr(x, 10) = Format(CLng(Arr(x, 8)) * CLng(ListBox2.List(i, 8)), "#,##0")   'tinh TT moi
            'Arr(x, 11) = Val(Arr(x, 11)) + Val(ListBox2.List(i, 10))                   'cong don VAT - chua ro cong thuc tinh the nao. ban tu tinh
        End If
    Next
    ListBox2.clear
    ListBox2.List = Arr
End Sub
và thêm vào dòng cuối của sự kiện double click Private Sub lstDMsanpham_DblClick(ByVal Cancel As MSForms.ReturnBoolean) code này:
Mã: 
If ListBox2.ListCount <> 0 Then Test_Group_Listbox
Nhấp chuột vào đây để mở rộng...
Bị nghiện dùng Dictionary hay sao vậy bạn.
 
Upvote 0
snow25 đã viết:
Bị nghiện dùng Dictionary hay sao vậy bạn.
Nhấp chuột vào đây để mở rộng...
Không phải đâu bạn. Do chủ đề của thớt cũng giống cái form mình làm việc hàng ngày và theo gợi ý #2 của bạn nên mình kết hợp tận dụng code có sẵn đó thôi. Mình nghĩ chắc sẽ có nhiều cách khác hay hơn nữa.
 
Upvote 0
qtm1987 đã viết:
Không phải đâu bạn. Do chủ đề của thớt cũng giống cái form mình làm việc hàng ngày và theo gợi ý #2 của bạn nên mình kết hợp tận dụng code có sẵn đó thôi. Mình nghĩ chắc sẽ có nhiều cách khác hay hơn nữa.
Nhấp chuột vào đây để mở rộng...
Bài này chỉ cần làm vòng lặp bình thường là được rồi.
 
Upvote 0
snow25 đã viết:
Bài này chỉ cần làm vòng lặp bình thường là được rồi.
Nhấp chuột vào đây để mở rộng...
for minh dung các kiểu con đà điểu rồi , vẩn cộng dồn dòng 1 ok , nhưng nó lại thêm dòng nửa khi n=2...nghỉ hoài ma ko ra... gio thi ok rồi, cám ơn các bạn trong diển đàn nhiều nha
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

Huy@@*
Tách NKC Nhiều nợ, nhiều có VBA
Trả lời
5
Đọc
85
Maika8008
Maika8008
E
  • Question
Tạo bảng lọc theo điều kiện
Trả lời
7
Đọc
100
Hoàng Tuấn 868
H
N
Giúp em hàm Aggregate không chạy được trên Google sheet ah
Trả lời
3
Đọc
35
BuiQuangThuan
B
Huy@@*
Giải đáp giùm em, cách khắc phục lỗi này trên VBA
2
Trả lời
20
Đọc
248
nttrung_proneu
nttrung_proneu
Bùi Thúy Thúy
  • Question
Lấy dữ liệu thời tiết Accuweather để điền vào nhật ký thi công
2 3 4
Trả lời
62
Đọc
18K
HeSanbi
HeSanbi
B
Nhờ anh/chị giúp em tìm hàm cho công thức tính lương
Trả lời
0
Đọc
38
Bobomkkk
B
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
174
Đọc
9K
tienphat85
tienphat85
H
Timesheet: Excel hay Power Apps/ Forms? Cách sắp xếp dữ liệu?
Trả lời
4
Đọc
352
duykhanh3488
D
vova2209
Index kết hợp với match 2 điều kiện
Trả lời
14
Đọc
1K
dunghtgiga
dunghtgiga
D
  • Question
Xin cách tạo tab và button cho Add-in trên ribbon Maintabs
Trả lời
2
Đọc
84
Decepticon
D
N
cộng các dữ liệu không trùng nhau
Trả lời
12
Đọc
187
Nguyễn Hiền1508
N
T
Chèn dữ liệu từ sheet này qua sheet khác theo điều kiện
Trả lời
3
Đọc
125
HieuCD
H
T
Trùng 2 lần: Tìm dữ liệu nhiều điều kiện
Trả lời
0
Đọc
75
Thulib
T
N
  • Question
Xin mã code ẩn hiện dòng theo điều kiện
Trả lời
10
Đọc
110
Nguyễn Diêu Hiền
N
K
  • Question
Sử dụng Power Query để xử lý nhật ký chung nhiều nợ nhiều có
    • Cười
Trả lời
11
Đọc
198
quocphuoc88
quocphuoc88
N
Công thức tính số phù hợp với % mong muốn
Trả lời
9
Đọc
158
CHAOQUAY
C
B
Giúp em xử lý lỗi macro khi chạy VBA
2
Trả lời
21
Đọc
452
huhumalu
H
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
6
Đọc
334
DeTong
D
T
cả nhà hỗ trợ giúp em là em phải dùng hàm gì cho đúng ạ, em làm mãi không được
    • Cười
Trả lời
2
Đọc
99
DeTong
D
nguyenanhhoa
Nhờ các bác giúp: e muốn tô màu khác nhau đối với các ô giống nhau về giá trị
    • Cười
Trả lời
7
Đọc
141
SA_DQ
SA_DQ
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom