两小无猜的含义:excel的一个问题

来源:百度文库 编辑:高考问答 时间:2024/05/09 06:02:25
问题1:比如,在A1单元格里出现"百度"时,怎么样在紧接着的"B1"单元格里出现相关的信息,比如出现"http://baidu.com"?

问题2:在单元格里寻找到"百度"这个词,并且在"百度"后面的一行出现"http://baidu.com"?
如图:
---------------|
百度 |新浪|搜狐|
腾讯 |网易|雅虎|
_______________|
需要实现当我在本文档里输入"百度"的时候,出现如下的效果:
---------------|
百度 |新浪|搜狐| http;//baidu.com
腾讯 |网易|雅虎|
_______________|
注意:http;//baidu.com和"百度"在同一行的单元格就可以了
谢谢~!!!!
用宏实现也可以!谢谢!
把问题重新描述一下:
问题1:比如,在A1单元格里打入"百度"这个词时,怎么样在紧接着的"B1"单元格里出现相关的信息,比如出现"搜索引擎"?刚才那个朋友解释的不知道为什么新建了这么多表,不好意思我对excel还不是太明白,最好把语句也稍微解释下!
和超链接没有关系,刚刚提问的时候用了一个不恰当的比方,所以系统自己生成了超链接了,这回把相关信息换成了”搜索引擎“了。

问题2:在整个文档里寻找到"百度"这个词,并且在出现"百度"的那一单元格后面一个单元格出现"搜索引擎"?

和问题1的区别是问题2需要先在整个文档(注意是整个文档)中找到“百度”这个词,然后在出现”百度“这个词的后一个单元格里加上相关描述。注意是和”百度“出现在同一行!

谢谢~!!!!
用宏实现也可以!谢谢!

问题一
(1)新建Sheet2,并在单元格A1和A2分别输入以下内容:
百度|http;//baidu.com
PS:多个查找的时候也是一样,继续在B1和B2依此输入待查找信息即可(例:百度知道|http://zhidao.baidu.com)
(2)回到当前Sheet,并在单元格A2内输入以下内容:
=IF(ISNA(VLOOKUP(A1,Sheet2!A:B,2,0)),"",VLOOKUP(A1,Sheet2!A:B,2,0))
(3)在单元格A1内输入百度,并将光标移开,单元格A2内将自动显示http;//baidu.com

问题二
新建一个宏link,然后打开VE编辑器.
----------------------------------------------
Sub link()

Dim strName As String
Dim strTemp As String
Dim strLink As String
Dim intRow As Integer
Dim intNo As Integer
Dim intOff As Integer

strName = Sheet1.Cells(1, 1)
intRow = 3

Do While (1)
intNo = 1
Do While (1)
strTemp = Sheet1.Cells(intRow, intNo)
Select Case strTemp
Case "":
If intNo = 1 Then
MsgBox "NG"
Exit Sub
Else
Exit Do
End If
Case strName:
Cells(intRow, intNo).Select
intOff = 1
Do While (1)
strTemp = Sheet1.Cells(intRow, intNo + intOff)
If strTemp = "" Then
Selection.Offset(0, intOff).Formula = _
"=IF(ISNA(VLOOKUP(""" & strName & """,Sheet2!A:B,2,0)),"""",VLOOKUP(""" & strName & """,Sheet2!A:B,2,0))"
MsgBox "OK"
Exit Sub
Else
intOff = intOff + 1
End If
Loop
Case Else:
intNo = intNo + 1
End Select
Loop
intRow = intRow + 1
Loop

End Sub
----------------------------------------------
大体流程:取得单元格A1的输入值,然后从第3行开始向下查找,直到找到第一个与之等值的单元格为止;然后选中该单元格,并在其同一行的最左面一个空白格里面设置公式,实现功能.功能大致可以实现,但是没怎么测试过,应该会有些临界点的问题.
注意点:因为功能不是很完善,如果直接拿来用的话,参照范围是从第3行开始的.并且,第3行以后不能有空行,每一行里面不能有空白单元格.
希望有帮助.

嗯,挺麻烦的。
问题一:
先建立数据库:新建XLS("List.xls")文档,在A,B列分别输入中文名,超链结。如:
Name Link
百度 www.baidu.com
雅虎 www.yahoo.com
新浪 www.sina.com
...
存盘。

然后,再新建XLS文档,在A2输入:
=INDEX([List.xls]Sheet1!$A:$B, MATCH(A1,[List.xls]Sheet1!$A$1:$A$4,), MATCH("Link",[List.xls]Sheet1!$A$1:$B$1,))

至于问题二,不明白你什么意思???
和问题一有区别吗?