標題: [發問] vb 命名名称 [打印本頁]

---

作者: mhl9mhl9    時間: 2015-5-24 23:34     標題: vb 命名名称

[a1]=myname
[b1]有公式 =c1+d1
要求vb写 命名一个名称=[a1],公式是 =c1+d1

最终目的是有2栏资料,a栏是name ,b栏是公式,vb执行语句后,生成所以有名称(按名称右边的公式做名称)
自己搞不定,麻烦前辈,谢谢在先.

---

作者: GBKEE    時間: 2015-5-26 11:07

回復 1# mhl9mhl9
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, e As Range
   
4.     Set Rng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas) '有公式的儲存格
   
5.     If Not Rng Is Nothing Then
   
6.         For Each e In Rng
   
7.             Names.Add e.Offset(, -1), e
   
8.         Next
   
9.     End If
   
10. End Sub

複製代碼

---

作者: mhl9mhl9    時間: 2015-6-4 17:28

thank you GBKEE
自己試了多次都不行,用你提供的即刻ok
但因為我要命名公式,所以第二參數"e"改為"e.formula",這樣做有錯嗎?

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)