excel中如何实现点击一个单元格,在另一个单元格中显示某个单元格的计算公式
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 15:13:46
excel中如何实现点击一个单元格,在另一个单元格中显示某个单元格的计算公式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
Range("A2") = Replace(Target.Formula,"=","")
End If
End Sub
在A2显示点击单元格的公式
再问: 能对您写的代码进行简短的解释吗?假如在一个sheet里我有几个单元格都设置了公式,这些单元格位于不同的行但位于相同的列,请问我想在这些单元格分别所处的行中找一个单元格显示公式,需要怎么改写代码呢?
再答: 改为: Private Sub Worksheet_SelectionChange(ByVal Target As Range) '如果选定区域只是一个单元格 If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then '和选定单元格同行的第三列显示选定单元格的公式 'Replace函数把选定单元格的"="替换掉,以便把公式显示出来,不是显示结果 Cells(Target.Row,3) = Replace(Target.Formula, "=", "") End If End Sub
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
Range("A2") = Replace(Target.Formula,"=","")
End If
End Sub
在A2显示点击单元格的公式
再问: 能对您写的代码进行简短的解释吗?假如在一个sheet里我有几个单元格都设置了公式,这些单元格位于不同的行但位于相同的列,请问我想在这些单元格分别所处的行中找一个单元格显示公式,需要怎么改写代码呢?
再答: 改为: Private Sub Worksheet_SelectionChange(ByVal Target As Range) '如果选定区域只是一个单元格 If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then '和选定单元格同行的第三列显示选定单元格的公式 'Replace函数把选定单元格的"="替换掉,以便把公式显示出来,不是显示结果 Cells(Target.Row,3) = Replace(Target.Formula, "=", "") End If End Sub
excel中如何实现点击一个单元格,在另一个单元格中显示某个单元格的计算公式
excel如何在一个单元格中显示公式,另一个单元格中显示该公式的计算结果?
如何在一个单元格中显示公式,另一个单元格中显示该公式的计算结果
EXCEL如何实现这样的自动计算结果:如在一个单元格内输入公式,在后面一个单元格显示此公式的计算结果.
excel中,怎样使一个单元格的数加上另一个单元格的数后还是显示到这个单元格
excel中如何让单元格等于另一个单元格中公式的值
如何在excel表格里在一个单元格中计算另一单元格里的公式值
如何复制excel 单元格D3中的公式到同列的单元格中来计算排名?
excel中,如何使用公式读取当前单元格的左边一个单元格中的内容?
如何在excel表格中的单元格中提取另一个EXCEL表格中的单元格数值
EXCEL单元格怎么等于某个单元格的函数,我想让一个单元格中的值等于另一个单元格中的函数,
EXCEL表格中某个单元格满足某个条件时的计算公式