Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 789|回复: 7

[已解决]怎么根据条件变更名称,请大神指教

[复制链接]
发表于 2023-2-3 15:18 | 显示全部楼层 |阅读模式
本帖最后由 透明世界1987 于 2023-2-4 08:35 编辑

Desktop.zip (121.22 KB, 下载次数: 5)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2023-2-3 18:23 | 显示全部楼层
哥们你页眉页脚分不清……页眉顶部,页脚底部,嘉兴毅昌贸易有限公司是在页脚。而且还是个图片公章……搞不了搞不了,我也蹲一个大佬,学习学习。
回复

使用道具 举报

 楼主| 发表于 2023-2-4 08:35 | 显示全部楼层
哥儿- 发表于 2023-2-3 18:23
哥们你页眉页脚分不清……页眉顶部,页脚底部,嘉兴毅昌贸易有限公司是在页脚。而且还是个图片公章……搞不 ...

微信截图_20230204083400.png
感谢大神,不过您理解不对 我没说页脚 请忽略底部,我说的就就是页眉哈
回复

使用道具 举报

发表于 2023-2-4 09:15 | 显示全部楼层
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address <> "$K$2" then exit sub
   If InStr("杭州西泰|宁波奥打破|杭州立诺", [k2]) Then
      [b1].replace "毅昌订单","和昌订单"
      [b1].repalce "嘉兴毅昌贸易有限公司","嘉兴和昌电梯有限公司"
   End If

End Sub


回复

使用道具 举报

发表于 2023-2-4 10:17 | 显示全部楼层
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$K$2" Then Exit Sub
    If InStr("杭州西泰|宁波奥打破|杭州立诺", [k2]) Then
       [b1].Replace "毅昌订单", "和昌订单"
       Sheet3.PageSetup.CenterHeader = " &" & """" & "宋体,加粗" & """" & "&10&K000000  &18嘉兴和昌电梯有限公司&10" & Chr(10) & "&14采购订单"
    End If
End Sub

点评

原來我理解錯意思了~哈哈  发表于 2023-2-4 11:06
回复

使用道具 举报

 楼主| 发表于 2023-2-4 12:35 | 显示全部楼层
哥儿- 发表于 2023-2-4 10:17
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address  "$K$2" Then Exit Sub
   ...

感谢大神,感觉不太对,别人给的这段代码运行正常,就是不知道两个公司名称字体怎么优化一下,设置成14号加粗

Sub 批量打印PDF()

    For Each sh In Sheets

    If sh.Range("k2") = "123456" Or sh.Range("k2") = "789" _
    Or sh.Range("k2") = "321" Or sh.Range("k2") = "666" _
    Or sh.Range("k2") = "3366" Or sh.Range("k2") = "7788" Then
    sh.PageSetup.CenterHeader = "AAAAAA公司-采购订单"

  Else
   sh.PageSetup.CenterHeader = "BBBBB公司-采购订单"

  End If

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "\\192.168.10.91\采购共享\未发送订单\\" & sh.Name & ".pdf", Quality:=xlQualityStandard _
            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
        Application.ScreenUpdating = False '关闭屏幕闪烁
    Next


End Sub

回复

使用道具 举报

发表于 2023-2-4 13:21 | 显示全部楼层    本楼为最佳答案   
本帖最后由 哥儿- 于 2023-2-4 13:25 编辑

Sub 批量打印PDF()

    For Each sh In Sheets

    If sh.Range("k2") = "123456" Or sh.Range("k2") = "789" _
    Or sh.Range("k2") = "321" Or sh.Range("k2") = "666" _
    Or sh.Range("k2") = "3366" Or sh.Range("k2") = "7788" Then
    sh.PageSetup.CenterHeader = " &" & """" & "宋体,加粗" & """" & "&10&K000000  &18AAAAA公司&10" & Chr(10) & "&14采购订单"

  Else
   sh.PageSetup.CenterHeader = " &" & """" & "宋体,加粗" & """" & "&10&K000000  &18BBBBB公司&10" & Chr(10) & "&14采购订单"

  End If

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "\\192.168.10.91\采购共享\未发送订单\\" & sh.Name & ".pdf", Quality:=xlQualityStandard _
            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
        Application.ScreenUpdating = False '关闭屏幕闪烁
    Next


End Sub
你测试一下。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 17:22 , Processed in 0.504387 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表