- 博客(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 8066
原创 如何用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 6590 1
原创 如何用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 6371 2
原创 如何用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 536
原创 如何用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 12909 2
原创 如何用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 12604
原创 如何用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 6747
用友在Windows10和2003系统下的安装注意事项.pdf
2020-04-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人