excel 选择内容自动填充边上三列数据VBA

978 主题	1094 帖子	1万积分

管理员

Rank: 9 Rank: 9 Rank: 9

积分: 15950

发表于 2023-11-18 19:23:25 | 显示全部楼层 |阅读模式

原创表格，已上架到我们店铺，或许有你需要的！<点击进入获取>

Private Sub ComboBox1_Click()
ActiveCell = ComboBox1.Text
Set Rng = Sheets("数据").Range("A:A").Find(ActiveCell, , , xlWhole)
ActiveCell.Offset(0, 1) = Rng.Offset(0, 1)
ActiveCell.Offset(0, 2) = Rng.Offset(0, 2)
ActiveCell.Offset(0, 3) = Rng.Offset(0, 3)
End Sub

使用道具举报

返回列表发新帖

网站简介：表格智创网，是一家以表格设计和技能分享的专业社区，由会计帮帮网投资建设，尽专业，助提高专业技能。

表格智创网欢迎您！

联系我们

工作时间：早上9：00-16：00
客服电话：18668755857
本站网址：www.excelwps.com
淘宝店址：kjbbw.taobao.com

|Archiver|手机版|小黑屋|表格智创网