VBA
阿亮_
阿亮
展开
-
VB.NET中制作COM_DLL在VBA、VB中调用
在.net中新建的dll在VB.VBA中不能正常使用,使用该方法可以解决。原创 2017-04-03 15:51:18 · 2473 阅读 · 0 评论 -
在x64 OFFICE中使用ScriptControl控件的方法
在x64 OFFICE中使用ScriptControl控件的方法转载 2017-05-23 14:46:46 · 9854 阅读 · 6 评论 -
使用VBA在EXCEL中插入图片自定义函数(网络URL/本地URL)
Sub InsertPic(ByVal 图片链接 As String, ByVal 插入图片表名 As String, ByVal 插入图片单元格地址 As String) On Error Resume Next Dim rng As Range Set rng = Sheets(插入图片表名).Range(插入图片单元格地址) With Sheets(插入图片表原创 2017-12-07 14:23:35 · 7647 阅读 · 1 评论 -
VBA自定义函数-选择文件对话框
Function 选择文件(Optional Title As String = "选择文件", Optional Multi As Boolean = False, _ Optional FileDescription As String = "所有文件", Optional FileType As String = "*.*") As Variant原创 2017-12-07 14:38:03 · 1318 阅读 · 0 评论 -
VBA自定义函数-选择文件夹对话框
Function 选择文件夹(Optional Title As String = "选择一个文件夹") As Variant With Application.FileDialog(msoFileDialogFolderPicker) '4 .Title = Title .InitialFileName = Environ("userprofile") &原创 2017-12-07 14:39:02 · 1808 阅读 · 0 评论 -
VBA自定义函数-打开文件对话框
Function 打开文件(Optional Title As String = "选择文件", Optional Multi As Boolean = False, _ Optional FileDescription As String = "所有文件", Optional FileType As String = "*.*") As Variant原创 2017-12-07 14:41:13 · 1139 阅读 · 0 评论 -
VBA自定义函数-保存文件对话框
Function 保存文件(Optional Title As String = "保存文件") As Variant With Application.FileDialog(msoFileDialogSaveAs) '2 .Title = Title .InitialFileName = Environ("userprofile") & "\Desktop原创 2017-12-07 14:42:17 · 3835 阅读 · 0 评论 -
VBA实现EXCEL透视表功能(汇总+计数)
Enum 数值 计数 求和End EnumEnum 总计 对行列禁用 对行列启用 仅对行启用 仅对列启用End EnumSub 调用() y = 透视(Sheets(1).Range("a1:d15"), True, 2, 3, 数值.求和, 总计.对行列启用, Sheets(1).[a21], 1) MsgBox "透视"...原创 2018-06-28 12:51:34 · 17564 阅读 · 0 评论