请教 Excel Macro 高人！！

禾子Jess 2013-09-24 12:53:28

小妹我刚刚开始学习excel VBA, 现在有一个需求想通过Macro 进行实现，请教各位达人实现的大概思路:

在excel的工作簿中，有一列为产品名称，还有一列为关键字。我想另外建立一个工作簿，里面存有所有的关键词，当使用者输入产品名称后，就可以自动列出3个相关的关键词。

另外，关键词的工作簿中，也分为不同的组，比如衣服材质，衣服样式，衣服颜色等等。每一组包括5-7个关键词，之间可以互相替换。

不知道这个想法能不能通过MACRO来实现。请高人解答！！第一次发帖。。。摆脱大家啦！

禾子

...全文

462 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

江雪侠子 2013-10-09

打赏
举报

高手云集，学习学习！

zhu_terry 2013-10-06

打赏
举报

不太懂楼主的意思。网上有个逐步提示信息的例子。楼主看看是否有用。

禾子Jess 2013-09-27

打赏
举报

为什么我的VBA没办法用split的？显示错误为公式未定义

mnxm 2013-09-27

打赏
举报

如果是这样的话那就自己实现split方法吧或者找其它方式代替

mnxm 2013-09-27

打赏
举报

额你用的是哪个版本的office 的excel 不会是上个世纪的office97吧

禾子Jess 2013-09-25

打赏
举报

界面不需要。但是如何才能让产品名称中每一个词都在另一个工作簿中找到对应的值的？是不是应该是VLOOK和ISNA呢? 我试过用If (ISNA(VLOOKUP(D13,$R$2:$S$537,2,FALSE)) = True Then 也不行。另外如何才能随机筛选同一组中的3个词呢？

禾子Jess 2013-09-25

打赏
举报

追加一个问题：有什么方法可以loop一个column中每一个cell中的每一个词呢？实在是搞不懂啊。

mnxm 2013-09-25

打赏
举报

统计一片区域内所有关键词的个数关键词之间使用","分隔

Function myfun(rg As range)

    Dim count As Integer
    count = 0
    
    For Each cell In rg
    
        For Each word In Split(cell.Value, ",")
        count = count + 1
        Next
    
    Next
    
    myfun = count

End Function

mnxm 2013-09-24