精华内容
下载资源
问答
  • 表格中的vba自动打印? 一个表格中我可以做到通过变换序号改变打印区域的内容,然后想通过控件自动打印,就是我在上面输入我要打印的内容的起始序号和终止序号,然后点击按钮就会自动打印。主要是后面的打印...
    VB代码十进制小数转二进制?

    一个十进制转二进制的函数
    Public Function D2B(D As Integer) As String
        D2B = ""
        Do While D > 0
            D2B = D Mod 2 & D2B
            D = D \ 2
        Loop
    End Function
    
    
    Private Sub Form_Load()
        Me.Caption = D2B(8)
    End Sub
    
    另外的办法:
    
    Function dToTwo(n As Integer) As String
    Dim S As String
    S = ""
    Do While n <> 0 
        a = n Mod 2 
        n = n \ 2 
        S = Chr(48 + a) & S
    Loop
    dToTwo= S
    End Function




    表格中的vba自动打印?


    一个表格中我可以做到通过变换序号改变打印区域的内容,然后想通过控件自动打印,就是我在上面输入我要打印的内容的起始序号和终止序号,然后点击按钮就会自动打印。主要是后面的打印的命令实在不会,求回答?


    回答:
    录制个打印的宏,稍微改造一下即可,把序号作为循环
    比如如下代码
    sub aa()
    dim i
    for i=10 to 20 '序号
    '改变序号的代码写到这个位置
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    next
    end sub


    展开全文
  • Excel条码控件生成的条码,单个打印没有问题,也会随着关联单元格的值变化,可是VBA循环打印时,打印出来的条码总是第一个,后面不再变化,尽管单元格的值在变化。 首先想到的是屏幕更新(Application....

    iamlaosong

    Excel条码控件生成的条码,单个打印没有问题,也会随着关联单元格的值变化,可是VBA循环打印时,打印出来的条码总是第一个,后面不再变化,尽管单元格的值在变化。

    首先想到的是屏幕更新(Application.ScreenUpdating = True),发现没有用。后来想到调试过程中关联单元格后条码也没有变化,但调整一下条码的大小,条码立马变了,于是在打印前增加下面两行代码(就是把条码高度改大一点,再改回来。呵呵,你不出来,我就折腾死你):

            ActiveSheet.BarCodeCtrl1.Height = ActiveSheet.BarCodeCtrl1.Height + 1

            ActiveSheet.BarCodeCtrl1.Height = ActiveSheet.BarCodeCtrl1.Height - 1

    再测试,问题解决。考虑到后来碰到的条码莫名其妙的越来越小,下面办法应该更好:

            hh = ActiveSheet.BarCodeCtrl1.Height 

            ActiveSheet.BarCodeCtrl1.Height = hh - 1

            ActiveSheet.BarCodeCtrl1.Height = hh

    当然改其它一些属性估计也可以,下面是条码控件的属性:

    其实这些属性是可以用VBA修改的,例如:ActiveSheet.BarCodeCtrl1.Style=6就将码型改成了39码。

    测试发现,用下面的刷新方法不管用:

          ActiveSheet.BarCodeCtrl1.Refresh

    下面代码可以自动检测单元格内容的变化并更新对应的条码:

    Private Sub Worksheet_Change(ByVal Target As Range)
        For Each barcode In ActiveSheet.OLEObjects
            If LCase(barcode.Name) Like "barcodectrl*" Then
                With barcode
                    m = .Height
                    .Height = m - 1
                    .Height = m
                End With
            End If
        Next
    End Sub
    

    =========================================

    条形码控件各种属性的具体涵义

    属性              说明

    Style              指定条形码符号的样式。 样式(style)中的十一个样式:

    0-upc-A; 1-UPC-E; 2-EAN-13; 3-EAN-8; 4-CASE-CODE;

    5-CODABAR(NW-7); 6-CODE-39; 7-CODE-128;

    8-U.S POSTNET; 9-U.S POSTAL.FIM; 10-JP POST.

    SubStyle        指定更详细的样式。

    Validation       指定是否要验证数据的有效性。

    LineWeight     指定条形码符号的线条粗细。

    0-细;1-特别细;2-淡;3-普通;4-中等;5-粗;6-浓;7-特别浓

    Direction        指定条形码控件的显示方向。

    ShowData       指定是否要显示数据数值。

    ForeColor       指定条形码符号的前景颜色。

    BackColor      指定条形码符号的背景色。

    Value             指定所产生的条形码符号的值。但必须满足不同风格样式的文字要求。

    Autoload        true/false自动加载与否,默认情况下为自动加载,即所出现的一个"4901234567894条形码

    Direction        最关键选项,通过它能实现“刷新”,有四个选项,0~3,其作用分别是将对象的数码放置底部(0),右侧(1),顶部(2),左侧(3)

    Enabled          true/false

    Visible           true/false

    Height            调整对象的位置:高

    Left               调整对象的位置:左边距

    Top                调整对象的位置:上边距

    Width             调整对象的位置:宽

    Heightweight  条形码中最粗细条的磅数,0~7磅。

    Locked           对应右击对象时出现的设置控件格式:锁定对象

    Printobject      对应右击对象时出现的设置控件格式:打印(预览)对象

    Placement       对应右击对象时出现的设置控件格式:对象随单元格移动的选择。

    Shadow          true/false 对象的阴影设置

     

    展开全文
  • excel VBA学习,结合excel公式和VBA自动生成所需要的条码信息,并自动打印,代码写的不好,仅供学习!
  • 自用,代码自动导入生成保持打印等操作.
  • 测量数据(仅指测量坐标成果数据,一般为南方CASS格式,参见下表)从仪器下载下来后,都需要打印出来签字存档,如果手动排版将是一项繁琐的工作。可在Excel中添加一个宏,将数据读出按格式分页排版,不管有多少数据,...

    测量数据(仅指测量坐标成果数据,一般为南方CASS格式,参见下表)从仪器下载下来后,都需要打印出来签字存档,如果手动排版将是一项繁琐的工作。可在Excel中添加一个宏,将数据读出按格式分页排版,不管有多少数据,都可以快速搞定。对于有大量测量数据需要打印的工程项目,可显著提高工作效率。

    ;Pn,,E,N,H南方CASS格式

    1,,268673.851,122259.312443,5104255.164807

    2,,268674.254,122261.892475,5104252.195585

    如下设计好模板: 

    1aa5612c7d1ab5d6202664423c71bf82.png

    点击表旁的“打开CASS文件”

    e57953051fceebcd3258da588849fbf3.png

    选中一个数据文件,完成读入并分页: 

    12bf03d5a202857ce9c56bb1c642ccf5.png

    下图是在Excel中的打印效果,设计排版的表格模板在WPS里因兼容打印分页有点点问题,有兴趣的朋友可将表中行高稍作调整即可。

    ed87450c0025a38c8b0dcc1110369499.png

    VBA宏代码如下: 

    Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Public CoSys_AX As Double

    Public CoSys_AY As Double

    Public CoSys_BX As Double

    Public CoSys_BY As Double

    Public CoSys_Az As Double

    Public Ba_Min_x As Double

    Public Ba_Min_y As Double

    Public Ba_Min_H As Double

    Public Ba_Max_x As Double

    Public Ba_Max_y As Double

    Public Ba_Max_H As Double

    Const Start_Row = 6 '数据起始位置

    Const Count_PerPage = 100 '每页数据个数,必须为偶数

    Private Sub CommandButton1_Click()

        Dim Dia1 As Object, Strr As String, PPath As String

        Dim Datums As Variant

        Dim row As Long, RowIndex As Long, col As Long, DataCount As Long, PageIndex As Long

        Dim stageStr As String, stageStr_Min_X As String, stageStr_Min_Y As String, stageStr_Max_X As String, stageStr_Max_Y As String, stageStr_Min_H As String, stageStr_Max_H As String

    '定义大坝坐标系

    CoSys_AX = 3743173.79

    CoSys_AY = 269083.559

    CoSys_BX = 3743173.79

    CoSys_BY = 268415.559

    CoSys_Az = 270# * 3.14159265 / 180#

    Ba_Min_x = -999999#

    Ba_Min_y = -999999#

    Ba_Min_H = -999999#

    Ba_Max_x = -999999#

    Ba_Max_y = -999999#

    Ba_Max_H = -999999#

        row = 0

        DataCount = 1

        Set Dia1 = Application.FileDialog(msoFileDialogFilePicker)

        Dia1.Title = "(C) QinDong QQ:61902475 Email:qd@cehuis.com V20160225"

        With Dia1

            .AllowMultiSelect = False '限制只能同时选择一个文件

            .Filters.Clear

            .Filters.Add "南方CASS格式", "*.dat", 1 '限制显示的文件类型

            .Show

            For Each vrtSelectedItem In .SelectedItems

                PPath = vrtSelectedItem

            Next

        End With

        If Trim(PPath) <> "" Then

            Open PPath For Input As #1

                Do While Not EOF(1)

                    Line Input #1, Strr

                    If Trim(Strr) <> "" Then

                    Datums = Split(Strr, ",")

                    If UBound(Datums) = 4 Then

                    CalStage Val(Datums(3)), Val(Datums(2)), Val(Datums(4)) '计算大坝坐标桩号

                    PageIndex = Int((DataCount - 1) / Count_PerPage)

                    RowIndex = Int((DataCount - 1 - PageIndex * Count_PerPage) / (Count_PerPage / 2))

                    If RowIndex = 0 Then

                     col = 2

                    Else

                     col = Start_Row '6

                    End If

                            '增加一页

                            If DataCount = PageIndex * Count_PerPage + 1 Then

                                Range("A" & Start_Row & ":H" & ((Count_PerPage / 2) + Start_Row - 1)).Select

                                Application.CutCopyMode = False

                                Selection.Copy

                                Range("A" & (PageIndex * (Count_PerPage / 2) + Start_Row)).Select

                                ActiveSheet.Paste

                                Range("A" & (PageIndex * (Count_PerPage / 2) + Start_Row) & ":" & "H" & ((PageIndex + 1) * (Count_PerPage / 2) + Start_Row - 1)).Select

                                Selection.RowHeight = 13

                                Selection.ClearContents

                            End If

                    If (DataCount - 1) Mod (Count_PerPage / 2) = 0 Then row = 0

                        Sheet1.Cells(PageIndex * (Count_PerPage / 2) + Start_Row + row, col - 1) = DataCount

                        Sheet1.Cells(PageIndex * (Count_PerPage / 2) + Start_Row + row, col) = Datums(3)

                        Sheet1.Cells(PageIndex * (Count_PerPage / 2) + Start_Row + row, col + 1) = Datums(2)

                        Sheet1.Cells(PageIndex * (Count_PerPage / 2) + Start_Row + row, col + 2) = Datums(4)

                    row = row + 1

                    DataCount = DataCount + 1

                    End If

                    End If

                Loop

            Close #1

            '设置打印区域

            ActiveSheet.PageSetup.PrintArea = "$A$" & (Start_Row - 1) & ":$H$" & ((PageIndex + 1) * (Count_PerPage / 2) + Start_Row - 1)

        '探测桩号范围

        stageStr_Min_X = "纵0+" & Format(Round(Ba_Min_x, 2), "0.00")

        stageStr_Max_X = "纵0+" & Format(Round(Ba_Max_x, 2), "0.00")

        '适用于两河口,偏距要反号

        If Ba_Min_y > 0 Then

        stageStr_Min_Y = "坝0" & Format(-Round(Ba_Min_y, 2), "0.00")

        Else

        stageStr_Min_Y = "坝0+" & Format(-Round(Ba_Min_y, 2), "0.00")

        End If

        If Ba_Max_y > 0 Then

        stageStr_Max_Y = "坝0" & Format(-Round(Ba_Max_y, 2), "0.00")

        Else

        stageStr_Max_Y = "坝0+" & Format(-Round(Ba_Max_y, 2), "0.00")

        End If

        stageStr_Min_H = "EL." & Format(Round(Ba_Min_H, 2), "0.00")

        stageStr_Max_H = "EL." & Format(Round(Ba_Max_H, 2), "0.00")

        If Ba_Min_y > 0 Then

        stageStr = "(" & stageStr_Min_X & "~" & stageStr_Max_X & ";" & stageStr_Min_Y & "~" & stageStr_Max_Y & ";" & stageStr_Min_H & "~" & stageStr_Max_H & ")"

        ElseIf Ba_Min_y < 0 And Ba_Max_y > 0 Then

        stageStr = "(" & stageStr_Min_X & "~" & stageStr_Max_X & ";" & stageStr_Max_Y & "~" & stageStr_Min_Y & ";" & stageStr_Min_H & "~" & stageStr_Max_H & ")"

        ElseIf Ba_Max_y < 0 Then

        stageStr = "(" & stageStr_Min_X & "~" & stageStr_Max_X & ";" & stageStr_Max_Y & "~" & stageStr_Min_Y & ";" & stageStr_Min_H & "~" & stageStr_Max_H & ")"

        Else

        stageStr = "(" & stageStr_Min_X & "~" & stageStr_Max_X & ";" & stageStr_Min_Y & "~" & stageStr_Max_Y & ";" & stageStr_Min_H & "~" & stageStr_Max_H & ")"

        End If

        Range("A3:H3").Select

        Selection.Font.Bold = False

        Range("A3:H3").Select

        ActiveCell.FormulaR1C1 = "工程部位:" & stageStr

        With ActiveCell.Characters(Start:=1, Length:=5).Font

            .Name = "黑体"

            .FontStyle = "加粗"

            .Size = 10

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ColorIndex = xlAutomatic

        End With

        End If

    End Sub

    '计算桩号范围

    Public Sub CalStage(pn As Double, pe As Double, ph As Double)

    Dim px_tmp As Double, py_tmp As Double

    px_tmp = Round((pn - CoSys_AX) * Cos(CoSys_Az) + (pe - CoSys_AY) * Sin(CoSys_Az), 3)

    py_tmp = Round(-(pn - CoSys_AX) * Sin(CoSys_Az) + (pe - CoSys_AY) * Cos(CoSys_Az), 3)

    If Ba_Min_x = -999999# Or px_tmp < Ba_Min_x Then Ba_Min_x = px_tmp

    If Ba_Min_y = -999999# Or py_tmp < Ba_Min_y Then Ba_Min_y = py_tmp

    If Ba_Min_H = -999999# Or ph < Ba_Min_H Then Ba_Min_H = ph

    If Ba_Max_x = -999999# Or px_tmp > Ba_Max_x Then Ba_Max_x = px_tmp

    If Ba_Max_y = -999999# Or py_tmp > Ba_Max_y Then Ba_Max_y = py_tmp

    If Ba_Max_H = -999999# Or ph > Ba_Max_H Then Ba_Max_H = ph

    End Sub

    打印的表格头部会自动计算出所测地形的工程部位,以施工坐标的桩号和高程标明,因此要设置施工坐标系的参数,代码中使用两点A、B定义施工坐标系,其中A为施工坐标系原点。可根据需要自行修改。 

    ————————————————

    09582c08323e5ede064a48d7d50bdf12.gifb4d5705b4b64c89354d4b64f171e129c.gif

    【1】史上最齐全的CAD下载资源!!!

    【2】【BIM软件】Revit 2018软件安装包免费送,内附安装教程!

    【3】南方CASS展点方法视频教程

    【4】坐标转换中的七参数详谈,测量员值得收藏

    【5】道路横断面图手动快速绘制方法

    【6】南方Cass两期间土石方计算之三角网法

    【7】用excel快速制作cad断面图示例(绝对有用)

    【8】CAD中提取坐标生成表格(附下载)

    【9】CAD坐标标注插件(附下载)

    【10】pdf转cad的软件(附下载)

    【11】介绍个方法,可以用cad直接展点的方法。

    【12】CAD图形导入奥维地图最简单、实用的方法

    【13】仿纬地菜单插件(附下载)

    【14】教你如何用纬地道路设计软件将“直曲线及转角表”转换为线路图

    【15】在南方CASS中怎么生成断面?生成完断面之后又怎么用断面计算土方?

    【16】工程人必须会用的一个excle函数,让你做资料“事半功倍”

    【17】Cass软件坐标转换方法

    【18】设计图计算E匝道的逐桩坐标案例的计算方案

    【19】RTK坐标参数转换,图文教程!

    【20】RTK技术支持中最常遇到的问题总结,RTK问题对照解决方法

    【21】RTK假固定的原因与解决办法!

    【22】全站仪棱镜常数及测定方法

    【23】全站仪放边坡开挖线方法

    【24】全站仪数据采集和传输中的常见问题解决方案

    【25】这可能是最全面的全站仪常见问题解答了

    【26】全站仪任意点架设仪器测高程的各种方法的讨论

    【27】手把手教你维修全站仪(收藏版)

    【28】RTK假固定的原因与解决办法!

    【29】【案例】高海拔地区GPS、RTK使用应注意的一个问题

    【30】水准仪高程测量计算方法(动画展示)

    bd012efdb667ad20dd2017695ad44242.png

    业务范围、诚信安全网查BIM工程师测量员考核电大中专,半年毕业网查助工、人社局!2020年秋季网络大专,正规提升752765a026eb3e0e7e0f76480b15be65.png

    扫码

    进群

    8e64889fd186a08033d9c2aece16c41e.png

    即可

    进群

    展开全文
  • 运用VBA+DLL制作自动产生和打印出口报关所需的合同书(可启用客户图章功能),装箱单,手写报关单程序的教程
  • 如何在EXCEL中实现连续编号自动更新打印? 用下列方法,无论你需要输入连续编号的单元格是否改变,均不需要改变代码。 第一步:将下列代码拷贝到宏中(方法请问度娘,搜代码的人应该会的)。 Sub 连续编号() [编号]....

    VBA小白的福音
    如何在EXCEL中实现连续编号自动更新打印?
    用下列方法,无论你需要输入连续编号的单元格是否改变,均不需要改变代码。
    第一步:将下列代码拷贝到宏中(方法请问度娘,搜代码的人应该会的)。
    Sub 连续编号()
    [编号].NumberFormatLocal = “@”
    Dim i As Integer
    Dim b As Integer
    Dim a As Integer
    a = InputBox(“打印份数”, “请输入打印份数”, 1)
    b = InputBox(“开始编号”, “请输入开始编号”, 1)
    c = a + b - 1
    For i = b To c
    If i < 10 Then
    [编号] = “编号:000” & i
    ElseIf i < 100 Then
    [编号] = “编号:00” & i
    ElseIf i < 1000 Then
    [编号] = “编号:0” & i
    Else
    [编号] = “编号:” & i
    End If
    ActiveWindow.SelectedSheets.PrintOut
    Next
    [编号] = “自动编号无需更改”
    End Sub
    第二步:在EXCEl中选中需要加入自动编号的单元格(可以是合并的单元格)。将单元格命名为编号。方法如下:
    1.选中目标单元格。
    在这里插入图片描述
    2.将单元格命名为编号。即将上图中A3换成编号,回车即可。(此步也可通过公式—定义名称完成)
    在这里插入图片描述
    3.运行宏-连续编号
    在这里插入图片描述
    4.按提示输入打印份数和打印开始编号即可

    展开全文
  • 测量数据(仅指测量坐标成果数据,一般为南方CASS格式,参见下表)从仪器下载下来后,都需要打印出来签字存档,如果手动排版将是一项繁琐的工作。可在Excel中添加一个宏,将数据读出按格式分页排版,不管有多少数据...
  • 关于Debug.Print语句在“立即”窗口中的排版1, 一个Debug.Print语句能同时打印多个变量或者常量(通常是String),各个单位之间分隔符有2种:半角逗号【,】,代表制表输出- (图1);半角分号【;】,代表连续输出- ...
  • VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种...
  • VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种...
  • 今天分享一个VBA实现自动打印的功能,录制宏+修改代码实现。▍这篇文章你将学到以下知识点:录制宏并修改代码;instr函数;循环打开工作簿的通用写法;选择文件夹对话框。我会认真写,希望看完文章后,能在遇到类似...
  • 测量数据(仅指测量坐标成果数据,一般为南方CASS格式,参见下表)从仪器下载下来后,都需要打印出来签字存档,如果手动排版将是一项繁琐的工作。可在Excel中添加一个宏,将数据读出按格式分页排版,不管有多少数据,...
  • 将"VBA加载工具.xlsm"置于D:\根目录中,在execl自定义工具栏导入"Excel 自定义.exportedUI"文件 选中要处理数据单元格后,点击宏按钮,会实现功能,同时会加载宏文件(也是个表格,不要关闭) 详见:宏按钮工具栏.jpg ...
  • Excel使用VBA动态设置打印区域

    万次阅读 2010-07-05 20:46:00
    说明:本设置是实现Excel在一打开的瞬间便实现自动设置打印区域功能。     假设本Excel的格式是: 1.标题是从第一行至第七行;列是从第A列至L列 2.从第八行开始,便是动态变化的行...
  • 可以方便地在已有数据中选择姓名,自动完成多种信息选项的通讯录制作和两种打印格式设定。在2.1版中,可以任意补充您所需的字段,并增强了发送邮件、打开网页、姓名查找等功能。程序无任何宏病毒,请放心“启用宏”...
  • 只能通过word套打来实现网页打印,但是原理就是将制作好的word表格里面添加书签,和oa表格里面的字段匹配,当oa打印的时候word就可以通过书签来获得网页表格中的内容,本代码就是自动添加书签,省略了人工添加。...
  • 利用vba技术,编程实现批量打印多种格式文件, VBA调用电脑默认打印, 打印纸质版或打印为PDF电子版
  • 如何在word中实现连续编号自动打印 因机关工作需要,经常在发文打印时,需要逐份输入连续文件编号。在百度上查找相关方法,包括VBA程序都不满意,大多有点错误。因此手写了这份代码,现提供同学们参考: Sub ...
  • 转自EXCEL不加学员要制作一份应付工资计提表打印模板,希望能够实现一键生成,只要点一下按钮,25个单位的所有数据能够自动打印。为了方便说明,卢子用黄色填充色标识出来,注意观察内容的变化。下面是其中2个单位的...
  • 相像一下,就按个按键,几百个文件的自动打印、存储、合并,全都自动完成,是不是很神奇?市面上教 VBA 的书和视频教程不少,大家可以结合自己的水平选择购买。如果不想花钱,就跟着我慢慢学吧。VBA 系列,我...
  • 01使用背景1、VBA简介VBA作为一种宏语言,在Excel、Word、PPT等软件中可Alt+F11一键开启编写。免去主流编程语言(如大热的Python)安装时的复杂与痛苦,像傻瓜一样复制代码进去即可立刻运行。堪称解放办公室一族的最佳...
  • 由于需要经常、大量、开具银行承兑汇票,故产生使用人人都会使用的EXCEL编写一个简单的打印程序,实现自动连续打印目的 创建工作表清单: 1,待打印清单---所有需要打印的银行承兑汇票清单录入在此工作表中,包括...
  • 01使用背景1、VBA简介VBA作为一种宏语言,在Excel、Word、PPT等软件中可Alt+F11一键开启编写。免去主流编程语言(如大热的Python)安装时的复杂与痛苦,像傻瓜一样复制代码进去即可立刻运行。堪称解放办公室一族的最佳...
  • 可以自动计算重量、计算快递费、打印发货单、快递单等。年底的时候可以还可以统计全年销售数据,生成报表之类的。这些功能,Excel+VBA足矣。我知道有很多现成的软件可以实现上述功能,但大多价格不菲。在几年前店铺....
  • 但是,当我将word文档中的脚本打印到.py文件并打开.py文件时,IDE警告“将自动修复混合的行尾字符”,然后脚本中的所有“”都变成类似于§¨的内容。以下是我的vba代码:Dim wddoc As VariantDim wdApp As...
  • CAD选项设置会让你事半功倍下面以CAD2017为例打开cad软件选择左上角工具,然后点跳出来的最后的一项选项或者用快捷命令:OP(命令全部:OPTIONS)跳出的选项窗口有文件、显示、打开和保存、打印和发布、系统、用户系统...
  • Gavin与狗(ID:callmeGavin8)01使用背景1、VBA简介VBA作为一种宏语言,在Excel、Word、PPT等软件中可Alt+F11一键开启编写。免去主流编程语言(如大热的Python)安装时的复杂与痛苦,像傻瓜一样复制代码进去即可立刻...
  • excel vba标签

    2011-03-04 23:32:47
    自动按出厂编号提取型号规格数量处理数据打印

空空如也

空空如也

1 2 3 4 5 ... 12
收藏数 228
精华内容 91
关键字:

vba自动打印