"Sắp nộp" là chuyện của bạn. Muốn người khác giúp thì hãy bỏ công ra mô tả cho người ta hiểu.
Bạn nên đăng bài mới hoàn toàn, như hiện nay đang là bài xen ngang!
Dạ, e xin lỗi ạ, em mới vào nên không Biết ạ
| Nội Dung bài của em là |
| 1: Khi nhấp vào nút Thêm sau đó nhập các thông tin vào các textbox: TXTmahopdong, TXTNgaythue, TXTNgaytra , TXTtienthue, Cbomamatbang |
| 2: Nhấp vào nút Ghi thì các thông tin đã thêm trên nhập xuống Sheet1 và cập nhập vào listbox |
| Em đã viết cod cho nút ghi xong mà e không biết sai chỗ nào, mỗi lần nhấn nút ghi thì excel khởi động lại và không nhập được vào sheet1 |
| Em xin lỗi và cảm ơn ạ! |
Tôi nhập dữ liệu trên Form rồi nhấn nút Ghi thì có thấy Excel khởi động lại đâu.
Hi, chắc máy e máy cùi bắp quá, mà anh nhìn thấy code em viết đúng phải ko
thank anh em đã hiểu ý của anh, anh ơi anh xem code Combobox dùm em, em muốn call các sheet mà em chọn để em nhập và tìm kiếm luôn mà ko cần thoát ra ngoài để chọn lại, theo như em hiểu thì cái tìm kiếm Use form của em nó sẽ hiện ra theo cái sheet Loc hiện tại, có cách nào ko cần ra sheet Lọc mà em vẫn có thể chọn sheet trực tiếp trên form luôn được ko anh, để em nhập và tìm kiếm lun ah anh, thank anh nhiều
Bạn viết khó hiểu quá. Hãy viết theo kiểu liệt kê các thao tác liên tiếp theo trình tự. Vd.: "Khi hiển thị Form thì em muốn nhập "cái này" vào ..., chọn gì đó trong ...., tiếp theo gãi chỗ này ..., búng chỗ kia ...., thọt lét cô kia ..., ghẹo cô nọ ... Cuối cùng em nhấn vào chỗ "nhạy cảm" này ... thì code phải làm thế này thế này."
ý em là trên use form chỗ chọn form nhập liệu. Em có thể chọn xem từng sheet khác được ko anh hay nó chỉ hiện được listbox tại sheet lọc thôi anh. Tại sheet lọc của em nó đang hiện sheet biendong xin lỗi anh em giải thích ko được rõ cho lắm
"trên use form chỗ chọn form nhập liệu"? Bạn chỉ có 1 UserForm là QuanLyKho. Thế thì "trên UserForm chỗ chọn Form nhập liệu" có ngĩa là gì? Hãy tập viết chính xác, đừng cẩu thả.
"chọn xem từng sheet khác"? Ở đâu?
Tôi đã nói rồi. Code GHI không làm việc gì tới mức Excel phải khởi động lại.
Sheet1.Range("C" & DongTrongCuoi).Value = CDate(txtNgaythue)DongTrongCuoi = Sheet1.Range("A200").End(xlUp).Row + 1dongcuoi = sheet_hopdong.Range("A" & Rows.Count).End(xlUp).Rowdongcuoi = sheet_hopdong.Range("A1000").End(xlUp).RowDim DongTrongCuoi As Integer
Dim dongcuoi, i As IntegerNghĩa là trong use form, chỗ chọn sheet nhập liệu, combobox em đã nạp các giá trị: loc,biendong, bdhg, vinhlong, hopnhat tương ứng với các sheet trong excel của em, em mún khi click vô các tên trên của combobox thì trên use form list box nó sẽ hiện ra tương ứng ah anh, hì ko biết em viết vậy có khó hiểu ko anh
Dạ em cảm ơn anh ạ, bài trả lời rất chi tiết, Em đã chạy được cod rồi
Theo Hướng dẫn của anh e đã làm xong nút Ghi
Không cần thiết Sub ganSourceListbox()
Private Sub UserForm_Initialize()
With cbSheet
.AddItem "BienDong"
.AddItem "VinhLong"
.AddItem "BDHG"
.AddItem "HopNhat"
.AddItem "DongHa"
.AddItem "VPP"
End With
lstDanhSachVPP.ColumnCount = 12
cbSheet.ListIndex = 0
End Sub
Private Sub cbSheet_Change()
Dim lastRow As Long, r As Long, c As Long, count As Long, data(), result(), sh As Worksheet
If cbSheet.ListIndex = -1 Then Exit Sub
lstDanhSachVPP.Clear
Set sh = ThisWorkbook.Worksheets(cbSheet.Value)
With sh
lastRow = .Cells(Rows.count, "B").End(xlUp).Row
If lastRow < 9 Then Exit Sub
data = .Range("B9:L" & lastRow).Value
End With
For r = 1 To UBound(data)
If data(r, 1) <> "" Then
count = count + 1
ReDim Preserve result(1 To 12, 1 To count)
result(1, count) = count
For c = 1 To 11
result(c + 1, count) = data(r, c)
Next c
End If
Next r
lstDanhSachVPP.Column = result
End SubSau bữa chiều tôi phải nằm 2, 3 tiếng. Đến tối (ở VN là đêm) tôi sẽ xem.
1. frmcapnhat.
Sheet2.Range("tongtrigia").Cells(vitri, 1).Value = tongtienPrivate Sub UserForm_Initialize()
LstthongtinKH.ColumnCount = 5
' LstthongtinKH.ColumnWidths= ...
End Sub
Private Sub cmdtimkiem_Click()
Dim r As Long, c As Long, max_sum As Double, shd, Ma, data(), dic As Object
' lay du lieu Thue mat bang vao mang data
data = Range("Table1").Value
' dung tu dien dic de luu cac So hop dong voi tu cach la KEY va tong tien cua So hop dong do voi tu cach la ITEM
Set dic = CreateObject("Scripting.Dictionary")
' khong phan biet KEY hoa hay thuong
dic.comparemode = vbTextCompare
' duyet tung dong cua mang data
For r = 1 To UBound(data)
' neu dong hien hanh thoa dieu kien ve Ngay thi thuc hien
If data(r, 3) = CDate(txtNgaythue.Value) And data(r, 4) = CDate(txtNgaytra.Value) Then
' ghi ket qua vao ListBox
With LstthongtinKH
' ghi So hop dong
.AddItem data(r, 1)
' ghi cac thong tin khac
For c = 2 To 5
.List(.ListCount - 1, c - 1) = data(r, c)
Next c
End With
End If
Next r
' neu trong ListBox co ket qua (co du lieu thoa man 2 Ngay) thi thuc hien
If LstthongtinKH.ListCount Then
' lay tu ListBox vao mang data
data = LstthongtinKH.List
' duyet tung dong cua mang data de cong don tong tien cua moi So hop dong, xac dinh So hop dong co tong tien lon nhat
For r = LBound(data) To UBound(data)
' chi so cot va dong trong ListBox.List tinh tu 0
If dic.exists(data(r, 0)) Then
' da co So hop dong trong tu dien - cong don tong tien
dic.Item(data(r, 0)) = dic.Item(data(r, 0)) + data(r, 4)
Else
' chua co So hop dong trong tu dien - ghi So hop dong voi tu cach la KEY va tong tien hien hanh voi tu cach la ITEM
dic.Add data(r, 0), data(r, 4)
End If
' neu tong tien cua So hop dong hien hanh > max_sum thi cap nhat max_sum va So hop dong co max_sum
If dic.Item(data(r, 0)) > max_sum Then
shd = data(r, 0)
max_sum = dic.Item(shd)
End If
Next r
' ta tim So hop dong co max_sum, tuc shd, trong sheet HOP_DONG de tim ra Ma khach hang
' nhap du lieu tu HOP_DONG vao mang data
data = Range("Table2").Value
' duyet tung dong cua mang data
For r = 1 To UBound(data)
' neu So hop dong hien hanh = shd thi thuc hien
If data(r, 1) = shd Then
' doc ra Ma cua khach hang
Ma = data(r, 3)
' thoat vong lap vi da tim thay Ma cua khach hang co tong tien cao nhat
Exit For
End If
Next r
' neu tim thay Ma khach hang thi doc thong tin tu sheet KHACH_HANG
If Not IsEmpty(Ma) Then
' nhap du lieu tu KHACH_HANG vao mang data
data = Range("Table3").Value
' duyet tung dong cua mang data
For r = 1 To UBound(data)
' neu tim thay Ma khach hang thi thuc hien
If data(r, 1) = Ma Then
txtTenKH.Value = data(r, 2)
txtDiachi.Value = data(r, 3)
TXTSDT.Value = data(r, 4)
Exit For
End If
Next r
End If
End If
Set dic = Nothing
End SubCảm ơn anh, em đã làm được nhưng sao, chỗ tìm kiếm: textbox em đánh vào tìm kiếm thì listbox nó hiện ra không giống với combobox mà em đã chọn là sao vậy anh:
