帖子: 129
主題: 47
精華: 0
積分: 206
點名: 1
作業系統: 7
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-10
最後登錄: 2024-8-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-7-31 21:53 | 只看該作者

IF...判斷加總問題

本帖最後由 074063 於 2015-7-31 21:57 編輯

請問下列函數如何寫成VBA

G3=IF(C3="","",C3+F3) 下拉複製公式
G4=IF(C3-G3=0,"結","") 下拉複製公式 (格式化儲存格, 若G4="結" (粗體藍字)

樓主熱帖

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

2^#

發表於 2015-8-1 11:09 | 只看該作者

請用錄製巨集方式再來修改範圍

Sub 巨集3()
Range("G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]="""","""",RC[-4]+RC[-1])"
Range("G1").Select
Selection.AutoFill Destination:=Range("G1:G4"), Type:=xlFillDefault
Range("G1:G4").Select
End Sub

複製代碼

把範圍G4改變數
x=[C65536].end(xlup).Row
Range("G1:G" & x)

Sub 巨集3()
Dim x As Integer
x = [C65536].End(xlUp).Row
Range("G1").FormulaR1C1 = "=IF(RC[-4]="""","""",RC[-4]+RC[-1])"
Range("G1").AutoFill Destination:=Range("G1:G" & x), Type:=xlFillDefault
End Sub

複製代碼

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

3^#

發表於 2015-8-1 11:23 | 只看該作者

用錄製了解程序再來修改或是直接使用

Sub test()
For i = 1 To [C65536].End(xlUp).Row
If Cells(i, 3) = "" Then
Cells(i, 7) = ""
Else
Cells(i, 7) = Cells(i, 3) + Cells(i, 6)
Cells(i, 7).Font.Color = vbBlue
Cells(i, 7).Font.Bold = True
End If
Next
End Sub

複製代碼

TOP

074063

中學生 Rank: 2

帖子: 129
主題: 47
精華: 0
積分: 206
點名: 1
作業系統: 7
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-10
最後登錄: 2024-8-14

4^#

發表於 2015-8-1 21:47 | 只看該作者

回復 3# koo

請問VBA能像函數一樣即時自動運算嗎

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2015-8-2 00:00 | 只看該作者

回復 4# 074063

VBA皆是利用事件來啟動程式的，所以當然可以做即時運算，只是看你用什麼樣的事件來啟動罷了，
我以 G3=IF(C3="","",C3+F3) 下拉複製公式這個公式來做例子，可以利用工作表事件"儲存格變更事件"來實現如下列中的程式
程式說明：當你在C欄或則F欄的第3列起，輸入數字(變更儲存格內容)就會啟動這個事件來實現我們要的目的。
但它必須放在工作表事件簿中(如下圖例放置的位置)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Column = 6 Or Target.Column = 3 Then'
If Cells(Target.Row, 3) = "" And Cells(Target.Row, 6) = "" Then'當C欄或F欄皆空白時
Cells(Target.Row, "G") = "" '則G欄為空白
Else
Cells(Target.Row, "G") = Cells(Target.Row, "C") + Cells(Target.Row, "F")'否則C欄+F欄
End If
End If
End Sub

複製代碼

TOP

074063

中學生 Rank: 2

帖子: 129
主題: 47
精華: 0
積分: 206
點名: 1
作業系統: 7
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-10
最後登錄: 2024-8-14

6^#

發表於 2015-8-2 20:58 | 只看該作者

本帖最後由 074063 於 2015-8-2 21:10 編輯

回復 5# lpk187

If Cells(Target.Row, 3) = "" And Cells(Target.Row, 6) = "" Then'當C欄或F欄皆空白時

請問target.row 不是列的意思嗎 @@

如果F欄也是公式帶出值的話, G欄好像就沒有作用

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2015-8-2 22:04 | 只看該作者

本帖最後由 lpk187 於 2015-8-2 22:09 編輯

回復 6# 074063

target.row 是列沒錯，但你忽略了"3"是C欄！6是F欄。=>Cells( target.Row, target.Column)target.Column是3或6
target是作用儲存格，假設你在C3鍵入數值時，target就是那就作用的儲存格，VBA若用程式計算的話並不會有公式顯示在儲存格中(G3)，而是會直接顯示計算過後的值

如果F欄也是公式帶出值的話, G欄好像就沒有作用
Ex:1.F欄是沒有公式的，那只是用程式判斷是否為空白，
2.G欄若沒作用可能是你沒按照我圖所示放在該放的地方！

下面是回答1樓的問題
另外VBA是用來幫你自動化或者是幫你執行複雜工作，若用來寫函數，除非在儲存格中的函數會因某種因素變化時，否則是沒有意義的！
如下圖的選項 >公式中的紅框中為什麼會會有活頁簿計算的選項，這是為了當在工作表中函數很多很多的情況下讓你選擇是不是要自動或者手動，但VBA卻沒有這個問題它只幫你做程式的流程而已，而不會全部走一次！

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2015-8-2 22:19 | 只看該作者

本帖最後由 lpk187 於 2015-8-2 22:31 編輯

回復 6# 074063

我上一樓的回答好像有些誤會你的意思！
以If Cells(Target.Row, 3) = "" And Cells(Target.Row, 6) = "" Then'當C欄或F欄皆空白時
...
如果F欄也是公式帶出值的話, G欄好像就沒有作用來說
若是F欄有公式的話，And Cells(Target.Row, 6) = "" 是可以刪除的！

當程式設計師在寫程式時，大部份都會依照整個工作表或者擴大到整個活頁簿來做考量，而不會只用單一函數就當成基礎，考慮的方式不同，執行後也會因考慮的不同而有不同的結果。
就像這個誤解一樣，我在寫這程式時想到G3=IF(C3="","",C3+F3)，C3是空白或非空白，而不知道F3有沒有公式，但我為了補足考慮的不周而寫下And Cells(Target.Row, 6) = ""
所以最後建議你若有問題時可以上傳你的部份檔案來，好讓要解答的人有所因應！也會更周全的！

TOP

074063