alex520188

帖子: 31
主題: 12
精華: 0
積分: 69
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-19
最後登錄: 2016-1-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-8-22 16:05 | 只看該作者

公式轉vba 要怎轉

各位先進好

一串函數公式要把它寫進程式碼中

執行之後想保有原公式出現在我要的儲存格中

要怎寫呢?

A1=IF(ISNUMBER(OFFSET(BG7,0,-1)),OFFSET(BG7,0,-1)-OFFSET(BG7,0,-2),"")

樓主熱帖

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兔年全勤獎章

2^#

發表於 2012-8-22 20:38 | 只看該作者

回復 1# alex520188
Range("A1") = "=IF(ISNUMBER(OFFSET(BG7,0,-1)),OFFSET(BG7,0,-1)-OFFSET(BG7,0,-2),"""")"

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

3^#

發表於 2012-8-22 22:28 | 只看該作者

回復 alex520188
Range("A1") = "=IF(ISNUMBER(OFFSET(BG7,0,-1)),OFFSET(BG7,0,-1)-OFFSET(BG7,0,-2)," ...
GBKEE 發表於 2012-8-22 20:38

想順便問一下
Range("A1") = "=IF(.....)" 跟
Range("A1").Formula ="=IF(.....)"
有什麼不同呢@@ ?

TOP

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兔年全勤獎章

4^#

發表於 2012-8-23 07:21 | 只看該作者

回復 3# lalalada

Option Explicit
Sub Ex()
[A1] = "=5+B2+D2"
MsgBox Range("A1")
MsgBox Range("A1").Formula
End Sub

複製代碼

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

5^#

發表於 2012-8-23 10:01 | 只看該作者

回復 lalalada
GBKEE 發表於 2012-8-23 07:21

所以是Formula為字串?
Cells(1, 8) = "=5+B2+D2"
Cells(2, 8).Formula = "=5+B2+D2"
兩個結果在工作表上看起來是一樣的..

TOP

alex520188

中學生 Rank: 2

帖子: 31
主題: 12
精華: 0
積分: 69
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-19
最後登錄: 2016-1-2

6^#

發表於 2012-8-23 10:27 | 只看該作者

回復 4# GBKEE

謝謝G版指點下面2種寫法跟我所要的結果都是一樣的??
Range("A1") = "=IF(.....)" 跟
Range("A1").Formula ="=IF(.....)"

所以都通用是嗎0.0?

Sub NN123()
Range("A1") = "=IF(ISNUMBER(OFFSET(G1,0,-1)),OFFSET(G1,0,-1)-OFFSET(G1,0,-2),"""")"
Range("A2").Formula = "=IF(ISNUMBER(OFFSET(G2,0,-1)),OFFSET(G2,0,-1)-OFFSET(G2,0,-2),"""")"
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2012-8-23 10:32 | 只看該作者

回復 5# lalalada
欄值雖一樣，但其代表意義有其些異。如圖：

TOP

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兔年全勤獎章

8^#

發表於 2012-8-23 11:29 | 只看該作者

本帖最後由 GBKEE 於 2012-8-23 11:33 編輯

差別是
Formula 屬性傳回或設定 A1 樣式註解以及巨集語言中的物件公式。讀/寫 Variant 資料類型。
FormulaR1C1 屬性傳回或設定物件的公式，用巨集語言的 R1C1 樣式符號表示。Range 物件為讀/寫 Variant，Series 物件為讀/寫 String

Option Explicit
Sub Ex()
Dim e As Range
Range("d10") = "=d5" 'Formula A1 樣式
Range("d11") = "=r5c4" 'FormulaR1C1 R1C1 樣式
For Each e In [d10:d11]
MsgBox e.Address(0, 0) & Chr(10) & "Formula " & e.Formula & Chr(10) & "FormulaR1C1 " & e.FormulaR1C1
Next
End Sub

複製代碼

TOP