如何用VBA实现只将当前输入数据的列的第1行的结果显示出来？

作者：绿色风分类：时间：2022-08-17 浏览：147

楼主
悟空师弟

Q：如何用VBA实现只将当前输入数据的列的第1行的结果显示出来？
如下图：
说明：
1、合计 = 当前输入的单元格 * 对应的倍率，比如在E6单元格输入7，E1单元格 = 7 * 4 = 28
2、要实现以下功能：
   （1）A1单元格内的数据显示当前输入数值对应的日期。
   （2）B1：I1这个区域中只显示当前输入数据对应列的数值，其它单元格为空。

A：代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Then
[A1] = Cells(Target.Row, 1)
Range("B1:I1") = ""
Cells(1, Target.Column) = Target * Cells(2, Target.Column)
End If
End Sub

详见附件：

如何用VBA实现只将当前输入数据的列的第1行的结果显示出来？.rar

2楼
い卋玑┾宝珼

传说中的悟空师弟哇

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表