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

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

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

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

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

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

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

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

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

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

2020-04-13

空空如也

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