nhờ trợ giúp về vba để ẩn/hiện picture trong sheet

[nam2806]

Nhờ các ACE giúp trường hợp sau: nhấn nút 1 thì ẩn 1 picture, nhấn nút 2 thì hiện lại pic đó. Có file đính kèm ah.

 

[cadafi]

Nhờ các ACE giúp trường hợp sau: nhấn nút 1 thì ẩn 1 picture, nhấn nút 2 thì hiện lại pic đó. Có file đính kèm ah.

Bạn xem file đính kèm nhé

Sub HidePicture()
Sheet1.Shapes("Picture 1").Visible = msoFalse
End Sub
''-----------------------------------------------
Sub ShowPicture()
Sheet1.Shapes("Picture 1").Visible = msoTrue
End Sub

 

[ndu96081631]

Nhờ các ACE giúp trường hợp sau: nhấn nút 1 thì ẩn 1 picture, nhấn nút 2 thì hiện lại pic đó. Có file đính kèm ah.

Cần gì đền 2 nút, dở lắm! 1 nút, vừa Show vừa Hide luôn!

Private Sub Cmd_Click()
  Dim Check As Boolean
  Check = Cmd.Caption = "Show Picture"
  Sheet1.Shapes("Picture 1").Visible = Check
  Cmd.Caption = IIf(Check, "Hide Picture", "Show Picture")
End Sub

 

[TrungChinhs]

Cần gì đền 2 nút, dở lắm! 1 nút, vừa Show vừa Hide luôn!

Private Sub Cmd_Click()
  Dim Check As Boolean
  Check = Cmd.Caption = "Show Picture"
  Sheet1.Shapes("Picture 1").Visible = Check
  Cmd.Caption =IIf(Check, "Hide Picture", "Show Picture")
End Sub

Thỉnh thoảng tôi thấy trong code các bạn dùng lệnh IIf. Tôi chưa hiểu lệnh này. Nhờ các bạn giải thích giúp. Thanks !

 

[ndu96081631]

Thỉnh thoảng tôi thấy trong code các bạn dùng lệnh IIf. Tôi chưa hiểu lệnh này. Nhờ các bạn giải thích giúp. Thanks !

Y chang như hàm IF ngoài bảng tính thôi anh à! Và đây mới đúng là HÀM IF (dùng cho VBA)
chắc để phân biệt với PHÁT BIỂU IF (If...Then...Else Statement) nên nó phải sửa cho khác 1 chút

 

[nam2806]

ndu96081631: Cần gì đền 2 nút, dở lắm! 1 nút, vừa Show vừa Hide luôn!


Cảm ơn tất cả các bạn cadafi, ndu, trungchinh thật ra tôi cũng có ý tưởng "thắt ẩn, thoắt hiện" nhưng do vội nên chưa trình bày ý tưởng. Tôi đang soạn thảo một số văn bản ISO 9001:2008, quy định là nếu không có pic nào thì là đang soạn thảo, chưa hoàn chỉnh, nếu có pic là đã OK rồi, các đơn vị liên quan trong công ty cop ra, đưa lên xếp duyệt và ban hành. Những bạn nào có ý tương tự thị tải những file trên về áp dụng. Chắc các bạn đã biết cách làm cho pic không xuât hiện trên bảng in chứ nhể.

 

[ndu96081631]

Cảm ơn tất cả các bạn cadafi, ndu, trungchinh thật ra tôi cũng có ý tưởng "thắt ẩn, thoắt hiện" nhưng do vội nên chưa trình bày ý tưởng. Tôi đang soạn thảo một số văn bản ISO 9001:2008, quy định là nếu không có pic nào thì là đang soạn thảo, chưa hoàn chỉnh, nếu có pic là đã OK rồi, các đơn vị liên quan trong công ty cop ra, đưa lên xếp duyệt và ban hành. Những bạn nào có ý tương tự thị tải những file trên về áp dụng. Chắc các bạn đã biết cách làm cho pic không xuât hiện trên bảng in chứ nhể.

Việc điều khiển IN hay KHÔNG IN 1 Object, ta lại có cách khác đơn giản hơn (khỏi code)
- Chọn Object
- Bấm Ctrl + 1
- Làm giống như hình

 

[SA_DQ]

Cũng có thể không cần ẩn & hiện nó;

Đơn giản là di chuyển nó ra khỏi tầm ngắm của mọi người là được.

Bạn có thể tham khảo tại đây: http://www.giaiphapexcel.com/forum/showthread.php?1604-Tìm-lá-bài-trùng

 

[vhkhoi]

Cần gì đền 2 nút, dở lắm! 1 nút, vừa Show vừa Hide luôn!

Cho mình hỏi là làm sao tạo được nút bấm "Show/Hide Picture" vậy. Muốn điều chỉnh, copy nó sang file khác mà không được.