標題: [發問]請教數值對應的名稱方塊的轉寫 [打印本頁]

---

作者: bosomfriend    時間: 2010-10-5 23:42     標題: [發問]請教數值對應的名稱方塊的轉寫

各位前輩們好!!!
     請問如何將有數值的那一格儲存格的名稱方塊作轉寫的動作?
如:ex1.xsl檔，ddd,eee,ff對應的是B6,C6,D6的名稱方塊，
   然後將B6,C6,D6,這三個名稱方塊而不是其內容轉寫在F欄呢?
  由衷的感謝!!
  ^^

---

作者: Hsieh    時間: 2010-10-6 00:19

本帖最後由 Hsieh 於 2010-10-6 00:25 編輯

F6=SUBSTITUTE(CELL("address",OFFSET($A$6,,ROW(A1))),"$","")
向下複製
VBA

1. Sub nn()
   
2. For Each a In [F6:F8]
   
3.    a.Value = [B6].Offset(, i).Address(0, 0)
   
4.    i = i + 1
   
5. Next
   
6. End Sub

複製代碼

---

作者: bosomfriend    時間: 2010-10-6 00:53

超級版主您好:
      如果只有ddd對應B6，中間空一格，然後fff對應D6，則做完篩選有值的名稱方塊會轉寫到F欄，也就是
只會轉寫B6和D6而不會轉寫C6，請問超級版主，這可行嗎?

---

作者: GBKEE    時間: 2010-10-6 07:27

回復 3# bosomfriend

1. Sub Ex()
   
2.     Dim E As Range, i As Integer
   
3.     For Each E In Range("B6:D6")
   
4.         If E <> "" Then
   
5.            Range("F6").Offset(i) = E.Address(0, 0)
   
6.             i = i + 1
   
7.         End If
   
8.     Next
   
9. End Sub

複製代碼

---

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