资源描述：
《vba入门的基础语句》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VBA入门的基础语句选择一个工作表：www.mscbsc.com.cnq/M+v&Z.4y"hSheets("Balance").Activate.+t$Q1{(W4Q:@8h:g
2、 国内领先的通信技术论坛选择单元格：B4h,_1U)U#T9Hkm4W4^移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单Range("A1").Select(i8c%h$,w!o5M2g%x选择连续的单元格：;b(F"v5I/z9O&d9X"j8uwww.mscbsc.com.cnRange("A1:G8").Selectmscb
3、sc移动通信论坛拥有30万通信专业人员，超过50万份GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生活的社区。:N"}+mE5I选择不连续的单元格：
4、 国内领先的通信技术论坛-S4r$^.@)g*Range("A1,B6,D9").Select移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单!`1p$[$V'g4A2`Range("A1,B6:B10,D9").Select-i3B-h3f;e2m(U4Xmscbsc移动通信论坛拥有30万通信专业人员，超过50万份GSM/3G等通信技术资料，是国内领
5、先专注于通信技术和通信人生活的社区。选择当前活动的工作簿:(b,}&E
6、*f移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单ThisWorkbook.Activate-i8JW!~-e8N,`/h如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls”，例如：'Q1@4k$T+L0Amscbsc移动通信论坛拥有30万通信专业人员，超过50万份GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生活的社区。Windows("Totol.xls").Activate:j&i8N)l9B)W'
7、B0sMSCBSC移动通信论坛选择一个工作表：www.mscbsc.com.cn2p-_'A5K)g:f8ySheets("Balance").Activate.;O4B"G2n3D2j#I)a"C(A移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单单元格间移动：移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单1h)c*
8、.[0y9^7E.h8L,sActiveCell.Offset(13,14).Select
9、 国内领先的通信技术论坛5s-I$P+V/l(s0_Sele
10、ction.Offset(-3,-4).Selectwww.mscbsc.com.cn#Z7s%U6{.Y&n7n-YRange("G8").Offset(-3,-4).Select$GL)J!)~1u$MSCBSC移动通信论坛注意：你可以定义一变量，并且用offset来实现，例如：MSCBSC移动通信论坛*h7s6O1x(UvarFreightRowsCount=Range("A1").CurrentRegion.Rows.Countmscbsc移动通信论坛拥有30万通信专业人员，超过50万份GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生
11、活的社区。.H.D#J6Q$~/x;ZActiveCell.Offset(varFreightRowsCount,0).Select1@,f6~;e'`+F"h5k%
12、)K5F4Q
13、 国内领先的通信技术论坛选择整个工作表：*S*R#t7~+z5SCells.Select'}#K&w6^&T'M1eMSCBSC移动通信论坛选择当前单元格所在的区域（遇到空行/空列即止）：:E(A*w!h7c%L2x!I$IURange("A1").CurrentRegion.Select
14、 国内领先的通信技术论坛1w"q+t&v&G选择行或列：.E"z1a"A%H0P'
15、ww
16、w.mscbsc.com.cnRows("1").Select移动通信,通信工程师的家园,通信人才,求职招聘,网络优化,通信工程,出差住宿,通信企业黑名单.U7K6S!^#s:H9~#D!TColumns("A").Select!v$R;?j-D;O-3@/G或者：mscbsc移动通信论坛拥有30万通信专业人员，超过50万份GSM/3G等通信技术资料，是国内领先专注于通信技术和通信人生活的社区。$N8K"?)w+P.}2U:D0eActiveCell.EntireRow.Select1K+}+3P#?yMSCBSC移动通信论坛ActiveCell.Enti
17、reColumn.Select;,I
