tự tạo Data list cho cells (1 người xem)

[thohovietnam]

chào cả nhà : mình có vấn đề này cần các bác chỉ hộ:
có danh sách được nhập từ form gồm
_họ tên
_ nghề nghiệp
_ tuổi
sau khi khai báo 1 mãng trong VBA nhận tất cả dữ liệu trên thì cần xuất ra cells trong sheet bao gồm:
- 1 cells chứa họ tên
- 1 cells được tự động tạo data kiểu list để nhận 2 thông số nghề nghiệp và tuổi .
nhờ các bác chỉ hộ cách viết câu lệnh trong VBA để cell chứa nghề nghiệp và tuổi tự động chuyển thành data kiểu list và chứa 2 giá trị trên
Mỗi lời chỉ bảo của các bác sẽ giúp mình rất nhiều cảm ơn cả nhà.

 

[dmtdmtbb]

- Bạn nên cho file vd kèm chú thích, có thế thì việc mới mau. Thân !!!
- Ví dụ để bạn tham khảo:
+ Tạo 1 UserForm
+ Tạo 3 textbox tên Textbox1,Textbox2,Textbox3
+ tạo 2 button đặt tên CommandButton1,CommandButton2
- Nhập vào code sau

[COLOR=yellowgreen]''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Private Sub CommandButton1_Click()
Dim iRow As Long
Set ws = ActiveSheet
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then
    MsgBox "Ban chua nhap day du thong tin. Vui long nhap tiep!", , "THONG BAO !"
    Exit Sub
End If
    iRow = ws.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
    ws.Cells(iRow, 1).Value = TextBox1
    ws.Cells(iRow, 2).Value = TextBox2
    ws.Cells(iRow, 3).Value = TextBox3
End Sub
[COLOR=yellowgreen]''''''''''''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Private Sub CommandButton2_Click()
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
End Sub
[COLOR=yellowgreen]'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''[/COLOR]
Private Sub UserForm_Initialize()
    With CommandButton1
      .Width = "30"
      .Height = "18"
      .Caption = "Ok"
      .Accelerator = "O"
    End With
    With CommandButton2
      .Width = "30"
      .Height = "18"
      .Caption = "Clear"
      .Accelerator = "C"
    End With
    TextBox1 = "Ho ten"
    TextBox2 = "Nghe nghiep"
    TextBox3 = "Tuoi"
End Sub

 

[Thien]

Bác dmtdmtbb sao bác không gửi file mẫu lên luôn đi.

TC.

 

[thohovietnam]

mình không biết nói thế nào nhưng đại loại là như thế này các bác àh

 

[dmtdmtbb]

Bác dmtdmtbb sao bác không gửi file mẫu lên luôn đi.
TC.

- Mình không gởi file mẫu vì muốn bạn tập làm quen với VBA.
- Mọi thứ đã được làm sẵn, bạn chỉ việc vào VBA tạo ra form, 3 textbox và 2 button rồi nhập code sau vào là được.

 

[dmtdmtbb]

mình không biết nói thế nào nhưng đại loại là như thế này các bác àh

- Sao không gởi file mẫu mà gởi hình nhỉ !
File VD

 

[thohovietnam]

đoạn code như thế này bác ạh.

dim tuoi(50), nghe(50) as Range
dim n, i as Integer
-------------------------
n=2
private sub commandButton1()
if cells(n-1,"A").value <> "" then
cells(n,"A").value = TextBox1.text
tuoi(n) = TextBox2.text
nghe(n) = TextBox3.text
n=n+1
end if
end sub
--------------------------------
private sub commandButton2()
for i = 2 to n
em pó tay chổ đây bác ạh
' thì cells(i,"B") sẽ add tuoi(i) và nghe(i) vào thành 1 list
next i
end sub
--------------
vấn đề là như thế bác ơi
mong bác chỉ bảo thêm
cảm ơn và chúc 2/9 vui vẻ

 

[dmtdmtbb]

- Bạn tải lại file VD ở post 6, đã sửa lại link

 

[thohovietnam]

oh very hay cảm ơn bác đã chia sẽ kinh nghiệm ... thank alot chúc bác nhiều thành công ... cảm ơn cả nhà ...