Dùng ComboBox hiện nội dung các chương sách?

  • Thread starter Thread starter SA_DQ
  • Ngày gửi Ngày gửi
S

SA_DQ

Cao cấp
Tôi định mô tả khái quát 1 quyển luật nào đó, VD luật này có 8 chương; mỗi chương có một số điều cụ thể khác nhau; Tôi muốn là khi bấm chọn từ 1 Combo ở chương nào thì ngoài tiêu đề chương hiện ra, còn hiện các điều khoản của chương ấy ở các ô dưới; như
2. Chương 2
Điều 5:. . . . . . .
Điều 6: . . . . . .
. . . . . .
Điểu 13:. . . . .
(Nều chọn chương khác thì sẽ hiển thị các điều chương tương ứng đó); Xin các Bác chỉ giáo cho, có phải dùng VBE hay chỉ EXCEL đơn thuần?!
Cám ơn các Bác trước, nhiều lắm!!!
 
Sửa lần cuối:
SA_DQ nói:
Tôi định mô tả khái quát 1 quyển luật nào đó, VD luật này có 8 chương; mỗi chương có một số điều cụ thể khác nhau; Tôi muốn là khi bấm chọn từ 1 Combo ở chương nào thì ngoài tiêu đề chương hiện ra, còn hiện các điều khoản của chương ấy ở các ô dưới; như
2. Chương 2
Điều 5:. . . . . . .
Điều 6: . . . . . .
. . . . . .
Điểu 13:. . . . .
(Nều chọn chương khác thì sẽ hiển thị các điều chương tương ứng đó); Xin các Bác chỉ giáo cho, có phải dùng VBE hay chỉ EXCEL đơn thuần?!
Cám ơn các Bác trước, nhiều lắm!!!
Nhấn để mở rộng...

Bác SA DQ thân mến ơi

Cái này bác chuyển qua Access làm cái một, vừa nhanh vừa tiết kiệm nơ-ron thần kinh.

Trong excel thì bác làm bằng Combo kết hợp với Vlookup là có thể giải quyết được, nhưng không đẹp bằng Access.
 
Bạn tạo một danh mục[Sheet] TOMTAT-"Tóm tắt sách..."
Gồm các cột:
|Mã chương| Tên chương | Tóm tắt |
Đặt tên (Define name) table/ danhmục này là "TOMTAT"
Vào môi trường VBA làm như sau:
1-Tạo Form
2-Thêm 1 ComboBox: Name="ComboBox1"
3-Thêm 1 TextBox: Name="TextBox1"

Soạn các lệnh trong UserForm

'===========================================
Const cVUNGDM="TOMTAT"
'===========================================
Private Sub UserForm_Initialize()
With ComboBox1
.RowSource = "TOMTAT"
.ColumnCount = 2
.BoundColumn = 1
.ColumnWidths = "20;100"
End With

With TextBox1
.MultiLine = True
.WordWrap = True
End With

End Sub
'======Tạo hàm Vlookup trong VBA================
'Getvalue=Vlookup trong EXCEL
Function Getvalue(ByVal Ma As String, Cottrave As Integer)
On Error GoTo LOI:
Dim Vung As Range
Set Vung = Application.Range(cVUNGDM)
Getvalue = Application.WorksheetFunction.VLookup(Ma, Vung, Cottrave, 0)

LOI:
Set Vung = Nothing
If Err.Number <> 0 Then
Getvalue = ""
'MsgBox "[" & Err.Number & "]" & Err.Description, vbExclamation, "Loi"
End If
End Function
'===========================================
Private Sub ComboBox1_Change()
Dim cValue As String
If ComboBox1.Value = "" Then Exit Sub
cValue = Getvalue(ComboBox1.Value, 3)

If cValue = "N/A" Then cValue = ""
TextBox1.Text = Getvalue(ComboBox1.Value, 3) ' & chr(13) & Getvalue(ComboBox1.Value, n)
End Sub
'===========================================

Chúc bạn thành công!
 
SA_DQ nói:
Rất cám ơn ban Tuan_ & W. đã chỉ giáo; Khi nào có kết quả sẽ thông báo & trình diện quyễn sách ĐT đầu tay nếu các Bác có thời gian để xem & góp ý cho đứa con của Mình!
Cho Mình hỏi thêm bạn Tuan_ & các bạn EXCELLIZM khác, có cách khác thuần tuý Excel nào để lấy giá trị chứa trong Combobox được không vậy;
:dzo: :two: :dzo: :atom:
Nhấn để mở rộng...
Đã gửi 1 cái file "thuần túy" vào email cho bạn. Bạn xem thử có xài được không nhé
 
workman nói:
Đã gửi 1 cái file "thuần túy" vào email cho bạn. Bạn xem thử có xài được không nhé
Nhấn để mở rộng...
Hi bạn, bạn có thể gửi thêm 1 cái "thuần túy" lên mạng để mình có thể xem được không?Tks bạn nhiều nhiều
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top