精华内容
下载资源
问答
  • vb宏函数大全

    2013-07-22 11:26:27
    vb宏函数大全
  • WPS用VB宏插件

    2017-03-21 11:11:33
    WPS用VB宏功能插件,开启高速办公
  • vb宏控件,office使用宏备用控件,使office使用更加 方便,提高office使用效率
  • 如何在Excel中使用VB宏连接SAP系统。 注意,Excel连接SAP的时候需要使用RFC library, 首先从Service Marketing Place下载RFC SDK. 路径:http://service.sap.com/swdc
  • 关于 有这样一个场景,有一次,公司一个同事说,...1.打开vb宏编辑窗口,可使用快捷键Alt+F11打开,然后粘贴下面程序。下面的代码可以实现,在你选择的区域,运行宏,则该区域上,凡是换行符的位置都会追加上"\\"...

    关于

    有这样一个场景,有一次,公司一个同事说,excel表格中,想在每行换行的地方追加"\\"符号,以便该excel表格在导入jira系统的时候,该符号会被系统识别为换行符,方便阅读。于是乎有了下面的研究成果。

    完整的vb宏程序

    1.打开vb宏编辑窗口,可使用快捷键Alt+F11打开,然后粘贴下面程序。下面的代码可以实现,在你选择的区域,运行宏,则该区域上,凡是换行符的位置都会追加上"\\"符号。

    Sub AppendToSpritOnEnterRight()
    Dim c As Range
    Dim StaR As String
    Dim posStr As String
    Dim i As Long
    Dim resultStr, cacheStr As String
    Dim lastI As Long
    
    For Each c In Selection
        StaR = c.Value
        
        posStr = ""
        cacheStr = ""
        resultStr = ""
        lastI = 0
        
        For i = 1 To Len(StaR)
            posStr = Mid(StaR, i, 1)
            If posStr = Chr(10) Then '拼接字符串\\
                cacheStr = Mid(StaR, lastI + 1, i - 1 - lastI) & "\\" & Chr(10)
                resultStr = resultStr + cacheStr
                lastI = i
                //MsgBox resultStr
            End If
        Next i
        
        cacheStr = Mid(StaR, lastI + 1, Len(StaR) - lastI)
        resultStr = resultStr + cacheStr
        
        c.Value = resultStr
    Next
    
    End Sub
    复制代码

    2.补充几点 常用快捷键: Alt+Entry:换行 Alt+F11:打开程序窗口 F5:打开运行宏窗口

    函数: Mid(String,start[,Length]) String - 必需的参数。输入从中返回指定数量的字符的字符串。 Start - 必需的参数。 一个整数,它指定了字符串的起始位置。 Length - 必需的参数。 一个整数,指定要返回的字符数。 注意:Start需要从1开始。

     

    展开全文
  • 【EXECL]】VB 定义记录如何在execl里通过vb加入一个定义,此定义可以关联到我们自定义的vb function,这样就可以实现vb对execl 表格的控制。 环境:execl 2010 添加定义 操作步骤 【开发工具】->【Visual...

    【EXECL]】通过VB 宏定义添加自定义函数

    记录如何在execl里通过vb加入一个宏定义,此宏定义可以关联到我们自定义的vb function,这样就可以实现vb对execl 表格的控制。
    环境:execl 2010

    • 添加宏定义
      1. 操作步骤
        【开发工具】->【Visual Basic】 打开vb 工作台
        在 【模块】里添加一个文件用于添加宏
        : excel 对象里的文件对应的应该是各个execl,所以在里面加功能不一定可以在其它文件中使用,之后有机会实验后补充
      2. 添加宏用来对自定函数进行注册

        Sub autoscanprofileReg()
        Dim FuncName As String '函数名称
        Dim FuncDesc As String '函数描述
        Dim Category As String '函数类别
        Dim ArgDesc(1) As String '函数参数描述数组
        FuncName = "FunName"
        FuncDesc = "返回两个整数的和(测试函数参数描述)"
        Category = "函数参数描述测试"
        ArgDesc(0) = "函数参数第一个,整型"
        ArgDesc(1) = "函数参数第二个,整型"
        Call Application.MacroOptions(Macro:=FuncName, Description:=FuncDesc, Category:=Category, ArgumentDescriptions:=ArgDesc)
        End Sub
    • 添加功能
      在定义注册函数 后就可以开始按自己的需要定义功能 函数 了
      ”’
      Function StringSplit(arg1 As String) As String
      xxxxxx
      End Function

      ”’
      需要注意的是功能 函数 的定义 要和注册函数的描述一致
    • 运行宏
      通过以上两步,功能 就是OK了,接下来就是运行宏去执行注册功能函数。
      【开发工具】->【宏】
      选择刚定义 的注册函数 的名字,【执行】
    • 表格中添加function
      最后就是在表格中使用之前定义的功能 函数 ,插入函数 搜寻定义的函数,添入相应的参数
      duang
    展开全文
  • 说明:一组大约2006 ArcGIS VB宏,用于从OD矩阵创建流线。 您基本上只需将.mxd文件加载到ArcGIS中,然后将宏用作工具。 替换为 。 可以在archive.org上找到旧的支持网站,网址为: ://web.archive.org/web/...
  • I have a VB macro created. I want to pass the macro a string and a file location. How would I call this in java code. Is there a library for this?解决方案You can run vbscript using the "cscript.exe" ...

    I have a VB macro created. I want to pass the macro a string and a file location. How would I call this in java code. Is there a library for this?

    解决方案

    You can run vbscript using the "cscript.exe" that ships with windows.

    Depending upon your scenario, you can launch this from Java in a variety of ways:

    use Runtime.exec to launch the program. You can do this directly as part of your program.

    use Ant, which has an exec task, or maven which has an exec plugin. This is most useful when invoking the script as part of a build or some other batch process.

    EDIT: If your script has a GUI, then use "wscript.exe".

    I'm assuming you mean vbscript, but if you reall mean a macro, such as a Word macro, then you will need to do something like this:

    "C:\Program Files\Microsoft Office\Office12\Winword.exe"

    "C:\MyPath\MyDoc.doc" /m"Macro1"

    Alternatively, you can create a small vbscript that instantiates the Word Application and uses the run() method to invoke a macro. You execute that script using cscript.exe/wscript.exe.

    展开全文
  • VB宏处理Excel

    千次阅读 2018-07-05 21:42:11
    涉及对于Excel Report的再处理,而原系统无法很好做到这点,于是通过做处理。Sub COQC()'' COQC ' coqc Excel格式处理'' For Each wk In Workbooks If Left(wk.Name, 5) = "COQC_" Then For ...

    涉及对于Excel Report的再处理,而原系统无法很好做到这点,于是通过宏做处理。


    Sub COQC宏()
    '
    ' COQC宏 宏
    ' coqc Excel格式处理
    '


    '
        For Each wk In Workbooks
            If Left(wk.Name, 5) = "COQC_" Then
                For Each sh In wk.Sheets
                '操作sheet
                    '去除保护
                    sh.Unprotect
                    '分页重置
                    sh.ResetAllPageBreaks
                    '每隔47rows分页
                    For i = 48 To sh.UsedRange.Rows.Count Step 47 
                        sh.HPageBreaks.Add Before:=Cells(i, 1)
                    Next
                    '设置页眉
                    sh.PageSetup.LeftHeader = "Page &P of &N"
                    sh.PageSetup.RightHeader = "&D"
                    '设置页边距
                    sh.PageSetup.LeftMargin = Application.InchesToPoints(0.47244094488189)
                    sh.PageSetup.RightMargin = Application.InchesToPoints(0.47244094488189)
                    sh.PageSetup.TopMargin = Application.InchesToPoints(1.2992125984252)
                    sh.PageSetup.BottomMargin = Application.InchesToPoints(0.748031496062992)
                    sh.PageSetup.HeaderMargin = Application.InchesToPoints(0.31496062992126)
                    sh.PageSetup.FooterMargin = Application.InchesToPoints(0.31496062992126)
                    '打印设置
                    'sh.PageSetup.AlignMarginsHeaderFooter = False
                    '打印区域设置
                    'sh.PageSetup.PrintArea = "$A$1:$I$sh.UsedRange.Rows.Count"
                    '去除网格线
                    sh.PageSetup.PrintHeadings = False
                    sh.PageSetup.PrintGridlines = False
                    sh.PageSetup.PrintComments = xlPrintNoComments
                    sh.PageSetup.CenterHorizontally = False
                    sh.PageSetup.CenterVertically = False
                    sh.PageSetup.Orientation = xlPortrait
                    sh.PageSetup.Draft = False
                    sh.PageSetup.PaperSize = xlPaperA4
                    sh.PageSetup.FirstPageNumber = xlAutomatic
                    sh.PageSetup.BlackAndWhite = False
                    sh.PageSetup.Zoom = 100
                    sh.PageSetup.PrintErrors = xlPrintErrorsDisplayed
                    sh.PageSetup.OddAndEvenPagesHeaderFooter = False
                    sh.PageSetup.DifferentFirstPageHeaderFooter = False
                    sh.PageSetup.ScaleWithDocHeaderFooter = True
                    sh.PageSetup.AlignMarginsHeaderFooter = True
                    sh.PageSetup.PrintQuality = 600
                Next
                MsgBox (wk.Name + "  reformat successfully !")
            End If
        Next
        

    End Sub

    需注意的是,如果通过宏作个人工作簿,自定义快捷功能设置,因为active workbook为personal所在,于是获取当前所有workbooks,对于个人所需要处理的一类进行处理。纯粹为同事打印所需

    展开全文
  • C#调用VB宏dll文件

    2012-09-07 17:28:28
    实现C#对Excel的操作,在项目中添加dll引用,调用格式 try { // 返回对象 object objRtn = new object(); // 获得一个ExcelMacroHelper对象 ExcelMacroHelper excelMacroHelper = new ExcelMacroHelper(); ...
  • VB宏定义(条件编译方法)

    千次阅读 2019-04-21 17:55:12
    VB条件编译——定义 前言 ❤我们在开发软件时,如果该软件是应用在多产品或者多平台上面,不同的地方使用不同的代码,这时候条件编译就会变得很方便。 内容 ❤条件编译语句:#If。。。Then。。。 #Else。。。#Else...
  • VB 病 毒 实 验

    2011-03-15 18:22:33
    Word是指能组织到一起为独立命令使用的一系列Word指令;自我复制,感染word公用模板和当前文档
  • 这篇文章主要是讲述Word通过函数设置一些操作,比如在Word全文中替换一些符号;再如对Word上角表进行编号,如果删除中间某个值,运行函数自动编号;...Word函数主要是基础VB编写的,希望这篇文章对你有所帮助~
  • VB宏设置EXCEL有效期

    2020-06-20 14:36:19
    Private Sub Workbook_Open() If Date > Tabelle3.Range(“A2”).Value Then hinweis = MsgBox("File expired " & Format(Tabelle3.Range(“A2”).Value, “DD. MMM....ThisWorkbook.Close (False) ...
  • VB宏学习

    2009-07-08 14:45:00
    这样就完成了,当你想让格式成为所想那样的时候,可以运行名为changecolor的。   这样在任意单元格输入的字符总是红色的。而如果要结束这种设定时可以运行名为endchangecolor的回复正常状态   ...
  • excel中vb 脚本的简单使用

    千次阅读 2018-10-27 12:48:01
    1.编辑快捷键去工作,如下: Sub 颜色() ...' 颜色 ' ' 快捷键: Ctrl+b ' With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 ...
  • 水很深。。。 哎。。。 wps支持js,入门 https://www.cnblogs.com/FanXiaoLei/p/14467748.html wps百家号 ...主要是javascript调用wps,前端(非js vba) https://github.com/52North/wps-js  
  • Visual Basic的集合和用于使用Microsoft Excel分析终端限制片段长度多态性数据的模板。
  • With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 9).Font.Fill .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 ...
  • 破解密码保护的excel文档的vb宏代码

    千次阅读 2011-03-27 23:30:00
    Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / ...
  • java中可以调用excel中的vb宏函数吗?最好给出代码参考。 宏.xla用于excel转换格式和添加一些表头。 下面是我编写excel中的vb代码: 打开自定义窗体call函数:InAndOut。 Sub CallUserForm11() UserForm1....
  • vb259个常用

    2018-01-25 18:21:35
    259个vb常用,可以拿过就用,不用再搜索,别的不多说,大家都懂的
  • VB自动打开EXCEL带有密码的文件跳过
  • vb控制excel

    2011-01-18 16:47:06
    vb环境下常用控制excel的方法和代码及实例
  • VB6插件 1.3 Rev 63

    2010-09-18 18:42:09
    这个时候,如果用VB自带的插件向导,就需要新建立一个工程,关闭当前工程,然后设置断点,并运行插件工程,然后再重新启动刚才关闭的程序并进行插件/开发. 这个过程对于功能单一(一般只用一次),且要求方便实现的宏来说,...
  • VB:启用故障

    2018-11-17 22:21:14
    打开一个很老的exle文件,启用提示各种错误,将解决方法和解决顺序记录下来 1.编译错误:若要在64位系统上使用,则必须更新此项目中的代码。请检查并更新Declare语句,然后用PtrSafe属性标记它们。 出错的原文是...
  • Word与VBA/VB

    千次阅读 2019-04-24 18:05:28
    1、 Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。是一种可用于微软自家产品开发的语言。 2、Word 是一个批量处理程序命令,正确地运用它可以提高工作效率。 微软的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,260
精华内容 4,904
关键字:

vb宏