请问在以下的代码中,怎样使批注的字体 SIZE=14, 多谢 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("a:aa").ClearComments '清除全部批注 If ActiveCell.Column = 3 And 16 >= ActiveCell.Row <= 35 Then '指定在 C列(3)的16行到35行内 Set c = Sheets("辅料价格清单").Range("d:d").Find(Cells(ActiveCell.Row, ActiveCell.Column), lookat:=xlWhole) '在表:"辅料价格清单" 中查找选中的单元格内容,返回在单元格位置 If Not c Is Nothing Then '如果在表:设备名称型号 中有此内容 ActiveCell.NoteText "供应商代码: " & Sheets("辅料价格清单").Cells(c.Row, 2).Value & Chr(10) & "辅料名称: " & Sheets("辅料价格清单").Cells(c.Row, 3).Value & Chr(10) & "单价: " & Sheets("辅料价格清单").Cells(c.Row, 5).Value '添加内容为”“的批注 ActiveCell.Comment.Visible = True '显示此批注 End If End Sub |