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

Question

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期數的對應值標示顏色

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

Answer 1

最佳解答

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

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

Answer 2

KATO兄︰

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

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

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

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

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

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

謝謝您的鼎力相助!

加油!共勉之!

^^

Answer 3

applerot知識長︰

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

^^

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

Air大人︰

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

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

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

^^"