- 博客(23)
- 收藏
- 关注
RSS订阅转载 VBA 字典数组运用查询系统
Sub find() '找Set d = CreateObject("scripting.dictionary")With Sheets("data") arr = .Range("a2:i" & Cells(Rows.Count, 1).End(xlUp).Row)End WithFor i = 1 To UBound(arr) d(arr(i, 5)) = Array(ar...
2018-06-28 15:55:35
8847
1
原创 VBA复习-6-26
1.偏移到未知行，加表头等。Sub offset应用1()Dim i%For i = 2 To 8 Step 2 [a1:e1].Copy [a1:e1].Offset(i)Next iEnd Sub2.resize属性 调整区域
2018-06-26 17:55:22
278
原创 VBA常用基础复习-6-25
1 运用工作表函数MsgBox Application.WorksheetFunction.CountIf(range("a1:a10"), "钢笔")2 VBA函数MsgBox VBA.Format(range("b1"), "yyyy年m月d日")3 like函数（相似）c = "excel函数" Like "*函*"4 单元格复习Range("a1").Selec
2018-06-25 17:58:29
488
转载 如何找到最后一个单元格VB
Sub 最后的单元格()a = Cells(Rows.Count, 1).End(xlUp).Row 'end属性b = Columns(1).Find("*", , , , , xlPrevious).Row 'find方法c = Cells.SpecialCells(xlCellTypeLastCell).Row 'specialcells方法d = Sheet1.UsedRange....
2018-04-23 14:40:31
1253
转载 查询系统VB
'Sub 查询系统()ends = Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格Range("g3:l999").Clear '清除之前所有的筛选结果For Each Rng In Range("a2:a" & ends) m = m + 1 If Rng ...
2018-04-23 14:36:53
865
原创 查询系统原理
遍历，rows/columns.count续接，appliction.counta区域调整，resize迁移，表头下开始记录，offset()
2018-04-17 18:11:05
321
原创 VB选中我的区域 填上我要求的东西
Sub select2()[a1].CurrentRegion.SelectDim i As RangeFor Each i In Selection If i = "" Or i = "N" Then i = "false" End IfNextEnd Sub
2018-04-16 17:40:27
438
转载 动态选择单元格
Sub 实例1动态选单元格或区域()Dim i%i = Application.CountA(Range("c:c")) '找到c列中已使用的最后一个单元格位置Range("c" & i).Select '选择C列最后一格Range("a1", "c" & i).Select '选择A1到C列的最后一格（方法一）Range("a1:c" & i).Select
2018-03-28 18:14:28
580
转载 汇总到同一个表格
Sub test() Dim rg As Range Dim sh As Worksheet Dim irow% Cells.Clear For Each sh In Worksheets With Sheets("汇总") If sh.Name <> "汇总" Then Set rg =
2018-02-02 10:18:06
406
转载 多工作簿数据提取（简单版）
Option ExplicitSub 多工作簿取数()Dim Fs$, MyP$, Wb As Workbook, kMyP = ThisWorkbook.Path & "\" '获取写代码的工作簿所在的路径Fs = Dir(MyP) 'dir函数可以获取文件夹下的文件，第1次要整个路径DoIf Fs <> "汇总表.xls" Then '判断目的使用汇总表不参入Set Wb = W
2018-02-02 10:16:53
7807
1
转载 提取不同工作簿中的同一列数据
Sub demo() Dim ar, cr, Str As String, FilePath As String, i As Integer, j As Integer, n As Long Application.DisplayAlerts = False Application.ScreenUpdating = False FilePath = ThisWork
2018-02-02 10:16:06
4875
转载 筛选后的过滤内容复制到另外一个表格
Private Sub CommandButton1_Click()Sheets("Tem").Activate 'tem为原始表格ActiveSheet.AutoFilterMode = FalseSheets("Tem").Rows("1:1").SelectSelection.AutoFilter '将原始表格设为过滤状态Selection.AutoFilter Field:=10, Cri
2018-01-25 16:07:50
3390
2
转载 下标越界的解决方法
如果使用数组时，数组的下标超出数组的可取值范围就会出现这个错误，这个数组可以是自定义的也可以是系统自带的。1.自定义数组：dim arr1(1 to 5)arr1(10)=555因为arr1数组为1到5，这里却是10，所以就会报下标越界错误。2.系统自带的数组：一个excel工作表表有3张SheetSub 下标越界() MsgBox Sheets(4).N
2018-01-25 15:59:46
35485
转载 筛选出来的单元格，粘贴成值
Sub ConvAfterFilter()On Error Resume NextApplication.ScreenUpdating = FalseDim Rng As RangeFor Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)If Rng.HasFormula Then
2018-01-25 15:37:05
928
转载 VBA END 用法
For irow = 1 To [A65536].End(3).Row If Abs(Cells(irow, 1).End(2) - Cells(irow, 256).End(1)) / Cells(irow, 1).End(2) > 0.1 Then Cells(irow, 1).End(2)(1, 2) = Cells(irow, 256).End(1) Nex
2018-01-25 11:01:02
14340
2
原创 结合公式管理器的插入列VBA
Sub insert()Dim i As IntegerDim j As Integerr = Cells(1, Columns.Count).End(xlToLeft).ColumnColumns(r).insert shift:=xlToLeftEnd Sub在空白那一列的上方标志数字，以表示数到的那一列，然后可以向左插入一列。在插入列上，写上前一列
2018-01-25 10:54:37
466
转载 合并工作表
Sub Combine()Sheets(1).Name = "Combine"Application.ScreenUpdating = FalseFor i = 1 To Sheets.Count If Sheets(i).Name "Combine" Then k = Range("A65536").End(xlUp).Row + 1 Sheets(i
2018-01-24 16:42:53
334
原创 复制表格，自动调整列宽
特别调整的表格部分 pastespecial语法 代码部分：Sub RngCopy()Application.Displayalerts=FalseSheet1.Range("A1").CurrentRegion.CopyWith Sheet2.Range("A1").PasteSpecial xlPasteColumnWidths.PasteSpecial xlPasteAllEnd
2017-08-16 16:34:35
475
原创 拆分表格 不同工作簿
Sub chaifen()Dim r, Arr, d, k, iDim rng As RangeDim sht As Worksheet, Sht1 As WorksheetSet d = CreateObject("Scripting.Dictionary")Application.ScreenUpdating = FalseApplication.DisplayAlerts = Fa
2017-08-10 20:25:23
614
转载 字典法
字典法set d=createobject("scripting.dictionary")上面的代码就相当于你准备好了一本空白的字典了，之后你就要往其中添加内容，比如说我们现在往字典里加入第一个词条“VBA”，并且给这个词条加上解释“一种Excel中使用的编程语言”，看下面的代码 d("VBA")="一种Excel中使用的编程语言"这样就给字典加了一个词条“VBA”并且给它赋了值，这里赋的值可以随便
2017-08-04 17:24:01
620
转载 竖排汇总工作表
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦：Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
2017-08-03 15:40:59
366
原创 2017-8-3 VBA
数组,数据，类型。For-each。For-next语句数据-Integer 范围 32367-String 范围 20亿【字符串长度】-mypath问题-Dir显示磁盘整个内容-变量声明 $为文本型，&为整数型-所谓遍历，是指沿着某条搜索路线，依次对树中每个结点均做一次且仅做一次访问。-GetObject方法打开工作簿是隐藏的，单步运行时你也可以看到屏幕闪了一下，
2017-08-03 15:38:07
358
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人