cách hiển thị theo từng dòng và cột trong textbox

[vaninice]

em có 1 bài tập làm tính chu kì trả nợ 1 khoản vay,về phần công thức thì làm được nhưng phần hiển thị thì pó tay,bác nào biết giúp giùm em 1 cái nha.

View more random threads:

• quản lý kho
• tạo máy tính bằng vba trong excel
• Cho em hỏi cách tạo 1 Combo Box
• Các bạn ơi , lập công thức bài ễcl này giúp mình với ...!
• làm dự toán
• Chuyển một chuỗi dạng công thức
• Tạo 1 sheet như Form để nhập liệu
• PHẦN MỀM KẾ TOÁN EXCEL
• bài tập Excel nâng cao
• lập phiếu thu -chi trên execl và in theo thứ tự

[bongdacc]

Ðề: cách hiển thị theo từng dòng và cột trong textbox

Có rất nhiều cách để đáp ứng yêu cầu của bạn. VD như dùng listview, subform, dataform,..

Bạn thử cách này xem nhé:

Đặt thuộc tính Defalt view của form là Continuous Forms, thuộc tính Record Souce của form là tên bảng hoặc tên query, hoặc câu lệnh chứa kết quả của bạn.

Tạo các textbox trong phần detail của form rồi buộc (bound) nó vào tên trường của dữ liệu nguồn.

Chúc thành công!

[saolaikhong]

Ðề: cách hiển thị theo từng dòng và cột trong textbox

trình độ vb của em gà lắm , bác có thể chỉ rõ cách sử dụng listbox trong excel ko,nếu được có thể làm cho em 1 ví dụ dùng listbox ,thanks trước

[leequyetkt]

Ðề: cách hiển thị theo từng dòng và cột trong textbox

Bạn mở VBA lên, tạo 1 cái Form rồi chèn 1 listbox vào form.
Bên cửa sổ Properties bạn chọn:
Column Count: Số cột
Rowsource: nguồn dữ liệu, ở Excel có thể chọn 1 vùng ví dụ A1:H12
Columns With: liệt kê bề rộng từng cột.
Trong file kèm theo có hình minh họa.

[toancauxanh123]

Ðề: cách hiển thị theo từng dòng và cột trong textbox

cám ơn bác nhiều ,cho em hỏi là nếu em ko có dữ liệu nguồn thì có cách nào hiển thị trưc tiếp trong listbox ko,tai bài tập của em ko cho dữ liệu sẵn trong excel,đây là bài tập của em,năm ở trang cuối cùng
http://www.mediafire.com/download.php?mtzz2nott2g

[hohuyn]

Ðề: cách hiển thị theo từng dòng và cột trong textbox

Nếu không lấy ngùôn dữ liệu có sẵn thì để trống RowSource.
Sau đó dùng AddItems để thêm 1 dòng vào listbox. Phát 10 lệnh AddItem thì được 10 dòng.
Kế đến là gán giá trị cho từng ô bằng:

object.List( row, column ) = biếnsố

Trong đó row và column bắt đầu từ 0 để chỉ dòng, cột đầu tiên.

Bài tập của bạn:

Sub nn()
Dim Nobandau, Laisuat, Soky, Duno, Tienlai, TraNoGoc, C11 As Double
Nobandau = 6000
Laisuat = 0.08
Soky = 10
UserForm1.ListBox1.AddItem
UserForm1.ListBox1.AddItem
UserForm1.ListBox1.List(0, 0) = "n"
UserForm1.ListBox1.List(1, 0) = " "
UserForm1.ListBox1.List(0, 1) = "Periodic"
UserForm1.ListBox1.List(1, 1) = "Payment "
UserForm1.ListBox1.List(0, 2) = "Payment "
UserForm1.ListBox1.List(1, 2) = "Interest"
UserForm1.ListBox1.List(0, 3) = "Payment "
UserForm1.ListBox1.List(1, 3) = "Principal"
UserForm1.ListBox1.List(0, 4) = "Balance"
UserForm1.ListBox1.List(1, 4) = " "
C11 = Pmt(Laisuat, Soky, Nobandau)
Duno = Nobandau
For m = 1 To Soky
Tienlai = Laisuat * Duno
TraNoGoc = -C11 - Tienlai
UserForm1.ListBox1.AddItem
UserForm1.ListBox1.List(m+1, 0) = m
UserForm1.ListBox1.List(m+1, 1) = Round(-C11, 2)
UserForm1.ListBox1.List(m+1, 2) = Round(Tienlai, 2)
UserForm1.ListBox1.List(m+1, 3) = Round(TraNoGoc, 2)
Duno = Duno - TraNoGoc
UserForm1.ListBox1.List(m+1, 4) = Round(Duno, 2)
Next
UserForm1.Show
End Sub