单击某单元格的提示信息字体大小可以设置吗？

dzsrmyh

micch 发表于 2023-3-12 18:55
比如是B2单元格需要提示，插入一个文本框，名字自己改好（要和代码里对应），文本框位置，内容和格式自己 ...

非常感谢老师的代码，完美解决问题

dzsrmyh

micch 发表于 2023-3-12 18:55
比如是B2单元格需要提示，插入一个文本框，名字自己改好（要和代码里对应），文本框位置，内容和格式自己 ...

老师您好，还有一种可能能不能实现呢？
就是该单元格如果有内容就不弹出文本框呢，没有内容才弹出文本框

micch

空单元格不显示，输入内容后切换单元格，不会立即显示，需要重新选择

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target(1).Address(0, 0) = "B2" And Len(Target(1).Value) > 0 Then
   
3.         Shapes("WenBenTip1").Visible = msoCTrue
   
4.     Else
   
5.         Shapes("WenBenTip1").Visible = msoFalse
   
6.     End If
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10.     If Target(1).Address(0, 0) = "B2" And Len(Target(1).Value) > 0 Then
    
11.         Shapes("WenBenTip1").Visible = msoCTrue
    
12.     Else
    
13.         Shapes("WenBenTip1").Visible = msoFalse
    
14.     End If
    
15. End Sub

复制代码

dzsrmyh

micch 发表于 2023-3-12 20:06
空单元格不显示，输入内容后切换单元格，不会立即显示，需要重新选择

老师您好，非常感谢您的回复，可能是您将我的意思理解反了，我的意思是空单元格显示，有内容后才不显示
我试着改成 < 0 ，可结果也不对

micch

dzsrmyh 发表于 2023-3-13 07:04
老师您好，非常感谢您的回复，可能是您将我的意思理解反了，我的意思是空单元格显示，有内容后才不显示
...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target(1).Address(0, 0) = "B2" And Len(Target(1).Value) = 0 Then
   
3.         Shapes("WenBenTip1").Visible = msoCTrue
   
4.     Else
   
5.         Shapes("WenBenTip1").Visible = msoFalse
   
6.     End If
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10.     If Target(1).Address(0, 0) = "B2" And Len(Target(1).Value) = 0 Then
    
11.         Shapes("WenBenTip1").Visible = msoCTrue
    
12.     Else
    
13.         Shapes("WenBenTip1").Visible = msoFalse
    
14.     End If
    
15. End Sub

复制代码

dzsrmyh

micch 发表于 2023-3-13 09:35
dzsrmyh 发表于 2023-3-13 07:04
老师您好，非常感谢您的回复，可能是您将我的意思理解反了，我的意思是空 ...

非常感谢，这下完美了