求助vba取得excel单元格的name

[clddicky]

程序中运行ActiveSheet.Cells(1,1).name
如果该单元格name没有设定，运行期就会报错
还有，返回的name并不是该单元格的名字，
结果是=Sheet$A$1这样的结果
如何能够得到该单元格的名字

[clddicky]

顶个先

[jzd1997]

你应该把Cell的名字定义成常数3，你操作Cell，连名字都不知道，就比较麻烦了。我就是这样定义的
Public Const Gc_Cell_No As String = "No"
Public Const Gc_Cell_Hiduke As String = "Hiduke"
操作的时候很方便。
Pw_Exsheet.Range(Gc_Cell_Hiduke).Value = Format(Now, "yyyy/mm/dd")
For Pw_Loop = 0 To UBound(Mw_Cho_Tei)
Pw_Exsheet.Range(Gc_Cell_No).Cells(Pw_Loop + 1, 1) = Pw_Loop + 1
Pw_Exsheet.Range(Gc_Cell_No).Cells(Pw_Loop + 1, 2) = Mw_Cho_Tei(Pw_Loop).Syozoku
Pw_Exsheet.Range(Gc_Cell_No).Cells(Pw_Loop + 1, 3) = Mw_Cho_Tei(Pw_Loop).SyozokuMei
Pw_Exsheet.Range(Gc_Cell_No).Cells(Pw_Loop + 1, 4) = Mw_Cho_Tei(Pw_Loop).SiMeiCd
Pw_Exsheet.Range(Gc_Cell_No).Cells(Pw_Loop + 1, 5) = Mw_Cho_Tei(Pw_Loop).SiMei
Pw_Exsheet.Range(Gc_Cell_No).Cells(Pw_Loop + 1, 6) = Mw_Cho_Tei(Pw_Loop).Haseibi
DoEvents
Next Pw_Loop

[creazyfish]

单元格有名字吗？呵呵，是单元格的内容吧？

[yigepure]

能讲讲是单元格的地址还是什么呢?

[clddicky]

楼上的作对日的吧，哈哈
解决了
ActiveWorkbook.Names
可以取得当前workbook的所有有name的单元格
多些各位
按照字数给分吧
哈哈