如何利用VBA获取数据

3190496160

桥边折柳赠佳人 发表于 2024-8-8 22:34
大佬你有VX或QQ吗 我+你诉求详情

3190496160

桥边折柳赠佳人

ykcbf1100 发表于 2024-8-8 09:58
猜一个吧。

大佬，能否在你这个代码上加一个循环语句比如在半成品出库A3依次录入扫码区A列从和F列的单号，每录一次就执行CALL 模块1.半成品出库查询从而达到目的呢

桥边折柳赠佳人

ykcbf1100 发表于 2024-8-8 09:58
猜一个吧。

Sub CopyDataAndRunModule2()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    Dim i As Long
   
    ' 设置源和目标工作表
    Set wsSource = ThisWorkbook.Sheets("半成品出库查询")
    Set wsDestination = ThisWorkbook.Sheets("扫码区")
   
    ' 获取Sheet2中A列和F列的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
   
    ' 循环复制A列数据
    For i = 1 To lastRow
        ' 将Sheet2的A列数据复制到Sheet1的A3单元格
        wsSource.Cells(i, "A").Copy Destination:=wsDestination.Range("A3")
        
        ' 调用模块2
        Call 模块1.半成品出库查询
        Call Sheet3.ykcbf
        ' 如果需要，也可以复制F列数据
        ' wsSource.Cells(i, "F").Copy Destination:=wsDestination.Range("A3")
        ' Call 模块1.半成品出库查询
        ' Call Sheet3.ykcbf
    Next i
End Sub


你看这样能不能达到效果呢，请加以改正

桥边折柳赠佳人

大佬们看看这样能不能行