返回列表 上一主題 發帖

2個數值比較,取較大值

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-6-17 12:29 | 顯示全部帖子
回復 1# fangsc
  1. Sub xx()
  2. LR = [A2].CurrentRegion.Rows.Count
  3. For R = 3 To LR
  4.   If Cells(R, "A") <> "" And Cells(R, "AN") < Cells(R, "BB") Then Cells(R, "AN") = Cells(R, "BB")
  5. Next R
  6. End Sub
複製代碼

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 22:49 | 顯示全部帖子
回復 3# fangsc

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

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

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題