quykh
Chim non
- Tham gia
- 7/9/11
- Bài viết
- 381
- Được thích
- 46
- Giới tính
- Nữ
- Nghề nghiệp
- Công Nhân
Em có viết đoạn code để ghi giá trị của textbox vào sheet nhưng chưa đúng ý em lắm. Code đây Ah:
Mã:
Private Sub ghisheet_Click()
Dim i As Integer, n As Long
If tbx_DH = "" Then MsgBox ("Ban chua nhap Don Hang"), , "A.QUANG": Exit Sub
If ListBox2.ListCount = 0 Then MsgBox ("ban chua cap nhat Noi dung vao Listbox"), , "A.QUANG": Exit Sub
Application.ScreenUpdating = False 'giup code chay. nhanh hon
irow = Sheet2.[D65536].End(3)(2).Row 'xac dinh row cuoi cung` chua' du~ lieu
For i = 0 To ListBox2.ListCount - 1
Sheet2.Cells(irow + n, 4) = Trim(tbx_DH)
Sheet2.Cells(irow + n, 5) = Trim(tbx_NH)
Sheet1.Cells(irow + n, 7) = Trim(tbx_DH) <-----[B][COLOR=#ff0000]chổ này em muốn lấy giá trị của tbx_DH và tbx_SL ghi vào sheet1[/COLOR][/B]
Sheet1.Cells(irow + n, 8) = Trim(tbx_SL) [B][COLOR=#ff0000]nhưng nó lại ghi ra 2 dòng của tbx_DH và tbx_SL, ý em chi muốn ghi 1 dòng thôi, chắc do giá trị vóng lặp n. Mong mọi người chỉnh giúp!!!!![/COLOR][/B]
With ListBox2
Sheet2.Cells(irow + n, 6) = .List(i, 1) 'THH
Sheet2.Cells(irow + n, 7) = .List(i, 0) 'MS
Sheet2.Cells(irow + n, 8) = .List(i, 2) 'DVT
Sheet2.Cells(irow + n, 9) = .List(i, 3) 'SL
End With
n = n + 1
Next
tbx_DH = ""
tbx_NH = ""
ListBox2.Clear
tbx_DH.SetFocus
Application.ScreenUpdating = True
MsgBox ("cap nhat xong"), , "A.QUANG"
End Sub
