12
返回列表 上一主題 發帖

[發問] 階層邏輯判斷

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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檔案

謝謝 : )
  1. Sub choose()
  2.    
  3.     Row = Worksheets(1).Range("A35536").End(xlUp).Row

  5.    
  6.     lv = 6
  7.     Dim i As Integer
  8.    
  9.     For i = 1 To Row
  10.    
  11.           'Debug.Print "No." & i
  12.           'Debug.Print "lv:" & lv
  13.                
  14.                
  15.            If Range("A" & i) <> "" And Range("F" & i) = "" Then 'And lv <= 6 Then
  16.            Range("H" & i) = "color1"
  17.            lv = 5
  18.            End If
  19.                

  21.            If Range("B" & i) <> "" And Range("F" & i) = "" And lv <= 5 Then
  22.            Range("H" & i) = "color2"
  23.            lv = 4
  24.            End If


  27.            If Range("C" & i) <> "" And Range("F" & i) = "" And lv <= 4 Then
  28.            Range("H" & i) = "color3"
  29.            lv = 3
  30.            End If
  31.             
  32.    
  33.            If Range("D" & i) <> "" And Range("F" & i) = "" And lv <= 3 Then
  34.            Range("H" & i) = "color4"
  35.            lv = 2
  36.            End If
  37.                
  38.                
  39.            If Range("E" & i) <> "" And Range("F" & i) = "" And lv <= 2 Then
  40.            Range("H" & i) = "color5"
  41.            lv = 1
  42.            End If
  43.                
  44.                
  45.     Next
  46.    
  47. End Sub
複製代碼
Test.zip (15.97 KB)
收藏 分享

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
18#
發表於 2013-10-31 15:17 | 只看該作者
回復 17# GBKEE

謝謝板大

我測試了幾次就清楚了

又學到了一些東西

謝謝 : )

TOP

GBKEE

帖子
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
  1. Dim flag(1 To 5) As Boolean-> 初始化 1 - 5 為 False
  2. If .Range("F" & i) = "*" And R = 1 Then Erase flag
  3. '*************************
  4. Erase 陳述式
  5. 重新初始化固定大小陣列的元素，並釋放動態陣列的儲存空間。-> 1 - 5 為 False
  6. '*******************************************
  7.   
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
16#
發表於 2013-10-30 16:07 | 只看該作者
回復 15# GBKEE

請問 :

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

所以上面這個*字號

並不是找F欄的*

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

TOP

GBKEE

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

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

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欄開始找吧

不知這樣的理解對不對

但我不清楚為什麼他會回傳前面的數字
以下用代碼的區塊
  1. A     B     C     D     E     F
  2. 1                                      *          <-回傳1
  3.          2                                         <-回傳2
  4.          2                                         <-回傳2
  5.                  3                     *          <-回傳3
複製代碼
麻煩大大幫我解惑一下   謝謝 : )

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
13#
發表於 2013-10-30 08:54 | 只看該作者
回復 12# stillfish00


   加了那行就OK!!!
  
   謝謝stillfish00大

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

   : )

TOP

stillfish00

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

ui123

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

論壇榮譽勳章論壇贊助勳章
11#
發表於 2013-10-29 19:14 | 只看該作者
感謝   前輩提供~看過受益良多!!!

TOP

li_hsien

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
10#
發表於 2013-10-29 17:15 | 只看該作者
回復 8# GBKEE

OK了耶

但板大您的程式碼好精簡

我昨天想了一整天 最後也有想出來

不過都是用最基本的語法

邏輯判斷設了一大堆

我再慢慢研究這些比較專業的語法
還有stillfish00大提供的部分


希望能多學點

不然每次都是用一些沒有效率的作法來處理


謝謝 : )

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題