关于数据对应的问题

torch

不管怎么对应，你只要能找到规律就可以了，其他的工作用你的规律来完成

subtlation

一定要用vba吗？在excel中用数组公式也容易实现楼主的要求的。

CADghost

1                                                                                                                                                                         2


1                                                                                                                                                                         AC


2                                                                                                                                                                                BC


3                                                                                                                                                                                AD


43                                                                                                                                                         GHG


23                                                                                                                                                 OP


12                                                                                                                                                         ADFG


两列数之间没有任何规律，只给出第一列中的一个字符串，以来找出与之对应的第二列字符，并写入

雪山飞狐_lzh

你的数据对应关系是以什么形式保存的，发一个样例

CADghost

两个文件中，1-1.1是定义的库文件，而1-1.2则是程序要执行的部分，就是要找出与之对应的2、3列的内容，1-1.2中第一列内容的顺序是打乱的

CADghost

帮忙写一个完整的程序吧！

wmz

CADghost发表于2004-7-21 7:49:00帮忙写一个完整的程序吧！

我给你写成了,如下: Sub ab()
Dim sheet As String, dyg As String, dyg1 As String
Dim i As Integer, k As Integer, m As Integer
Dim a As String, b As String, c As String
Dim a1() As String, b1() As String, c1() As String
On Error Resume Next
sheet = "c:\1-1[1].1.xls"
Workbooks.Open (sheet), False
i = 0: dyg = "A1"
While Range(dyg).Text <> ""
i = i + 1
dyg = "A" & CStr(i)
a = Range(dyg).Text
dyg = "B" & CStr(i)
b = Range(dyg).Text
dyg = "C" & CStr(i)
c = Range(dyg).Text
ReDim Preserve a1(i), b1(i), c1(i)
a1(i) = a: b1(i) = b: c1(i) = c
Wend
m = i - 1
sheet = "c:\1-1[1].2.xls"
Workbooks.Open (sheet), False
k = 0: dyg = "A1"
While Range(dyg).Text <> ""
k = k + 1
dyg = "A" & CStr(k)
a = Range(dyg).Text
For i = 1 To m
If a = a1(i) Then
dyg1 = "B" & CStr(k)
Range(dyg1).FormulaR1C1 = b1(i)
dyg1 = "C" & CStr(k)
Range(dyg1).FormulaR1C1 = c1(i)
End If
Next i
Wend

End Sub
将以上通用过程粘贴到1-1[1].1.xls的ThisWorkbook模块里,进入Excel的VBA里,直接将鼠标放到该过程里运行,ok!

CADghost

谢了，wmz，我马上就试试看

CADghost

能不能用一个快捷键来控制它呢？


比如我把一个文件写好后，按CTRL+R执行！

wmz

CADghost发表于2004-7-24 17:21:00能不能用一个快捷键来控制它呢？ 比如我把一个文件写好后，按CTRL+R执行！

可以自定义菜单或工具按纽,既可以手工定制也可以用代码.这里先讲一讲手工自定义工具按纽: 先将鼠标放在工具栏上按右键,以下依此是:工具栏->新建-><在弹出的对话框中输入工具栏名称>->命令->工具->自定义->将自定义图标拖入自定义工具栏的按纽上然后将鼠标放在该按纽上按右键,指定宏(即你刚刚建立起来的过程<宏>),于是,OK! 至于用代码实现,牵涉到工具栏对象或菜单对象.并且牵涉到建立工程,你若需要,容后叙.