我基本上是在尝试输入一个单元格。我想要的是当我更改C2的值时,它更改了C1的值。但是,当我擦除C2时,我希望C1保留该值。
因此,如果我使C2 =“ Adam”,C1 =“ Adam”,但是我将C2 =“”更改为C1仍然是“ Adam”。
有人可以帮我吗?我一直在网上寻找很长一段时间,找不到任何可以帮助我找到解决方案的东西。
答案 0 :(得分:1)
您可以在Worksheet_Change
事件中执行此操作,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 3 Then 'C2
If Target.Value <> "" Then
Range("C1").Value = Target.Value
End If
End If
End Sub
公式=C2
或某些变体将不起作用,因为它无法记住此后已删除的值。
我想您可以像下面这样伪造 formula ,但是我绝对不推荐这样做,尤其是与代码结合使用时。我只是出于兴趣而发布它。
Private Sub Worksheet_Change(ByVal Target As Range)
Static old As String
If Target.Row = 2 And Target.Column = 3 Then 'C2
If Target.Value <> "" Then
Range("C1").Formula = "=IF(N(""""),"""","""")&C2"
old = Target.Value
Else
Range("C1").Formula = "=IF(N(""" & old & """),"""","""")& """ & old & """"
End If
End If
End Sub
这毫无意义,因为您仍然需要代码。
我想代码甚至有可能只写公式然后引用的命名范围/值:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
ActiveWorkbook.Names.Add Name:="stored", RefersToR1C1:="=""" & Target.Value & """"
End If
End Sub
答案 1 :(得分:0)
我们可以使用事件宏来实现。将以下代码放在工作表代码区域:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C1 As Range, C2 As Range
Set C1 = Range("C1")
Set C2 = Range("C2")
If Intersect(Target, C2) Is Nothing Then Exit Sub
If C2.Value = "" Then Exit Sub
Application.EnableEvents = False
C2.Copy C1
Application.EnableEvents = True
End Sub
由于是工作表代码,因此安装非常容易,并且自动使用:
如果有任何疑问,请先在试用工作表上尝试。
如果保存工作簿,则宏将随其一起保存。 如果您在2003年以后使用Excel版本,则必须保存 该文件为.xlsm而不是.xlsx
要删除宏:
要全面了解有关宏的更多信息,请参见:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏(工作表代码)的更多信息,请参见:
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能使其正常工作!