返回列表 上一主題 發帖

語句問題

語句問題

本帖最後由 basarasy 於 2010-7-1 22:51 編輯

請問這句如何打才正確.
If Range("B6").Value = "" then  [a1]=1

為何不可以這樣打 Range("B6").Value = ""  ??

不知錯在那裡><
dss = 29
ess = 17
sss = 0
Do
If dss = 34 Then ess = ess + 2

If Range(ess & dss).Select = "" Then
Range(ess & dss).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
   
    Else
    Range(ess & dss).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If

dss = dss + 1
sss = sss + 1
Loop Until sss = 10
50 字節以內
不支持自定義 Discuz! 代碼

If Range("B6").Value = "" then  [a1]=1 正确,后面的可以用cells来选择
学习

TOP

回復 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

回復 12# victorl

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

TOP

回復 11# basarasy


    123.gif

TOP

回復 10# Hsieh

我是想做這個.

yy.JPG (35.77 KB)

yy.JPG

50 字節以內
不支持自定義 Discuz! 代碼

TOP

本帖最後由 Hsieh 於 2010-7-2 20:28 編輯

回復 8# basarasy
學海無涯_不恥下問

TOP

[版主管理留言]
  • Hsieh(2010-7-2 20:13): 請上傳檔案

回復 7# Hsieh

不能用><

hj.JPG (73.53 KB)

hj.JPG

50 字節以內
不支持自定義 Discuz! 代碼

TOP

使用格式化條件即可
學海無涯_不恥下問

TOP

回復 5# GBKEE

其實我是想寫
eg.  if a1:b3="" then  格是白色  Else  格是黃色

a1 有東西 格是白色
b2 冇東西 格是黃色
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題