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 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

5 18 0
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 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

Đang tải... (xem toàn văn)

Thông tin tài liệu

Để đảm bảo cho tính năng hoạt động tốt, bạn hãy khởi động MS Word và mở một văn bản bất kỳ (hoặc một văn bản mới), sau đó vào menu Tools, chọn lệnh Options > chọn thẻ General > đ[r]

(1)

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 này.

(2)

VB Code:

Sub AddFirstList() Dim strList AsString

strList = Application.CommandBars.ActionControl.Caption IfNot strList Like "* *" Then ExitSub

ActiveCell = Left(strList, InStr(1, strList, ".", vbTextCompare) - 1)

End Sub

Bạn kích chuột hai lần lên ThisWorkbook cửa sổ VBAProject nhập vào đoạn mã sau:

VB Code:

PrivateSub Workbook_SheetBeforeRightClick _

(ByVal Sh As Object, ByVal Target As Range, Cancel AsBoolean) Dim cBut As CommandBarButton

Dim lListCount AsLong

Dim lCount AsLong

Dim strList AsString

Dim MyList

OnErrorResumeNext

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) With cBut

Caption = MyList(1) & " " & MyList(UBound(MyList)) Style = msoButtonCaption

OnAction = "AddFirstList" End With

Next lCount EndWith

OnErrorGoTo 0

End Sub

(3)

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 khi

Bạn dùng lệnh =NOW() Rồi Click phải chuột vào mà bạn có lệnh =NOW() rồi chọn tiếp FormatCell, chọn tiếp Custom, phần Type bạn đánh vào thông số bạn cần ví dụ sau: hh:mm:ss - dd\/mm\/yyyy Như ví dụ sẽ sau: Giờ:phút:giây - ngày/tháng/năm Nó tự động cập nhật. Chúc bạn thành cơng

Sửa lỗi cho file Word, Excel

(4)

Nếu bạn sử dụng MS Word phiên XP/2003/2007 chức sửa lỗi tích hợp sẵn

 Khởi động MS Word >> vào menu File >> Open (Ctrl+O)

 Trong hộp thoại Open, bạn đến vị trí lưu trữ tập tin Word cần sửa lỗi  Sau chọn lệnh Open and Repair để sửa lỗi cho văn (Thời gian phục

hồi nhanh hay chậm tùy thuộc vào cấu trúc tập tin Word)

 Khi tập tin bị lỗi mở thành công, bạn sử dụng chức Save as để lưu lại nội dung

Lưu ý: Nếu tập tin bảng tính Excel bạn bị lỗi tương tự, bạn thực theo cách MS Excel từ phiên XP (2002) trở lên

Cách : Chức Recover text from any file

Sau dùng cách mà không bạn dùng cách sau:

(5)

Ngày đăng: 09/04/2021, 22:45

Tài liệu cùng người dùng

Tài liệu liên quan