Foxtable(狐表)用户栏目专家坐堂 → VBA转孤表代码


  共有2879人关注过本帖树形打印复制链接

主题:VBA转孤表代码

帅哥哟,离线,有人找我吗?
zhuxinhui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:6045 威望:0 精华:0 注册:2017/11/8 17:37:00
VBA转孤表代码  发帖心情 Post By:2020/7/31 15:52:00 [显示全部帖子]

For I = 3 To Sheets("日报").[B65536].End(xlUp).Row
Range("A" & I) = IIf(Range("A" & I) = "销售开单", Range("A" & I - 1), (IIf(Range("A" & I) = "销售退货", Range("A" & I - 1), (IIf(Range("A" & I) = "小计", "小计", (IIf(Range("A" & I) = "发出结算", Range("A" & I - 1), (IIf(Range("A" & I) = " ", " ", Range("A" & I))))))))))
Next
如何把这句VBA代码转化成在孤表也能操作EXCEL表的代码呢?


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:6045 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2020/7/31 17:00:00 [显示全部帖子]

弹出了这个窗口
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200731165903.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:6045 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2020/7/31 17:01:00 [显示全部帖子]

测试了很久,用其他的公式处理了,但是这句代码还是不知是什么原因出弹出这个提示的

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:6045 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2020/7/31 18:04:00 [显示全部帖子]

这个也是弹出刚才的提示

 回到顶部