excel打印宏，写不出来啊……哪位大侠调下

答案:2 悬赏:30 手机版

解决时间 2021-03-03 04:29

提问者网友：心如荒岛囚我终老
2021-03-02 15:01

清单的表格是调好格式了，楼房是数据表，要按照楼房表格里的D列逐行打印，大致意思吧，调试不了啊，
Sub Macro1()'' Macro1 Macro'Dim yzm As StringDim hangFor hang= 2 To 472yzm = 楼房.Cells(D, hang) If yzm = "" Or "成交" Then Else 清单.Cells(b, 3) = yzm Chr (13) Sheets("清单").PrintOut End IfNext
'End Sub

最佳答案

五星知识达人网友：梦中风几里
2021-03-02 16:30

Sub Macro1()
Dim yzm As String
Dim hang
For  hang= 2 To 472
    yzm = worksheets("楼房").Cells( hang,"D")'工作表引用不能直接写名字，cells(行号，列号）如果列号不是数字要加引号。
    If yzm = "" Or yzm="成交" Then '这里也有问题
        '为什么没有代码？如果这样的话
        '整个if可以改为if yzm<>"" or yzm<>"成交"，<>表示不等于
    Else
        worksheets("清单").Cells(3,"b") = yzm & Chr (13)'问题同上，然后，两个字符串连接中要用&过度
        Sheets("清单").PrintOut'这里的工作表引用对了。
    End If
Next
End Sub

全部回答

1楼网友：一袍清酒付
2021-03-02 16:37

我不会~~~但还是要微笑~~~：）

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息