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:

• Xin file maro excel kế toán trường học!!
• Sao chép dữ liệu từ file đến file
• Xin cao thủ VBA chỉ dạy
• Hàm tự tạo trả về mảng các giá trị
• Cần hỗ trợ code VBA
• Giúp mình hàm copy dữ liệu từ sheet này sang sheet khác với các điều kiện
• tạo máy tính bằng vba trong excel
• Giúp tối ưu Marco trong Excel
• Properties của UserForm
• cách sổ danh sách trong combobox

[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