Excel | 时鹏亮的Blog

在Excel 2007中，有时需要把筛选后的数据复制粘贴到另一个表中，但是粘贴时发现结果并不是筛选出来的数据，而是没筛选之前的所有的数据。这个问题可以用以下三个方法来解决：
方法1：重复筛选动作。进行两次以上的筛选操作，筛选操作可以是同一列或不同[……]

最近有个同事需要编写个宏，Excel-VBA中需要用到类似php中的swith-case的功能，翻了下，将VBA中类似的示例代码列出来供需要的人参考：

Select Case income
	Case Is <= 0
		profitrank = "&lt[......]

好吧，其他部门的同事找我帮忙写个宏，写好了本机调试OK，他发给别人就不灵了，经过他的尝试，原来是安全设置的问题，求教了下经验，发布出来给碰到同样问题的孩子一个解决办法：
本文针对的是Excel 2007。1.首先要显示出开发工具，如果没有，点Excel左上的[……]

最近编写宏，有多个sheet，需要调用其他sheet的单元格值，查了下，方法如下：

sheet2.range("a1")=sheet1.range("a1")

直接用sheet数字即可引用对应sheet的单元格，需要的自己记录[……]

Excel-VBA-取指定行列单元格内容有两个函数，一个是Range一个是cells。
cells(1,1)代表第一行第一列，也就是A1单元格，在VBA中,与Range(“A1″)所指单元格一样也可以写成cells(1,”A”)[……]

调试不能老msgbox弹出来看值吧，所以，Debug.Print出现了，这个函数的功能是将调试值输出到立即窗口。
进入Excel的宏编辑界面，如果当前窗口没有立即窗口，则按Ctrl+G或者通过点击视图-立即窗口，将立即窗口展示到当前界面。然后在需要调试的[……]

有时候写的函数啥的需要在单元格变动后进行计算更新其他表格，因为if判定嵌套太多实在是让人蛋疼，所以索性用宏来响应单元格变更，如果是目标范围单元格，则用对应函数计算更新。示例代码如下：

Private Sub Worksheet_Change(ByVal Target[......]

遇到字符串需要截取的，假设字符串包含+号，截取+号之前的字符串，可以用mid函数来实现，代码如下：

=MID(A1,1,FIND("+",A1)-1)

能理解上面的意思吗？

mid函数的功能介绍如下：
MID(text,start_num,num[……]

用find之类的函数，没有找到指定目标通常都会报错，结果为#VALUE!，问题是你肯定不需要这样的结果，还是想让公式继续执行下去，方法来了，用函数iserror即可实现，比如你用if配合find：

=IF(iserror(FIND("+",A1))[......]

在EXECL中，按ALT+F11，插入—模块复制下列代码：

Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As[......]

时鹏亮的Blog