C:\Users\liucc-c\Documents\自定義 Office 模板

公式說明：=MOD(ROW(),2)=0，實(shí)現(xiàn)的效果是偶數(shù)行自動填充底紋顏色=MOD(ROW(),2)=1，實(shí)現(xiàn)的效果是奇數(shù)行自動填充底紋顏色如果需要奇偶行都設(shè)置顏色，只需要設(shè)定兩個(gè)條件，即條件1和條件2。同樣的方法，可以實(shí)現(xiàn)excel隔列變色，只需將公式中的row變?yōu)镃OLUMN就可以了，即：=MOD(COLUMN(),2)=0 右鍵-> sheet1-> 查看代碼-> 左側(cè)菜單欄選中 對應(yīng)的工作簿-> 右鍵-> 查看代碼-> 粘貼以下代碼 ( 1=黑色 2=白色 7=洋紅 等等 12=棕綠色 )Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 15 End With End Sub Sub 宏5() ' ' 添加批注 宏 ' ' 快捷鍵: Ctrl+j 'ActiveCell.AddCommentActiveCell.Comment.Visible = TrueActiveCell.Comment.Text Text:="MyName:" & Chr(10) & ""ActiveCell.SelectActiveCell.Comment.Shape.Select TrueWith Selection.Placement = xlMove.PrintObject = TrueEnd With End Sub Sub 宏1() ' ' 宏1 宏 ' ' 快捷鍵: Ctrl+k 'ActiveCell.Comment.Visible = False End Sub Sub?批量修改批注()?Dim?cm?As?Comment? For?Each?cm?In?Sheet1.Comments?'sheet1是我們要批量修改批注的工作表，可以按需改變。? With?cm.Shape.TextFrame.Characters.Font?.Name?=?"楷體"?.Size?=?14?.ColorIndex?=?3?End?With?Next?End?Sub?? 3、批量修改批注框大小，統(tǒng)一尺寸?Sub?批量修改批注框大小()??Dim?Cmt?As?Comment?? For?Each?Cmt?In?ActiveSheet.Comments??Cmt.Parent.Comment.Shape.Width?=?200??Next?Cmt??End?Sub?高度? Sub?批量修改批注框高度()?(window.cproArray = window.cproArray || []).push({ id: "u3054369" }); Dim?Cmt?As?Comment? For?Each?Cmt?In?ActiveSheet.Comments?Cmt.Parent.Comment.Shape.Height?=?250?Next?Cmt? End?Sub

總結(jié)

以上是生活随笔為你收集整理的Excel宏脚本的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。