excel vba入门 更新中...

快速学习地址: http://wenku.baidu.com/view/4a698cfb770bf78a6529544b.html

纠错: 关于数组: for循环处有一点错误, 查看数组变量的定义修改即可.

 

一. excel2007 指定宏快捷键

　当开始录制一个宏时，使用“录制宏”"对话框可以为宏设置一个快捷键。如果稍后想要更改或为没有快捷键的宏指定快捷键，那么执行下列步骤：
　　1.按Alt+F8键显示“宏”对话框，在“宏”"对话框中，从列表中选择宏的名称，单击“选项”按钮，Excel会显示“宏选项”对话框
　　2.指定快捷键并单击“确定”按钮返回“宏”对话框，单击“取消”按钮关闭“宏”对话框。

 

二. 函数/子程序

1. 自定义函数:

 

'取出单元格字符串中的数字Public Function GetNum(a As Variant)For i = 1 To Len(a) If IsNumeric(Mid(a, i, 1)) Then GetNum = GetNum & Mid(a, i, 1) End IfNext iEnd Function

'2.义根据给出不连续区域文本进行连接并加逗号的自定义函数Function zz(rng As Range)Dim c As Range, Arr(), n%  For Each c In rng If c <> 0 Then n = n + 1 ReDim Preserve Arr(1 To n) Arr(n) = c End If Next czz = Join(Arr, ",")End Function Function ZHYZ(i As Range) As StringFor Each j In ia = Trim(ZHYZ & " " & j)ZHYZ = Application.WorksheetFunction.Substitute(a, " ", ",") NextEnd Function

然后在B5:I5单元格输入需要连接的文本，在其他单元格输入=zz(B5:I5)或=zhyz(B5:I5)即可。

2. 自带函数

  1)IF(ISNUMBER(FIND("N",C15)),"9","") : 在单元格c15中, 有字符" N" , 就用 "9" 代替, 没有nothing.  其中"&"表示字符相连接.

   eg:

   Logic1:  If A1 contain "AN" , replace "AN"  as "X"

               Else If A1 contain "A" , replace "A" as "A"

              Else If A1 contain "N" , replace "N" as "9"

    formula:  =IF(ISNUMBER(FIND("AN",C15)),"X",IF(ISNUMBER(FIND("A",C15)),"A",IF(ISNUMBER(FIND("N",C15)),"9","")))&"("&GetNum(C15)&")"
=IF(ISNUMBER(FIND("AN",C15)),"X",IF(ISNUMBER(FIND("A",C15)),"A",IF(ISNUMBER(FIND("N",C15)),"9","")))&"("&D15&")"

 

   2)字符连接

M1．公式：＝CONCATENATE（）

M2．连接符”＆”比如说A1是12345在B2里就可以输入=CONCATENATE（"789",A1）或者:="789"&A1

 

   3)字符串左截取/右截取/mid

    左截取: formula:     =LEFT(A2,FIND("   ",A2)-1)

                Means: At Cell(A2), find "   " index(位置), then index minus 1. get String from 0-index.

   4) 取括号中内容: 公式 = MID(A1,2,FIND(")",A1)-2)

3.技巧

3-1 函数嵌套使用, 如上免得

3-2