| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
跟大牛学C++学算法数据结构
共有 292 人关注过本帖
标题:更改 条件打印VBA
只看楼主 加入收藏
本帖由 静夜思 于 2019-1-1 14:34 移动
周亿元
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-12-31
  问题点数:0  回复次数:2   
更改 条件打印VBA
Private Sub CommandButton1_Click()
    Dim sText, sPrintArea
   
    '1只要B40:D40单元格有文本就打印A35:Q62区域
    sText = Trim(Range("B40").Value & Range("C40").Value & Range("D40").Value)
    If sText <> "" Then
        sPrintArea = "$A$35:$Q$62"
    End If
   
    '只要B75:D75单元格有文本就打印A70:Q97区域
    sText = Trim(Range("B75").Value & Range("D75").Value & Range("D75").Value)
    If sText <> "" Then
        If sPrintArea = "" Then
          sPrintArea = "$A$35:$Q$62"
        Else
            sPrintArea = "$A$35:$Q$62, $A$70:$Q$97"
        End If
    End If
   
    '只要B105:D105单元格有文本就打印A100:Q127区域
    sText = Trim(Range("B105").Value & Range("C105").Value & Range("D105").Value)
    If sText <> "" Then
        If sPrintArea = "" Then
            sPrintArea = "$A$100:$Q$127"
        Else
            sPrintArea = sPrintArea & "," & "$A$100:$Q$127"
        End If
    End If
    If sPrintArea <> "" Then
        ActiveSheet.PageSetup.PrintArea = sPrintArea
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
   
End Sub



求大神改成

图中A6数字是1   就打印B456789  ,C456789.是2就打印B456789  ,C456789 D456789,E456789,是3就打印B456789  ,C456789 D456789,E456789F456789,G456789S  4..........
A12是1就打印B10-B15,C10-C15  ,是2就打印B10-B15  ,C10-C15,D10-D15,E10-E15,是3就打印B10-B15  ,C10-C15,D10-D15,E10-E15,F10-F15,G10-G15 ,  
附件: 您没有浏览附件的权限,请 登录注册
2018-12-31 13:06
gs2536785678
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:246
专家分:672
注 册:2017-7-16
  得分:0 
朋友你走错门了。
这里是VF不是VBA
2019-01-01 09:52
周亿元
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-12-31
  得分:0 
回复 楼主 周亿元
不是 吧
2019-01-01 11:38







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.154734 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved