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

MyColumn=Target.Column获取活动单元格所在的列号MyRow=Target.Row获取活动单元格所在的行号工作表名.UsedRange.Rows.Count指定工作表已使用的行的总数工作表名.UsedRange.Columns.Count指定工作表已使用的列的总数工作表名.Cells(行号,列号).Value获取指定工作表某个单元格的值Worksheets(m).Cells(i,j).Value使用通用的序号方法，调用某个工作表的某个单元格的数据fori=1toWorksheets.Count循环当前工作薄的每一个工作表下面来一段如上代码的综合使用：If(Target.Column=1)ThenForj=1ToSheet2.UsedRange.Rows.CountIf(Trim(Sheet1.Cells(Target.Row,1).Value)=Trim(Sheet2.Cells(j,1).Value))ThenSheet1.Cells(Target.Row,2).Value=Sheet2.Cells(j,2).ValueEndIfNextjEndIf如下的代码，是在VBA环境下调用Excel的函数。Worksheets(1).Range(Cells(6,1),Cells(6,1))=Application.WorksheetFunction.Sum(Range(Cells(1,1),Cells(4,2)))Worksheets(1).Range(Cells(6,2),Cells(6,2))=Application.WorksheetFunction.Average(Worksheets(1).Range(Cells(1,1),Cells(4,2)))'最好的调用方法了Worksheets(1).Range(C6)=Application.Max(Worksheets(Sheet1).Range(A1:B4))Worksheets(1).Range(D6)=Application.Min(Range(A1:B4))Worksheets(sheet1).Range(E6)=WorksheetFunction.Median(Range(A1:B4))再来一下特殊的代码：Excel检查用户按了F1或F3，自动执行某过程的代码Application.onKeykey:={F1},procedure:=MyAutoInput1Application.onKeykey:={F3},procedure:=MyAutoInput2下面是完整的代码：PrivateSubWorkbook_Open()Application.onKeykey:={F1},procedure:=MyAutoInput1Application.onKeykey:={F3},procedure:=MyAutoInput2EndSubPrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)MyRow=Target.RowEndSubPublicMyRowAsIntegerSubMyAutoInput1()ActiveSheet.Cells(MyRow,4).Value=200EndSubSubMyAutoInput2()ActiveSheet.Cells(MyRow,4).Value=300EndSub最后，再贴上一组代码，分别返回Excel文件所在的路径，注意，返回的路径方式是不一样的：'MsgBoxApplication.PathActiveSheet.Cells(1,1).Value=Application.Path'MsgBoxThisWorkbook.PathActiveSheet.Cells(2,1).Value=ThisWorkbook.Path'MsgBoxApplication.DefaultFilePathActiveSheet.Cells(3,1).Value=Application.DefaultFilePath'MsgBoxApplication.ActiveWorkbook.PathActiveSheet.Cells(4,1).Value=Application.ActiveWorkbook.Path'MsgBoxApplication.ActiveWorkbook.FullNameActiveSheet.Cells(5,1).Value=Application.ActiveWorkbook.FullName'MsgBoxApplication.ActiveWorkbook.NameActiveSheet.Cells(6,1).Value=Application.ActiveWorkbook.Name如上的代码够经典了，适合擅长于使用智能化的通用的代码的学习者使用。以后有时间有机会，再给大家贴出更多的代码。医药网精心发布，谢谢阅读收藏，谢谢！