請問這段程式碼如何寫會比較方便

clothk73713
個人積分：0分
文章編號：75923703

0分

樓主

2019-12-25 22:25

使用Vba作比對大小 D2:D78對比V2:V78

Function 禮拜一()

If Range("C2").Value >= Range("V2").Value Then

Range("R2").Value = "是"

Else

Range("R2").Value = "否"

End If

If Range("C3").Value >= Range("V3").Value Then

Range("R3").Value = "是"

Else

Range("R3").Value = "否"

End If

If Range("C4").Value >= Range("V4").Value Then

Range("R4").Value = "是"

Else

Range("R4").Value = "否"

End If

If Range("C5").Value >= Range("V5").Value Then

Range("R5").Value = "是"

Else

Range("R5").Value = "否"

End If

End Function

請問一下各位大大這樣要怎麼寫會比較方便

2019-12-25 22:25 發佈

文章關鍵字程式碼

wychen57

wychen57
個人積分：246分
文章編號：75924016

246分

2樓

2019-12-25 22:56

不需要用到vba，excel本身就能用了
R2內容：=IF(C2>=V2,"是","否")
R3內容：=IF(C3>=V3,"是","否")

以此類推

clothk73713

clothk73713
個人積分：0分
文章編號：75924824

0分

樓主

2019-12-26 0:14

wychen57 wrote:
不需要用到vba，excel...(恕刪)

好的感恩大大

nwcs

nwcs
個人積分：6111分
文章編號：75927749

6111分

4樓

2019-12-26 10:13

配合迴圈+IIF，會比較精簡快速

clothk73713

clothk73713
個人積分：0分
文章編號：75930728

0分

樓主

2019-12-26 13:35

nwcs wrote:
配合迴圈+IIF，會(恕刪)

好的了解感恩大大我在看要怎麼寫

WJS_HVM

WJS_HVM
個人積分：31分
文章編號：75938052

31分

6樓

2019-12-27 0:02

Function 禮拜一()

Dim i As Integer

For i = 2 To 5
If Range("C" & i).Value >= Range("V" & i).Value Then
Range("R" & i).Value = "是"
Else
Range("R" & i).Value = "否"
End If
Next
End Function

nwcs

nwcs
個人積分：6111分
文章編號：75941394

6111分

7樓

2019-12-27 10:39

If Range("C" & i).Value >= Range("V" & i).Value Then
Range("R" & i).Value = "是"
Else
Range("R" & i).Value = "否"
End If
============
我不懂VBA，不知是否能精簡成:
Range("R" & i).Value =(Range("C" & i).Value >= Range("V" & i).Value,"是","否")
程式簡化為：

Function 禮拜一()
Dim i As Integer

For i = 2 To 5
Range("R" & i).Value =(Range("C" & i).Value >= Range("V" & i).Value,"是","否")
Next i
End Function

小小尉

小小尉
個人積分：247分
文章編號：75944310

247分

8樓

2019-12-27 14:00

nwcs wrote:
If Range("C...(恕刪)

nwcs大大這樣寫會出錯喔....

WJS_HVM大大的已經很精簡了!
要再更精簡就迴圈搭配wychen57大大回覆的吧


Function 禮拜一()
Dim i As Integer
For i = 2 To 5
Range("R" & i).Value = "=IF(C" & i & ">=V" & i & ",""是"",""否"")"
Next
End Function

nwcs

nwcs
個人積分：6111分
文章編號：75946819

6111分

9樓

2019-12-27 17:02

小小尉 wrote:
nwcs大大這樣寫會(恕刪)

我就是這個意思，但我不懂vba，才想是不是應該這樣。
以一般思考，我的虛擬碼會變成：
Function 禮拜一()
Dim i As Integer
For i = 2 To 5
("R" & i) = "=IF(C" & i & ">=V" & i & ",""是"",""否"")"
Next i
End Function
==========
VALUE是內建default屬性，所以可以省略。

clothk73713

clothk73713
個人積分：0分
文章編號：75948886

0分

樓主

2019-12-27 20:08

哇謝謝各位大佬感恩您們