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

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi SA_DQ, 22 Tháng chín 2005.

5,315 lượt xem

  1. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    428
    Đã được thích:
    34
    Nơi ở:
    HCM city
    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!!!
     
    Last edited: 22 Tháng chín 2005
    #1
  2. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    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.
     
    #2
  3. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
    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!
     
    #3
  4. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    428
    Đã được thích:
    34
    Nơi ở:
    HCM city
    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à?!
     
    Last edited: 26 Tháng chín 2005
    #4
  5. Tuanktcdcn

    Tuanktcdcn Lão già ham vui

    Bài viết:
    548
    Đã được thích:
    50
    Nơi ở:
    Hà Nội
  6. workman

    workman Thành viên hoạt động

    Bài viết:
    372
    Đã được thích:
    0
    Nơi ở:
    Ho Chi Minh
    Đã 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é
     
    #6
  7. SA_DQ

    SA_DQ Thành viên thân thiết

    Bài viết:
    428
    Đã được thích:
    34
    Nơi ở:
    HCM city
    Mình viết lại ở bài N#4 ấy, coi & giúp mình tiếp nha!

    Cám ơn nhiều!
    Ngày 10/10: http://www.webketoan.com/forum/showthread.php?t=9963
     
    Last edited: 10 Tháng mười 2005
    #7
  8. td8177

    td8177 Thành viên sơ cấp

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    Tp HCM
    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
     
    #8
  9. Bình_OverAC

    Bình_OverAC Over Abnormal / Crazy

    Bài viết:
    845
    Đã được thích:
    7
    Nơi ở:
    Nha Trang

Chia sẻ trang này