返回列表 上一主題 發帖

二欄位的最後值的差值

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-4-30 11:12 | 只看該作者

二欄位的最後值的差值

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

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

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

求解~謝謝!
收藏 分享

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
9#
發表於 2017-5-2 16:52 | 只看該作者
回復 8# 葉國洲
感謝您的指導和協助~問題解決了~感恩

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
8#
發表於 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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
7#
發表於 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替代，請問語法要如何改?
謝謝!

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
6#
發表於 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
但沒有反應

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2017-5-1 14:45 | 只看該作者
回復 4# 葉國洲
謝謝您的熱心幫忙和指導

TEST.rar (6.42 KB)
可否再請教:
     k = "=MAX(A:A)-MAX(B:B)"
    Cells("E" & k, 1).Interior.ColorIndex = 6

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


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


謝謝您


TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
4#
發表於 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

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2017-4-30 13:50 | 只看該作者
hcm19522大大:
感謝您的熱心賜教。

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

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-22 

熱烈參與勳章
2#
發表於 2017-4-30 13:27 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/502962837
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題