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

VBA~請指正非陳述式結尾的錯誤語法。

Sheets(1).Range("J"& Sheets(1).Range("R" & b.Row) + 7 & ":" &"P" & Sheets(1).Range("R" & b.Row) + 7).Select Selection.FormatConditions.Delete Selection.FormatConditions.AddType:=xlExpression, Formula1:="=J" &Sheets(1).Range("R" & b.Row) + 7 & "=$R$5"Selection.FormatConditions(1).Interior.ColorIndex = 6 '將I欄=T5期數的R5值標示顏色 Selection.FormatConditions.AddType:=xlExpression, Formula1:= _ "=(B"& Sheets(1).Range("R" & b.Row) + 7 &"=$R$5)*(J" & Sheets(1).Range("R" & b.Row) +7)"Selection.FormatConditions(2).Interior.ColorIndex = 43 '將A欄R7期數的$R$5值,其在I欄=T5期數的對應值標示顏色

請問︰因不是陳述式結尾而顯示紅色錯誤的正確公式語法? 謝謝!

3 個解答

評分
  • 顯栓
    Lv 7
    9 年前
    最佳解答

    184"=(J" & Sheets(1).Range("R" & b.Row) + 7 & "=$R$5)"

    192"=(B" & Sheets(1).Range("R" & b.Row) + 7 & "=$R$5)"

  • Airman
    Lv 4
    9 年前

    KATO兄︰

    呵~呵~別氣餒!當然不是簡單就可達成的任務,否則怎敢勞您大駕出手相助~

    況且小弟不也是持續研究了二三年卻仍然還在原地踏步努力中。^^"

    小弟原先是想找一條版路︰可一式RUN出7個開獎號碼之40%左右的中獎機率,但至今一無所成!

    現在只好退而求之~以個別公式~一條一條累積出各號碼不破版的中獎版路公式。

    但這樣會【更】費神費時~可能又是要以【年】計~想到就手軟頭昏!

    不一定要侷限在【連續第一個再出現組合】的版路,任何型態的版路皆可!

    謝謝您的鼎力相助!

    加油!共勉之!

    ^^

  • KATO
    Lv 5
    9 年前

    applerot知識長︰

    貴語法真是簡短實用!佩服!

    ^^

    2011-11-19 19:38:09 補充:

    Air大人︰

    連續第一個再出現的組合版路,小弟想了7,8個條件公式,

    但中獎機率結果還是不理想︰17%~25%,而且簽注支數都是12支以上。

    小弟恐無法達成您的穩定40%之交託。

    ^^"

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