有奖抢答——取单元格所在的工作表的文件名

lotte

name2=GET.WORKBOOK(16)<div>=name2</div>

aa123456aa

<p>自定义函数</p><p>Function aa()<br/>aa = ThisWorkbook.Name<br/>End Function</p><p>任意单元格中输入=aa()</p>

lotte

2楼答案有问题的<div>打开另一个工作薄 双击任意单元格</div><div>再回来看公式坐在工作薄 就会发现问题</div><div><br/></div>

lpsh1985

<p>VBA 自定义函数</p><p></p><p>Function getName(Optional Rng As Range) As String<br/>&nbsp;&nbsp;&nbsp; Application.Volatile<br/>&nbsp;&nbsp;&nbsp; If Rng Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; getName = Application.Caller.Parent.Parent.Name<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; getName = Rng.Parent.Parent.Name<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Function</p>

bbwsj

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>lotte</i>在2009-10-21 14:38:00的发言：</b><br/>2楼答案有问题的<div>打开另一个工作薄 双击任意单元格</div><div>再回来看公式坐在工作薄 就会发现问题</div><div><br/></div></div><p></p><p><font size="2">　　呵呵　同意这个观点</font></p><p><font size="2">　　本题目的是集思广益，汇集多种解法，所以就不对细节多苛责了</font></p><p><font size="2">　　至于各方法的孰优孰劣，就由有心人自己去评判吧</font></p>

lan713

<p>学习一下</p>

太湖明珠

路过

vbyou127

dfdf