標題: 二欄位的最後值的差值 [打印本頁]

---

作者: ziv976688    時間: 2017-4-30 11:12     標題: 二欄位的最後值的差值

本帖最後由 ziv976688 於 2017-4-30 11:22 編輯

假設:
A欄有空格和文字和數值
B欄有空格和文字和數值

請問:下列程式碼的正確語法
i = A欄的最後一個數值 - B欄的最後一個數值

求解~謝謝!

---

作者: hcm19522    時間: 2017-4-30 13:27

http://blog.xuite.net/hcm19522/twblog/502962837

---

作者: ziv976688    時間: 2017-4-30 13:50

hcm19522大大:
感謝您的熱心賜教。

但我需要的是VBA程式語法^^"

---

作者: 葉國洲    時間: 2017-5-1 09:50

1. Sub diffab()
   
2. For i = [a65536].End(xlUp).Row To 1 Step -1
   
3.    If IsNumeric(Cells(i, 1)) And Cells(i, 1) <> "" Then
   
4.       a = Cells(i, 1)
   
5.       Exit For
   
6.    End If
   
7. Next i
   
8. For i = [b65536].End(xlUp).Row To 1 Step -1
   
9.    If IsNumeric(Cells(i, 2)) And Cells(i, 2) <> "" Then
   
10.       b = Cells(i, 2)
    
11.       Exit For
    
12.    End If
    
13. Next i
    
14. MsgBox a - b
    
15. End Sub

複製代碼

回復 1# ziv976688

---

作者: ziv976688    時間: 2017-5-1 14:45

回復 4# 葉國洲
謝謝您的熱心幫忙和指導

[attach]27130[/attach]
可否再請教:
     k = "=MAX(A:A)-MAX(B:B)"
    Cells("E" & k, 1).Interior.ColorIndex = 6

請問:如何將K的公式語法改成一般程式的語法且能轉成數值?


PS︰A欄最大的數值一定大於B欄最大的數值


謝謝您


[attach]27131[/attach][attach]27131[/attach]

---

作者: ziv976688    時間: 2017-5-1 15:13

本帖最後由 ziv976688 於 2017-5-1 15:17 編輯

二欄位的最大值的差值

試過
If k = "=MAX(A:A)-MAX(B:B)" Then
    k = k.Value
    Cells("E" & k, 1).Interior.ColorIndex = 6
End If
但沒有反應

---

作者: ziv976688    時間: 2017-5-1 17:57

問題整理~
Sub diffab()
   
   
[D1] = "=MAX(A:A)-MAX(B:B)"
    [D1] = [D1].Value
    Cells([D1], 5).Interior.ColorIndex = 6

End Sub

如果不用輔助儲存格D1，以常數k替代，請問語法要如何改?
謝謝!

---

作者: 葉國洲    時間: 2017-5-2 15:05

1. Sub diffab()
   
2.     k = WorksheetFunction.Max(Columns(1)) - WorksheetFunction.Max(Columns(2))
   
3.     Cells(k, 5).Interior.ColorIndex = 6
   
4. End Sub

複製代碼

回復 7# ziv976688

---

作者: ziv976688    時間: 2017-5-2 16:52

回復 8# 葉國洲
感謝您的指導和協助~問題解決了~感恩

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)