註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 階層邏輯判斷
返回列表
下一主題
上一主題
發帖
[發問]
階層邏輯判斷
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2013-10-28 14:24
|
顯示全部帖子
[發問]
階層邏輯判斷
A B C D E F G
1 * 6B01M
2 6102B
2 6105B
1
2530B
2
2410M
2
241ZM
3
2110M
3 * 3100B
4 3200B
4 * 3200B
4 3600B
5 3600B
4 3B00B
4 * 3B00B
4 * 3B02M
5 3B01B0
4 * 3B02M
5 3B01B
2
4101B
2 * 4101B
2
4101B
2
4101B
上面的簡圖是我EXCEL中所出現的圖樣
(因為我無法用表格，只能牽強的用這種方式呈現....Sorry...)
數字是代表階層(由上而下檢視)
如果F欄沒有顯示*字號
則最後G欄的代碼顯示為紅色，反之有*則為黑色
階層的用意:
如果1階為*則2.3.4.5...階都為黑色(不用改變)
如果2階為*則3.4.5.......階都為黑色(不用改變)
.......
如果同階EX: 2下面接著是2則個別依據是否有*來做顏色判別
小弟我目前所做的，只能判別是否有*，但一直想不到該如何依階層判斷的邏輯
麻煩各位大大幫幫忙
以下附上程式碼及EXCEL檔案
謝謝 : )
Sub choose()
Row = Worksheets(1).Range("A35536").End(xlUp).Row
lv = 6
Dim i As Integer
For i = 1 To Row
'Debug.Print "No." & i
'Debug.Print "lv:" & lv
If Range("A" & i) <> "" And Range("F" & i) = "" Then 'And lv <= 6 Then
Range("H" & i) = "color1"
lv = 5
End If
If Range("B" & i) <> "" And Range("F" & i) = "" And lv <= 5 Then
Range("H" & i) = "color2"
lv = 4
End If
If Range("C" & i) <> "" And Range("F" & i) = "" And lv <= 4 Then
Range("H" & i) = "color3"
lv = 3
End If
If Range("D" & i) <> "" And Range("F" & i) = "" And lv <= 3 Then
Range("H" & i) = "color4"
lv = 2
End If
If Range("E" & i) <> "" And Range("F" & i) = "" And lv <= 2 Then
Range("H" & i) = "color5"
lv = 1
End If
Next
End Sub
複製代碼
Test.zip
(15.97 KB)
測試EXCEL檔
下載次數: 7
2013-10-28 14:23
樓主熱帖
執行階段錯誤-2147417848(80010108) Automa
表單儲存格自動下拉更新
改善大筆資料處理
兩工作表比對 新增修改
icon路徑問題
兩個問題：比對迴圈 & 儲存格閃爍
EXCEL 2007 VBA 在EXCEL 2010 執行出問題
處理一定時間 中斷執行
格式按ENTER才能轉換
資料庫基本觀念
收藏
分享
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
2
#
發表於 2013-10-28 15:54
|
顯示全部帖子
回復
2#
GBKEE
(SORRY我怕版面跑掉所以用括號來註記顏色)
標紅色的是有()的序號
本身為*不用標色
以下的階級也都不用標
(1>2>3>4>5)
因為第一個1階他有標*
所以以下的不用標色
第二個1沒有標*
所以以下的2.3.4.5要做*判斷
到了第二個3有標*
所以以下的4.5都不需標色了
最下面的四個2往上階看是第二個1
因為1沒標*
所以那四個2自己做個別判斷
有*則不用標色，沒*則要標色
規則大致說明是這樣
有點亂，希望大大幫忙解決
謝謝 : )
1 * 6B01M
2 6102B
2 6105B
1 2530B(紅色)
2 2410M(紅色)
2 241ZM(紅色)
3 2110M(紅色)
3 * 3100B
4 3200B
4 * 3200B
4 3600B
5 3600B
4 3B00B
4 * 3B00B
4 * 3B02M
5 3B01B
4 * 3B02M
5 3B01B
2 4101B(紅色)
2 * 4101B
2 4101B(紅色)
2 4101B(紅色)
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
3
#
發表於 2013-10-28 16:08
|
顯示全部帖子
回復
3#
li_hsien
附檔是正確該出現的儲存格顏色
後面的COLOER1.2.3...
是我參考修改用的
給您可以參考一下
謝謝 : )
Test.zip
(16.06 KB)
正確顏色
下載次數: 7
2013-10-28 16:07
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
4
#
發表於 2013-10-28 16:32
|
顯示全部帖子
回復
5#
GBKEE
我就是卡在這邊XDD
第二個3因為他有標記*
所以以下的4.5階都不用變色
(G8~G18都不用變顏色)
直接跳到上一階(2)
來判斷變顏色
是一個回覆的附件
程式碼沒更改喔
我只讓表單顯示正確的顏色而已
麻煩囉 謝謝 : )
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
5
#
發表於 2013-10-29 17:12
|
顯示全部帖子
回復
7#
stillfish00
謝謝大大的幫忙
不過我COPY來測試還是跟剛剛板大所PO出來的結果差不多
正常來說如果1階標記* 下面的都不需要變色
但那程式碼的結果還是會變色
: )
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
6
#
發表於 2013-10-29 17:15
|
顯示全部帖子
回復
8#
GBKEE
OK了耶
但板大您的程式碼好精簡
我昨天想了一整天 最後也有想出來
不過都是用最基本的語法
邏輯判斷設了一大堆
我再慢慢研究這些比較專業的語法
還有stillfish00大提供的部分
希望能多學點
不然每次都是用一些沒有效率的作法來處理
謝謝 : )
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
7
#
發表於 2013-10-30 08:54
|
顯示全部帖子
回復
12#
stillfish00
加了那行就OK!!!
謝謝stillfish00大
我再來研究研究語法的內容
: )
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
8
#
發表於 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
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
9
#
發表於 2013-10-30 16:07
|
顯示全部帖子
回復
15#
GBKEE
請問 :
Find("*") ->尋找任何有資料的儲存格
所以上面這個*字號
並不是找F欄的*
而是指"有資料"(非空值)的意思嗎???
TOP
li_hsien
發短消息
加為好友
li_hsien
當前離線
UID
15435
帖子
248
主題
55
精華
0
積分
314
金錢
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
在線時間
826 小時
註冊時間
2013-10-18
最後登錄
2026-10-11
中學生
帖子
248
主題
55
精華
0
積分
314
點名
187
作業系統
XP / WIN7
軟體版本
2003 / 2007
閱讀權限
20
性別
男
來自
Tainan
註冊時間
2013-10-18
最後登錄
2026-10-11
10
#
發表於 2013-10-31 15:17
|
顯示全部帖子
回復
17#
GBKEE
謝謝板大
我測試了幾次就清楚了
又學到了一些東西
謝謝 : )
TOP
靜思自在 :
能幹不幹，不如苦幹實幹。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 • 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲
發表於 2013-10-28 14:24
| 
