12
返回列表 上一主題 發帖

語句問題

victorl

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


    123.gif

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
12#
發表於 2010-7-2 22:24 | 只看該作者
回復 12# victorl

謝謝 victorl大大.
50 字節以內
不支持自定義 Discuz! 代碼

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
13#
發表於 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

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
14#
發表於 2010-7-6 00:21 | 只看該作者
If Range("B6").Value = "" then  [a1]=1 正确，后面的可以用cells来选择
学习

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
12
返回列表 上一主題