...如何用代码实现提取某个单元格(如A1)所属的Sheet名称,并在另一张表...
发布网友
发布时间：2024-09-28 02:05
共1个回答
热心网友
时间：2024-10-06 14:26
如果假设你是选取指定表格的A1，那就是你指定的那个表格名,"表格名"
如果假设你是在VBA代码执行过程中，用鼠标选取了不特定的另一个表的单元格，并想获取此单元格所在的表格的表名，那就试下面的宏，借用cell公式实现。
Sub Test1()
Dim iCell
Dim iTemp
Set iCell = Application.InputBox("please select a cell", , , , , , , 8)
iCell.FormulaR1C1 = "=CELL(""filename"",R[1]C[1])"’借用cell公式获取此单元格所在位置（含表名）
MsgBox Right(iCell, Len(iCell) - InStrRev(iCell, "]")) ‘这里你想在哪里读出，就改下。
iCell = iTemp‘还原所选的单元格内容
End Sub
