tự tạo Data list cho cells

Liên hệ QC

thohovietnam

Thành viên mới
Tham gia ngày
22 Tháng tám 2007
Bài viết
5
Được thích
0
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

Biệt danh: xDelx
Tham gia ngày
24 Tháng năm 2007
Bài viết
306
Được thích
438
- 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
Mã:
[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

Thành viên thường trực
Tham gia ngày
23 Tháng sáu 2006
Bài viết
349
Được thích
110
Bác dmtdmtbb sao bác không gửi file mẫu lên luôn đi.

TC.
 

thohovietnam

Thành viên mới
Tham gia ngày
22 Tháng tám 2007
Bài viết
5
Được thích
0
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
 

File đính kèm

  • untitled.JPG
    untitled.JPG
    54.6 KB · Đọc: 63
Lần chỉnh sửa cuối:

dmtdmtbb

Biệt danh: xDelx
Tham gia ngày
24 Tháng năm 2007
Bài viết
306
Được thích
438
Thien đã viết:
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.
 

thohovietnam

Thành viên mới
Tham gia ngày
22 Tháng tám 2007
Bài viết
5
Được thích
0
đ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ẻ
 
Lần chỉnh sửa cuối:

dmtdmtbb

Biệt danh: xDelx
Tham gia ngày
24 Tháng năm 2007
Bài viết
306
Được thích
438
- Bạn tải lại file VD ở post 6, đã sửa lại link
 

thohovietnam

Thành viên mới
Tham gia ngày
22 Tháng tám 2007
Bài viết
5
Được thích
0
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à ...
 
Top Bottom