返回列表 上一主題 發帖

[發問] 判斷值規格範圍,並加減固定值後,再取代該儲存格原值

tyrone123456

帖子
49 
主題
0 
精華
0 
積分
54 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2015-4-14 
最後登錄
2015-7-16 
1# 跳轉到 »
發表於 2015-4-16 23:02 | 顯示全部帖子
本帖最後由 tyrone123456 於 2015-4-16 23:04 編輯

VBA寫法：
1、先確認有多少筆資料要處理：     DataCount = application.counta(columns(1))
2、使用Do While ，否則從第1行做到65536，會花很多時間
I=0
Do while  I< DataCount
     if  cells(I+1,1)<>""  then
            if cells(I+1,1)<90   then
                     cells(I+1,1)=cells(I+1,1)+1
            elseif cells(I+1,1)>100 then
                    cells(I+1,1)=cells(I+1,1)-1
             end if
            I=I+1
    end if
loop
以上寫法也可避開儲存格有跳空格的問題

Excel寫法：
B1=if(A1<90,A1+1,if(A1>100,A1-1,A1))

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題