VBA粗犷整理

PART1:

三、查找

1、从某一行向上/下找到第一个不为空的行

intRowPntEnd = ActiveSheet.Cells(intRowPntStart, intColPnt).End(xlDown).Row

m = Range("e65536").End(xlUp).Row

四、定位

2、在某个区域查找标记名称

For Each std In ActiveSheet.UsedRange

五、行列的range变量

ActiveSheet.Range("F3").Copy ThisWorkbook.Sheets(1).Range("A" & intRowPaste & ":A" & intRowPaste + intRowsCnt - 1)

=INDEX(AC:AC,Q21)

=IF(AND(IFERROR(MATCH(T21,$A$1:$A$99,0),"")<>"",INDEX(AC:AC,Q21)="Y"),N21,0)

=IF(AND(IFERROR(MATCH(T21,$A$1:$A$99,0),"")<>"",IFERROR(INDEX(AC:AC,Q21),"")<>""),"","")

• 公式篇
  
  ** 1、通过公式查找

*** Match函数：返回值是数字。

功能：在单元格区域中搜索指定项，然后返回该项在单元格区域中的相对位置。

例：在B列中，但找81所在的行号。

match(81,B:B,0)：最后一个0为无序查询，要写下才可以使用。

*** Index函数：返回表格或区域中的值或值的引用。

例：在B列中，找第3行的元素值。

index(B:B,3)

此处3也可以使用某个单元格的内容，假如Q1为3，则可写为index(B:B,Q1)

*** vlookup函数：

功能：搜索某个单元格区域的第一列，返回该区域相同行上任何单元格的值。

例：搜索A2:C10区域的第一列中的值38，返回同一行中第三列的值

vlookup(38,A2:C10,3,false) ： false为精确查找，必须的！ 找不到时返回错误值#N/A

*** find函数

** 2、最大/小值

*** MAX

例：在T列中若有个值等于T35的值，则找出R列中这一行的值的最大值。

MAX(IF($T$1:$T35=$T35,$R$1:$R35))

在完成之后，按Ctrl+SHIFT+Enter，实现即可

*** SMALL

功能：返回数据集中第k个最小值。

例：small(A2:A10,4)

返回A列2行到10行中的第4个最小值

** 3、计数

*** countifs ：相当于多个countif

功能：将条件应用于跨多个区域的单元格，并计算符合所有条件的次数

例：查找B2:B5 与 C2:C5区域中同时为是的。

countifs(B2:B5,"是",C2:C5,"是")

2、查询计数

=IF(OR(AF33="Y",AF33="R"),COUNTIF($U$3:U33,U33),0)

串行使用，并行使用；

• 操作篇
  
  ** 1、""发现不可读取内容。是否恢复此内容？
  
  方法1：文件 --- 另存为 即可解决。
  
  方法2：光标在最下面的 "工作表标签"上右键"选定全部工作表"，然后右键"移动或复制"；选择"新工作簿"，并勾选"建立复本"，确定。 保存并重命名全新的excel表文件即可。

** 间隔行颜色变更

1、选中要设置颜色变化的区域。

2、点击菜单“格式”—>“条件格式”

3、选项卡中选择“公式”，输入：=MOD(ROW(),2) =0 , 点击格式，设定颜色。 （偶数行）

4、重复第2、3项，公式中输入：=MOD(ROW(),2)=1 （奇数行） 公式中的字母 必须大写

5、确定。

** 每一列的列宽相同

• VBA 暂存篇
  
  ** Rows(a & ":" & b).Select
  
  1、计数：用到的最后一行；
  
  ** 一行语句若是很长，可以通过换行实现
  
  方法：语句是 一个空格一个下划： _
  
  : 字符串是一个空格一个& 一个空格加一个下划：

---

PART2

一、VBA中错误捕捉的方法主要有两种

第一种捕捉方法：

1、语法：

On Error GoTo Err_Handle '如果遇到错误就跳转到错误处理代码

   语句xxxxx

    Exit Sub/Function（如果没有这条语句，即使没有错误也会执行错误处理语句）

 Err_Handle: 语句 xxxxxx

2、举例：

Sub 查找数字() ’本段代码查找电子表格中有没有数字12

On Error GoTo Err_Handle

   MsgBox Cells.Find(12).Address

    Exit Sub   '如果没有这个退出过程语句，会一直执行下去

Err_Handle:

    MsgBox ("不存在该数字")s

End Sub

PART3:小结1

1. 解密
   
   Activesheet.unprotect (“OTAY”): 解密

2. 取消刷新
   
   Application.screenupdating = False

3. 空的说明
   
   If range(“C7”) or Range(“C8”) = space(1): 只有一个空格
   
   Msgbox”hello world”

4. 询问数据是否已经写入，没有的话给出提示；
   
   if txtName.text = “ ” then
   
   msgBox “ 请输入机型”
   
   txtName.SetFocus
   
   Exit Sub
   
   End if

5. Worksheets("Sheet1").Range(Cells(1,1),Cells(7,1)).Value= Worksheets("Sheet2").Range(Cells(1, 2), Cells(7, 2)).Value
   
   两个工作表间不能用 Range,但一个却可以用，不明所以。 但以下这种格式的却是可以的。
   
   For i = 1 To 6
   
   r1.Cells(i, 1) = r4.Cells(i, 1)
   
   Next i

6. Range
   
   Range(Cells(1,2),Cells(3,4)).Clear;
   
   Range(“A1:D4”).Clear;
   
   Worksheets(“sheet1”).cells().clear: 清除所有数据
   
   RANGE中可以直接用 字母 ，但CELLS中不行。

7. 给对象赋值用 SET，此时不能省略； 给普通变量赋值用LET，但一般可以省略。
   
   8、 concatenate

---

PART4 小结2

一、条件格式

公式规则：

1、=B2<>”” 若是B2不为0，则执行条件格式；

二、单元格操作

1、选中某个区域 并进行相关操作

Range(“D1:F5”).select 选中了这个区域

selection.clearcontents 删除数据

三、查找某个文件夹中的文件

Dim ta As Object, ph$, fn$

ph = ThisWorkbook.Path & ""

fn = Dir(ph & "*.xlsx")

四、函数使用

1、INstr函数：某个字符在另一个字符串中首次出现的位置。

例：INstr(1,"hello","o")

从第一个字符开始，搜索字符o出现的位置，返回值为出现位置对应的数字。

五、将单元格内容设为固定的值

1. 选择需要进行限制数据的单元格，然后点 数据 -- 数据有效性 -- 数据有效性 ，会弹出数据有效性提示对话框。
2. 在数据有效性对话框中选择允许---序列，来源：A,B,C。 中间用半角逗号才行。
   
   则可以使单元格中的内容只有这三个值。
   
   15057225715

六：

1. 一个单元格可以 =AND(C1>90); 这样这个单元格的值则为 TRUE OR FALSE;
2. 在条件格式设置中，=C2， 则可以在C2的值不为空时，出现对应的现象。