標題: 語句問題 [打印本頁]

---

作者: basarasy    時間: 2010-7-1 22:21     標題: 語句問題

本帖最後由 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

---

作者: victorl    時間: 2010-7-2 13:28

看不懂你的需求耶???
問題是Range("B6").Value 附加之程式碼確是Range(ess dss).Select 而且Range語法也錯了吧???

---

作者: GBKEE    時間: 2010-7-2 16:22

回復 1# basarasy
If Range("B6").Value = "" then  [a1]=1 是正確的
If Range(ess dss).Select = "" Then      是錯誤的
Select 方法。要將單個儲存格啟動為作用中儲存格

Range範圍的書寫方式->  Range("文字")
如果 同是數字的變數要相加用"+"
變數一個是數字 一個是文字相加用"&"

---

作者: basarasy    時間: 2010-7-2 16:59

本帖最後由 basarasy 於 2010-7-2 17:02 編輯

回復 3# GBKEE

所有ess dss 中間都有&  ,只是post出來時把我所有的&都del.

為何我run到 If Range("B6").Value = "" then  [a1]=1   時他說我錯誤?

---

作者: GBKEE    時間: 2010-7-2 17:10

b]回復 4# basarasy
**所有ess dss 中間都有&  ,只是post出來時把我所有的&都del.
dss = 29   <-變數是數字
ess = 17   <-變數是數字
sss = 0     <-變數是數字
Range範圍的書寫方式->  Range("文字")

為何我run到 If Range("B6" ...    請附檔上來

---

作者: basarasy    時間: 2010-7-2 17:31

回復 5# GBKEE

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

a1 有東西 格是白色
b2 冇東西 格是黃色

---

作者: Hsieh    時間: 2010-7-2 18:20

使用格式化條件即可

---

作者: basarasy    時間: 2010-7-2 19:43

回復 7# Hsieh

不能用><

---

作者: Hsieh    時間: 2010-7-2 20:20

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

[attach]1625[/attach]回復 8# basarasy

---

作者: basarasy    時間: 2010-7-2 21:05

回復 10# Hsieh

我是想做這個.

---

作者: victorl    時間: 2010-7-2 22:14

回復 11# basarasy


    [attach]1627[/attach]

---

作者: basarasy    時間: 2010-7-2 22:24

回復 12# victorl

謝謝 victorl大大.

---

作者: victorl    時間: 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

---

作者: wqfzqgk    時間: 2010-7-6 00:21

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)