在excel中,怎么设置批注格式,从而不让锁定的单元格挡住内容
答案:2 悬赏:60 手机版
解决时间 2021-02-10 21:40
- 提问者网友:流星是天使的眼泪
- 2021-02-10 01:16
在excel中,怎么设置批注格式,从而不让锁定的单元格挡住内容
最佳答案
- 五星知识达人网友:第幾種人
- 2021-02-10 02:20
右键选择隐藏批注即可。
全部回答
- 1楼网友:不如潦草
- 2021-02-10 03:08
public sub aaa()
'sheet2表内c列的内容,作为批注添加到sheet1表d列
'(sheet2表a列为sheet1表d列的列表)
dim t as string
dim s1 as worksheet: set s1 = worksheets("sheet1")
'sheet1表,需要批注的表(必要时更改表名,""内的内容)
dim s2 as worksheet: set s2 = worksheets("sheet2")
'sheet2表,批注数据来源表(必要时更改表名,""内的内容)
dim rn as range
dim rn2 as range: set rn2 = s2.cells(2, 1).resize(s2.[a65536].end(xlup).row - 1, 3)
for each c in s1.cells(2, 4).resize(s1.[d65536].end(xlup).row - 1, 1)
t = c.value
set rn = rn2.find(t, lookin:=xlvalues, lookat:=xlwhole)
if rn is nothing then
t = "没有找到"
else
t = rn.offset(0, 2).value
end if
c.clearcomments
c.addcomment t
next
end sub
--------------------
sheet1表,需要批注的表,需要批注的列:d列,从第二格开始
sheet2表,批注数据来源表
sheet1表d列的来源为sheet2表的a列,批注来源为sheet2表的c列
打开sheet1表,在表名上点右键,选“查看代码”,打开代码窗口,将上面的代码复制入其中,并根据实际情况,将代码内的表名改为实际表名(有注释),然后,按 f5 键运行程序
有其他问题,hi 我
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯