返回列表 上一主題 發帖

[發問]請教數值對應的名稱方塊的轉寫

bosomfriend

帖子
3 
主題
2 
精華
0 
積分
5 
點名
0  
作業系統
win7 
軟體版本
32 
閱讀權限
10 
註冊時間
2010-10-5 
最後登錄
2011-1-11 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-10-5 23:42 | 只看該作者

[發問]請教數值對應的名稱方塊的轉寫

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

ex1.rar (3.27 KB)

名稱方塊的轉寫

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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
複製代碼

TOP

bosomfriend

帖子
3 
主題
2 
精華
0 
積分
5 
點名
0  
作業系統
win7 
軟體版本
32 
閱讀權限
10 
註冊時間
2010-10-5 
最後登錄
2011-1-11 
3#
發表於 2010-10-6 00:53 | 只看該作者
超級版主您好:
      如果只有ddd對應B6，中間空一格，然後fff對應D6，則做完篩選有值的名稱方塊會轉寫到F欄，也就是
只會轉寫B6和D6而不會轉寫C6，請問超級版主，這可行嗎?

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題