ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
易厚学堂-专业的职场技能充电站 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 471|回复: 11

[已解决] 怎么用vba代码实现VLOOKUP函数的功能

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-9-14 21:04 | 显示全部楼层 |阅读模式
本帖最后由 小年玩卡 于 2018-9-14 21:57 编辑

表格A列属于4位数据中的码,对应的B,C,D列自动显示结果,由于需要创建很多工作表,会影响速度,能否用vba实现?
模板 (2).rar (23.18 KB, 下载次数: 48)

TA的精华主题

TA的得分主题

发表于 2018-9-14 21:26 | 显示全部楼层
  1. Sub t()
  2. Dim arr, i%, j%
  3. Sheet2.Activate
  4. arr = Sheet2.Range("a4:f258")
  5. For j = 1 To UBound(arr)
  6. For i = 2 To [a65536].End(3).Row
  7.   If Range("a" & i) = arr(j, 1) Then
  8.      Range("b" & i) = arr(j, 2)
  9.      Range("c" & i) = arr(j, 4)
  10.      Range("d" & i) = arr(j, 6)  
  11.   End If
  12.   Next i, j
  13. End Sub
复制代码

评分

参与人数 1鲜花 +3 收起 理由
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-9-14 21:31 | 显示全部楼层
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Count <> 1 Then Exit Sub
  3.     If Target.Column <> 1 Then Exit Sub
  4.     If Target.Row = 1 Then Exit Sub
  5.     If Len(Target) <> 4 Then Exit Sub
  6.     With Sheets("m")
  7.         Set Rng = .Columns(1).Find(Target.Value, lookat:=xlWhole)
  8.         If Not Rng Is Nothing Then
  9.             Application.EnableEvents = False
  10.                 Cells(Target.Row, 2) = Rng.Offset(0, 1)
  11.                 Cells(Target.Row, 3) = Rng.Offset(0, 3)
  12.                 Cells(Target.Row, 4) = Rng.Offset(0, 5)
  13.             Application.EnableEvents = True
  14.         End If
  15.     End With
  16. End Sub
复制代码

评分

参与人数 1鲜花 +3 收起 理由
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-9-14 21:32 | 显示全部楼层
附件内容供参考。。。。。

模板 (2).zip

30.44 KB, 下载次数: 43

评分

参与人数 1鲜花 +3 收起 理由
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-14 21:57 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-14 22:20 | 显示全部楼层
liulang0808 发表于 2018-9-14 21:32
附件内容供参考。。。。。

您好,这个代码是整个A列只要有数字都可以,能不能设置终止,比如700之后就不用查找了

TA的精华主题

TA的得分主题

发表于 2018-9-15 15:30 | 显示全部楼层
小年玩卡 发表于 2018-9-14 22:20
您好,这个代码是整个A列只要有数字都可以,能不能设置终止,比如700之后就不用查找了

增加if语句,对target的值进行判断

评分

参与人数 1鲜花 +3 收起 理由
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-15 21:14 | 显示全部楼层
liulang0808 发表于 2018-9-15 15:30
增加if语句,对target的值进行判断

对代码不懂,
不知道怎么增加,能否帮我写出来呢,非常感谢

TA的精华主题

TA的得分主题

发表于 2018-9-15 21:35 | 显示全部楼层
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If Len(Target) <> 4 Then Exit Sub
if target.value >=700 the exit sub
    With Sheets("m")
        Set Rng = .Columns(1).Find(Target.Value, lookat:=xlWhole)
        If Not Rng Is Nothing Then
            Application.EnableEvents = False
                Cells(Target.Row, 2) = Rng.Offset(0, 1)
                Cells(Target.Row, 3) = Rng.Offset(0, 3)
                Cells(Target.Row, 4) = Rng.Offset(0, 5)
            Application.EnableEvents = True
        End If
    End With
End Sub

评分

参与人数 1鲜花 +3 收起 理由
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-15 21:36 | 显示全部楼层
liulang0808 发表于 2018-9-15 21:35
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count  1 Then Exit Sub
    If Ta ...

非常感谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-11-19 17:02 , Processed in 0.094600 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

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