1 冯修聿

尚未进行身份认证

由小知识点带来的节约时间的质变。

等级
TA的排名 8w+

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

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

2019-04-06 16:22:34

用友学习心得

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

2019-03-27 23:26:33

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

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

2019-03-23 22:06:50

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

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

2018-12-12 23:10:28

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

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

2018-12-12 22:50:12

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

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

2018-12-12 22:48:27

如何激活 Microsoft Office2016

首先需要下载一个插件KMSpico_Install,下面是百度网盘链接:https://pan.baidu.com/s/1RLYRP6cXH3hbFr0ToMnIgw1、最好是下载到和MicrosoftOffice2016一个文件夹里,解压之后,点击前面红色标示的应用程序。2、会弹出阻止安装的对话框,此时点击允许此次操作。3、安装好之后,打开,点击按钮,完成之后,等待一下...

2018-12-06 13:47:12

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

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

2018-08-05 15:43:00

如何用VBA寻找指定区域中的第一个非空单元格

Functionfirstnoblank(myrangeAsrange) DimsheetAsrangeForEachsheetInmyrange'遍历区域里的每一个单元格IfNotIsNull(sheet)Andsheet<>""Thenfirstnoblank=sheet.ValueExitFunctionEndI...

2018-08-05 15:34:03

如何用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

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

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

2018-08-05 15:11:13

如何用VBA创建一个可以求阶乘的函数

代码如下:FunctionFac(num)'自定义一个参数的函数,要求用户输入一个数,然后求其阶乘DimiAsIntegerDimtotalAsLongtotal=1Fori=1Tonumtotal=total*iNextiFac=totalEndFunction使用该函数的方法在和其他固有的函数一样,在函数选项...

2018-08-05 15:05:09

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

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

2018-07-31 16:27:03

如何用VBA保护工作表

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

2018-07-31 16:21:03

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

代码如下:Subjuly234() DimiAsInteger ForEachYInWorksheets X=Y.UsedRange.Rows.Count Fori=1ToX IfCells(i,"A")=0Then Cells(i,"A").EntireRow.Delete'在A列中删除0所在行 EndIf...

2018-07-31 16:15:46

如何用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

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

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

2018-07-17 14:56:29

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

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

2018-07-17 14:53:22

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

Sub存成html() Application.ScreenUpdating=False      DimFileNameAsString   FileName=InputBox("请输入文件名")   Selection.Copy   Documents.AddDocumentType:=wdNewBlankDocument...

2018-07-17 14:49:46

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

Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.CountIfSheets(j).Name<>ActiveSheet.NameThenX=Range("A65536").End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)...

2018-06-10 11:40:20

查看更多

勋章 我的勋章
  • 持之以恒
    持之以恒
    授予每个自然月内发布4篇或4篇以上原创或翻译IT博文的用户。不积跬步无以至千里,不积小流无以成江海,程序人生的精彩需要坚持不懈地积累!