John
Lv 4
John 發問時間: 電腦與網際網路軟體 · 5 年前

固定間隔(跳列)標示的語法。

http://www.FunP.Net/836212

Q5:R6的數字都以人工填入。

Q5=間隔標示期距

Q6=指定標示底色起點期數。

R5=第1個基本搜尋值。

R6=I欄最後期數。

目前我只會一個間隔加一個間隔依次寫

EX: Sample_A_Sheet1, Sample_B_Sheet1

但如果Q6和R6前後總期數一多,且Q5的的標示期距小的話,

因為要標示到=R6-MOD(R6-Q6,Q5),

要弄清楚到底是要有幾次的Q5倍數才是正確?

我就搞暈了~ EX: Sample_A_Sheet2, Sample_B_Sheet2~

無法寫不下去了^^"

勞請會寫固定間隔(跳列)標示的高手幫忙!

感恩^^

2 個解答

評分
  • 冰淇
    Lv 6
    5 年前
    最佳解答

    If Cells([Q6] + 6, j) = [R5] Then

    for XX=0 to INT(([R6]-[Q6])/[Q5])

    Cells([Q6] + 6 + [Q5] * XX, j).Interior.ColorIndex = iff(XX mod 2=0,6,4)

    Cells([Q6] + 6 + [Q5] * XX, j - 8).Interior.ColorIndex = iff(XX mod 2=0,8,45)

    Next XX

    end if

    2015-06-23 08:46:12 補充:

    Sorry  Key錯了  ^^"

    應是 iif

    2015-06-23 22:19:21 補充:

    上同~

    If Cells([Q6] + 6, j) = [R5] Then

     For XX=0 to INT(([R6]-[Q6])/[Q5])

      Cells([Q6] + 6 + [Q5] * XX, j).Interior.ColorIndex = iif(XX mod 2=0,6,4)

      Cells([Q6] + 6 + [Q5] * XX, j - 8).Interior.ColorIndex = iif(XX mod 2=0,8,45)

     Next XX

    End if

    If ....

     For XX=...

      ...

     Next XX

    End If

    ~下同

  • John
    Lv 4
    5 年前

    冰大:早安!

    不好意思,有個問題_

    Iff要怎麼定義?

    我不會,所以無法測試^^"

    敬請指導!謝謝您^^

    2015-06-23 10:17:40 補充:

    冰大:

    測試完成~Perfect~

    敬請上答!謝謝您^^

還有問題?馬上發問,尋求解答。