Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2456|回复: 10

[已解决]急!VBA代码实现如下功能

[复制链接]
发表于 2011-8-20 20:51 | 显示全部楼层 |阅读模式
急!VBA代码实现如下功能

A-J列有不同的内容,也有空列,
其中A1-J1有0-9不同的数字
在L1、M1、N1中分别输入不同的数字,在P1-U1中依照设置好的关系生成相应的值
要求在P列中,从P2开始生成一个在A-J中,A1-J1与P1相对应数字的列的值
如P1=5 则5对应E列,则P2=E2,P3=E3。。。。。。
同理Q-U列也要实现相应功能
要求增加一窗体按钮,当输入L1-N1数字后P1-U1自动生成对应数字
但只有点击窗体按钮后,以上功能代码才会运行并得到结果

具体见附件,谢谢! szj.rar (4.85 KB, 下载次数: 6)
 楼主| 发表于 2011-8-20 21:08 | 显示全部楼层
顶起呵呵 看看有没有好心人路过看见呵呵!
回复

使用道具 举报

发表于 2011-8-20 21:26 | 显示全部楼层
回复 mooming 的帖子

在L1、M1、N1中分别输入不同的数字,在P1-U1中依照设置好的关系生成相应的值
有什么关系{:041:}
回复

使用道具 举报

 楼主| 发表于 2011-8-20 21:27 | 显示全部楼层
本帖最后由 mooming 于 2011-8-20 21:27 编辑

关系我已在附件里 设定好 谢谢 现在就是要求显示结果
回复

使用道具 举报

发表于 2011-8-20 22:12 | 显示全部楼层
在P2格输入函数公式:
=HLOOKUP(P$1,$A$1:$J$65,ROW(),)&""就行
可不用VBA做
回复

使用道具 举报

 楼主| 发表于 2011-8-20 22:17 | 显示全部楼层
谢谢楼上朋友的提醒
回复

使用道具 举报

 楼主| 发表于 2011-8-20 22:34 | 显示全部楼层
看来我想用VBA实现的方法就要石沉了
回复

使用道具 举报

发表于 2011-8-20 23:29 | 显示全部楼层    本楼为最佳答案   
回复 mooming 的帖子

看看行不?

szj.rar

15.38 KB, 下载次数: 20

回复

使用道具 举报

 楼主| 发表于 2011-8-20 23:34 | 显示全部楼层
谢谢楼上兄弟
回复

使用道具 举报

发表于 2011-8-20 23:42 | 显示全部楼层
回复 mooming 的帖子

还不给个最佳?哈哈
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-15 04:38 , Processed in 0.322249 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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