自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

冯修聿

致力于一个有着具体作用的VBA代码。

  • 博客(5)
  • 资源 (1)

原创 如何用VBA在打开EXCEL文件时自动运行宏

例子:Sub Auto_open() '一种方法是将宏的名称改为这个即可MsgBox "欢迎回来继续学习VBA!"End Sub还有一种方法就是使用VBE在工作簿的Open事件中编写VBA过程。 ...

2018-08-05 15:43:00 11657 1

原创 如何用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 4971

原创 如何用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 273

原创 如何用VBA通过给定的商品的单价和销售计算员工的销售奖金

可以通过自定义函数处理,以以下为例:当销售额小于200000时,以销售额的8%作为奖金金额 ;当销售额200001到400000时,以销售额的10%作为奖金金额 ;当销售额大于400000时,以销售额的15%作为奖金金额 ;代码如下: Function GetReward(Saleprice, Number) '定义多个参数的函数Dim total As Long  t...

2018-08-05 15:11:13 368

原创 如何用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 1796

用友在Windows10和2003系统下的安装注意事项.pdf

用友在Windows10和2003系统下的安装注意事项,仅仅是我个人的一些使用方法和建议,仅供参考,具体安装还需要结合自己的安装和版本情况。

2020-04-13

空空如也

空空如也
提示
确定要删除当前文章?
取消 删除