昱得資訊工作室
麻辣學園
歡迎光臨, 訪客. 請先 登入註冊一個帳號.
2014-08-22, 09:51:14
昱得資訊工作室
首頁 說明 登入 註冊 想當作者?
新聞: 會員注意!!麻辣家族討論區已轉換新系統,請移駕[麻辣家族新論壇]!!


+  麻辣家族討論區
|-+  MS Office 系列
| |-+  EXCEL
| | |-+  Excel程式區 (版主: Hsieh)
| | | |-+  儲存格公式能否將sheet設變數?
0 會員 以及 1 訪客 正在閱讀本篇主題. « 上一篇主題 下一篇主題 »
頁: [1] 向下 列印
作者 主題: 儲存格公式能否將sheet設變數?  (閱讀 2554 次)
stephen
中學生
*
離線 離線

會員性別: 男
文章: 88



儲存格公式能否將sheet設變數?
« 於: 2006-05-06, 00:18:36 »

各位高手

請教附件中,若是不想慢慢設定資料表名稱

是否能利用變數去設定資料表名稱?

也就是希望能達到 sheets(k).mane套到公式中去

有辦法嗎?

[附件已被管理員刪除]
已記錄

論壇高手如雲,虛心請教+不斷嘗試 終會撥雲見日
oobird
凸槌的木工
論壇維護群
*
離線 離線

文章: 5270



Re: 儲存格公式能否將sheet設變數?
« 回覆文章 #1 於: 2006-05-06, 03:11:57 »

Private Sub CommandButton1_Click()
For i = 2 To [a65536].End(xlUp).Row
Cells(i, 2) = Sheets(CStr(Cells(i, 1))).[f65536].End(xlUp).Value
Next
End Sub
既然用了vba為何還要公式來拖慢速度?
已記錄

結廬待慧君
Hsieh
版主
*
離線 離線

會員性別: 男
文章: 5729



Re: 儲存格公式能否將sheet設變數?
« 回覆文章 #2 於: 2006-05-06, 03:12:40 »

J2公式
=LOOKUP(1,1/(INDIRECT("'"&I2&"'!$F$2:$F$20")<>""),INDIRECT("'"&I2&"'!$F$2:$F$20"))
程式如下
程式碼:
Private Sub CommandButton1_Click()
Dim i%, k%
For i = 2 To [a65536].End(xlUp).Row
For k = 1 To Sheets.Count
&nbsp;If Sheets(k).Name = Cells(i, 1).Text Then
&nbsp;Cells(i, 3) = "test ok"
&nbsp;Cells(i, 2).Formula = "=LOOKUP(1,1/('" & Sheets(k).Name & "'!$F$2:$F$20<>""""),'" & Sheets(k).Name & "'!$F$2:$F$20)"
&nbsp;End If
Next
Next
End Sub
已記錄

回答滿意嗎?
  記得告訴我哦!!
stephen
中學生
*
離線 離線

會員性別: 男
文章: 88



Re: 儲存格公式能否將sheet設變數?
« 回覆文章 #3 於: 2006-05-06, 05:51:40 »

謝謝版大和hsieh大大的指導~ 銘感五內...

版大您說的好,既然用vba何苦再用公式讓運算速度變慢....

( 就剛巧有這想法,於是試做了一下那個笨idea )

不過hsieh大大您也教會了在公式中該怎用變數 感謝你喔

 (又學了1招 .. 竊喜^Q^ )
已記錄

論壇高手如雲,虛心請教+不斷嘗試 終會撥雲見日
頁: [1] 向上 列印 
« 上一篇主題 下一篇主題 »
自訂搜尋
跳到:  


Google PageRank Checker
本頁花了 2.787 秒, 以及 20 次的資料庫查詢.