返回列表 上一主題 發帖

語句問題

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
1# 跳轉到 »
發表於 2010-7-2 13:28 | 顯示全部帖子
看不懂你的需求耶???
問題是Range("B6").Value 附加之程式碼確是Range(ess dss).Select 而且Range語法也錯了吧???

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
2#
發表於 2010-7-2 22:14 | 顯示全部帖子
回復 11# basarasy


    123.gif

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
3#
發表於 2010-7-2 22:30 | 顯示全部帖子
回復 13# basarasy

如果堅持要用VBA，請參考
Sub Ex()
    Set Rng = Range("A1:B4")
    For Each a In Rng
        If Not IsEmpty(a) Then a.Interior.Color = 65535 Else a.Interior.Pattern = xlNone
    Next
End Sub

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題