在excel中,有一行数据,如何双击某个特定的单元格,可以把整行数据填充到同一个文件的其他标签中
以我的图片为例,我想在日期前加一列,然后那一列的内容是打印按钮,点击打印按钮的话,就会把这一行的数据按要求填充到下边的那个表格里,可以实现么...
以我的图片为例,我想在日期前加一列,然后那一列的内容是打印按钮,点击打印按钮的话,就会把这一行的数据按要求填充到下边的那个表格里,可以实现么
展开
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
使用VBA,比如你成行的数据在第一个Sheet表里,要填充到第二个Sheet表里,
在第一个标签上右击,选择查看代码,把下面的代码放上:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nRow As Integer
nRow = Target.Row
If nRow = 1 Or nRow > UsedRange.Rows.Count Then Exit Sub
Worksheets(2).Range("A3").Value = Cells(nRow, 1)
Worksheets(2).Range("B4").Value = Cells(nRow, 2)
Worksheets(2).Range("C5").Value = Cells(nRow, 3)
End Sub
这只是举例。里面的要填充表在第2个Sheet,根据自己的 更改,我只列出的3个数举例。对应的赋值你可以对照着写就行了。
如果还是不会 可以发过来帮你。
在第一个标签上右击,选择查看代码,把下面的代码放上:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nRow As Integer
nRow = Target.Row
If nRow = 1 Or nRow > UsedRange.Rows.Count Then Exit Sub
Worksheets(2).Range("A3").Value = Cells(nRow, 1)
Worksheets(2).Range("B4").Value = Cells(nRow, 2)
Worksheets(2).Range("C5").Value = Cells(nRow, 3)
End Sub
这只是举例。里面的要填充表在第2个Sheet,根据自己的 更改,我只列出的3个数举例。对应的赋值你可以对照着写就行了。
如果还是不会 可以发过来帮你。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |