乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 130|回复: 9

关于数据对应的问题

[复制链接]

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-7-17 11:36:00 | 显示全部楼层 |阅读模式
假如我在一个EXCEL文件中,作文件为如下形式:第一列                                                                                                                                                         第二列
E.1-2.16                                                                                                                                                 XL16
E.2-3.16                                                                                                                                                 XL16
。。。                                                                                                                                                                 。。。
请问,如何用VBA实现当在新建的一个EXCEL文件中的第一列中输入
E.1-2.16                可以在第二列中自动填写原文件中与之对应的XL16呢
或者说当第一列都填好以后,按一个按钮来执行这个程序,填满与之对应的第二列
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-7-17 11:41:00 | 显示全部楼层
Sheet.Cells(行号,列号)=Value
回复

使用道具 举报

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-7-17 11:43:00 | 显示全部楼层
我对VBA一窍不通,请说详细点行吗?或者帮忙写一下!谢了
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-7-17 12:04:00 | 显示全部楼层
这样的程序应该是在excel的VBA里完成的
回复

使用道具 举报

wmz

50

主题

247

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
447
发表于 2004-7-17 13:25:00 | 显示全部楼层
在Excel里,这样的问题应该说是小菜一碟,如:
for i=1 to n
                 range("A" & cstr(i)).FormulaR1C1 = A
                 range("B" & cstr(i)).FormulaR1C1 = b
next i
回复

使用道具 举报

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-7-17 15:07:00 | 显示全部楼层
哦,我觉得也应该是!
可是就这四行代码就可以满我的要求了吗?
回复

使用道具 举报

wmz

50

主题

247

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
447
发表于 2004-7-17 15:49:00 | 显示全部楼层

那就看你的A列B列的数据来源和组织了.
回复

使用道具 举报

16

主题

47

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2004-7-17 17:28:00 | 显示全部楼层
如果你采用VBA,根本就不必要在Excel中生成XL16,因为
第一列                                                                                                                                                         第二列
E.1-2.16                                                                                                                                                 XL16
E.2-3.16                                                                                                                                                 XL16
也就是第二列总是XL16,直接令第一列like E.#-#.16则第二列九等于XL16
回复

使用道具 举报

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-7-18 08:07:00 | 显示全部楼层
不是的, 我的意思是,第二列的值是与第一列对应的,没准是什么
回复

使用道具 举报

wmz

50

主题

247

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
447
发表于 2004-7-18 13:18:00 | 显示全部楼层
到目前为止,我还没有完全弄明白你的意思,不知道第二列与第一列怎么个对应法,我现在假定:有一A,B两个字段的数据库表,A字段为该表的索引号或者索引关键字,B字段为与之对应的字段(数据),那么,当我在第一列填入A字段的某些记录(不一定是数据库表中的连续记录)时,即可搜索到与之对应的B字段的数据填入Excel的第二列(用以上代码再加上相应的处理语句),即可实现.同理,若第二列为第一列派生的(或者说由第一列经过加减乘除运算而得),同样可以上述代码为基础解决.
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 21:23 , Processed in 0.611697 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表