Bạn dùng code sau cho sheet cần áp dụng xem sao:
Ẩn Shape cũng nguy hiểm lắm, No Fill, No Line đỡ hơn, khi cần tìm thì Go To > Special... > Object.
Tôi có ý tưởng thế này, nhưng do bận quá nên chưa thực hiện được, bạn thử triển khai xem:
Private Sub Worksheet_Activate()
Dim obj As Object
Set obj = ActiveSheet.Shapes("TextBox 1")
If Sheets("Sheet1").Range("A1") = "" Then
obj.Visible = False
Else
obj.Visible = True
End If
Set obj = Nothing
End SubCám ơn bạn, tuy nhiên ở Sheet2 mình có nhiều text box và mỗi text box thì tham chiếu đến 1 ô ở Sheet1. Làm thế nào để có thể quét toàn bộ các text box này.
Chưa được bạn ạ, A1, A2, A3 không chứa dữ liệu thì các text box vẫn không ẩn.
bác test tiếp file e vừa "mới chế" nhé
Kiểm tra có nội dung ngoài hastext còn cú pháp nào nữa không anh? ngoài ra muốn kiểm tra nội dung của nó là gì thì dùng cái gì ạ?
mà không biết cái "kiem tra noi dung cua shape" dùng cái gì? nhờ các anh chị hướng dẫn.
,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Shapes("Text Box 5").TextFrame.Characters.Text = "a" Then
Shapes("Text Box 5").Visible = True
Else
Shapes("Text Box 5").Visible = False
End If
End SubEm thử áp dụng vào bài của em, không biết là do sai ở đâu mà toàn báo lỗi, nhờ các bác hướng dẫn (thông cảm cho việc gà mờ của em)
Thử chỉnh lại như sau:
Private Sub Worksheet_Activate()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoTextBox Then
If Sh.TextFrame.Characters.Text <> " " Then
Sh.Visible = msoTrue
Else
Sh.Visible = msoFalse
End If
End If
Next
End Sub
Private Sub Worksheet_Activate()
Dim tbx As TextBox
For Each tbx In TextBoxes
tbx.Visible = Len(Trim(tbx.Caption))
Next
End SubPrivate Sub Worksheet_Activate()
Dim shp As Shape, tbx As Shape
Dim strTmp As String
For Each shp In Shapes
If shp.Type = msoGroup Then
For Each tbx In shp.GroupItems
If tbx.Type = msoTextBox Then
strTmp = tbx.TextFrame.Characters.Text
shp.Visible = Len(Trim(strTmp))
End If
Next
End If
Next
End Sub
