Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [a2:a11]) Is Nothing And Target.Count = 1 Then
With Sheets("调资表")
.[b2] = Target.Value
.Activate
End With
End If
End Sub
把思路改变一下,不要1000个人,做1000张表,10000万做10000张表.
像这样只要原来两张表,就可以了.
如果要打印出来,只要再一点循环代码.
提问： 如何编辑超链接：想在此表中单击或双击任何编号如“XF0035”，就会自动显示该编号对应的“调资表”里的全部内容。 回答： 1、右键选中A2单元格，“超链接/连接到/本文档中的位置/或在这篇文档中选择位置/调资表0035/确定”，A2单元格字符呈蓝色，即将其与《调资表0035》建立了链接。 2、用同样方法，将A3:A11与对应工作表，将各表G1与《明细表》建立起链接。 3、左键单击A2:A11任一单元格，即可打开与之对应的工作表；左键单击各表G1，即可返回《明细表》。
答：建议一下子还是别打开那么多链接,否则很容易造成死机的.当然如果要打开那么多,可用以下代码来解决: Sub OpenHprLnks() Dim i As Inte...详情>>
答：详情>>
答：分享个：P2P终结者软件~就挺厉害的~详情>>
