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

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

SA_DQ

Thành viên thân thiết
29/6/05
435
38
28
61
HCM city
#1
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:
W

workman

Cao cấp
22/7/05
372
0
0
46
Ho Chi Minh
#2
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!!!
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.
 
T

Tuanktcdcn

Lão già ham vui
18/6/04
548
51
28
41
Hà Nội
www.bluesofts.net
#3
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!
 
S

SA_DQ

Thành viên thân thiết
29/6/05
435
38
28
61
HCM city
#4
Cám ơn hai bạn Tuan_ & Workman!

Thuần tuý có nghĩa là không cần dùng VBA mà vẫn truy xuất được dữ liệu hiển thị trong Combox sau khi mình chọn ấy mà?!
 
Sửa lần cuối:
W

workman

Cao cấp
22/7/05
372
0
0
46
Ho Chi Minh
#6
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:
Đã 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é
 
T

td8177

Sơ cấp
14/6/05
10
0
0
Tp HCM
#8
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é
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
 

Thành viên trực tuyến

  • duongminhtue
  • binhminhsom



Xem nhiều