vba操作Excel经典的通用的代码之一1539.pptxVIP

MyColumn=Target.Column　获取活动单元格所在的列号MyRow=Target.Row　获取活动单元格所在的行号工作表名.U;sedRange.Rows.Count　指定工作表已使用的行的总数工作表名.UsedRange.Columns.Count　指定工作表已使用;的列的总数工作表名.Cells(行号, 列号).Value　获取指定工作表某个单元格的值Worksheets(m).Cells(i, j).;Value　使用通用的序号方法，调用某个工作表的某个单元格的数据for i=1 to Worksheets.Count　循环当前工作薄的每一;个工作表下面来一段如上代码的综合使用：If (Target.Column=1) ThenFor j=1 To Sheet2.UsedRang;e.Rows.CountIf (Trim(Sheet1.Cells(Target.Row, 1).Value)=Trim(Sheet2.Ce;lls(j, 1).Value)) ThenSheet1.Cells(Target.Row, 2).Value=Sheet2.Cells(;j, 2).ValueEnd IfNext jEnd If如下的代码，是在VBA环境下调用Excel的函数。Worksheets(1).Ra;nge(Cells(6, 1), Cells(6, 1))=Ap