- 博客(5)
- 资源 (1)
- 收藏
- 关注
原创 如何用VBA在打开EXCEL文件时自动运行宏
例子:Sub Auto_open() '一种方法是将宏的名称改为这个即可MsgBox "欢迎回来继续学习VBA!"End Sub还有一种方法就是使用VBE在工作簿的Open事件中编写VBA过程。 ...
2018-08-05 15:43:00 19493 2
原创 如何用VBA寻找指定区域中的第一个非空单元格
Function firstnoblank(myrange As range) Dim sheet As rangeFor Each sheet In myrange '遍历区域里的每一个单元格If Not IsNull(sheet) And sheet <> "" Thenfirstnoblank = sheet.ValueExit FunctionEnd I...
2018-08-05 15:34:03 9882
原创 如何用VBA在指定的区域的内显示不同的数据类型
代码如下:Function sheettype(sheet As range)Select Case True Case Application.WorksheetFunction.IsText(sheet)sheettype = "文本"Case Application.WorksheetFunction.IsLogical(sheet)sheettype = "逻辑值"...
2018-08-05 15:31:38 536
原创 如何用VBA通过给定的商品的单价和销售计算员工的销售奖金
可以通过自定义函数处理,以以下为例:当销售额小于200000时,以销售额的8%作为奖金金额 ;当销售额200001到400000时,以销售额的10%作为奖金金额 ;当销售额大于400000时,以销售额的15%作为奖金金额 ;代码如下: Function GetReward(Saleprice, Number) '定义多个参数的函数Dim total As Long t...
2018-08-05 15:11:13 684
原创 如何用VBA创建一个可以求阶乘的函数
代码如下:Function Fac(num) '自定义一个参数的函数,要求用户输入一个数,然后求其阶乘Dim i As IntegerDim total As Longtotal = 1For i = 1 To numtotal = total * iNext iFac = totalEnd Function使用该函数的方法在和其他固有的函数一样,在函数选项...
2018-08-05 15:05:09 3696
用友在Windows10和2003系统下的安装注意事项.pdf
2020-04-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人