Làm thế nào đưa dữ liệu từ TextBox xuống ListBox -> Sh! (1 người xem)

[ThuNghi]

Làm thế nào đưa dữ liệu từ TextBox xuống ListBox -> Sh!
Tôi làm thử 1 ví dụ như sau:
FormNhap có 2 TextBox, khi nhập xong, nhấn Gan thì nó sẽ cho xuống ListBox và nhập tiếp.
Khi nhập xong hết. Nhấn 1 nút thì tòan bộ ListBox đưa vào Sh.
Xin HD cách làm theo file.
Cám ơn!

 

[sealand]

Thu Nghi ơi, bạn mắc lỗi 2 điểm:
1.viết sai cú pháp: ListBox1.AddItem = iR sửa Listbox1.AddItem iR
Ví dụ: Listbox1.AddItem "Thu Nghi"
2.Item của Listbox là dạng Text nhưng bạn đã khai là Integer thì phải viết như sau:

Listbox1.AddItem Str(iR)

Code nhập DL
(Chưa test nha)

Sub Nhap()
Dim dong, i As Integer
dong = Sheet1.Range("A65536").End(xlUp).Row + 1
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.ListIndex = i
Sheet1.Cells(dong, 1) = dong - 1
Sheet1.Cells(dong, 2) = Me.ListBox1.List(, 1)
Sheet1.Cells(dong, 3) = Me.ListBox1.List(, 2)
Next
End Sub

Thu Nghi kiểm tra giùm (Nhớ bổ xung cột cho Listbox)

 

[ThuNghi]

Thu Nghi ơi, bạn mắc lỗi 2 điểm:
1.viết sai cú pháp: ListBox1.AddItem = iR sửa Listbox1.AddItem iR
Ví dụ: Listbox1.AddItem "Thu Nghi"
2.Item của Listbox là dạng Text nhưng bạn đã khai là Integer thì phải viết như sau:

Listbox1.AddItem Str(iR)

Code nhập DL
(Chưa test nha)

Sub Nhap()
Dim dong, i As Integer
dong = Sheet1.Range("A65536").End(xlUp).Row + 1
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.ListIndex = i
Sheet1.Cells(dong, 1) = dong - 1
Sheet1.Cells(dong, 2) = Me.ListBox1.List(, 1)
Sheet1.Cells(dong, 3) = Me.ListBox1.List(, 2)
Next
End Sub

Cái phần đưa xuống Sh thì ổn rồi. Em muốn khi nhập vào các TextBox thì gán sẽ đưa lần lượt xuống ListBox theo thứ tự: STT---TextBox1---TextBox2
Khi nhấn Dua Vao Sh thì ListBox.clear và cứ như thế, giống như nhập hóa đon mua hàng.
Anh làm giúp em file trên luôn. Em đang mày mò cái này, thấy khó quá.

 

[Mr Okebab]

Làm thế nào đưa dữ liệu từ TextBox xuống ListBox -> Sh!
Tôi làm thử 1 ví dụ như sau:
FormNhap có 2 TextBox, khi nhập xong, nhấn Gan thì nó sẽ cho xuống ListBox và nhập tiếp.
Khi nhập xong hết. Nhấn 1 nút thì tòan bộ ListBox đưa vào Sh.
Xin HD cách làm theo file.
Cám ơn!

Bác xem nhé :

Gán từ Textbox vào Listbox

Private Sub CMGan_Click()
    On Error Resume Next
    Dim i As Long
    With Me
        If .TBTitte01 = "" Or .TBTitte02 = "" Then Exit Sub
        i = .LBox.ListCount
        .LBox.AddItem (Format(i + 1, "00")) ' Cot dau tien
        .LBox.List(i, 1) = .TBTitte01        ' Cot thu 2
        .LBox.List(i, 2) = .TBTitte02         ' Cot thu 3
    End With
End Sub

Gán từ Listbox vào Sheet

Private Sub CMSave_Click()
    On Error Resume Next
    Dim HC As Long, iLB As Long
    With Sheet1
        HC = .Range("A65000").End(xlUp).Row
        For iLB = 0 To Me.LBox.ListCount - 1
            HC = HC + 1
            .Range("A" & HC) = HC - 1
            .Range("B" & HC) = Me.LBox.List(iLB, 1)
            .Range("C" & HC) = Me.LBox.List(iLB, 2)
        Next
    End With
    Me.LBox.Clear
End Sub

Tuy nhiên bác dùng Listview sẽ đẹp hơn nhiều
Dĩ nhiên Code còn thiếu các tình huống xảy ra : Trước khi Add dữ liệu thì phải kiểm tra xem dữ liệu đó đã có hay chưa ?? Nếu có rồi thì thông báo, và nếu chưa có thì tiến hành Add

Thân!

 

[sealand]

To Thu Nghi: Mình đã gủi bài nạp Listbox nhưng nay không thấy đâu.Nay mình gửi ví dụ của bạn dùng Listview thay Listbox. Minh tham gia với bạn nên dùng Listview trông mỹ quan và tiện ích hơn nhiều. Bạn kiểm tra xem câu lệnh không khác nhau nhiều, không phức tạp thêm chút nào cả.

 

[thenguyen007]

-mình tải file copy of hoivebox.xls và file hoivebox.xls về nhưng sau mình làm một cái listview giống vậy nhưng no bị lỗi.
- không biết có đặt các thông số gì trong propertie gì nữa không vậy, minhd đã đặt các thông số giống như của bạn rồi.
- vào tiêu đề các cột của mình không thấy xuất hiện??
- listview của mình có 6 cột.- bạn chỉ mình với. thanhks