Board logo

標題: [發問] 階層邏輯判斷 [打印本頁]
作者: li_hsien    時間: 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
複製代碼
[attach]16491[/attach]
作者: GBKEE    時間: 2013-10-28 15:31

回復 1# li_hsien
試試看是這樣嗎?
  1. Option Explicit
  2. Sub choose()
  3.     Dim i As Integer, Rng As Range, lv As Integer
  4.     With Worksheets(1)
  5.         lv = 6
  6.         For i = 1 To .Range("G35536").End(xlUp).Row
  7.             .Range("G" & i).Interior.ColorIndex = IIf(.Range("F" & i) = "", 3, lv)
  8.             .Range("h" & i) = ""
  9.             If .Range("F" & i) = "" Then
  10.                 Set Rng = .Range("A" & i).Resize(, 5).Find("*")
  11.                 .Range("h" & i) = "color" & Rng.Column
  12.             End If
  13.         Next
  14.     End With
  15. End Sub
複製代碼
作者: li_hsien    時間: 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(紅色)
作者: li_hsien    時間: 2013-10-28 16:08

回復 3# li_hsien

附檔是正確該出現的儲存格顏色
後面的COLOER1.2.3...
是我參考修改用的


給您可以參考一下

謝謝 : )

[attach]16493[/attach]
作者: GBKEE    時間: 2013-10-28 16:21

本帖最後由 GBKEE 於 2013-10-28 16:22 編輯

再試試看
  1. Option Explicit
  2. Sub choose()
  3.     Dim flag As Boolean, i As Integer, Rng As Range
  4.     With Worksheets(1)
  5.         For i = 1 To .Range("G35536").End(xlUp).Row  'G欄才真的有資料
  6.             .Range("h" & i) = ""
  7.             If .Range("a" & i) <> "" And .Range("F" & i) = "" Then
  8.                 flag = True
  9.             ElseIf .Range("a" & i) <> "" And .Range("F" & i) = "*" Then
  10.                 flag = False
  11.             End If
  12.             If flag = True And .Range("F" & i) = "" Then
  13.                Set Rng = .Range("A" & i).Resize(, 5).Find("*")
  14.                 .Range("h" & i) = "color" & Rng.Column
  15.             End If
  16.         Next
  17.     End With
  18. End Sub
複製代碼
回復 3# li_hsien
作者: li_hsien    時間: 2013-10-28 16:32

回復 5# GBKEE

我就是卡在這邊XDD

第二個3因為他有標記*
所以以下的4.5階都不用變色
(G8~G18都不用變顏色)

直接跳到上一階(2)

來判斷變顏色
   
是一個回覆的附件
程式碼沒更改喔
我只讓表單顯示正確的顏色而已


麻煩囉 謝謝 : )
作者: stillfish00    時間: 2013-10-29 13:56

  1. Sub Test()
  2.   Dim CurrentLevel As Long, i As Long
  3.   Dim bMark As Boolean, ar() As Long
  4.   
  5.   With Sheets(1).[G1].CurrentRegion
  6.     ReDim ar(.Cells(1).Column - 1 To .Columns.Count)
  7.     ar(LBound(ar)) = vbRed
  8.    
  9.     For i = 1 To .Rows.Count
  10.       CurrentLevel = .Range(.Cells(i, "A"), .Cells(i, "E")).SpecialCells(xlCellTypeConstants).Column
  11.       bMark = (.Cells(i, "F").Value = "*")
  12.       
  13.       .Cells(i, "G").Interior.Color = IIf(bMark, vbYellow, ar(CurrentLevel - 1))
  14.       ar(CurrentLevel) = .Cells(i, "G").Interior.Color
  15.     Next
  16.   End With
  17. End Sub
複製代碼
回復 6# li_hsien
作者: GBKEE    時間: 2013-10-29 16:28

回復 6# li_hsien
再試試看
  1. Option Explicit
  2. Sub choose()
  3.     Dim flag(1 To 5) As Boolean, i As Integer, R As Integer, ii As Integer
  4.     With Worksheets(1)
  5.         .Range("a1", .Range("G35536").End(xlUp)).Interior.ColorIndex = 6
  6.         For i = 1 To .Range("G35536").End(xlUp).Row  'G欄才真的有資料
  7.             R = .Range("A" & i).Resize(, 5).Find("*", .Range("A" & i)).Column
  8.             If .Range("F" & i) = "*" And R = 1 Then Erase flag
  9.             If .Range("F" & i) = "" Then
  10.                 flag(R) = True
  11.             ElseIf .Range("F" & i) = "*" Then
  12.                 flag(R) = False
  13.             End If
  14.             For ii = 1 To R
  15.                 If flag(ii) = False Then GoTo 10:
  16.             Next
  17.             .Range("G" & i).Interior.ColorIndex = 3
  18. 10:
  19.         Next
  20.     End With
  21. End Sub
複製代碼
作者: li_hsien    時間: 2013-10-29 17:12

回復 7# stillfish00


謝謝大大的幫忙

不過我COPY來測試還是跟剛剛板大所PO出來的結果差不多

正常來說如果1階標記* 下面的都不需要變色

但那程式碼的結果還是會變色

: )
作者: li_hsien    時間: 2013-10-29 17:15

回復 8# GBKEE

OK了耶

但板大您的程式碼好精簡

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

不過都是用最基本的語法

邏輯判斷設了一大堆

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


希望能多學點

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


謝謝 : )
作者: ui123    時間: 2013-10-29 19:14

感謝   前輩提供~看過受益良多!!!
作者: stillfish00    時間: 2013-10-29 19:28

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

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

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

回復 12# stillfish00


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

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

   : )
作者: li_hsien    時間: 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
複製代碼
麻煩大大幫我解惑一下   謝謝 : )
作者: GBKEE    時間: 2013-10-30 15:43

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

回復 15# GBKEE

請問 :

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

所以上面這個*字號

並不是找F欄的*

而是指"有資料"(非空值)的意思嗎???
作者: GBKEE    時間: 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.   
複製代碼
作者: li_hsien    時間: 2013-10-31 15:17

回復 17# GBKEE

謝謝板大

我測試了幾次就清楚了

又學到了一些東西

謝謝 : )



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)