困りました、 下は一部ですがこのような表から B E H 135,417 149,999 A×40% 150,000 299,999 A×30%+15000 300,000 549,999 A×20%+45000 550,000 833,333 A×10%+100000 833,334 1,249,999 A×5%+141667 If a < .Range("E8") Then kyu = .Range("H8") ElseIf a > .Range("B14") Then kyu = .Range("H14") Else H = Application.WorksheetFunction.VLookup(a, .Range("B9:J13"), 3) H = Replace(H, "Ａ", a) H = Replace(H, "×", "*") kyu = Evaluate(H) End If このコードを実行すると 最後のところでkyuに計算後の値が入る予定なのですが エラーも起きず なぜか何も入りません(・_・;) 原因がよくわからないので どなたかよろしくお願いいします！！
↧