冯修聿

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

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

具体请见资源。

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

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

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

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

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

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

例子：Sub Auto_open() '一种方法是将宏的名称改为这个即可MsgBox "欢迎回来继续学习VBA！"End Sub还有一种方法就是使用VBE在工作簿的Open事件中编写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...

代码如下：Function sheettype(sheet As range)Select Case True Case Application.WorksheetFunction.IsText(sheet)sheettype = "文本"Case Application.WorksheetFunction.IsLogical(sheet)sheettype = "逻辑值"...

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

代码如下：Function Fac(num) '自定义一个参数的函数，要求用户输入一个数，然后求其阶乘Dim i As IntegerDim total As Longtotal = 1For i = 1 To numtotal = total * iNext iFac = totalEnd Function使用该函数的方法在和其他固有的函数一样，在函数选项...

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

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

代码如下：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 ...

实例图如下：    代码如下：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 = ...

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