| |
はじめまして。
今、ＶＢＡで感度、特異度、１−特異度を算出し、最終的にはROC曲線を作成したいと思っています。
A B
１ 2.35 a
２ 19.81 b
３ 5.63 a
・・・
このようなセルが、１２０行まで続いています。
aを周期ありとして、１２２行から、
１２２ 0.01 周期あり 周期なし
１２３ 以上 ○ △
１２４ 未満 □ ■
１２５ 合計 ☆ ◎
１２６ 感度 ▲
１２７ 特異度 ★
１２８ １−特異度 ●
１２９
１３０ 0.02 周期あり 周期なし
１３１ 以上
１３２ 未満
１３３ 合計
１３４ 感度
１３５ 特異度
１３６ 1-特異度
・・・
というように、縦に表示させていきたいと考えています。
まず、ためしに、０．０１における感度と特異度、１−特異度出力されるようにしてみました。
インターネットや本で探りながら、下記のようにやってみました。
Sub test1()
k = 0.01
i = 1
myshift = 121
Cells(myshift + (i * 8 - 7), 1) = k
Cells(myshift + (i * 8 - 7), 2) = "周期あり"
Cells(myshift + (i * 8 - 7), 3) = "周期なし"
Cells(myshift + (i * 8 - 7) + 1, 1) = "以上"
Cells(myshift + (i * 8 - 7) + 2, 1) = "未満"
Cells(myshift + (i * 8 - 7) + 3, 1) = "合計"
Cells(myshift + (i * 8 - 7) + 4, 1) = "感度"
Cells(myshift + (i * 8 - 7) + 5, 1) = "特異度"
Cells(myshift + (i * 8 - 7) + 6, 1) = "１−特異度"
Range(Cells(myshift + (i * 8 - 7) + 1, 2)).Value = Evaluate("SUMPRODUCT(((A1:A120)>=k)*((B1:B120)=a))")
Range(Cells(myshift + (i * 8 - 7) + 1, 3)).Value = Evaluate("SUMPRODUCT(((A1:A120)>=k)*((B1:B120)=b))")
Range(Cells(myshift + (i * 8 - 7) + 2, 2)).Value = Evaluate("SUMPRODUCT(((A1:A120)<k)*((B1:B120)=a))")
Range(Cells(myshift + (i * 8 - 7) + 2, 3)).Value = Evaluate("SUMPRODUCT(((A1:A120)<k)*((B1:B120)=b))")
End Sub
しかし、「エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。」が出てしまいました。
SUMPRODUCTを使わないで、COUNTIFなども使ってみましたが、どうにも動きません。
ＶＢＡ初心者なのですが、勉強したいと思い、いろいろと挑戦しているところです。
もしよかったら、ご回答いただけるとうれしいです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
