vba
文章平均质量分 67
garnett2003
这个作者很懒,什么都没留下…
展开
-
excel——文本转批注
Sub 文本转批注()'2010年11月5日编写 Dim i%, j%, icount%, jcount% With ActiveSheet icount = .Cells(65536, 1).End(xlUp).Row '取得工作表最下方的单元格的行标 jcount = .Cells(1, 256).End(xlToLeft).Column '取得工作表最右边的单元格的列标原创 2010-11-05 17:06:00 · 1297 阅读 · 0 评论 -
汇总各表数据至主表
<br />Sub 按钮2_Click() Dim sht As Worksheet Dim rng As Range Dim a%, i% For Each sht In Sheets If sht.Name <> "主表" Then If IsEmpty(sht) = False Then a = sht.Range("B65536").End(xlUp).Row原创 2011-01-17 20:25:00 · 597 阅读 · 0 评论 -
计算加权平均-vba
Sub 计算加权() Dim rng As Range Dim sht As Worksheet Dim a%, b%, k%, i%, j% For Each sht In Sheets a = 5 For Each rng In sht.Range("H6:H469") If IsEmpty(rng) = True Then b = rng.Row原创 2011-01-17 15:21:00 · 1776 阅读 · 0 评论 -
遍历指定目录下的所有文件
'以查找D:\盘下所有EXCEL文件为例Sub M_dir() '这是一个主模块,中间调用两人子模块,一个遍历指定目录下的所有文件夹,一个遍历文件夹下的所有EXCEL文件 Application.DisplayAlerts = False Application.ScreenUpdating = False On Error Resume Next Sheets.原创 2011-11-02 14:54:44 · 1316 阅读 · 0 评论 -
遍历指定文件夹,逐个打开每一个excel文件,进行操作
Sub openExcel() Dim myPath$, myFile$, WB As Workbook Dim icount% icount = 0 Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动 myPath = "E:\" '把文件路径定义给变量 myFi原创 2011-12-08 20:02:20 · 8953 阅读 · 2 评论 -
excel下拉菜单(1\2\3级)制作方法介绍
内容提要:本文介绍使用数据有效性和一些函数、定义名称结合,完成Excel下拉菜单的制作。 excel下拉菜单的制作也是经常使用的一个操作,通常就是利用数据有效性建立分类下拉列表实现。 Excel下拉菜单最常见的就是一级、二级、三级联动下拉菜单。第一:Excel一级下拉菜单基础制作 在EXCEL中制作一个下拉列表菜单,可以显示下面有多少项。 比如用A1:A6的数据源在C1转载 2012-05-03 17:22:52 · 9824 阅读 · 1 评论 -
excel 组合框控件使用方法
本文一起学习excel组合框控件的使用方法。excel组合框使用,一般用在市场调查问卷或者制作动态图表等等场景。第一,excel组合框是什么,用来做什么的 excel组合框控件:就是将文本框与列表框组合起来以创建下拉列表框。组合框比列表框更加简洁,用户单击下箭头可以显示项目列表。excel组合框控件显示文本框中的当前值。第二, excel组合框控件在哪里,如何调出excel 组合框控转载 2012-05-04 09:44:29 · 24619 阅读 · 1 评论