Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để ẩn hoặc hiện một hình dạng nhất định dựa trên giá trị ô được chỉ định trong Excel?

Trên thực tế, một hình dạng nhất định có thể được ẩn hoặc hiện dựa trên giá trị của một ô được chỉ định. Phương pháp sau đây có thể giúp bạn.

Ẩn hoặc hiện một hình dạng nhất định dựa trên giá trị ô được chỉ định với mã VBA


Ẩn hoặc hiện một hình dạng nhất định dựa trên giá trị ô được chỉ định với mã VBA

Ví dụ: bạn muốn bỏ ẩn một hình dạng nhất định khi nhập số 1 vào ô A1 hoặc ẩn hình dạng này nếu ô A1 là các giá trị khác. Vui lòng chạy mã VBA sau để đạt được nó.

1. Nhấp chuột phải vào tab trang tính chứa hình dạng bạn sẽ ẩn hoặc hiện, sau đó nhấp vào Mã Chế độ xem từ menu chuột phải.

2. Sau đó Microsoft Visual Basic cho các ứng dụng cửa sổ bật lên. Vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ.

Mã VBA: Ẩn hoặc hiện một hình dạng nhất định dựa trên giá trị ô được chỉ định

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Oval 6").Visible = (Cells(1, 1).Value = 1)
End Sub

Chú ý: Trong mã:

1) Hàng = 1Cột = 1 cho biết ô cụ thể nằm ở hàng một và cột một, Ô (1, 1) là ô tương ứng A1.
2) Giá trị = 1, số 1 là giá trị cụ thể mà bạn muốn hiển thị hình dạng dựa trên.
3) "Hình bầu dục 6”Là tên của hình dạng nhất định.

Bạn có thể thay đổi chúng dựa trên nhu cầu của bạn.

3. Nhấn nút Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Từ bây giờ, khi nhập số 1 vào ô A1, hình dạng “Hình bầu dục 6” sẽ được hiển thị. Nhưng nếu bạn nhập giá trị khác, chẳng hạn như số 2 vào ô A1, hình dạng “Hình bầu dục 6” sẽ bị ẩn ngay lập tức.


Các bài liên quan:


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (11)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này hiệu quả với tôi miễn là giá trị được nhập là một số. Tôi cần nó hoạt động trên các chữ cái như ABC, v.v.: khi tôi sử dụng các chữ cái, nó hoạt động ngược lại, hãy nhập A và nó ẩn tôi cần nó hiển thị khi tôi nhập bất kỳ ý tưởng nào vào một chữ cái
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay vào đó, bạn có thể sử dụng các chữ cái, bạn chỉ cần thêm "vào một trong hai bên. Ví dụ: Me.Shapes (" Hình bầu dục 6 "). Visible = (Cells (1, 1) .Value =" A ")
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Còn nếu tôi muốn thêm hai giá trị làm đầu vào chẳng hạn như: Ví dụ: Me.Shapes ("Hình bầu dục 6"). Visible = (Cells (1, 1) .Value = "A" Or "B")?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Me.Shapes ("Hình chữ nhật tròn 2"). Visible = (Cells (1, 1) .Value = "A" Or Cells (1, 1) .Value = "B")
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi là một người mới trong VBA Excel. Tôi đang làm việc với mã này và tôi muốn tối ưu hóa nó. Mã này làm cho một hình dạng hiển thị trên một ô đang hoạt động nếu giá trị là 1 giá trị khác ẩn nó. Phạm vi bao gồm J13: AC161. Nếu tôi sử dụng đoạn mã dưới đây, tôi sẽ mất nhiều dòng mã hơn. Bất kỳ sự giúp đỡ sẽ được nhiều đánh giá cao.

Private Sub Worksheet_Change (ByVal Target As Range)
Nếu ActiveSheet.Range ("E13"). Giá trị = 1 Thì
ActiveSheet.Shapes ("rt1"). Visible = True
Khác
ActiveSheet.Shapes ("rt1"). Visible = False
Cuối Nếu

Nếu ActiveSheet.Range ("F13"). Giá trị = 1 Thì
ActiveSheet.Shapes ("rt2"). Visible = True
Khác
ActiveSheet.Shapes ("rt2"). Visible = False
Cuối Nếu

Nếu ActiveSheet.Range ("G13"). Giá trị = 1 Thì
ActiveSheet.Shapes ("rt3"). Visible = True
Khác
ActiveSheet.Shapes ("rt3"). Visible = False
Cuối Nếu

Nếu ActiveSheet.Range ("H13"). Giá trị = 1 Thì
ActiveSheet.Shapes ("rt4"). Visible = True
Khác
ActiveSheet.Shapes ("rt4"). Visible = False
Cuối Nếu

Nếu ActiveSheet.Range ("I13"). Giá trị = 1 Thì
ActiveSheet.Shapes ("rt5"). Visible = True
Khác
ActiveSheet.Shapes ("rt5"). Visible = False
Cuối Nếu

Nếu ActiveSheet.Range ("J13"). Giá trị = 1 Thì
ActiveSheet.Shapes ("rt6"). Visible = True
Khác
ActiveSheet.Shapes ("rt6"). Visible = False
Cuối Nếu
hữu ích. Cảm ơn !

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Good day,
Ý của bạn là bạn muốn hiển thị hoặc ẩn nhiều hình dạng được chỉ định dựa trên các ô trong phạm vi J13: AC161 với mã ngắn gọn?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
2 câu hỏi:

1. Tôi dường như không thể chạy mã này và tôi không hiểu tại sao ... đã sao chép và dán nó chính xác như hiện có ... giúp đỡ !!!


2. làm cách nào để thay đổi nó cho các hình dạng như Shapes.Range (Array ("Hình chữ nhật tròn 1"))
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Gus,
Bạn phải bỏ lỡ một cái gì đó trong hoạt động.
Giả sử tên hình dạng của bạn là "Hình chữ nhật tròn 1", vui lòng sao chép mã bên dưới vào cửa sổ mã trang tính (trang tính này phải chứa hình dạng được chỉ định "Hình chữ nhật tròn 1").
Kể từ bây giờ, chỉ cần gõ số 1 vào ô A1 là có thể hiển thị hình dạng "Hình chữ nhật tròn 1". Nếu bạn nhập nội dung khác, hình dạng sẽ bị ẩn.

Private Sub Worksheet_Change (ByVal Target As Range)
Nếu Target.Row = 1 Và Target.Column = 1 Thì _
Me.Shapes ("Hình chữ nhật tròn 1"). Hiển thị = (Ô (1, 1) .Value = 1)
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đã bỏ qua ":"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bài viết này không đưa ra bất kỳ gợi ý nào về cách người ta lấy tên của một hình dạng.

Tôi đã kiểm tra trình quản lý tên và trình quản lý đối tượng trong VBA cũng như trình đơn ngữ cảnh - không có trình đơn "Thuộc tính" cho hình dạng.

Vậy, tên hình dạng ở đâu?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Cornan,
Tên hình dạng sẽ được hiển thị trên hộp Tên của trang tính khi chọn hình dạng. Xin lỗi vì sự bất tiện.
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL