[已解决]调用函数的值返回不了主程序？？？求大腿

kaiwenworld

不良品处理跟踪表.rar (48.9 KB, 下载次数: 1)

2017-5-26 14:33 上传

点击文件名下载附件



Public b As String, c As String
Sub song()
ActiveSheet.[a1].CurrentRegion.Select
  With Selection
If Not .Find(b) Is Nothing Then
        .Find(b).Activate
         c = c & Chr(10) & Cells(ActiveCell.Row, 1).Value & """" & Cells(ActiveCell.Row, 2).Value & """" & Cells(ActiveCell.Row, 11).Value & """" & Cells(ActiveCell.Row, 6).Value & """" & Cells(ActiveCell.Row, 20).Value
         End If
        If Application.CountIf(ActiveSheet.[a1].CurrentRegion, b) > 1 Then
           For i = 1 To Application.CountIf(ActiveSheet.[a1].CurrentRegion, b) - 1
           .FindNext(ActiveCell).Activate
           c = c & Chr(10) & Cells(ActiveCell.Row, 1).Value & """" & Cells(ActiveCell.Row, 2).Value & """" & Cells(ActiveCell.Row, 11).Value & """" & Cells(ActiveCell.Row, 6).Value & """" & Cells(ActiveCell.Row, 20).Value
          Next i
        End If
          End With
End Sub

Sub 蓝月亮破损单号提取明细()
Dim c As String, xx As Workbook
Worksheets(1).Activate
arr = Range(Cells(4, 8), Cells(Cells(4, 8).End(xlDown).Row, 8))
Worksheets(2).Activate
  For y = 1 To UBound(arr, 1)
    b = arr(y, 1)
     If y = 1 Then
     Call song
       Else: If y > 1 And arr(y, 1) <> arr(y - 1, 1) Then Call song
     End If
Next y
MsgBox c                                  这里C值是空值                     
End Sub
主要是写个能根据表一的，H列的单号，去搜寻表2的相对应的单号的其中几列的信息，集和到一个C值中显示，子过程的C值是正常，但看不到C值为什么返回不了主程序？？大腿 支个招。

最佳答案

月排行榜 / 总排行榜

砂海

2017-5-26 14:33

Public b As String, c As String
===================
Sub 蓝月亮破损单号提取明细()
Dim c As String, xx As Workbook===================
c 已经定义为公共变量 . 又定义为程序变量 ,
msgbox 输出的是 程序的

删了红字吧

跳转到最佳答案楼层

砂海

Public b As String, c As String
===================
Sub 蓝月亮破损单号提取明细()
Dim c As String, xx As Workbook===================
c 已经定义为公共变量 . 又定义为程序变量 ,
msgbox 输出的是 程序的

删了红字吧

kaiwenworld

砂海 发表于 2017-5-26 14:33
Public b As String, c As String
===================
Sub 蓝月亮破损单号提取明细()

哈哈  大哥 好生猛    以下找到了问题关键