-
05-26-2009, 04:50 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
cách hiển thị theo từng dòng và cột trong textbox
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:
- Dùng hàm cơ sở dữ liệu để thống kê nhân sự theo độ tuổi, thâm niên & học vấn (hỗ trợ bỡi VBA)
- in phiếu thu, chi
- excel lỗi
- Gán giá trị cho 1 cell
- Lập trình VBA nhập môn
- Các bạn ơi , lập công thức bài ễcl này giúp mình với ...!
- cần các bạn giúp
- Bổ Sung Dùm Code Lập Cân Đối Kế Toán
- Tạo nút lệnh quay trở lại
- Xóa vùng các dòng một khi 1 ô trong vùng đạt điều kiện (cần xóa)
-
05-26-2009, 05:14 PM #2Silver member
- Ngày tham gia
- Mar 2016
- Bài viết
- 0
Ðề: 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!
-
05-29-2009, 12:19 AM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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
-
05-29-2009, 06:22 AM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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.
-
05-30-2009, 03:51 AM #5Silver member
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: 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
-
05-30-2009, 07:26 AM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
- Xuất tinh sớm: Bệnh này ảnh hưởng lớn đến hạnh phúc lứa đôi. Xuất tinh sớm khiến nam giới tự ti, ngần ngại khi quan hệ, bạn tình khó thỏa mãn khi quan hệ. bộc lộ là nam giới thường khó kiểm soát...
Các bệnh về chức năng sinh dục ở quý ông