Excel 自定义 提示框 / 批注 /注释，悬浮单元格上，类似数据有效性输入时提示的那样，但可以自定义。本例实现从异常解释放在单元格Q3至V27，当点击I3至N27任意单元格时，检查如有对应解释则探出文本框显示，如没有则不显示，或点击I3至N27之外单元格删除提示框。需要的，可以修改为适合自己的。可以帮助解决报告界面因备注长而不美观，保持整洁。有用，记得投票哦。自己不会修改或遇到问题的，可以QQ16990613工具/原料moreMS Excel 2010及以上VBA方法/步骤1/2分步阅读

引用Ms Forms 2.0 object library.

2/2

复制以下代码至需要使用的工作表代码页里，代码备注见图片

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Application.EnableEvents = False

Application.ScreenUpdating = False

Dim ole As OLEObject

Dim olex As OLEObject

Dim obj, objz

Dim nm As Variant

Dim lbx As Boolean

Dim oWS As Worksheet

Set oWS = Target.Parent

If oWS.OLEObjects.Count = 1 Then

For Each ole In Me.OLEObjects

If ole.Name = sysLblz Then帽惹

Set obj = ole.Object

nm = obj.Caption

oWS.OLEObjects(nm).Delete

lbx = True

End If

Next

End If

If lbx = False Then if not exist sysLblz,generate it for save textbox name

Set ole = oWS.OLEObjects.Add(ClassType:=Forms.label.1, Link:=False, DisplayAsIcon:=False, Left:=1, Top:=1, Width:=1, Height:=1)

ole.Name = sysLblz

Set obj = ole.Object

obj.Caption = sysLblz

End If

If (Target.Column = 9 And Target.Column = 15) And (Target.Row = 3 _ And Target.Row = 27) And Target.Cells.Count = 1 Then

If Len(Cells(Target.Row, Target.Column + 8).Value) 0 Then

Set olex = oWS.OLEObjects.Add(ClassType:=Forms.TextBox.1, Link:=False, DisplayAsIcon:=False) , Width:=500, Height:=200

olex.Visible = False

olex.Name = systxtL DoEvents

obj.Caption = olex.Name

Set objz = olex.Object

With objz

.FontSize = 16

.MultiLine = True

.WordWrap = True

.Text = Cells(Target.Row, Target.Column + 8).Value ActiveCell.Value

.ForeColor = vbRed

.BackColor = RGB(255, 255, 0)

.ScrollBars = 2

.SpecialEffect = 0

End With国霸案

With olex .Visible = False

.Shadow = False

.Width = 500

.Height = 200牺罪

.Top = Target.Top + Target.Height

.Left = Target.Left

End With

End If

End If DoEvents

olex.Visible = True

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

注意事项

如出现不能插入对象，参考https://support.microsoft.com/zh-cn/kb/3025036解决