excel 链接到指定数据

2010-01-06 09:57:54 148 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Java实现指定数据库中的表导出生成Excel 转载自: https://www.iteye.com/blog/billxiatian-2391213 一.准备阶段: 所需要的jar包： (1) MySQL-connector-java-5.1.12-bin.jar (2) poi-3.17-beta1.jar 这两个jar包请在以下网址下载: 链接： http://pan.baidu.com/s/1dFeVOHj ... 阅读详情

表一
A1 A2
1 01
2 02
表二
A1 A2 A3
1 01 100
2 01 15
3 02 25
4 02 63

要求：在表一中A2列建立超链接，点击后直接定位到表二中与表一关联的数据行

...全文

PL/SQL Developer 使用ODBC向Oracle中导入Excel数据使用PL/SQL Developer 使用ODBC导入Excel数据 1 工具 - ODBC导入器 - 选择DSN （选择要连接类型）- 连接【如果使用excel2016x64的朋友，当dsn没有excelFile选项时应该是缺少驱动包，可前往以下两个地址下载对应的驱动 https://download.csdn.net/download/u010434539/10553138（x... 阅读详情

blueice0120

Microsoft Office应用 6,218 成员 23,068 内容

+ 关注 + 加入社区

切换为时间正序

chenhao1988 2010-01-07

打赏
举报

[Quote=引用 6 楼 laoyebin 的回复:]
[/Quote]
参考你的，我修改了如下：
A2列关联
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Dim findResult
Dim lRow&
Set findResult = Sheet1.Range("b:b").Find(Target.Text, , xlValues, xlWhole)
If findResult Is Nothing Then Exit Sub
lRow = findResult.Row
Sheet1.Activate
Sheet1.Rows(lRow).Select
End Sub
A1列关联
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Dim findResult
Dim lRow&
Set findResult = Sheet1.Range("a:a").Find(Cells(Target.Row, 1).Text, , xlValues, xlWhole)
If findResult Is Nothing Then Exit Sub
lRow = findResult.Row
Sheet1.Activate
Sheet1.Rows(lRow).Select
End Sub
第一行是表头还要加上If Target.Row = 1 Then Exit Sub 参考laoyebin

laoyebin 2010-01-07

打赏
举报

[Quote=引用 5 楼 chenhao1988 的回复:]
引用 1 楼 laoyebin 的回复:
sheet2里加个selectionchange事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Dim findResult
Dim lRow&
Set findResult = Sheet1.Range("a:a").Find(Cells(Target.Row, 1).Value, , xlValues, xlWhole)
If findResult Is Nothing Then Exit Sub
lRow = findResult.Row
Sheet1.Activate
Sheet1.Rows(lRow).Select
End Sub

看了很久，终于有些明白了，不过你好像理解错了楼主的意思，这个selectionchange事件应该加在表一上。
楼主也没说明白如何关联，是转到相同行呢(A1列相同)？还是转到A2列的值相同的行中？
[/Quote]

哦，嗯，确实是写反了

chenhao1988 2010-01-07

打赏
举报

[Quote=引用 1 楼 laoyebin 的回复:]
sheet2里加个selectionchange事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Dim findResult
Dim lRow&
Set findResult = Sheet1.Range("a:a").Find(Cells(Target.Row, 1).Value, , xlValues, xlWhole)
If findResult Is Nothing Then Exit Sub
lRow = findResult.Row
Sheet1.Activate
Sheet1.Rows(lRow).Select
End Sub
[/Quote]
看了很久，终于有些明白了，不过你好像理解错了楼主的意思，这个selectionchange事件应该加在表一上。
楼主也没说明白如何关联，是转到相同行呢(A1列相同)？还是转到A2列的值相同的行中？

chenhao1988 2010-01-07

打赏
举报

我还是弄错了，呵呵，改了laoyebin的例子，但是还是从sheet2链接到sheet1的，再改。
A1列关联，sheet1里加个selectionchange事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Dim findResult
Dim lRow&
Set findResult = Sheet2.Range("a:a").Find(Cells(Target.Row, 1).Text, , xlValues, xlWhole)
If findResult Is Nothing Then Exit Sub
lRow = findResult.Row
Sheet2.Activate
Sheet2.Rows(lRow).Select
End Sub
A2关联方法类似，呵呵。再次谢谢laoyebin！

huajinok 2010-01-07

打赏
举报

不明白

chenhao1988 2010-01-06

打赏
举报

学习~

laoyebin 2010-01-06

打赏
举报

sheet2里加个selectionchange事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Len(Target.Value) = 0 Then Exit Sub
Dim findResult
Dim lRow&
Set findResult = Sheet1.Range("a:a").Find(Cells(Target.Row, 1).Value, , xlValues, xlWhole)
If findResult Is Nothing Then Exit Sub
lRow = findResult.Row
Sheet1.Activate
Sheet1.Rows(lRow).Select
End Sub

cnedge 2010-01-06

打赏
举报

学习，留名。

wuyuchang 2010-01-06

打赏
举报

学习~

excel 链接到指定数据

相关推荐