数据处理：需修改一段代码

有一段代码需修改下：
                                测试附件： ERP data.rar (48.71 KB)

ERP data.rar (48.71 KB)
下载次数: 3

2011-8-11 00:20

复制内容到剪贴板

代码:

原代码中的其中一段：
    With S.Sheets(1)
        .Cells.Replace " ", ""
        .Range("c:c").Replace "-", ""
        r = .Cells(65536, 1).End(xlUp).Row
        arr = .Range("a2:ag" & r).Value
    End With

复制内容到剪贴板

代码:

对应：《ERP》工作表中的C列数据。

040.jpg (72.58 KB)

2011-8-11 00:20

修改为，按这个：UserForm1 中的要求执行，勾选哪个项，则执行哪个项。

复制内容到剪贴板

代码:

代码在：《更新》工作表里，其它两个表是测试的关联附件。

以上，敬请好心人帮忙，谢谢~~~
'

[ 本帖最后由 opelwang 于 2011-8-11 00:22 编辑 ]

作者: opelwang   发布时间: 2011-08-11

SEE IF HELP YOU

附件

更新.rar(16 KB)

2011-8-11 02:18, 下载次数: 0

作者: KCFONG   发布时间: 2011-08-11

Sorry, use this file

附件

更新 V1.rar(13.3 KB)

2011-8-11 02:24, 下载次数: 0

作者: KCFONG   发布时间: 2011-08-11