階層邏輯判斷 - Excel程式區 - 麻辣家族討論版版

ui123

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

11^# 跳轉到 »

發表於 2013-10-29 19:14 | 只看該作者

感謝前輩提供~看過受益良多!!!

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

12^#

發表於 2013-10-29 19:28 | 只看該作者

本帖最後由 stillfish00 於 2013-10-29 19:40 編輯

回復 9# li_hsien
你在 For i = 1 To .Rows.Count 前一行加入 .Value = .Value 看看。

附檔的儲存格怪怪的，無法用特殊尋找找到常數儲存格，加上上面的重新賦值就可以了，不知道是為什麼::(
我的判斷邏輯是該行有星號就黃色，沒星號就和上一階同色，(並設定第0階為紅色)。

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 84
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-4-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2013-10-30 08:54 | 只看該作者

回復 12# stillfish00

加了那行就OK!!!

謝謝stillfish00大

我再來研究研究語法的內容

: )

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 84
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-4-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

14^#

發表於 2013-10-30 14:34 | 只看該作者

回復 8# GBKEE

想起問版主大大
R = .Range("A" & i).Resize(, 5).Find("*", .Range("A" & i))

為什麼R會印出儲存格的數字?
.Range("A" & i).Resize(, 5) <-這段是選取A欄到F吧
.Find("*", .Range("A" & i)) <-這是找有*的儲存格位置，從A欄開始找吧

不知這樣的理解對不對

但我不清楚為什麼他會回傳前面的數字
以下用代碼的區塊

A B C D E F
1 * <-回傳1
2 <-回傳2
2 <-回傳2
3 * <-回傳3

複製代碼

麻煩大大幫我解惑一下謝謝 : )

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兔年全勤獎章

15^#

發表於 2013-10-30 15:43 | 只看該作者

回復 14# li_hsien
Find("") ->尋找空白的儲存格
Find("*") ->尋找任何有資料的儲存格
.Find("*", .Range("A" & i)) 沒錯 : 是找有有資料的儲存格位置，從A欄開始找吧

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

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 84
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-4-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

16^#

發表於 2013-10-30 16:07 | 只看該作者

回復 15# GBKEE

請問 :

Find("*") ->尋找任何有資料的儲存格

所以上面這個*字號

並不是找F欄的*

而是指"有資料"(非空值)的意思嗎???

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兔年全勤獎章

17^#

發表於 2013-10-31 14:52 | 只看該作者

回復 16# li_hsien
.Range("A" & i).Resize(, 5).Find("*", .Range("A" & i))
Resize將指定擴充為(幾列,幾欄)的範圍 -> Ai:Ei 的範圍.Find("*", .Range("A" & i))->Find("*" : 尋找有資料的儲存格.
F欄的* 在這裡判斷出來 -> ElseIf .Range("F" & i) = "*" Then

Dim flag(1 To 5) As Boolean-> 初始化 1 - 5 為 False
If .Range("F" & i) = "*" And R = 1 Then Erase flag
'*************************
Erase 陳述式
重新初始化固定大小陣列的元素，並釋放動態陣列的儲存空間。-> 1 - 5 為 False
'*******************************************

複製代碼

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

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 84
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-4-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

18^#

發表於 2013-10-31 15:17 | 只看該作者

回復 17# GBKEE

謝謝板大

我測試了幾次就清楚了

又學到了一些東西

謝謝 : )

TOP

[發問] 階層邏輯判斷

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

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