Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
listbox
Private Sub Bnt_ThemThongTin_Click()
Dim data() As Variant
Dim rowCount As Long
Dim colCount As Long
' S? hàng và c?t c?a d? li?u
rowCount = 1
colCount = 4
' Kh?i t?o m?ng d? li?u
ReDim data(1 To rowCount, 1 To colCount)
' Gán d? li?u vào m?ng
data(1, 1) = "A1"
data(1, 2) = "B1"
data(1, 3) = "C1"
data(1, 4) = “D1”
'' Xóa d? li?u hi?n có trong Listbox (n?u có)
'ListBox1.Clear
' Hi?n th? d? li?u trong Listbox
Dim i As Long
Dim j As Long
For i = 1 To rowCount
Dim rowText As String
For j = 1 To colCount
rowText = rowText & data(i, j) & vbTab ' S? d?ng tab d? ngan cách các c?t
Next j
Lb_DsNhapXuat.AddItem rowText ' Thêm dòng d? li?u vào Listbox
Next i
End Sub
em muốn mỗi lần bấm nút thêm sẽ thêm 1 dòng và nhiu cột. và trong listbox này sẽ có nhiều dòng dữ liệu
khi bấm lưu sẽ lưu danh sách của listbox này xuống sheets. nhờ thầy chỉ giúp ạ
.png)
13 câu trả lời
35 lượt xem
vỗ tay
Sub THEMCT()
Dim DC&
DC = Me.LSTDL.ListCount
Me.LSTDL.AddItem str(1 + DC)
Me.LSTDL.List(DC, 6) = Me.txt_dien_giai
Me.LSTDL.List(DC, 7) = Me.cbb_ntk
Me.LSTDL.List(DC, 8) = Me.cbb_ctk
Me.LSTDL.List(DC, 9) = Me.txt_so_tien
End Sub
ghi dữ liệu vào list box
Sau đó duyệt listbox vào array rồi ghi vào sheets là xong
vỗ tay
dạ e cảm ơn ạ
vỗ tay
.png)
Private Sub CommandButton1_Click()
Dim DC
Lb_NhapXuat.ColumnCount = 22
DC = Me.Lb_NhapXuat.ListCount
Me.Lb_NhapXuat.AddItem Str(1 + DC)
Me.Lb_NhapXuat.List(DC, 1) = "A"
Me.Lb_NhapXuat.List(DC, 2) = "B"
Me.Lb_NhapXuat.List(DC, 3) = "C"
Me.Lb_NhapXuat.List(DC, 4) = "D"
Me.Lb_NhapXuat.List(DC, 5) = "E"
Me.Lb_NhapXuat.List(DC, 6) = "F"
Me.Lb_NhapXuat.List(DC, 7) = "G"
Me.Lb_NhapXuat.List(DC, 8) = "H"
Me.Lb_NhapXuat.List(DC, 9) = "A"
Me.Lb_NhapXuat.List(DC, 10) = "B"
Me.Lb_NhapXuat.List(DC, 11) = "C"
Me.Lb_NhapXuat.List(DC, 12) = "D"
Me.Lb_NhapXuat.List(DC, 13) = "E"
Me.Lb_NhapXuat.List(DC, 14) = "F"
Me.Lb_NhapXuat.List(DC, 15) = "G"
Me.Lb_NhapXuat.List(DC, 16) = "H"
Me.Lb_NhapXuat.List(DC, 17) = "A"
Me.Lb_NhapXuat.List(DC, 18) = "B"
Me.Lb_NhapXuat.List(DC, 19) = "C"
Me.Lb_NhapXuat.List(DC, 20) = "D"
Me.Lb_NhapXuat.List(DC, 22) = "E"
End Sub
THẦY XEM GIÚP E BỊ LỖI GÌ Ạ
vỗ tay
thầy ơi xem giúp em với ạ
vỗ tay
Bạn xem đúng tên listbox chưa?
vỗ tay
Dạ đúng rồi ạ. Tới dòng số 10 là bị lỗi ạ
vỗ tay
Tới cột 10
vỗ tay
Ở đây bạn đang để trùng tên cột là A bạn thử để không trùng xem
vỗ tay
Cái đó là dữ liệu đưa vào bảng không phải tên cột
vỗ tay
thầy xem giúp em
vỗ tay
Chào bạn do list box chỉ cho hiện thị bằng đó cột vào bằng cách thêm trực tiếp bạn sẽ thay bằng cách load từ mảng vào bạn nhé.
vỗ tay
THẦY CHO EM XIN CODE VỚI Ạ
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông