没有合适的资源？快使用搜索试试~ 我知道了~

文库首页后端C#Excel VBA常用代码VSTO版(C#)

Excel VBA常用代码VSTO版(C#)

excel

vsto

需积分: 5 7 下载量 170 浏览量 2022-10-24 16:43:19 上传评论 2 收藏 8.14MB PDF 举报

温馨提示

试读

26页

Excel VBA常用代码VSTO版(C#)

资源详情

资源评论

Excel VBA常用代码VSTO版(C#)

注：代码均为ExcelHome论坛a5658805整理分享，欢迎加入C#学习交流Q群833656579。

1-1 使用Range属性

this.Range["A3:F6, B1:C5"].Select();

1-2 使用Cells属性

for(int icell=1;icell<=100;icell++)

{

this.Application.Worksheets[2].cells[icell, 1].value = icell;

}

1-3 使用快捷记号

#N/A

1-4 使用Offset属性

this.Range["A1:A3"].Offset[3, 3].Select();

1-5 使用Resize属性

this.Range["A1"].Resize[3, 3].Select();

1-6 使用Union属性

this.Application.Union(this.Range["A1:D4"], this.Range["E5:H8"]).Select();

1-7 使用UsedRange属性

this.UsedRange.Select();

1-8 使用CurrentRegion属性

this.Range["A5"].CurrentRegion.Select();

2-1 使用Select方法

this.Application.Worksheets[3].Activate();

this.Application.Worksheets[3].Range["A1:B10"].Select();

2-2 使用Activate方法

this.Application.Worksheets[3].Activate();

this.Application.Worksheets[3].Range["A1:B10"].Activate();

注:此处的代码,可以运行,但是只会选中A1这一个单元格

2-3 使用Goto方法

this.Application.Goto(this.Application.Worksheets[3].Range["A1:B10"], true);

3-1 获得指定行,列中的最后一个非空单元格

Excel.Range rng = this.Range["A65535"].End[Excel.XlDirection.xlUp];

MessageBox.Show("A列中最后一个非空单元格是" + rng.Address[0, 0] + ",行号"

+ rng.Row.ToString() + ",数值" + rng.Text);

4-1 定位单元格

Excel.Range rng = this.UsedRange.SpecialCells(Excel.XlCellType.xlCellTypeFormulas);

rng.Select();

MessageBox.Show("工作表中有公式的单元格为:" + rng.Address);

5-1 查找单元格

Excel.Range rng, Rng;

Rng = this.Range["A:A"];

string strFind = textBox1.Text;

if (strFind.Trim() != string.Empty)

{

rng = Rng.Find(strFind, Rng.Cells[Rng.Cells.Count],

Excel.XlFindLookIn.xlValues,Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByRows,

Excel.XlSearchDirection.xlNext, false);

if (rng != null)

{

this.Application.Goto(rng, true);

}

else

{

MessageBox.Show("没有找到单元格!");

}

注:C#中没有InputBox,这里用文本框代替,另,C#中没有with……End with语句.

5-2 查找单元格重复数据

Excel.Range rng, Rng;

string FindAddress = string.Empty;

Rng = this.Range["A:A"];

string strFind = textBox1.Text;

if (strFind.Trim() != string.Empty)

{

rng = Rng.Find(strFind, Rng.Cells[Rng.Cells.Count], Excel.XlFindLookIn.xlValues,

Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, false);

if (rng != null)

{

FindAddress = rng.Address;

{

rng.Interior.ColorIndex=6;

rng=Rng.FindNext(rng);

}

while(rng != null && rng.Address != FindAddress);

}

5-3 使用Like运算符

C#中没有Like运算符,可以用正则表达式来处理.

6-1 替换单元格内字符串

this.Range["A1:A5"].Replace("通州", "南通");

7-1 复制单元格区域

this.Application.DisplayAlerts = false;

this.Range["A1"].CurrentRegion.Copy(this.Application.Worksheets[2].Range["A1"]);

this.Application.DisplayAlerts = true;

7-2 复制单元格区域时带列宽大小

this.Range["A1"].CurrentRegion.Copy();

Excel.Range rng = this.Application.Worksheets[3].Range["A1"];

rng.PasteSpecial(Excel.XlPasteType.xlPasteColumnWidths);

rng.PasteSpecial(Excel.XlPasteType.xlPasteAll);

this.Application.CutCopyMode = Excel.XlCutCopyMode.xlCut;

8-1 使用选择性粘贴

this.Range["A1"].CurrentRegion.Copy();

Excel.Range rng = this.Application.Worksheets[3].Range["A1"];

rng.PasteSpecial(Excel.XlPasteType.xlPasteValues);

this.Application.CutCopyMode = Excel.XlCutCopyMode.xlCut;

8-2 直接赋值的方法

Excel.Range rng = this.Application.Worksheets[3].Range["A1"];

Excel.Range Rng = this.Range["A1"].CurrentRegion;

rng.Resize[Rng.Rows.Count, Rng.Columns.Count].Value = Rng.Value;

9-1 单元格自动进入编辑状态

先在”VSTO 设计器生成的代码”内加入

this.SelectionChange += new Excel.DocEvents_SelectionChangeEventHandler(工作表

1_SelectionChange);

然后在事件代码中输入

if (Target.Column == 3 && Target.Count == 1)

{

if (Target.Text == string.Empty)

{

this.Application.SendKeys("{F2}");

}

10-1 禁用单元格拖放功能

if (this.Application.Intersect(Target, this.Range["A1:A15"]) != null)

{

this.Application.CellDragAndDrop = false;

}

else

{

this.Application.CellDragAndDrop = true;

}

剩余25页未读，继续阅读

评论收藏

内容反馈

Excel VBA常用代码VSTO版(C#)

评论0

最新资源

Excel VBA常用代码VSTO版(C#)

评论0

最新资源

相关推荐

VBA常用代码VSTO(C#版).docx

Excel-VBA常用代码VSTO.docx

Excel VBA常用代碼VSTO版20150422.docx

Excel VBA编程的常用代码

Excel_VBA编程的常用代码

Excel与VBA编程中的常用代码

Excel VBA常用技巧代码

VSTO开发Excel工具箱源码（VB.NET版）.zip

服务器帮助：此VSTO加载项允许用户ping服务器列表并为Microsoft远程桌面管理器Excel表创建文件。 这用于快速确定列表中哪些服务器脱机。 它以3个不同的版本编写，分别是C＃和VB.NET中的VSTO加载项以及VBA加载项

Excel VBA代码荟萃

Excel VBA常用技巧

Excel-VBA常用代码.pdf

VBA(Excel)代码.doc

VBA常用技巧-Excel

VSTO添加到WPS方法

VSTO源码教程.pdf

VSTO插件插件代码源码.zip

VBA常用代码.pdf

VBA to VSTO VS2010项目代码

ArcObject常用VBA代码！

ArcObject常用VBA代码

VBA＋AO常用代码

Professional VSTO 2005: Visual Studio 2005 Tools for Office

Microsoft Press-Programming Microsoft Outlook And Exchange 2003 (2 of 2)

服务器帮助：此VSTO加载项允许用户ping服务器列表并为Microsoft远程桌面管理器Excel表创建文件。这用于快速确定列表中哪些服务器脱机。它以3个不同的版本编写，分别是C＃和VB.NET中的VSTO加载项以及VBA加载项