Mình hỏi về nhập từ textbox vào excel

[tuvuduy]

Mình tạo một box để nhập như hình dưới, trong đó gồm 2 textbox, 1 cho chi tiết và một dùng cho số lượng.


Nếu điền chi tiet là a và so luong là 3
Sau khi nhấn nút nhap nó sẽ nhập vào excel dạng



Mình mới bắt đầu nên chỉ biết có duy nhất một hàm để nhập vào

Cells(nextrow, 1) = box1.Text

mình thử làm một vòng lặp để sau mỗi lần lặp nó có thể điền vào như trên nhưng không được
đây là code của mình

Private Sub nhap_Click()
Dim nextrow As Long
Dim i As Integer


    Sheets("Sheet1").Activate

    nextrow = Application.WorksheetFunction. _
       CountA(Range("A:A")) + 1
    
    If box1.Text = "" Then
        MsgBox "You must enter a name."
        Exit Sub
    End If
    
' Vong lap minh muon  no sau moi lan lap se tu dong input vao cac dong tiep theo

For i = 0 To box2 Step 1

    Cells(nextrow, 1) = box1.Text
Cells(nextrow, 2) = box1.Text & "-" & i

Next


    box1.Text = ""
    box2.Text = ""
    box1.SetFocus
End Sub

File đính kèm :

Cho mình hỏi là có cách nào khác để nhập dữ liệu từ textbox vào excel ko?

Và nếu có thể thì giúp mình hoàn thiện đoạn code trên với ạ.

Cảm ơn mọi người.

 

[sealand]

Bạn chỉ cần thêm 1 dòng là được:



.....................................................

For i = 1 To box2 Step 1

Cells(nextrow, 1) = box1.Text
Cells(nextrow, 2) = box1.Text & "-" & i
nextrow = nextrow + i
Next
...........................................................

và
nextrow = Application.WorksheetFunction. _
CountA(Range("A:A"))

 

[tuvuduy]

Mình gặp một vấn đề là sau khi nhập liệu (bảng nhập mình dùng đoạn code trên để nhập) các thông tin như bảng sau (xin xem hình đính kèm), mình cần một hàm để tìm kiếm và nhập thông tin thêm ( ở đây là nhập vào hai cột "DAY (WELDING)" và "DAY (PAINTING)").



Mình tùy biến bừa để tìm cách tạo bảng để lấy thông tin và nhập thêm thông tin. mình tạo tạo một form như sau : ( xin xem hình đính kèm)



Thực ra để từ seach cho oai thế chứ chẳng qua đó là một hàm đếm, trong đó mình dùng vòng lặp để tạo ra một hàng khác làm tham khảo để tạo list box (ko đọc trực tiếp từ dữ liệu nhập trước đó).

Private Sub CommandButton1_Click()
Dim seachinput As Variant
Dim seachn As Double
Dim view As Integer
Dim i As Integer
seachinput = TextBox1.Text
Sheets("list").Activate
' ham dem cho ref
seachn = WorksheetFunction. _
CountIf(Range("A:A"), TextBox1)
' check input
If TextBox1.Text = "" Then
        MsgBox "You must enter name of Items."
        Exit Sub
    End If
'Xoa list ref
Worksheets("list").Range("U6:U200").ClearContents
Worksheets("list").Range("T6:T200").ClearContents


'tao list tham khao

view = Application.WorksheetFunction. _
       CountA(Range("T:T")) + 5
 For i = 1 To seachn Step 1
 Cells(view, 20) = TextBox1.Text
 Cells(view, 21) = TextBox1.Text & "-" & i
 view = view + 1
 Next
 view = Application.WorksheetFunction. _
CountA(Range("T:T"))

TextBox1.Text = ""
 TextBox1.SetFocus
End Sub

Vậy mình muốn hỏi có thế tạo một hàm tìm kiếm nào thể hiện trực tiếp list Items No. (detail) và thông tin từ hai cột "DAY (WELDING)" và "DAY (PAINTING)" tương ứng, đồng thời mình có thể nhập thông tin vào hai cột ấy (multi select).

Do mình vừa mò rồi vừa học nên đôi khi hỏi hơi ngớ ngẩn. Mong các bạn thông cảm.

Mình đính kèm file mình đang làm lên đây các bạn xem giúp.

Cảm ơn mọi người.

@sealand : mình dùng nextrow = nextrow + 1 ( nếu + i, i sẽ tăng theo số vòng lặp?). Cảm ơn bạn.