为什么不能同时得到工作表名

狄包海刘

求教
“发哥”的方法是在工作表内按文本方式对工作表名排序。可怎样才能在工作薄内让乱序的工作表标签自动排序呢？（用拖动工作表标签的方式一个一个拖动肯定是蠢笨的方法）
请教大师指点迷津!

狄包海刘

请教“发哥”，你的公式怎么不能用啊？请耐心指教指教！

时隔两年多，现在已经可以用函数对乱序的工作表名进行排序了。

shs=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

单元格

=INDEX(shs,MATCH(ROW(1:1),MMULT(N(shs<=TRANSPOSE(shs)),ROW(INDIRECT("1:"&COUNTA(shs)))^0),))

公式下拖，就可得到按升序排列的工作表名。

如要降序排列，把公式中的"<="改为">="就OK了。

胡思乱想

真的很不错

胡思乱想

最喜欢看高手论道。虽然有的还不太懂，只是看热闹。回头还得好好琢磨

狄包海刘

请教“发哥”，你的公式怎么不能用啊？请耐心指教指教！


时隔两年多，现在已经可以用函数对乱序的工作表名进行排序了。

shs=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

单元格

=INDEX(shs,MATCH(ROW(1:1),MMULT(N(shs<=TRANSPOSE(shs)),ROW(INDIRECT("1:"&COUNTA(shs)))^0),))

公式下拖，就可得到按升序排列的工作表名。

如要降序排列，把公式中的"<="改为">="就OK了。

xwdys

不想进行命名，而想采用自定义函数，怎么不行？
Function SheetName()
        ActiveCell.FormulaR1C1 = _
        "=REPLACE(CELL(""filename"",INDIRECT(""A1"")),1,FIND(""]"",CELL(""filename"",INDIRECT(""A1""))),)"
        SheetName = ActiveCell.Text
    Application.Volatile
End Function

狄包海刘

“发哥”的方法是在工作表内按文本方式对工作表名排序。可怎样才能在工作薄内让乱序的工作表标签自动排序呢？（用拖动工作表标签的方式一个一个拖动肯定是蠢笨的方法）
请教大师指点迷津!

杨龙英

都是高手，我还没达到这水平，还有点看不懂

laoshenji

楼上的几位说的有道理，版主的示例也要与时俱进啦！

522922078

学习了啊！