网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
10月22日漏签0天
excel吧 关注:281,713贴子:1,554,336
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 13回复贴,共1页
<<返回excel吧
>0< 加载中...

VBA函数如何选择合适的条件跳出循环

  • 只看楼主
  • 收藏

  • 回复
  • 神马朗通
  • E见钟情
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Sub 打印()
Sheets("票据打印").Select
ActiveWindow.SelectedSheets.PrintOut
With Sheets("记录")
x = .Range("a65536").End(xlUp).Row + 1
For i = 0 To 5
If .Cells(i + 4, 1) <> "" Then
.Cells(x + i, 1) = [B2]
.Cells(x + i, 2) = [D2]
.Cells(x + i, 3) = [E2]
.Cells(x + i, 4) = Cells(i + 4, 1)
.Cells(x + i, 5) = Cells(i + 4, 2)
.Cells(x + i, 6) = Cells(i + 4, 3)
.Cells(x + i, 7) = Cells(i + 4, 4)
.Cells(x + i, 8) = Cells(i + 4, 5)
.Cells(x + i, 9) = [B8]
.Cells(x + i, 10) = [E8]
End If
Next
End With
s = Range("e2")
Range("e2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4)
MsgBox "打印并保存完毕"
End Sub


当商品名称为空值时,如何不输出任何值


  • 神马朗通
  • E见钟情
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我的问题是,该怎么做才能再第一张表格空值的时候,不输出任何值


2025-10-22 03:14:31
广告
不感兴趣
开通SVIP免广告
  • mongozora
  • 以E待劳
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我是不是眼花了。。 你的第一张图不是最终打印效果图吗 第二张图才是数据来源表


  • mongozora
  • 以E待劳
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
If .Cells(i + 4, 1) <> "" Then
为啥根据第一列来判断, 而不是根据多列综合判断


  • 神马朗通
  • E见钟情
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
有没有大神帮忙解答一下,


  • 神马朗通
  • E见钟情
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
问题终结了,if函数我多了个. 打扰了


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 13回复贴,共1页
<<返回excel吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示