fangsc

帖子: 81
主題: 27
精華: 0
積分: 151
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: Taiwan
註冊時間: 2012-6-7
最後登錄: 2020-11-27

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-6-17 12:08 | 只看該作者

2個數值比較,取較大值

請教VBA寫法.

C欄與D欄數值做比對,
C小於D,則將D值取代C,
C大於D,則保留C值
如遇到A欄為空白時,則略過,不需比較.

感謝!!

Sales forecast by CSR.rar (276.24 KB)

樓主熱帖

fangac

fangsc

中學生 Rank: 2

帖子: 81
主題: 27
精華: 0
積分: 151
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: Taiwan
註冊時間: 2012-6-7
最後登錄: 2020-11-27

論壇贊助勳章

6^#

發表於 2012-6-18 20:27 | 只看該作者

感謝2位的指導.
書上是有寫說Variant型態的變數可以省去要注意資料型態一致的麻煩,不過這樣的用法會浪費多餘的記憶空間.
養成好習慣還是可以避免許多麻煩.
受教了.

fangac

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

5^#

發表於 2012-6-18 07:55 | 只看該作者

本帖最後由 GBKEE 於 2012-6-18 08:00 編輯

回復 3# fangsc
寫程式要一定養成用Option Explicit 強制宣告變數的習慣
執行程式可以抓出,未宣告的變數,可避免你輸入相似的變數名稱,因而找不出錯誤哪裡.

回復 4# register313
變數不先定義的話，VBA自動會定義
變數不宣告型態 VBA會視為 Variant 資料型態
Variant 資料型態是所有沒被明確宣告為其他型態

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-6-17 22:49 | 只看該作者

回復 3# fangsc

變數不先定義的話，VBA自動會定義
根據資料的不同，有可能是integer, long, double, variant 的任意一個類型
所以强制自己定義變數才是好習慣

Option Explicit 強制聲明
如果不用此語法，則變數可不用定義直接使用
如果使用此語法，則變數必須定義後才能使用

TOP

fangsc

中學生 Rank: 2

帖子: 81
主題: 27
精華: 0
積分: 151
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: Taiwan
註冊時間: 2012-6-7
最後登錄: 2020-11-27

論壇贊助勳章

3^#

發表於 2012-6-17 22:38 | 只看該作者

回復 2# register313

感謝指導.

請問LR不需要先做變數宣告嗎?

fangac

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-17 12:29 | 只看該作者

回復 1# fangsc

Sub xx()
LR = [A2].CurrentRegion.Rows.Count
For R = 3 To LR
If Cells(R, "A") <> "" And Cells(R, "AN") < Cells(R, "BB") Then Cells(R, "AN") = Cells(R, "BB")
Next R
End Sub

複製代碼

TOP