[求助]如何把单元格区域内容写进批注

gfs57 · 发表于 2007-7-8 23:24

大家好!

把单元格区域 A1：C12 的内容写进批注，要求分成12行、3列写下来，列与列之间加一空格。因为单元格太多(36个)，用“&”连接好象很笨拙，求教大家，请出妙招!

northwolves · 发表于 2007-7-8 23:41

Sub macro1()
[iv1:iv12] = "=rc1 & "" ""& rc2 &"" ""& rc3"
[d15].AddComment Join(Application.Transpose([iv1:iv12]), vbCrLf)
[iv1:iv12] = ""
[d15].Comment.Visible = True
[d15].Comment.Height = 100
End Sub

LangQueS · 发表于 2007-7-8 23:49

northwolves版的代码取消“[d15].Comment.Height = 100”才可以顺利运行？

gfs57 · 发表于 2007-7-9 01:41

谢谢你们俩!

经搜索，发现改“[d15].Comment.Height = 100”为“[d15].Comment.Shape.Height = 100”即可!

LangQueS · 发表于 2007-7-9 13:08

[em11]

leifeishuqin · 发表于 2010-11-26 19:49

我看不懂，好悲惨

		自动登录	找回密码
密码			免费注册