請教由巨集錄制的公式如何轉換為VBA公式,並且儲存格可以是變數
- 帖子
- 23
- 主題
- 2
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-11-21
- 最後登錄
- 2013-4-9
|
回復 20# GBKEE
版大,是的,那個就是我要的公式所在Activecell |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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
版大,感謝您
請問如紅字所寫的,是不是正確?
而且逐行執行是到公式那一列就錯誤了,還沒換成值就錯誤
頭痛中>"< |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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列有啟動,而且也沒出現錯誤
謝謝版大熱情回覆 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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這個檔名是長檔名或是內有空格或其他字元
所以需要再前面再加單引號
謝謝版大多次回覆
另外, 我還是會將我的檔案寄給版大看看 |
|
|
|
|
|
|
|
