自定义博客皮肤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代码。

原创 如何设置Mac能看Coursera的学习视频

1,首先需要再Mac中找到/private/etc/ 这个文件夹下面“hosts”文件。2,将hosts文件使用文本编辑打开,将:“ 52.84.246.72 d3c33hcgiwev3.cloudfront.net ”直接复制粘贴到hosts文件的最后一行中去!注意,一定要进行保存哦!设置完之后回到coursera网站中就可以开始观看视频了!直接修改会弹出这个页面,可以...

2020-04-19 10:42:19 374

原创 eZip的优点和使用说明

自从用了Mac一段时间之后,我发现适合Mac的压缩软件特别少,大部分都是在App Store里下载使用就需要更新付费了。这里给大家安利一款压缩软件:eZip。百度云安装包资源如下:链接:https://pan.baidu.com/s/1u1KEOa8Y5HmEHiN_LnaSEw 密码:torp这个软件不仅可以压缩,也可以解压,实用性较强。在工作上也能够提供很多便利性,因为压缩格式多...

2020-04-17 12:39:18 253

原创 Windows10系统安装用友的注意事项

具体请见资源。

2020-04-14 09:37:02 127

原创 访问ftp不成功的原因以及学习搭建FTP心得

根据以前学习在Windows server 2003里搭建FTP服务器,根据教材上的图示和说明走,不仅可以用软件搭建,还可以直接搭建,发现搭建FTP嘛,简单。按照书上的来,我在搭建的过程和访问的过程中没有出现过问题,以至于我从来都没有的认真思考过。现在又重新学习在Windows10系统搭建一个FTP服务器,想把自己的电脑做成一个服务器,让我遇到了很多问题,思考起来,做梦都在连接测试不成功。算不...

2019-04-06 16:22:34 1254

原创 用友学习心得

作为一名学会计的学生,学习使用用友2个学期,好多人都装不上用友,我自己不仅装上了,还帮同学下载安装了,自己制作了安装的步骤细节、注意事项及问题解决办法文档无偿发给需要的人,及时帮助维护和更新。有点“开源”的精神吧!我第一次接触用友,那个时候,还没有学习如何安装数据库,也没有学习什么是信息服务器。。。说实话,通过查资料和百度,我在虚拟机里装好了这个软件,看着安装的条件一个个被检测符合安装要求和安...

2019-03-27 23:26:33 1028

原创 如何快速的下载百度网盘的文件

看到周围的同学朋友都在买百度网盘的小时制会员,现在给大家分享一款免费、占用内存小的一款软件!这款软件很好用,在百度网盘上下载文件能节约不少时间。获取链接如下:链接:https://pan.baidu.com/s/1uI9MfyNuo9JEFeNcI0Ccgw提取码:k8ry1、下载解压之后,安装运行。2、登陆自己的百度网盘的账号。3、登陆之后,可以查看这些功能,下...

2019-03-23 22:06:50 37382 4

原创 如何用VBA批量生成图表和批量删除图表

1,数据形式如下,要做成的效果也如下:    需求:将每个人的成绩单独生成一张柱状图。Sub 批量生成图表()Dim mydatesourse As Range For i = 2 To 5    Set mydatesoure = Sheets("学生成绩表").Range("a" & i & ":d" & i)    Charts.Add   ...

2018-12-12 23:10:28 5312 6

原创 如何用VBA将大量的工作簿的内容以分表的形式复制到一个汇总工作簿里

Sub xcj()mypath = ThisWorkbook.Path '获取当前工作簿的路径Filename = Dir(mypath & "\*.xls") '获取当前路径下所有的文件名称,这里所指工作簿的名称名称都一样,如下,只是结尾的数字不一样Set wk_zb = Workbooks("访问统计表-Office 高级应用与VBA(INF0402A)-2018年04月0...

2018-12-12 22:50:12 1988

原创 怎样在Mac MicrosoftOffice2016 Excel中添加“开发工具”选项卡

1,打开Excel文档之后,添加“开发工具”。2,在打开“Excel”选项卡时,发现并没有“首选项”的选项之后。3,打开“关于Excel”下面的“偏好设置”选项,打开之后,如下图,在点击“视图”选项。4,打开之后,如下图,勾选上“开发工具”。5,返回Excel,效果如下。...

2018-12-12 22:48:27 5372

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

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

2018-08-05 15:43:00 10962 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 4483

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

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

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

2018-08-05 15:11:13 349

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

原创 如何使用VBA让所选区域添加所有框线

Sub kuangxian()Range("A27:C38").Select '选择区域    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    With Selection.Borders(xlEdgeLeft)...

2018-07-31 16:27:03 3964

原创 如何用VBA保护工作表

代码如下:Private Sub July241()  Sheets("sheet1").Cells.Font.ColorIndex = 2 '防止文档越权使用者看到内容 If Application.InputBox("请输入操作权限密码:") = 123 Then  Sheets("sheet1").Cells.Font.ColorIndex = 56 '输入正确的密码之后文字...

2018-07-31 16:21:03 3142

原创 如何用VBA清除一列中有0的数,并且删除其所在行

代码如下:Sub july234()  Dim i As Integer  For Each Y In Worksheets  X = Y.UsedRange.Rows.Count  For i = 1 To X  If Cells(i, "A") = 0 Then  Cells(i, "A").EntireRow.Delete '在A列中删除0所在行  End If ...

2018-07-31 16:15:46 2671

原创 如何用VBA因商品的购买数量和折扣比率计算其批发单价

实例图如下:    代码如下:Sub july232()For Each y In Worksheetsx = y.UsedRange.Rows.CountFor i = 2 To xx = y.Cells(i, "B")a = y.Cells(i, "A")c = y.Cells(i, "C")If x <= 3 Thenc = ...

2018-07-23 13:51:59 161

原创 如何用VBA在WORD里插入指定的图片和指定的尺寸

Sub 插入图片()Dim filenames As String Dim filefilter1 As String filefilter1 = ("所有图片文件(*.jpg;*.bmp;*.png;*.gif),*.jpg;*.bmp;*.png;*.gif")    '所有图片文件后面的括号为中文括号filenames = Application.GetOpenFilename(fi...

2018-07-17 14:56:29 6087 1

原创 如何用VBA在EXCEL中添加自定义函数

比如 连续自然数m到n求和函数1、选择“工具”——“宏”——“Visual Basic编辑器”命令(或按快捷键“Alt+F11”),打开Visual Basic编辑界面。2、选择“插入“——”模块”命令,插入新模块——如模块1。3、在“代码窗口”中输入下面代码:Function V(m,n)V = n*(m+n)/2End Function ...

2018-07-17 14:53:22 8152

原创 如何用VBA提取WORD文档里的图片

Sub 存成html()  Application.ScreenUpdating = False            Dim FileName As String      FileName = InputBox("请输入文件名")      Selection.Copy      Documents.Add DocumentType:=wdNewBlankDocument...

2018-07-17 14:49:46 3023

原创 如何用VBA快速的合并多个工作簿成为一个工作簿

Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)...

2018-06-10 11:40:20 14987

原创 如何用VBA从身份证号码中提取性别

Sub 根据身份证号码确定性别()sid = InputBox("请输入身份证号码:")i = Len(sid)If i <> 15 And i <> 18 Then              '判断身份证号长度是否正确MsgBox "身份证号码只能为15位或18位!"Exit SubEnd IfIf i = 15 Then                         ...

2018-06-09 23:48:28 1045

原创 如何用VBA批量copy内容到各工作簿

Sub 批量COPY工作表到工作簿()  '将工作表中的内容,分表COPY到另一个工作簿中    '准备一个工作簿,选取需要COPY的工作表(区域),贴,保存,关闭    mypath = ThisWorkbook.Path  '代码所在工作簿的文件夹路径    Set zb = ThisWorkbook '代码所在的工作簿For Each biao In zb.Sheets         Se...

2018-06-09 23:38:31 2136

原创 如何用VBA批量删除文件

Sub 批量删除文件()     mypath = ThisWorkbook.Path     f = Dir(mypath & "\*.xlsx")  '查找当前路径下符合条件的文件名    While f <> ""  '一直到F找不到合条件的就结束循环           If f <> "test.xls" Then 不为test.xls 则删除      ...

2018-06-09 23:36:07 2615

原创 如何用VBA获取当前时间

获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】Sub D()ActiveCell.FormulaR1C1 = "=NOW()"    Range("B1").Select    ActiveCell.FormulaR1C1 = "=year"    Range("B1").Select    ActiveCell.FormulaR1C1 = "=YEAR(RC[-1...

2018-06-09 16:52:29 10728

原创 如何用VBA计算个人所得税

Sub i个人所得税()For Each Sheet In WorksheetsFor i = 2 To xx = Sheet.UsedRange.Rows.CountDim a%, b% a = Sheet.Cells(i, "I") If a < 3500 Then Range(Sheet.Cells(i, "J")) = 0 ElseIf a - 3500 < 1500 Then...

2018-06-09 16:47:23 2039

原创 如何用VBA统计出勤天数

注:这里的rng=1是出勤,rng=0是未出勤Sub i统计出勤()Dim rng As Range            '定义范围For Each rng In [b2:b32]    'For Each语句 外循环   If rng = 1 Then          'ElseIf循环体 内循环     sum1 = sum1 + 1    ElseIf rng = 0 Then     ...

2018-06-09 16:30:43 1148

原创 如何用VBA求一个圆形的面积

Sub AreaOfCircle()Const PI As Single = 3.14r = Val(InputBox("请输入半径"))Range("A1").Value = rDim areaarea = PI * r ^ 2MsgBox "圆的面积" & areaEnd Sub

2018-06-09 16:20:05 977

原创 如何用if条件判断,用单元格底色区分成绩

将每个工作表的总分列进行操作:判断总分,<60,底色为红色,60-100,底色为蓝色,100以上:底色为绿色Sub test()For Each y In Worksheetsx = y.UsedRange.Rows.CountFor i = 2 To xIf x <= 60 Then x = y.Cells(i, "I") y.Cells(i, "I").Interior. Colo...

2018-06-09 16:12:10 2840

原创 如何用VBA将每张工作表的C-H列或者4到5行隐藏

工作表的C-H列隐藏Sub test()For Each y In Worksheetsy.Columns("C:H").Hidden = TrueNextEnd Sub工作表的4到5行隐藏Sub test()For Each y In Worksheetsy.Rows("4:5").Hidden = TrueNextEnd Sub

2018-06-09 16:03:49 457

原创 如何用VBA制作工资条

使用宏与编写VBA代码的方法也可轻松实现工资条的制作,将宏指定到按钮上,每次只要轻点按钮即可实现工资条的制作。Sub 工资条()Dim x AsIntegerRange("A1").SelectFor x = 1 ToRange("a1048576").End(xlUp).Row - 2ActiveCell.Rows("1:1").EntireRow.SelectSelection.CopyAct...

2018-06-09 15:56:20 2596

原创 如何用VBA将一个工作簿里多张表的名字与人数汇总在一张表里

Sub text1()Worksheet.Add.Name="汇总"For Each Sheet In Worksheetsk = k + 1x = y.usedRange.Rows.Countsheets("汇总").Cells(k, 1) = Sheet.Namesheets("汇总").Cells(k, 2) =xNextEnd Sub

2018-06-08 00:16:04 1220

原创 VBA中的标识符,常量和变量

 标识符:     在程序运行的过程中,通常需要将计算结果保存下来,在后面使用,程序中使用的数据都保存在计算机的内存中。数据保存在内存中,需要使用某种方式引用它,就必须给这些内存一个名称,这就是标识符。定义标识符时应该遵循以下规则:1、以字符开头,包含字母、数字和下划线,不区分大小写。2、长度不能超过255个字符3、不能使用VBA的关键字4、同一个过程内不能使用重复的名称常量:     在程序运行...

2018-06-07 23:33:52 1994

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