vba求奇数偶数和的循环代码之递增递减循环
　　一、求偶数之和　　求1000以内的偶数和。　　第一种代码：变量递增的　　Sub 求1到1000之间偶数和()　　Dim I&, J&　　For I = 0 To 1000 Step 2　　J = J + I　　Next　　MsgBox &1到1000之间偶数和为& & J　　End Sub　　第二种代码：变量递减的　　Sub 求1到1000之间偶数和2()　　Dim I&, J&　　For I = 1000 To 1 Step -2　　J = J + I　　Next　　MsgBox &1到1000之间偶数和为& & J　　End Sub　　二、求奇数之和　　第一种代码：变量递增　　Sub 求1到1000之间奇数和()　　Dim I&, J&　　For I = 1 To 1000 Step 2　　J = J + I　　Next　　MsgBox &1到1000之间奇数和为& & J　　End Sub　　第二种代码：变量递减　　Sub 求1到1000之间奇数和2()　　Dim I&, J&　　For I = 999 To 1 Step -2　　J = J + I　　Next　　MsgBox &1到1000之间奇数和为& & J　　End SubExcel宏VBA编程中使用SQL语句进行统计
Excel宏VBA编程中使用SQL语句进行统计
9:14:00来源：
在工作中我们经常希望能作些小工具来完成EXCEL报表的自动生成，而往往数据源都来自于EXCEL格式，这时候如果我们在宏中使用SQL对EXCEL数据源进行查询是非常方便的与简单的。 在EXCEL 2007中，需要在选项中显示“开发工具， 该选项卡默认为隐藏。 在宏编辑界面中进行SQL数据查询以及生成报表的代码如下：Sub Static() Dim objNewWorkbook As Workbook '定义一个Workbook对象 Set objNewWorkbook = Workbooks.Add(ThisWorkbook.Path & "\模板.xlt") '使用模板文件新建一个EXCEL报表生成文件 Set objConnection = CreateObject("ADODB.Connection") '创建一个ADO连接 objConnection.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties='Excel 8.0;Hdr=Imex=1';Data Source=" & ThisWorkbook.FullName '设置连接字符串 strCommand = "select 施工人, count(*) as 拆电话 from [" & Sheet1.Name & "$] where 施工动作 = '拆' and 专业类型 = '电话' group by 施工人" '查询表单一中的数据源进行统计?objNewWorkbook.Sheets(1).Range("A3").CopyFromRecordset objConnection.Execute(strCommand) '将查询统计结果输出到目的报表文件的表单1的从A3开始的区域中
'下面代码是调用EXCEL的排序方式进行汉字排序，这里SQL语句中的排序对于汉字排序与期望结果不同 '使用EXCEL中的排序方法是根据EXCEL版本不同调用有所区别 Select Case Application.Version Case "11.0": objNewWorkbook.Sheets(1).Range("A3:M" & CStr(intSumRow - 1)).Sort Key1:=objNewWorkbook.Sheets(1).Range("A3"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal Case "12.0": objNewWorkbook.Sheets(1).Sort.SortFields.Clear objNewWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range("A3:A" & CStr(intSumRow - 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With objNewWorkbook.Sheets(1).Sort .SetRange Range("A2:M" & CStr(intSumRow - 1)) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Case Else End Select objConnection.Close End Sub?至此代码框架就搭建完成，可以进行复杂的SQL语句的关联查询?直接在EXCEL中添加按钮， 在点击事件中调用该过程即可?这种代码编写简单方便，不用再开发工具界面，非常适合快速进行报表生成问题描述：如何将奇数行的奇数、偶数行的偶数标注为红色？解答：使用条件格式-使用公式确定要设置格式的单元格，公式为=OR(AND(MOD(ROW(),2)=1,MOD(A1,2)=1),AND(MOD(ROW(),2)=0,MOD(A1,2)=0))关于我们微信Excel与您分享最酷最炫的办公软件使用技巧长按二维码关注公众号合作、投稿、交友粉丝QQ群Excel(LearningExcel)　
　文章为作者独立观点，不代表微头条立场
的最新文章
问：如何将ppt转换为高清图片？解答：今天给大家介绍通过修改注册表使得PPT可以直接导出高分辨率图片的方法。20年前，硅谷精神之父凯文·凯利在《失控》中的很多预言，到今天都变成了现实。6月20日，凯文·凯利在广州就《未来20年商业趋势与中国机遇》的主题分享了他对未来的二十年商业趋势预测。本文介绍如何自定义一个函数。朋友圈新技能又出了，表示被刷了一波节奏。。。全球最成功的风投企业之一、硅谷最知名的风投公司凯鹏华盈(KPCB)合伙人，享有“互联网女皇”美誉的玛丽·米克尔（Mary Meeker）发布了2015年新版的互联网趋势报告。全国网红模特联系名单.xlsxbing2015全年365张图片赏析创建数据透视表；数据排序；数据筛选；如何更新数据。PowerPoint素材库，不定期更新，欢迎关注。首期放出约99G模板、素材和优秀案例。问：如何将ppt转换为高清图片？解答：今天给大家介绍通过修改注册表使得PPT可以直接导出高分辨率图片的方法。20年前，硅谷精神之父凯文·凯利在《失控》中的很多预言，到今天都变成了现实。6月20日，凯文·凯利在广州就《未来20年商业趋势与中国机遇》的主题分享了他对未来的二十年商业趋势预测。本文介绍如何自定义一个函数。朋友圈新技能又出了，表示被刷了一波节奏。。。全球最成功的风投企业之一、硅谷最知名的风投公司凯鹏华盈(KPCB)合伙人，享有“互联网女皇”美誉的玛丽·米克尔（Mary Meeker）发布了2015年新版的互联网趋势报告。全国网红模特联系名单.xlsxbing2015全年365张图片赏析创建数据透视表；数据排序；数据筛选；如何更新数据。PowerPoint素材库，不定期更新，欢迎关注。首期放出约99G模板、素材和优秀案例。spss进行多元回归分析使用Excel数据分析工具进行多元回归分析全国网红模特联系名单.xlsx全球最成功的风投企业之一、硅谷最知名的风投公司凯鹏华盈(KPCB)合伙人，享有“互联网女皇”美誉的玛丽·米克尔（Mary Meeker）发布了2015年新版的互联网趋势报告。全球最成功的风投企业之一、硅谷最知名的风投公司凯鹏华盈(KPCB)合伙人，享有“互联网女皇”美誉的玛丽·米克尔（Mary Meeker）发布了2015年新版的互联网趋势报告。朋友圈新技能又出了，表示被刷了一波节奏。。。本文介绍如何自定义一个函数。问：如何将ppt转换为高清图片？解答：今天给大家介绍通过修改注册表使得PPT可以直接导出高分辨率图片的方法。20年前，硅谷精神之父凯文·凯利在《失控》中的很多预言，到今天都变成了现实。6月20日，凯文·凯利在广州就《未来20年商业趋势与中国机遇》的主题分享了他对未来的二十年商业趋势预测。问题描述：如何将奇数行的奇数、偶数行的偶数标注为红色？解答：使用条件格式-使用公式确定要设置格式的单元格，公问题是这样的：如何将一个Excel工作表的数据按一列的关键字拆分成多个工作表？举例说明：在平常工作中我们经常场景：按照行中内容将1个sheet拆分为多个工作簿。关于我们微信Excel与您分享最酷最炫的办公软件使用技巧长按二维码关注公众号合作、投稿、交友粉丝QQ群604学过线性回归的同学肯定都学过R-square，而且老师都会告诉你们，R-square是评判一个模型拟合好坏的五险一金，是指用人单位给予劳动者的几种保障性待遇的合称，包括养老保险、医疗保险、失业保险、工伤保险和生育保险，还有住房公积金。1月22日消息，据国外媒体报道，北京时间周四凌晨一点微软举行了Windows10发布会。有一个很热门的说法：一件事情，如果你坚持22天以上，就变成了习惯。迄今为止，我连续做了超过22天的事有很多：十二星座的“致命伤”，又准又狠！我觉得双子座准哭，分毫不差，快来看看你的！！！这些金融知识，你知道多少？①影子银行；②离岸金融；③金融脱媒；④企业债与公司债；⑤银行间债券市场；⑥银行间同业拆借市场；⑦市盈率与投资回报率……自从Office2013发布后，已经可以称得上是做图表的神器了。但是。。
(来自QQ群网友推荐)1用“Ctrl+PgDn / PgUp ”转换工作表2用 “Ctrl + 方向符”快速转换单元格当然，你也可那一年，我还是名副其实的Excel资深菜鸟，知道Excel，却不懂Excel。但在工作中却经常需要使用Exc网站分析中专业的工具除了Google Analytics, Adobe Sitecatalyst, Webtrends, 腾讯分析和百度统计等外，最常用的数据处理工具就是Excel了。技能精选Introduction to Microsoft Power Query for ExcelIMPORTALearningExcelExcel微信平台提供自助函数查询，通过回复函数英文名称可以获得使用指引。回复“wsq”可以获得登陆微社区链接。提问请直接留言。热门文章最新文章LearningExcelExcel微信平台提供自助函数查询，通过回复函数英文名称可以获得使用指引。回复“wsq”可以获得登陆微社区链接。提问请直接留言。EXCEL_VBA编程24学时教程.pdf
扫描二维码，下载文件到手机
当前文件信息
浏览：2964次
保存：176次
下载：1578次
您的VIP会员已过期，是否续费？
用户应遵守著作权法，尊重著作权人合法权益，不违法上传、存储并分享他人作品。举报邮箱：
京网文[0号 京ICP证100780号
《提醒》6月30日即将清空免费用户文件
尊敬的用户，很抱歉地通知您，微盘于6月30日停止向免费个人用户提供存储服务。（）您的文件处于排队等待删除状态，无法进行操作，将于近期删除完毕。感谢您5年来对微盘的支持，此次调整给您带来的不便我们深表歉意。
补充说明：
1、新浪VIP邮箱用户、微博会员及在会员有效期内可继续使用存储服务，文件依然保留。
2、微盘近期将对不良信息进行集中清理，因此全面暂停分享及站内搜索服务至整改结束。
3、若您有疑问，可将问题及您的微博昵称私信至@微盘 ，或者发邮件至，我们将尽快为您处理。