ExcelVBA常用代碼VSTO版

1、Excel VBA 常用代碼 VSTO 版(C#)1- 1使用Range屬性”A3：F6, B1：C5M.SelectO；1-2使用Cells屬性for(int icell=l:icellstring FindAddress =；Rng = A：A；string strFind =；if 0 !=rng = (strFind, false): if (rng != null)FindAddress =；dorng=(rng);while(rng != null &!= FindAddress):5- 2使用Like運算符C#中沒有Like運算符，可以用正則表達式來處理.6- 1替換單元格內(nèi)字符

2、串wAl：A5w.Replace(w 通州，南通)；7- 1復(fù)制單元格區(qū)域=false；Al. Al)；=true；7-2復(fù)制單元格區(qū)域時帶列寬大小 A1. 0;rng = Al；=使用選擇性粘貼A1. 0;rng = Al；=直接賦值的方法rng = Al；Rng = ，rAlCurrentRegion；9- 1單元格自動進入編輯狀態(tài)先在” VSTO設(shè)計器生成的代碼”內(nèi)加入 +二 new (工作表 1 SelectionChange):然后在事件代碼中輸入if = 3 & = 1)if =wF2tt)；10- 1禁用單元格拖放功能if A1：A15) != null)=false； else

3、=true；11- 1單元格字體格式設(shè)置 rng = Al”. Font； 宋體； =，rBold,r；=18；=3；=2；11- 2設(shè)置單元格內(nèi)部格式 rng = Al” Interior； =3；= =6；11- 3為單元格區(qū)域添加邊框rng = ,rB4：G10rJ. Borders；=5；col = 5；B4：G1O. BorderAround2為單元格區(qū)域應(yīng)用多種邊框格式col = 5；=col；rng = B4：G1O. Borders Rng = B4：G10. Borders =col；丨B4：G10. BorderAround2 col）；11- 4靈活設(shè)置單元格的行髙列寬r

4、ngl = Al;rng2 = Bl；=單元格中建立數(shù)據(jù)有效性rng = Al：A10；T,2,3,4,5,6,7,8）；12- 2判斷單元格是否存在數(shù)據(jù)有效性tryif A12. = 0）（單元格中有數(shù)據(jù)有效性?。?；catch（單元格中沒有數(shù)據(jù)有效性?。?； 12- 3動態(tài)的數(shù)據(jù)有效性void 工作表 1 Selecti on Cha nge Target） if = 1 & = 1 & 1）主機，顯示器);12- 4自動展開數(shù)據(jù)有效性下拉列表% downw）；13- 1在單元格中寫入公式【C1：C1O|. Formula=,=sum （Al, Bl）；13- 1寫入單元格區(qū)域數(shù)組公式IC1F

5、ormulaArray =二Al：A2*B1：B2；13- 2檢查單元格是否含有公式rng = if ）（公式區(qū)域為：+ 23）. Address0, 0）；else if（全部單元格為公式?。籩lse（全部單元格不為公式?。?；注：因為HasFormula返回的是一個dynamic類型的值,C#的swith貌似并不支持.13-3判斷單元格公式是否存在錯誤未研究出來，如何調(diào)用，用了 Excel自帶函數(shù)來處理的.rng = AlOffset0, 1:=,=iserror （Al），r；ifCAI單元格錯誤類型為：” + Al.Text）； else（Al 單元格結(jié)果為：+ Al”. Text）；

6、13-4取得單元格中公式的引用單元格 rng = ClPrecedents； (公式所引用的單元格有：+;13- 5將單元格中的公式轉(zhuǎn)換為數(shù)值rng = C1：C1O； =二sum(Al：Bl)；=;14- 1判斷單元格是否存在指注if AlComment = null)(Al單元格中沒有批注”)；elseCA1單元格中批注內(nèi)容為：” + ”n” + ”A1”.()； 14- 2為單元格添加批注rng = Al；if = null)=true；14- 3刪除單元格中的批注rng = Al；if != null)15- 1判斷單元格區(qū)域是否存在合并單元格rng = if )區(qū)域中包含合并單元格)

7、；else if(區(qū)域中全部為合并單元格！)；else(區(qū)域中沒有合并單元格！)；15- 2合并單元格時連接每個單元格的文本 rng = string s =；foreach Rng in rng)s = s + ；=false；0；=S；=true；15- 3合并內(nèi)容相同的連續(xù)單元格int rEnd = A65535.End = false；for (int i = rEnd； i = 2； i)rng = i, 1;if = T, 01. Value)T, 0). Merge():15-4取消合并單元格時在每個單元格中保留內(nèi)容 int rEnd = A65535. End int m =

8、rEnd, 1.； Cellsl, 1, CellsrEnd, 1. UnMerge()；=false；for (int i = 1； i rEnd+m； i+) rng = i, 11;if 1, 0|. Text =1, 0. Value =；16- 1髙亮顯示單元格區(qū)域rng = 8；17- 1雙擊被保護單元格時不顯示提示消息框 if(此單元格已保護，不能編輯)；Cancel = true；18- 1重新計算工作表指定區(qū)域 oldCalcultion = = ，rAl： D10r . Calculate (): =oldCalcultion；19- 1錄入數(shù)據(jù)后單元格自動保護 if(T2

9、3456)；if !=true；(T23456)；20- 1使用單元格的Address屬性 if 0,0=ttAln)(”你選擇了 Al單元格J; 20- 2使用Column屬性和Row屬性int i=0；if = 1 & 11 & ,out i)0, 1. Value = i * 3；203 使用 Intersect 方法rng =Al：A10, ,Cl：C10r)；if (rng != null)(你選擇了 + 0, 0 + 單元格);21- 1使用工作表的名稱工作表 2. ActivateO ；21-2使用工作的索引號使用工作表的代碼名稱21-4用ActiveSheet屬性引用活動工作表

10、 (選擇工作表的方法23- 1使用For遍歷工作表int wkCount =string s =；for (int i = 1； i = wkCount； i+)(工作簿中含有以下工作表：+ 十+ S)；23- 2使用ForEach語句string s =；foreach wk in s = s + n；(工作簿中含有以下工作表：+ “n + s)；24- 1在工作表中向下翻頁shs= wkThis = wkNext；int wkindex =；int wkCount =；if (wkIndex wkCount)wkNext =；0；25- 1工作表的添加與刪除wksThis = wsAdd

11、= wksThis): 二數(shù)據(jù)；25-1批量添加工作表wksThis = wksNew = null；if = 3)for (int i = 1； i = 10； i+)wksNew = wksThis)；二”第+ () + ”個工作表J26- 1禁止刪除指定工作表cmdCtl =可以找到刪除按鈕，但是無法禁止，也無法加載單擊事件，非常奇怪.而且在0ffice 2010里，也無法禁用某個按鈕，但是整個菜單是可以的.27- 1自動建立工作表目錄int i = for (int n = 1； n 1 & =1； i+)if = 0)i. Delete()；32- 1刪除工作表的重復(fù)行int rng

12、End = A65535.Endfor (int i = rngEnd； i=l； i)if i, 1) 1)i. Delete()；33- 1定位刪除特定內(nèi)容所在的行(刪除A列中包含” Excel”字符的行=false；int rngEnd = A65535. End string str = Excel.*；for (int i = rngEnd； i = 1； i)rng = i, 1;if , str)(i. Delete()；注：需引用using判斷是否選中整行int i =rng = if = i)(你選中了 一整行)；else（你沒有選中了 一整行）;35- 1限制工作表的滾動區(qū)

13、域=B4：H12；36- 1復(fù)制自動篩選后的數(shù)據(jù)區(qū)域if1);37- 1使用髙級篩選獲得不重復(fù)記錄rngSheet2 =()；1,Al.(true)；38- 1工作表的保護與解除保護(T2345)；1,1. Value=100；(12345)；39- 1奇偶頁打印int pg = for (int i = 1； i = pg； i=i+2)(1, i);40- 1使用工作簿的名稱string str =工作簿的引用方法.xlsx1. Path； (str);40-3 使用 ThisWorkbook使用 Acti veWorkbook新建工作簿Nowbook；string shName = new string4 余額，單價，數(shù)量，金額;string arr = new string12 01 月 ”，02 月，03 月，04 月，05 月，06 月，07 月，08 月”，”09 月，T0 月”，”11 月，12 月” ；=4