Excelvo 如何寫個A1對應到工作表標籤的程式。

Question

大家好:
如何寫個程式能把工作表的標籤內容對應到A1儲存格內。
工作表的標籤內容跟A1儲存格內容是一樣的。
謝謝大家!

上官 妳好
執行後，到 me就停止了，是什麼原因 ?
一、自動對應本工作表的標籤名。
二、自動對應母系工作表的標籤名。

我有一個巨集的統計程式，要貼上標籤做標題認證，當貼上妳的程式執行後，顯示_me是不正確的關鍵字，後來改成ActiveSheet.Name就可以了，不過對應母系工作表的標籤名稱我就搞不來了，還請多多指教 。

假設sheet1為有資料的工作表，經有條件的程式執行後而寫在sheet2第二張工作表，sheet1為母系，sheet2為子系，懂了嗎。

是要放sheet1

上官 妳好
是要放sheet1的話，那母系是sheet2的話不是行不通了嗎 ?

上官 妳好
主要目的是要知道它的母系是何名，而它就是前工作表的名稱。

牛仔褲妳好:
NM = ActiveSheet.Name '放在執行程式裏
Cells(1, 1) = NM
在sheet1執行程式後會產生sheet2，Cells(1, 1)它還是顯示sheet2的標籤名，快弄暈了。

牛仔褲妳好:
我把NM = ActiveSheet.Name 放在宣告區下方，不過NM有宣告了，執行後只顯示個位數的數字，不是標籤名，不知何因 ?

牛仔褲妳好:
本來就有宣告 dim NM as Variant

牛仔褲妳好:
NM是自己隨意取的變數名稱嗎 ?
我把 NM 改了名，不與宣告區的變數相同 ，也不用宣告，執行後正確，謝謝妳的指導 。

Answer 1

在產生第二張工作表sheet2的程式碼前面加上，NM = ActiveSheet.Name，就是目前工作表的名字，即sheet1．
在產生第二張工作表sheet2的程式碼後面加上Cells(1, 1) = NM，就可記錄前工作表的名稱．
不知是否如你意

2006-06-26 14:49:05 補充：
NM = ActiveSheet.Name '放在執行程式裏，要在產生sheet2程式碼之前，即焦點還在sheet1時，先將它的名字記起來，命名為ＮＭ．在產生sheet2之後，在SHEET2.ACTIVE後，再把ＮＭ的值帶到Ａ１．

2006-06-26 23:35:03 補充：
dim NM as Variant

Answer 2

Public Sub test()    Cells(1, 1).Value = Me.Name 'A1的內容等於工作表標籤的內容End Sub

2006-06-24 12:38:46 補充：
忘了說明，這個程式是要放在妳想要顯示的工作標籤的程序中，而程式的功能是把目前工作標籤給a1。其實，我不太懂妳的實際意思，可以舉例說說明嗎?

2006-06-24 18:28:18 補充：
何謂母系工作表?
可以用假設的名稱，來說明流程嗎?

2006-06-24 21:55:31 補充：
那sheet2的a1是要放sheet2還是sheet1呢

2006-06-25 19:59:32 補充：
如果所以的子系的a1都要放母系的名字就執行Cells(1, 1).Value = Sheet1.Name即可

2006-06-25 21:14:12 補充：
所以母系工作表是亂跳的囉
那可能需要一個儲存格來放母系工作表名稱，再由他轉給其他子系工作表的a1