设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 35777|回复: 129

[BOM] 产品型号管理系统

[复制链接]
发表于 2008-6-23 14:53:13 | 显示全部楼层 |阅读模式
[ 本帖最后由 duomu 于 2012-9-20 15:26 编辑 ]

请各位看看,多指教!!

[[i] 本帖最后由 duomu 于 2008-6-23 14:59 编辑 [/i]]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 2经验 +15 收起 理由
5988143 + 5 精品文章
rjacky + 10 精品文章

查看全部评分

发表于 2008-6-23 15:18:15 | 显示全部楼层
谢谢分享,做得不错,很有参考价值
发表于 2008-6-23 15:31:27 | 显示全部楼层
谢谢,先下下来再说
发表于 2008-6-23 15:55:37 | 显示全部楼层
謝謝分享~
发表于 2008-6-23 19:51:28 | 显示全部楼层
[:50] [:50] [:50]
发表于 2008-6-24 11:32:50 | 显示全部楼层
[:31] [:50]
发表于 2008-6-24 18:11:33 | 显示全部楼层

学习。楼主附件中的模块代码看不懂

Sub xxx()
    Dim arr() As String
    Dim i, j

    For j = 2 To Range("d800").End(xlUp).Row
        arr() = Split(Range("d" & j), "/")
        For i = LBound(arr()) To UBound(arr())
            arr(i) = Range("b" & j) & " " & arr(i)
        Next
        Range("d" & j) = Join(arr(), "/")
    Next

End Sub
==========================
这个数组边界的循环是做什么用的。
发表于 2008-6-25 10:29:20 | 显示全部楼层
谢谢分享
发表于 2008-6-25 23:35:45 | 显示全部楼层
let me see see
发表于 2008-6-26 15:35:28 | 显示全部楼层
谢谢分享,做得不错
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 19:21 , Processed in 0.135164 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表