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

dzsrmyh

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

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

复制代码

micch

理论上应该是可以改，毕竟是内置窗体，但是不会。变通一点用批注会容易一些，或者干脆用别的对象做提示。

dzsrmyh

micch 发表于 2023-3-12 10:24
理论上应该是可以改，毕竟是内置窗体，但是不会。变通一点用批注会容易一些，或者干脆用别的对象做提示。

那如何用别的对象做提示喃？

zpy2

dzsrmyh 发表于 2023-3-12 10:27
那如何用别的对象做提示喃？

别的对象？
不用excel?

dzsrmyh

zpy2 发表于 2023-3-12 10:33
别的对象？
不用excel?

就是不会呀？我也是在问micch老师

dzsrmyh

zpy2 发表于 2023-3-12 10:33
别的对象？
不用excel?

就是不会呀，我也是问micch老师该怎么弄也

micch

dzsrmyh 发表于 2023-3-12 10:27
那如何用别的对象做提示喃？

批注就挺方便啊

不喜欢批注，你写个单元格select事件，弹出一个文本框，格式不就可以自由设置了

micch

dzsrmyh

micch 发表于 2023-3-12 14:59

能麻烦老师帮忙写一下吗？百度了也没有弄明白怎么写

micch

比如是B2单元格需要提示，插入一个文本框，名字自己改好（要和代码里对应），文本框位置，内容和格式自己设置好就行

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target(1).Address(0, 0) = "B2" Then
   
3.         Shapes("WenBenTip1").Visible = msoCTrue
   
4.     Else
   
5.         Shapes("WenBenTip1").Visible = msoFalse
   
6.     End If
   
7. End Sub

复制代码