Chiêu 43: Thêm các danh sách có sẵn và cả danh sách tự tạo vào menu chuột phải Tạo một danh sách để fill trong Excel thông qua Fill handle là việc làm rất hay để nhanh chóng nhập danh sách các chuỗi số hoặc chuỗi văn bản vào bảng tính. Excel đã xây dựng sẵn một số Custom List về các ngày trong tuần (Sun - Sat), danh sách các tháng (Jan – Dec) và các chuỗi số nhưng bạn cũng có thể tự tạo thêm các danh sách mới cho mình. Phần này sẽ hướng dẫn bạn các...
Chiêu 43: Thêm danh sách có sẵn danh sách tự tạo vào menu chuột phải Tạo danh sách để fill Excel thông qua Fill handle việc làm hay để nhanh chóng nhập danh sách chuỗi số chuỗi văn vào bảng tính Excel xây dựng sẵn số Custom List ngày tuần (Sun - Sat), danh sách tháng (Jan – Dec) chuỗi số bạn tự tạo thêm danh sách cho Phần hướng dẫn bạn tạo thêm Custom List cho Fill Handle Trước tiên, bạn cần nhập vào danh sách phần tử cần đưa vào Custom List bảng tính Ví dụ bạn nhập 26 chữ ô A1:A26 Sheet1 Sau nhấn vào nút Office ➝ Excel Options ➝ Popular ➝ Edit Custom Lists (E2003: Tools ➝ Options ➝ Custom Lists) Nhấp chọn nút nằm bên trái nút Import dùng chuột quét chọn vùng liệu A1:A26 Sau nhấn nút Import OK Kể từ lúc danh sách chữ sử dụng để fill tất bảng tính máy tính Tiếp theo, để đưa Custom List vào thực đơn ngữ cảnh bạn nhấn tổ hợp ALT+F11 vào Insert ➝ Module Sau đó, bạn nhập vào đoạn mã sau: Comment [1]: BEGIN TEMPLATE: bbcode_code Code: Sub AddFirstList() Dim strList As String strList = Application.CommandBars.ActionControl.Caption If Not strList Like "* *" Then Exit Sub ActiveCell = Left(strList, InStr(1, strList, ".", vbTextCompare) - 1) End Sub[/highlight] Bạn kích chuột hai lần lên ThisWorkbook cửa sổ VBAProject nhập vào đoạn mã sau: [highlight=VB] Private Sub Workbook_SheetBeforeRightClick _ (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim cBut As CommandBarButton Dim lListCount As Long Dim lCount As Long Dim strList As String Dim MyList On Error Resume Next With Application lListCount = CustomListCount For lCount = To lListCount MyList = GetCustomListContents(lCount) strList = CommandBars("Cell").Controls(MyList(1) & " " & _ MyList(UBound(MyList))).Caption CommandBars("Cell").Controls(strList).Delete Set cBut = CommandBars("Cell").Controls.Add(Temporary:=True) W ith cBut Caption = MyList(1) & " " & MyList(UBound(MyList)) Style = msoButtonCaption OnAction = "AddFirstList" End With Next lCount End With On Error GoTo End Sub Đóng cửa sổ VBE lưu bảng tính lại Sau nhấp phải chuột vào bảng tính, bạn thấy Custom List dựng sẵn bạn tạo xuất trình đơn ngữ cảnh Comment [2]: END TEMPLATE: bbcode_code Muốn sử dụng, bạn cần nhấn chuột phải vào ô chọn, chọn list menu ngữ cảnh, bạn có giá trị thứ list Sau kéo Fill handle để fill list Mời bạn tham gia thảo luận tuyệt chiêu ... nhấp phải chuột vào bảng tính, bạn thấy Custom List dựng sẵn bạn tạo xuất trình đơn ngữ cảnh Comment [2]: END TEMPLATE: bbcode_code Muốn sử dụng, bạn cần nhấn chuột phải vào ô chọn, chọn list menu. ..Tiếp theo, để đưa Custom List vào thực đơn ngữ cảnh bạn nhấn tổ hợp ALT+F11 vào Insert ➝ Module Sau đó, bạn nhập vào đoạn mã sau: Comment [1]: BEGIN TEMPLATE: bbcode_code... InStr(1, strList, ".", vbTextCompare) - 1) End Sub[/highlight] Bạn kích chuột hai lần lên ThisWorkbook cửa sổ VBAProject nhập vào đoạn mã sau: [highlight=VB] Private Sub Workbook_SheetBeforeRightClick