zechs_gr-6のプロフィール

エクセルVBAで実行時エラー７、メモリー不足が出ます。 以下はVBAで素数を検索するコードです。 2億までは以下のように問題なく検索できました。 1億まで検索 素数の個数：5,761,455 上限値内の最大の素数：99,999,989 検索時間： 28.64063 2億まで検索 素数の個数：11,078,937 上限値内の最大の素数：199,999,991 検索時間： 59.34375 ところが3億にすると「実行時エラー７、メモリー不足」が出てしまいます。 これを回避する方法はないでしょうか？ エクセル2000、Win2000です。 システムのプロパティを見ると Intel(R)　Celeron(R) CPU 420@ 1.60GHz AT/AT COMPATIBLE 1,014,896,KB RAM となっています。 コードは下記の通りです。 Sub Prime() 　　Const MX As Long = 300000000 '検索上限値（3億） 　　Dim flg(2 To MX) As Boolean 'フラグ配列 　　Dim cnt As Long, i As Long, j As Long, prm As Long 　　Dim t As Single 　 　　t = Timer 　　For i = 2 To MX '2から検索上限値までの間に 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　For j = i + i To MX Step i 'その倍数（当然合成数）ごとに 　　　　　　　　flg(j) = True 'フラグをTRUEに 　　　　　　Next j 　　　　End If 　　Next i 　　 　　For i = 2 To MX 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　cnt = cnt + 1 '素数にカウント 　　　　　　prm = i '素数代入 　　　　End If 　　Next 　　 　　Debug.Print "素数の個数：" & Format(cnt, "#,###") _ 　　& vbNewLine & "上限値内の最大の素数：" & Format(prm, "#,###") _ 　　& vbNewLine & "検索時間："; Timer - t 　　Erase flg '配列が占有していたメモリを解放 　　 End Sub

エクセルVBAで実行時エラー７、メモリー不足が出ます。 以下はVBAで素数を検索するコードです。 2億までは以下のように問題なく検索できました。 1億まで検索 素数の個数：5,761,455 上限値内の最大の素数：99,999,989 検索時間： 28.64063 2億まで検索 素数の個数：11,078,937 上限値内の最大の素数：199,999,991 検索時間： 59.34375 ところが3億にすると「実行時エラー７、メモリー不足」が出てしまいます。 これを回避する方法はないでしょうか？ エクセル2000、Win2000です。 システムのプロパティを見ると Intel(R)　Celeron(R) CPU 420@ 1.60GHz AT/AT COMPATIBLE 1,014,896,KB RAM となっています。 コードは下記の通りです。 Sub Prime() 　　Const MX As Long = 300000000 '検索上限値（3億） 　　Dim flg(2 To MX) As Boolean 'フラグ配列 　　Dim cnt As Long, i As Long, j As Long, prm As Long 　　Dim t As Single 　 　　t = Timer 　　For i = 2 To MX '2から検索上限値までの間に 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　For j = i + i To MX Step i 'その倍数（当然合成数）ごとに 　　　　　　　　flg(j) = True 'フラグをTRUEに 　　　　　　Next j 　　　　End If 　　Next i 　　 　　For i = 2 To MX 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　cnt = cnt + 1 '素数にカウント 　　　　　　prm = i '素数代入 　　　　End If 　　Next 　　 　　Debug.Print "素数の個数：" & Format(cnt, "#,###") _ 　　& vbNewLine & "上限値内の最大の素数：" & Format(prm, "#,###") _ 　　& vbNewLine & "検索時間："; Timer - t 　　Erase flg '配列が占有していたメモリを解放 　　 End Sub

エクセルVBAで実行時エラー７、メモリー不足が出ます。 以下はVBAで素数を検索するコードです。 2億までは以下のように問題なく検索できました。 1億まで検索 素数の個数：5,761,455 上限値内の最大の素数：99,999,989 検索時間： 28.64063 2億まで検索 素数の個数：11,078,937 上限値内の最大の素数：199,999,991 検索時間： 59.34375 ところが3億にすると「実行時エラー７、メモリー不足」が出てしまいます。 これを回避する方法はないでしょうか？ エクセル2000、Win2000です。 システムのプロパティを見ると Intel(R)　Celeron(R) CPU 420@ 1.60GHz AT/AT COMPATIBLE 1,014,896,KB RAM となっています。 コードは下記の通りです。 Sub Prime() 　　Const MX As Long = 300000000 '検索上限値（3億） 　　Dim flg(2 To MX) As Boolean 'フラグ配列 　　Dim cnt As Long, i As Long, j As Long, prm As Long 　　Dim t As Single 　 　　t = Timer 　　For i = 2 To MX '2から検索上限値までの間に 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　For j = i + i To MX Step i 'その倍数（当然合成数）ごとに 　　　　　　　　flg(j) = True 'フラグをTRUEに 　　　　　　Next j 　　　　End If 　　Next i 　　 　　For i = 2 To MX 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　cnt = cnt + 1 '素数にカウント 　　　　　　prm = i '素数代入 　　　　End If 　　Next 　　 　　Debug.Print "素数の個数：" & Format(cnt, "#,###") _ 　　& vbNewLine & "上限値内の最大の素数：" & Format(prm, "#,###") _ 　　& vbNewLine & "検索時間："; Timer - t 　　Erase flg '配列が占有していたメモリを解放 　　 End Sub

エクセルVBAで実行時エラー７、メモリー不足が出ます。 以下はVBAで素数を検索するコードです。 2億までは以下のように問題なく検索できました。 1億まで検索 素数の個数：5,761,455 上限値内の最大の素数：99,999,989 検索時間： 28.64063 2億まで検索 素数の個数：11,078,937 上限値内の最大の素数：199,999,991 検索時間： 59.34375 ところが3億にすると「実行時エラー７、メモリー不足」が出てしまいます。 これを回避する方法はないでしょうか？ エクセル2000、Win2000です。 システムのプロパティを見ると Intel(R)　Celeron(R) CPU 420@ 1.60GHz AT/AT COMPATIBLE 1,014,896,KB RAM となっています。 コードは下記の通りです。 Sub Prime() 　　Const MX As Long = 300000000 '検索上限値（3億） 　　Dim flg(2 To MX) As Boolean 'フラグ配列 　　Dim cnt As Long, i As Long, j As Long, prm As Long 　　Dim t As Single 　 　　t = Timer 　　For i = 2 To MX '2から検索上限値までの間に 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　For j = i + i To MX Step i 'その倍数（当然合成数）ごとに 　　　　　　　　flg(j) = True 'フラグをTRUEに 　　　　　　Next j 　　　　End If 　　Next i 　　 　　For i = 2 To MX 　　　　If Not flg(i) Then 'フラグがTRUEでなければ 　　　　　　cnt = cnt + 1 '素数にカウント 　　　　　　prm = i '素数代入 　　　　End If 　　Next 　　 　　Debug.Print "素数の個数：" & Format(cnt, "#,###") _ 　　& vbNewLine & "上限値内の最大の素数：" & Format(prm, "#,###") _ 　　& vbNewLine & "検索時間："; Timer - t 　　Erase flg '配列が占有していたメモリを解放 　　 End Sub