>>209
わかる奴がみればだいたいこれでわかる
'Dim p7 As Single
p7 = p1 * p2 * p3 * p4 * p5 * p6
p8 = (1 - kiso_hokakuritu * 0.01 / (2 * cpm)) ^ p7
p9 = Application.WorksheetFunction.Round(1 - p8, 4)
hokakuritu = p9 * 100
Cells(r_0 + 4, c_0 + 3) = hokakuritu