lrobo314 anh ấy nói
Tôi biết điều đó. Đó là lý do tại sao tôi nói, 'nó sẽ lấp đầy ô bằng tất cả các dấu hoa thị'.
Một tùy chọn khác là chỉ tô màu các ký tự ở giữa thành màu trắng. Vì vậy, thay vì dấu hoa thị, các ký tự ở giữa sẽ xuất hiện trống như 'S Z'Mã VBA.
Private Sub Worksheet_Change[ByVal Target As Range] If Not Intersect[Target, Range["A:A"]] Is Nothing And Target.Cells.Count = 1 Then For i = 2 To Len[Target.Value] - 1 Target.Characters[i, 1].Font.ColorIndex = 2 Next i End If End Sub
Bấm để mở rộng
Cảm ơn về gợi ý trên.
Xin thứ lỗi vì kiến thức hạn chế của tôi, có vẻ như không thể làm cho "hoạt động" ở trên
VBA ở trên chỉ yêu cầu phạm vi được đặt phải không? . A9"]] ???
6StringJazzer nói
Bạn không thể lưu trữ S12345678Z trong một ô và cũng không thể để nó hiển thị trong cùng một ô với S*********Z. Đây là một vấn đề phức tạp vì nếu bạn che dữ liệu để hiển thị, bạn vẫn phải lưu trữ dữ liệu không che ở đâu đó.
Nếu bạn không thích giải pháp theo công thức của riêng mình, điều này có thể sẽ yêu cầu VBA. Bạn sẽ làm gì với dữ liệu đó khi người dùng đã nhập dữ liệu đó?
Also does this need to be masked as the user is typing, like a password, or only after the user has completed it and hit ENTER?Bấm để mở rộng
có lẽ tôi đã không nói rõ ràng.
Ví dụ.
Tôi đặt A1 làm ô nhập [ mã tùy chỉnh ;;
Trong hộp Danh mục, nhấp vào Tùy chỉnh
Trong hộp Loại, chọn các mã hiện có
Loại ;;;
Nhấp vào OK
Mẹo. Để hủy lựa chọn các ô, hãy bấm vào bất kỳ ô nào trên trang tính
Hiển thị các giá trị ô ẩn
Chọn ô hoặc phạm vi ô chứa các giá trị bị ẩn. Để biết thêm thông tin, hãy xem mục Chọn ô, phạm vi, hàng hoặc cột trên trang tính
Trên tab Trang chủ, nhấp vào Trình khởi chạy hộp thoại
bên cạnh Số.Trong hộp Thể loại, hãy bấm vào Chung để áp dụng định dạng số mặc định hoặc bấm vào định dạng ngày, giờ hoặc số mà bạn muốn
1. Chọn các ô bạn muốn ẩn bằng dấu hoa thị, sau đó nhấp chuột phải để chọn Định dạng ô từ menu ngữ cảnh
2. Trong hộp thoại Định dạng ô, bên dưới tab Số, chọn Tùy chỉnh từ danh sách Danh mục, rồi nhập ;;;** vào hộp văn bản bên dưới Loại.
3. Nhấp vào OK, bây giờ nội dung ô được chọn đã được che bằng dấu hoa thị
Nhưng nội dung ô cũng có thể được xem trong thanh công thức
4. Đặt con trỏ vào ô bạn không muốn ẩn nội dung, sau đó nhấp vào Xem lại > Bảo vệ trang tính và bỏ chọn tùy chọn Chọn ô mở khóa và Định dạng ô [các tùy chọn khác bạn có thể kiểm tra khi cần], sau đó nhập và xác nhận mật khẩu để bảo vệ trang tính
Sau đó, nội dung ô đã được ẩn và che dấu bằng dấu hoa thị
Ghi chú. Nếu nội dung ô là chuỗi số, cách này chỉ hiển thị nội dung ô dưới dạng trống
Ẩn các hàng có #N/A hoặc các giá trị lỗi cụ thể khác bằng mã VBA
Nếu bạn muốn che cả số và văn bản, bạn có thể áp dụng mã VBA
1. Chọn các ô bạn muốn mã hóa và nhấn tổ hợp phím Alt + F11 để bật cửa sổ Microsoft Visual Basic for Applications
2. Nhấp vào Chèn > Mô-đun, sau đó sao chép và dán mã bên dưới vào Mô-đun mới
VBA. Ẩn hàng lỗi #N/A
Sub E_Cells[] 'UpdatebyExtendoffice Dim xRg As Range Dim xERg As Range Dim xWs As Worksheet Dim xStrRg As String Dim xStrPw As String xStrPw = "" xStrPw = Application.InputBox["Enter Password", "", "", Type:=2] If xStrPw = "" Then Exit Sub On Error Resume Next Set xERg = Selection Set xWs = Application.ActiveSheet Set xRg = xWs.Cells xRg.Locked = False xERg.Locked = True xERg.NumberFormatLocal = "**;**;**;**" xWs.Protect Password:=xStrPw, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
3. Nhấn phím F5 để chạy mã. Sau đó nhập mật khẩu vào hộp thoại bật ra và nhấp vào nút OK. Xem ảnh chụp màn hình
Mẹo
1. Để giải mã các ô, bạn có thể sử dụng mã macro bên dưới
Sub D_Cells[] 'UpdatebyExtendoffice Dim xRg As Range Dim xERg As Range Dim xWs As Worksheet Dim xStrRg As String Dim xStrPw As String xStrPw = "" xStrPw = Application.InputBox["Type Password", "", "", Type:=2] If xStrPw = "" Then Exit Sub On Error Resume Next Set xWs = Application.ActiveSheet Set xRg = xWs.UsedRange xERg.NumberFormatLocal = "**;**;**;**" xWs.Unprotect Password:=xStrPw For Each xERg In xRg If xERg.Locked Then xERg.NumberFormatLocal = "@" Next End Sub
2. Với mã VBA, nội dung ô cũng có thể được xem trong thanh công thức
Mã hóa và ẩn nội dung ô bằng dấu hoa thị hoặc chuỗi khác
Nếu bạn muốn mã hóa và che giấu nội dung ô bằng chuỗi đặc biệt khi bạn cần, tính năng Mã hóa ô của Kutools cho Excel có thể giúp ích rất nhiều