ui123

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

stillfish00

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

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

li_hsien

回復 12# stillfish00


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

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

   : )

li_hsien

回復 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

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

li_hsien

回復 15# GBKEE

請問 :

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

所以上面這個*字號

並不是找F欄的*

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

GBKEE

回復 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

回復 17# GBKEE

謝謝板大

我測試了幾次就清楚了

又學到了一些東西

謝謝 : )