- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
還是看不懂需求，猜一下：
tVal%, ValChk%(1 To 50) sub 開頭先定義這２個變數
If a = Sheets(s).[R5] Then
tVal = 100 - Cells(a.Row, 9).Value
If tVal < 51 Then
If ValChk(tVal) = 0 Then
.Cells(5, t) = Cells(a.Row, 9) 'J:P顯示R5值的I欄期數值
.Cells(3, t) = tVal '期距
ValChk(tVal) = 1
.Cells(1, t) = "=IF(Count(offset(A7,,COLUMN()-1," & e & ")),"""",1)" 'T1~Tn公式
.Cells(1, t + 1) = "=1"
.Cells(1, t).Interior.ColorIndex = 6 'T1標示Color
t = t + 1
End If
End If
q = q + 1
End If |
|
發表於 2016-1-25 10:13
| 
