0212ピカチュウ (ニククエ 1520-wOFv [180.9.129.168])
2017/11/29(水) 23:44:19.81ID:1TXz37mQ0NIKUわかる奴がみればだいたいこれでわかる
'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