[已解决]求解以下新建宏函数的含义

ajha1232310

Public Function CHAZHAO(str As String, range) As String
Dim xuanze
xuanze = 0
For Each cel In range
If (InStr(cel, str) > 0) And (xuanze = 0) Then
CHAZHAO = Worksheets("Sheet1").Cells(cel.Row, 1)
xuanze = 1
ElseIf (InStr(cel, str) > 0) Then
str1 = Worksheets("Sheet1").Cells(cel.Row, 1)
MsgBox str1
Exit Function
End If
xuanze = 0
Next

End Function

最佳答案

月排行榜 / 总排行榜

zjdh

2015-10-6 13:19

很简单啊！
譬如单元格首页“H4”，=chazhao($E$1,INDIRECT(T43))
$E$1 为被查找内容，
INDIRECT(T43)为查找区域，
T43为"="sheet1！$"&T34&"1:$"&T34&"200"" ，即sheet1!&R$1:$R$200，
若在此范围找到H4的内容，则显示那行行首内容，否则为空。
若出现2个则表示同时上2个班，出错了！会提示哪一班被重复排课了。

跳转到最佳答案楼层

zjdh

在区域（rang）中出现首个被查找内容（str）时，返回sheets("Sheet1")中对应行的A列数据，
出现第二个及以上时，显示sheets("Sheet1")中对应行的A列数据。

ajha1232310

http://www.excelpx.com/forum.php?mod=attachment&aid=Mzc1MzE3fGFkNTk3NDRmNzM1OGZhYWYwMjRlNzNhNGE2Zjg3MTIyfDE3MTQxMzcxMzM%3D&request=yes&_f=.zipzjdh 发表于 2015-10-6 08:15
在区域（rang）中出现首个被查找内容（str）时，返回sheets("Sheet1")中对应行的A列数据，
出现第二个及以 ...

1.zip (29.02 KB, 下载次数: 5)

2015-10-6 17:26 上传

点击文件名下载附件
还有有些不太理解哦  ，这是文档附件 能否具体一些呢  谢谢！

zjdh

很简单啊！
譬如单元格首页“H4”，=chazhao($E$1,INDIRECT(T43))
$E$1 为被查找内容，
INDIRECT(T43)为查找区域，
T43为"="sheet1！$"&T34&"1:$"&T34&"200"" ，即sheet1!&R$1:$R$200，
若在此范围找到H4的内容，则显示那行行首内容，否则为空。
若出现2个则表示同时上2个班，出错了！会提示哪一班被重复排课了。

ajha1232310

zjdh 发表于 2015-10-6 13:19
很简单啊！
譬如单元格首页“H4”，=chazhao($E$1,INDIRECT(T43))
$E$1 为被查找内容，

  理解了！非常感谢！

ajha1232310

zjdh 发表于 2015-10-6 13:19
很简单啊！
譬如单元格首页“H4”，=chazhao($E$1,INDIRECT(T43))
$E$1 为被查找内容，

您好 谢谢您对我问题的解答！ 我试着模仿该文档，但显示出错。能否请教帮忙看看！谢谢！

zjdh

改.rar (21.67 KB, 下载次数: 14)

2015-10-7 07:50 上传

点击文件名下载附件

zjdh

原因是是你的公式错误！！