...单元格在指定单元格内显示点击单元格的内容!!~~~ 大侠帮忙
发布网友
发布时间：2024-10-23 22:44
共1个回答
热心网友
时间：2024-10-30 06:01
要编写表单VBA过程（假定要指定在A1显示）：
按Alt+F11键，打开VBA编辑器，右键点击编辑器左栏表单名称，选“查看代码”，编辑器上方出现“（通用）”“（声明）”两栏，点击“（通用）”，选“Worksheet”（此时，原来两栏变成“Worksheet”“Activate”，编辑区还会出现“Private Sub Worksheet_A......”等），继续点击“Activate”，选“SelectionChange”（此时，编辑区又会多出“Private Sub Worksheet_S......”等），删除编辑区先前出现的“Private Sub Worksheet_A......”等，在“Private Sub Worksheet_S......”和它下面的“End Sub”之间，插入以下代码即可：
If (Target.Address<>Range("A1").Address) And (Len(Target.Value)>0) Then
Range("A1").Value=Target.Value
End If
