[已解决]单元格相等？

cxzfy12758

例如，A1里面是数据
           a2 里面是1234.
怎么用vba表示a1=a2?

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-9-21 22:44

回复 cxzfy12758 的帖子

是这样的效果吗？
Book1.rar (9.25 KB, 下载次数: 24)

2011-9-21 22:44 上传

点击文件名下载附件

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Cells.Count > 0 Then
   
4.         If Target.Address(0, 0) = "C1" Then
   
5.             Dim d, Arr, i&
   
6.             Set d = CreateObject("scripting.dictionary")
   
7.             Arr = Range("d1:e" & [d1].End(4).Row).Value
   
8.             For i = 1 To UBound(Arr, 1)
   
9.                 d(Arr(i, 1)) = Arr(i, 2)
   
10.             Next i
    
11.             Target.NumberFormatLocal = ";;;" & Chr(34) & d(Target.Value) & Chr(34)
    
12.             Set d = Nothing
    
13.         End If
    
14.     End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

liuguansky

[a1].formula="=a2"

cxzfy12758

回复 liuguansky 的帖子

为什么不能在数据有效性里面用。

liuguansky

不明白在数据有效性里用是什么意思。

cxzfy12758

回复 liuguansky 的帖子

例如r1数据有效性序列显示为英超。但实际引用是2693.

liuguansky

上传下工作表。

cxzfy12758

回复 liuguansky 的帖子

附件已上传。

nonfish

定义名称？

cxzfy12758

回复 nonfish 的帖子

怎么定义？

liuguansky

回复 cxzfy12758 的帖子

是这样的效果吗？
Book1.rar (9.25 KB, 下载次数: 24)

2011-9-21 22:44 上传

点击文件名下载附件

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Cells.Count > 0 Then
   
4.         If Target.Address(0, 0) = "C1" Then
   
5.             Dim d, Arr, i&
   
6.             Set d = CreateObject("scripting.dictionary")
   
7.             Arr = Range("d1:e" & [d1].End(4).Row).Value
   
8.             For i = 1 To UBound(Arr, 1)
   
9.                 d(Arr(i, 1)) = Arr(i, 2)
   
10.             Next i
    
11.             Target.NumberFormatLocal = ";;;" & Chr(34) & d(Target.Value) & Chr(34)
    
12.             Set d = Nothing
    
13.         End If
    
14.     End If
    
15. End Sub

复制代码