請問VBA 的程式有沒有可以辨認某個儲存格內的字元有無包含某幾個字串？ - Excel程式區

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

31^# 跳轉到 »

發表於 2013-3-11 08:19 | 只看該作者

回復  GBKEE

With Sheet1                      (這句是否改With State sheet?)
With Sheet2    ...
198188 發表於 2013-3-9 23:00

With Sheet1 (這句是否改With State sheet?) 這種寫法應該會出現錯誤
除非有另外宣告

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2025-5-28

32^#

發表於 2013-3-13 11:31 | 只看該作者

回復 28# GBKEE

If Worksheets("OHC").Range("G" & i) - Date <= 2 Then
Worksheets("OHC").Range("G" & i).Interior.Color = RGB(255, 251, 45)
Worksheets("OHC").Range("G" & i).Font.ColorIndex = RGB(217, 24, 9)
End If

請問大大，If Worksheets("OHC").Range("G" & i) - Date <= 2 Then 這句哪裡出現問題了？

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

33^#

發表於 2013-3-13 12:19 | 只看該作者

回復 GBKEE

If Worksheets("OHC").Range("G" & i) - Date
198188 發表於 2013-3-13 11:31

If Worksheets("OHC").Range("G" & i) - Date
把兩段分開
If Worksheets("OHC").Range("G" & i)
-
Date

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

34^#

發表於 2013-3-13 12:30 | 只看該作者

回復 32# 198188
If Worksheets("OHC").Range("G" & i) - Date <= 2 Then 這句哪裡出現問題了？
條件式: Range("G?")(<- 必需是日期) - Date(當天日期)<=2(天)
你說出現問題了 ,請說明白!!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2025-5-28

35^#

發表於 2013-3-13 12:48 | 只看該作者

回復 34# GBKEE

兩個都是日期，但是電腦說typing mistake, 所以我想問是不是我的語法有錯？

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

36^#

發表於 2013-3-13 14:23 | 只看該作者

回復 35# 198188
typing mistake 的翻譯是輸入錯誤
請檢查 Range("g?")是否是數字,或傳上檔案看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

37^#

發表於 2013-3-13 14:53 | 只看該作者

回復 32# 198188

應該這句錯誤
Worksheets("OHC").Range("G" & i).Font.ColorIndex = RGB(217, 24, 9)
ColorIndex 應該是數值不可使用RGB
可改成
Worksheets("OHC").Range("G" & i).Font.Color = RGB(217, 24, 9)

學海無涯_不恥下問

TOP

apolloooo

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

38^#

發表於 2013-3-15 09:34 | 只看該作者

like 會比較好用。

借錢不還，才是王道

TOP

[發問] 請問VBA 的程式有沒有可以辨認某個儲存格內的字元有無包含某幾個字串？

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

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