Định dạng Excel cho địa chỉ MAC.

Định dạng Excel cho địa chỉ MAC.

Tôi làm việc trong lĩnh vực CNTT, thường xuyên phải theo dõi địa chỉ MAC. Tôi đang cố gắng sử dụng Office 365 Excel nơi tôi muốn định dạng các ô như sau:

A1-B2-C3-D4-E5-F6

Vì vậy, lý tưởng nhất là khi tôi nhập thông tin dưới dạng a1b2c3d4e5f6, nó sẽ viết hoa và thêm dấu gạch ngang. Nếu tôi làm ##-##-##-##-##-## và tôi chỉ thêm số (như 112233445566), nó sẽ định dạng bằng dấu gạch ngang (11-22-33-44-55-66). Tuy nhiên khi sử dụng văn bản thì nó không tạo được định dạng. Có gợi ý gì không?

***Bài viết đã được chuyển đến chủ đề phụ Office thích hợp.***




Trả lời:

Ồ, tôi sẽ không đặt cược vào điều đó! Hãy thử mã bên dưới (giả sử macro được chấp nhận). Mở sổ làm việc của bạn, chọn trang tính mà bạn sẽ nhập địa chỉ MAC vào. Nhấp chuột phải vào tab tên và chọn Xem mã từ danh sách. Sao chép mã bên dưới và dán vào mô-đun được trình bày cho bạn. Thay đổi 2 giá trị Const đầu tiên trỏ đến cột B và hàng 2 để phù hợp với thực tế của bảng tính của bạn.

Đóng Trình soạn thảo VBA ([Alt]+[Q] hoặc dấu-x màu đỏ). Hãy thử bằng cách nhập một số địa chỉ MAC vào cột. Nếu bạn thích và muốn giữ nó, hãy lưu sổ làm việc dưới dạng sổ làm việc có hỗ trợ macro, nhập .xlsm hoặc .xlsb.

Bảng tính phụ riêng tư_Change (Mục tiêu ByVal dưới dạng phạm vi)
'chỉ giả định 1 cột cho các mục địa chỉ MAC
'nhưng có thể được điều chỉnh để biết thêm

'thay đổi các hằng số này để xác định bảng tính của bạn
Const maEntryColumn = "B" ' Địa chỉ MAC được nhập vào cột này
Const maFirstRow = 2 ' hàng đầu tiên có thể có địa chỉ MAC trong đó

Const sepChar = "-" ' để đặt giữa mỗi cặp phần địa chỉ
Const macLength = 12' # ký tự trong địa chỉ MAC
Const macValidCharacters = "ABCDEF01234567890"
'các biến làm việc
Bộ đếm vòng lặp Dim LC As Integer '
Dim tempMACĐịa chỉ dưới dạng chuỗi
Nếu IsEmpty(Target) _
Hoặc Target.Cells.Count > 1 _
Hoặc Target.Column <> Range(maEntryColumn & 1).Column _
Hoặc Target.Row < maFirstRow Sau đó
Thoát Sub ' không có việc gì để làm
Kết thúc nếu
'trong trường hợp họ gõ - vào như một phần của mục nhập
tempMACAddress = UCase(Trim(Thay thế(Target.Text, sepChar, "")))
'kiểm tra trường hợp đặc biệt: mục nhập là tất cả các chữ số, không có chữ cái và
'có ít hơn 12 ký tự. Có nghĩa là chúng tôi có thể đã bỏ số 0 ở đầu
'đặt chúng trở lại
Nếu Len(tempMACAddress) < macLength thì
Đối với LC = 1 To Len(tempMACAddress)
Nếu Mid(tempMACAddress, LC, 1) < "0" _
Hoặc Mid(tempMACAddress, LC, 1) > "9" Sau đó
Thoát For ' thoát sớm
Kết thúc nếu
Kế tiếp
Nếu LC = Len(tempMACAddress) + 1 thì
'đều là chữ số, thêm số 0 đứng đầu
tempMACĐịa chỉ = _
Chuỗi(macLength - Len(tempMACAddress), "0") & tempMACAddress
Kết thúc nếu
Kết thúc nếu
Nếu Len(tempMACAddress) <> macLength thì
MsgBox "Mục nhập không phù hợp với độ dài Địa chỉ MAC của " & macLength, _
vbOKOnly + vbExclaim, "Mục nhập không hợp lệ"
Thoát phụ
Kết thúc nếu
'xác thực tất cả các ký tự hợp lệ
Đối với LC = 1 To Len(tempMACAddress)
Nếu InStr(macValidCharacters, Mid(tempMACAddress, LC, 1)) = 0 thì
MsgBox "Mục nhập có ký tự Địa chỉ MAC không hợp lệ: " & Mid(tempMACAddress, LC, 1), _
vbOKOnly + vbExclaim, "Mục nhập không hợp lệ"
Thoát phụ
Kết thúc nếu
Kế tiếp
'có vẻ hợp lệ, định dạng nó lên
Application.EnableEvents = False ' để ngăn việc quay lại quy trình này
Mục tiêu = Left(tempMACAddress, 2) & sepChar _
& Mid(tempMACAddress, 3, 2) & sepChar _
& Mid(tempMACAddress, 5, 2) & sepChar _
& Mid(tempMACAddress, 7, 2) & sepChar _
& Mid(tempMACAddress, 9, 2) & sepChar _
& Phải(tempMACAddress, 2)
Application.EnableEvents = Đúng
Kết thúc phụ

Comments

Post a Comment

Popular posts from this blog

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Image
Excel 2016 - mở tất cả các tệp trong MỘT phiên bản Xin chào, Tôi gặp sự cố với Excel 2016 (16.0.10228.20051 32-bit): Tôi có một phiên bản Excel đang chạy. (NB - hộp kiểm " Bỏ qua các ứng dụng khác sử dụng Trao đổi dữ liệu động (DDE) " trong Tùy chọn nâng cao KHÔNG được chọn.) Điều tôi cần là - đối với tất cả các tệp Excel mà tôi sắp mở để mở trong phiên bản Excel đầu tiên và duy nhất của mình e, luôn luôn và bất kể: - tôi mở bao nhiêu tập tin cùng một lúc, - nơi chứa các tập tin (tức là trên ổ đĩa cục bộ hoặc trên OneDrive nên hệ thống cần tải chúng xuống trước khi mở) và kể cả khi mở tệp Excel từ các ứng dụng Office khác, tức là tệp đính kèm Outlook. Hành vi mà tôi thấy trong Excel 2016 tốt nhất là không nhất quán: 1. Khi mở nhiều tệp bổ sung cùng một lúc từ đĩa (chọn nhiều tệp/nhấp chuột phải/Mở) - nó sẽ mở n tệp đầu tiên trong phiên bản Excel đầu tiên, nhưng sau đó từ tệp n +1, nó bắt đầu mở chúng trong phiên bản mới . 2. Một biến thể của trường hợp trên là k...
Read more

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Image
Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể. Trong excel 2003, trong mục tùy chỉnh thanh công cụ, người ta có thể lấy một nút và chỉnh sửa hình ảnh của nút đó. Điều tôi muốn làm trong excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy cập nhanh và để nút đó chạy một macro cụ thể. Ví dụ, tạo nút có chữ G lớn và khi nhấp vào, nút sẽ thực hiện truy vấn web và nhập giá vàng từ kitco.com. Có cách nào để thực hiện việc này trong Excel 2010 không? Trả lời: Xin chào, Để bật tab Nhà phát triển 1. Trên tab Tệp , chọn Tùy chọn để mở hộp thoại Tùy chọn . 2. Nhấp vào Tùy chỉnh Ribbon ở phía bên trái của hộp thoại. 3. Trong mục Chọn lệnh từ ở phía bên trái hộp thoại, chọn Lệnh phổ biến . 4. Trong mục Tùy chỉnh Dải băng ở phía bên phải hộp thoại, chọn Tab chính trong hộp danh sách thả xuống, sau đó chọn hộp kiểm Nhà phát triển . 5. Nhấp vào OK . Để biết thêm thông tin về cách tạo ...
Read more

Khẩn cấp - File Excel chứa các ký tự đặc biệt ở họ và tên liên hệ

Khẩn cấp - File Excel chứa các ký tự đặc biệt ở họ và tên liên hệ Kính gửi bộ phận hỗ trợ, Đây là một vấn đề được ưu tiên hàng đầu đối với các marcomms của chúng tôi. Tôi có tệp Microsoft Excel chứa các ký tự đặc biệt trong họ và tên của liên hệ. Chúng tôi muốn gửi một email được cá nhân hóa dựa trên họ và tên liên hệ. Tôi đã thực hiện rất nhiều nghiên cứu và xem video nơi mọi người chia sẻ giải pháp nhưng không hiệu quả. Tôi sẽ đánh giá cao nếu bạn có thể chia sẻ cách loại bỏ những ký tự đặc biệt đó cùng một lúc. Mong muốn được nghe từ bạn. Trân trọng, Mohsin Ali Trả lời: Bạn sẽ cần phải cung cấp một số chi tiết ít nhất là một đoạn excel đính kèm với bài đăng của bạn Trả lời: Tải dữ liệu của bạn vào PowerQuery. Có lệnh xóa ký tự cụ thể theo vị trí > https://docs.microsoft.com/en-us/powerquery-m/text-removerange > https://www.thebiccountant.com/2020/03/20/trimming-text-with-custom-characters-in-power-bi-and-power-query/ > https://www.mrexcel.com/excel-tips/extracti...
Read more