PengLianJun 2022-01-09 06:21 采纳率: 100%
浏览 83
已结题

VBA写代码思路请师傅们指导一下

img

师傅们 帮忙指点一下
表二中 A2:A100 数据是自己后填进去的
用什么思路去 表一中 匹配数据啊?
刚接触VBA 需要同时匹配 itemNO 和 warehousename 有好的建议吗?
谢谢先

  • 写回答

2条回答 默认 最新

  • CSDN专家-showbo 2022-01-09 06:47
    关注

    ItemNo是放一起的吗?如果是直接遍历表1,判断itemNo不一样时新起一行依次填充FG,RM,TOOL,SP的值。

    不是在一起,可以遍历表一用scripting.dictionary归类FG,RM,TOOL,SP的值(放数组中),然后键名称为ItemNo,然后再遍历字典依次写入表2(当然也可以在在遍历表1的时候用Find函数找表2中的ItemNo是否存在,存在就写入对一个的列值)

    下面代码为ItemNo连续的示例

    img

    
    Sub writeData()
      rownum = Sheets("sheet1").Range("A65536").End(xlUp).row
      itemno = ""
      RowIndex = 1
      For i = 2 To rownum
          If itemno <> Sheets("sheet1").Cells(i, "B") Then 'ItemNo²»Ò»Ö£¬ÐÂÆðÒ»ÐÐ
            itemno = Sheets("sheet1").Cells(i, "B")
            RowIndex = RowIndex + 1
            Sheets("sheet2").Cells(RowIndex, "A") = itemno
          End If
          WarehouseName = Sheets("sheet1").Cells(i, "A")
          cellName = "B"
          If WarehouseName = "RM" Then
            cellName = "C"
          ElseIf WarehouseName = "TOOL" Then
            cellName = "D"
          ElseIf WarehouseName = "SP" Then
            cellName = "E"
          End If
          
          
          Sheets("sheet2").Cells(RowIndex, cellName) = Sheets("sheet1").Cells(i, "C")
    
      Next
    End Sub
    
    
    

    img


    有其他问题可以继续交流~

    展开全部

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
    1人已打赏
    PengLianJun 2022-01-09 08:43

    ItemNO是一起放进去的 每次的数量都不定 就是一张库存查询表 FG RM SP TOOL 是不同的库位 我先学一下 谢谢

    回复
    PengLianJun 2022-01-09 09:02

    你好!你的代码是将表一数据 按要求整理好放到表二 实际上我想达到的目的是 在表二 A列输入 ItemNO 能从 表一 查询出 对应库位的库存 有点出入 还是很感谢你

    回复
    CSDN专家-showbo 回复 PengLianJun 2022-01-09 09:07

    意思是在表二中输入ItemNo后,自动查询表一中的所有数据填充这个输入的ItemNo对应的行列数据?

    回复
    展开全部8条评论
查看更多回答(1条)
编辑
预览

报告相同问题?

问题事件

  • 系统已结题 1月16日
  • 已采纳回答 1月9日
  • 创建了问题 1月9日

悬赏问题

  • ¥15 爱快路由器端口更改错误导致无法访问
  • ¥20 安装catkin时遇到了如下问题请问该如何解决呢
  • ¥15 VAE模型如何输出结果
  • ¥15 编译python程序为pyd文件报错:{"source code string cannot contain null bytes"
  • ¥20 关于#r语言#的问题:广义加行模型拟合曲线后如何求拐点
  • ¥15 fluent设置了自动保存后,会有几个时间点不保存
  • ¥20 激光照射到四象线探测器,通过液晶屏显示X、Y值
  • ¥50 数据库开发问题求解答
  • ¥15 安装anaconda时报错
  • ¥15 小程序有个导出到插件方式,我是在分包下引入的插件,这个export的路径对吗,我看官方文档上写的是相对路径
手机看
程序员都在用的中文IT技术交流社区

程序员都在用的中文IT技术交流社区

专业的中文 IT 技术社区,与千万技术人共成长

专业的中文 IT 技术社区,与千万技术人共成长

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

客服 返回
顶部