帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 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

樓主熱帖

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

wqfzqgk

中學生 Rank: 2

帖子: 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

victorl

中學生 Rank: 2

帖子: 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

basarasy

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

11^#

發表於 2010-7-2 22:14 | 只看該作者

回復 11# basarasy

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

10^#

發表於 2010-7-2 21:05 | 只看該作者

回復 10# Hsieh

我是想做這個.

yy.JPG (35.77 KB)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2010-7-2 20:20 | 只看該作者

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

回復 8# basarasy

學海無涯_不恥下問

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

8^#

發表於 2010-7-2 19:43 | 只看該作者

[版主管理留言]

Hsieh(2010-7-2 20:13): 請上傳檔案

回復 7# Hsieh

不能用><

hj.JPG (73.53 KB)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2010-7-2 18:20 | 只看該作者

使用格式化條件即可

學海無涯_不恥下問

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

6^#

發表於 2010-7-2 17:31 | 只看該作者

回復 5# GBKEE

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

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

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

TOP

語句問題

語句問題

樓主熱帖

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]