excel中vba添加批注的方法以及使用单元格现有内容添加到批注框里的案例和代码写法
本文整理两个excel中使用vba添加批注的案例,分享给大家学习。
vba添加批注案例一:
为选中的一个单元格自动添加批注,批注内容为系统当天日期,然后标注外框大小自动调整为刚好容纳内容即可,因为默认的批注比较大。
效果如下图,比如单击A1,然后自动加批注,选中A4,又自动添加批注,以此类推。
实现上面的效果vba添加批注的代码如下:
Sub vba添加批注()
On Error Resume Next
ActiveCell.AddComment
With ActiveCell.Comment
.Text CStr(Date)
.Shape.TextFrame.AutoSize = True
End With
End Sub
vba添加批注案例二:
为B列的姓名使用VBA添加批注,要求批注内容为C列单元格对应的的内容,而且批注框内文字大小为11号字体,不加粗,且随内容的多少自动调整批注框的格式的大小。
相关的代码如下:
Sub vba添加批注()
Dim strComment As String
Dim yWidth As Long
Endrow = Sheet1.[B65536].End(xlUp).Row
For sn = 2 To Endrow
With Sheet1.Cells(sn, 2)
strComment = Sheet1.Cells(sn, 3)
If .Comment Is Nothing Then '没有备注则添加备注
.AddComment Text:=strComment
.Comment.Visible = False
Else '已经有备注则备注添加内容
.Comment.Text Text:=strComment
End If
With .Comment.Shape
.TextFrame.Characters.Font.Size = 11
.TextFrame.AutoSize = True
If .Width > 250 Then
yWidth = .Width * .Height
.Width = 150
.Height = (yWidth / 200) * 1.8
End If
End With
End With
Next sn
End Sub
绛旓細鐢VBA瀹炵幇璧锋潵涓嶉毦,浣嗛棶棰樻槸sheet2閲鏀惧嚑鍗冧釜鎵规敞,瀹炲湪鏄病鏁堢巼,杩樹笉濡傜敤vlookup鍑芥暟,浠巗heet1閲屾煡鎵剧浉鍏鐨鍊,鐒跺悗鍙︽彃涓鍒楀啓涓叕寮,濡傛灉鎵f鍊间笉涓洪浂灏辨樉绀鸿繜鍒版墸娆,浠ュ悗涔熷彲鎵╁睍涓哄绉嶆墸娆惧師鍥犵殑缁煎悎鏄剧ず,涓嶇敤鐪嬫椂灏遍殣钘忓氨濂.鎵规敞瑕佹煡鐪嬫椂杩樺緱涓涓釜鍘绘偓鍋滈紶鏍,鑰屼笖鎯虫墦鍗版墸娆惧師鍥犻」缁欓瀵兼垨鍛樺伐...
绛旓細Sub InsertCommentByDetail() '鎵撳紑Excel鏂囦欢锛屾寜Alt+F11鎵撳紑VBA缂栬緫鍣,鈥鎻掑叆鈥->鈥滄ā鍧椻濓紝鐒跺悗鎶婅繖浜涗唬鐮佽创鍒扮┖鐧界殑绐楀彛閲 '淇濇寔鍏夋爣鍋滅暀鍦ㄨ繖浜涗唬鐮佷腑闂达紝鎸塅5杩愯 Dim MyComment As String '鎵规敞鍐呭 Dim DetailSheet As Worksheet '鏄庣粏琛 Dim TotalSheet As Worksheet '姹囨昏〃 ...
绛旓細鏈鍚,鎶婃墍闇瑕佺殑澶氶」鍗曞厓鏍奸変腑. 鍙抽敭, 閫夋嫨"閫夋嫨鎬х矘璐",鍑虹幇瀵硅瘽妗, 鍐嶅嬀閫"鎵规敞",鍏跺畠閮藉幓鎺. 鍐嶇‘璁, 灏監K浜.Excel 鎬庢牱缁欏涓崟鍏冩牸鍚屾椂鍔犳壒娉 浜excel 涓瑕佹兂鍚屾椂鍔犲涓崟鍏冩壒娉紝寰楃敤vba鏉ュ疄鐜颁簡銆傛壒娉ㄩ夐」閲岄潰鏄病鏈夌洿鎺ョ粰澶氫釜鍗曞厓鏍鍔犳壒娉ㄧ殑鍔熻兘鐨 Excel濡備綍缁欏崟鍏冩牸娣诲姞鎵规敞銆 1銆...
绛旓細杩欎釜灏卞彲浠ワ細Function 鎵规敞(rang As Range) As String '鎻愬彇鎵规敞鏂囧瓧鍑芥暟锛氬彧鏈変竴涓弬鏁帮紝鍗冲崟鍏冩牸寮曠敤銆傛壒娉 = rang(1).Comment.Text End Function 鐩存媺鐢ㄢ=鎵规敞(A1)"锛岀劧鍚庡崄瀛椾笅鎷夈
绛旓細excel鎻愬彇鎵规敞鍐呭鍒板崟鍏冩牸锛屼娇鐢╡xcel鍐呯疆鍛戒护鏃犳硶瀹屾垚銆俥xcel鎻愬彇鎵规敞鏂规硶涓锛氭瘮濡備笅鍥炬墍绀篈2锛欰9鍗曞厓鏍煎尯鍩熼兘娣诲姞浜嗘壒娉紝灏嗚繖浜涙壒娉ㄥ唴瀹规彁鍙栧埌C2锛欳9鍗曞厓鏍煎尯鍩閲岄潰銆傛瘮濡侫2鍗曞厓鏍肩殑鎵规敞鍐呭鏄細娌℃湁閿閲忥紝瀵瑰簲鐨凜2鍗曞厓鏍兼樉绀虹殑鍐呭灏辨槸锛氭病鏈夐攢閲忋俥xcel鎻愬彇鎵规敞鐨鎿嶄綔姝ラ濡備笅锛氭寜ATL+F11锛屾墦寮VBE...
绛旓細娣诲姞鎵规敞鐨杩囩▼鍙互褰曞埗瀹忚幏寰.鎵规敞鐨勫唴瀹瑰繀椤绘槸鏂囨湰鏍煎紡.鍙互鐢ㄤ袱涓柟娉曟潵鏀瑰彉:pz.Comment.Text Text:=CStr(Date)浣跨敤cstr鍑芥暟灏嗘暟鎹被鍨嬫敼涓烘枃鏈 pz.Comment.Text Text:="" & Date 闄勫姞涓涓┖鍊间娇寰楁棩鏈熺殑鍊煎彉鎴愪簡鏂囨湰.vba澶氭暟鎯呭喌涓嶉渶瑕佽浆鎹㈡暟鎹被鍨,鎵浠ヤ細瀵艰嚧涓涓棶棰:鍥犳枃浠剁被鍨嬮棶棰樿屾姤閿,鍚屾椂...
绛旓細鍙矘璐存壒娉 Dim c As Range For Each c In Range("A1:D50") '璁剧疆A1:D50涓殑姣忎釜鍗曞厓鏍鐨勬壒娉 With c .Comment.Text .Address End With Next c Application.CutCopyMode = False MsgBox "鑰楁椂" & (Timer - s) & "绉"End Sub鍦ˋ1鍗曞厓鏍閲璁剧疆濂芥壒娉紝...
绛旓細杩欎釜鍙互浣跨敤VBA绋嬪簭鏉ュ鐞嗐傚亣璁惧緟娣诲姞娉ㄩ噴鐨鍗曞厓鏍间负绗5鍒楋紝鍒橵BA绋嬪簭浠g爜濡備笅锛歋ub AddCommentFormula()Dim Str, iOn Error Resume Next '蹇界暐杩愯杩囩▼涓彲鑳藉嚭鐜扮殑閿欒Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '瀹氫箟宸ヤ綔琛⊿heet1For i = 2 To 1000 '浠庣2琛屽埌绗1000琛 If m...
绛旓細End Sub 4銆佹帴鐫锛屽湪VBA缂栬緫鍣ㄧ殑宸︿晶杈撳叆妯″潡鐨勫悕绉帮紝濡備笅鍥炬墍绀恒5銆侀殢鍚庯紝鍏抽棴VBA缂栬緫鍣紝杩斿洖鍒癊xcel宸ヤ綔琛紝鐒跺悗渚濇鍗曞嚮鈥滆鍥锯-->鈥滃畯鈥-->鈥滄煡鐪嬪畯鈥濓紝濡備笅鍥炬墍绀恒6銆佹渶鍚庯紝鍦ㄥ脊鍑虹殑绐楀彛涓崟鍑诲畯鍚嶇О锛岀劧鍚庡崟鍑烩滄墽琛屸濇寜閽嵆鍙紝濡備笅鍥炬墍绀恒傝繖鏍峰氨瀹炵幇浜嗙敤VBA鍦╡xcel涓坊鍔涓涓伐浣滆〃...
绛旓細EXCEL VBA鏀瑰彉鎵规敞鐨妗嗙殑澶у皬鐨勬柟娉曪細1.鎵撳紑 excel 宸ヤ綔钖勶紝鎸変笅 Alt + F11 閿紝璋冨嚭excel鐨刅BA缂栬緫鍣紱2. 鍗曞嚮鑿滃崟鏍忎笂鐨勨鎻掑叆鈥濓紝鎵撳紑鐨勮彍鍗曞崟鍑烩滄ā鍧椻濆懡浠わ紝濡傚浘锛3. 灏嗕笅闈㈢殑浠g爜澶嶅埗鍒版ā鍧楁涓紝杩欓噷浠ュ皢鎵鏈夋壒娉ㄧ殑瀹藉害鏀逛负350涓轰緥锛歋ub 鎵归噺淇敼鎵规敞妗嗗搴()Dim Cmt As CommentFor Each...