請教由巨集錄制的公式如何轉換為VBA公式,並且儲存格可以是變數

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

21^# 跳轉到 »

發表於 2011-11-25 12:41 | 只看該作者

回復 20# GBKEE

版大,是的,那個就是我要的公式所在Activecell

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2011-11-25 13:50 | 只看該作者

回復 19# luffyzoro
9# 是不是我哪邊寫錯了,導致公式並沒在我要的儲存格內?
你要的是有公式, 不要只是值對嗎?
Selection.Value = Selection.Value '這裡公式被值取代了
ActiveCell.Offset(1).Select

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

23^#

發表於 2011-11-25 14:12 | 只看該作者

回復 22# GBKEE

Do
Workbooks(calopf).Worksheets("sheet2").Activate
Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Select
Selection.Offset(1, 0).Select
Dim mycarw As Integer
mycarw = ActiveCell.Row
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]=[" & hubopf & "]AC8E!R" & hubcn & "C2,[" & hubopf & "]AC8E!R" & hubcn & "C72>0,[" & hubopf & "]AC8E!R" & hubcn & "C72-SUM(R" & mycarw & "C11:RC[5])>0),[" & hubopf & "]AC8E!R" & hubcn & "C9)"
Selection.Value = Selection.Value←照迴圈來看還是應該先有公式取得計算後,公式才會被值取代
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Offset(-1).Value = False

版大,感謝您
請問如紅字所寫的,是不是正確?
而且逐行執行是到公式那一列就錯誤了,還沒換成值就錯誤
頭痛中>"<

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2011-11-25 15:13 | 只看該作者

回復 23# luffyzoro
而且逐行執行是到公式那一列就錯誤了

請問Workbooks( hubopf )中有 AC8E 這工作表嗎?

ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]=[" & hubopf & "]AC8E!R" & hubcn & "C2,[" & hubopf & "]AC8E!R" & hubcn & "C72>0,[" & hubopf & "]AC8E!R" & hubcn & "C72-SUM(R" & mycarw & "C11:RC[5])>0),[" & hubopf & "]AC8E!R" & hubcn & "C9)"

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

25^#

發表於 2011-11-25 17:21 | 只看該作者

本帖最後由 luffyzoro 於 2011-11-25 17:24 編輯

回復 24# GBKEE

版大,有AC8E這個工作表,請看第19樓我的程式碼第1列有啟動,而且也沒出現錯誤

謝謝版大熱情回覆

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

26^#

發表於 2011-11-25 20:14 | 只看該作者

回復 19# luffyzoro
版大願意的話,我可以將檔案寄給版大幫忙看一下
請在你個人資料留下 Mail

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

27^#

發表於 2011-11-28 08:59 | 只看該作者

回復 26# GBKEE

版大您好
我已收到您的短消息
請再給我一些時間,我想把我寫的程式做一下註解,再給您幫忙

另外,我進個人資料不知要把我的mail填在哪裡耶>"<

感謝版大

帖子: 23
主題: 2
精華: 0
積分: 25
點名: 0
作業系統: XP
軟體版本: EXCEL 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-11-21
最後登錄: 2013-4-9

28^#

發表於 2011-11-30 10:55 | 只看該作者

回復 26# GBKEE

ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]='[" & hubopf & "]" & shan & "'!R" & hubcn & "C2,'[" & hubopf & "]" & shan & "'!R" & hubcn & "C72>0,'[" & hubopf & "]" & shan & "'!R" & hubcn & "C72-SUM(R" & mycarw & "C11:RC[5])>0),'[" & hubopf & "]" & shan & "'!R" & hubcn & "C9)"

版大我找到問題了
問題可能在於hubopf這個檔名是長檔名或是內有空格或其他字元
所以需要再前面再加單引號
謝謝版大多次回覆
另外, 我還是會將我的檔案寄給版大看看