以下のマクロはExcel2000までは動きますが、Excel2002、Excel2003では動きません。どのように修正すればよいのでしょう?
マクロのことは全くわかりません。10年以上前に友人からもらったExcelファイルです。
プログラムを修正してくれる業者をご存知の方は教えてください。
'
'
Sub Record1()
For I = 1 To 15
Cells(50, 1).Value = Cells(51, 4) - Cells(52, 4) * (I - 1)
Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVER.OK(!R49C2,2,0,(最適化!R49C3:R49C13))"
Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVER.SOLVE()"
SendKeys ("{ENTER}")
Range("C49:M49").Copy
Cells(31 + I, 3).Select
Selection.PasteSpecial Paste:=xlValues
Next I
End Sub
No.6ベストアンサー
- 回答日時:
#2です。
Excel2003でVisualBasicEditor画面のツール-参照設定の参照可能なライブラリファイルで「ソルバー」にチェックを入れてから、下記を実行したら取り合えずループしましたが、、、
データ環境が異なるので正しい動作なのか解りませんけど。
Sub Record2()
With ActiveSheet
For i = 1 To 15
.Range("A50").Value = .Range("D51") - .Range("D52") * (i - 1)
SolverOk SetCell:=.Range("B49"), _
MaxMinVal:=2, _
ByChange:=.Range("C49:M49")
SolverSolve UserFinish:=False
SendKeys ("{ENTER}")
.Range("C49:M49").Copy
.Range("C" & 31 + i).PasteSpecial Paste:=xlValues
Next i
End With
End Sub
この回答への補足
完成です。私の今のPC(Excel2002とExcel2003の2台)でもワークしました。
本当に長い間付き合ってくださって大変感謝しています。
お礼のしようもありません。
今気がつきましたが、papayukaさんは一般人とのこと。とてもそうとは思えません。
こんなに感激したのは久しぶりです。凄く嬉しいです。
私も何か人助けをするようにしようと思いました。
お礼を書く欄を間違いました。completeです。
本当に何とお礼をいっていいのかわかりません。
随分時間をかけていただきましたし、非常に恐縮しています。
ここでダメなら、東工大の学生課にでも行って「簡単なプログラム修正できる人求む。完成すれば5千円~1万円」とでも掲示板に貼ってこようかと思っていました。
No.5
- 回答日時:
>「マクロシートに RETURN() または HALT() が記述されていません。
」というエラー修正のアイデアはありませんか?SendKeys ("{ENTER}")
を修正した行の次行に入れてみてはいかがですか?
この回答への補足
すみません。
とにかく、マクロ、VBAの知識はゼロなもんで、意味がわかりません。具体的にどうするのでしょう?
ところで、会社の同僚にも聞きまくったところ、次のプログラムもでてきました。これはエラー・ダイアログは出てきませんが、ループを実行してくれません。つまり、papayukaさんが教えてくれたのと同じ結果です。
Sub Record1()
For I = 1 To 15
Cells(50, 1).Value = Cells(51, 4) - Cells(52, 4) * (I - 1)
SolverOK SetCell:=Range("B49"), _
MaxMinVal:=2, _
ByChange:=Range("C49:M49")
SolverSolve UserFinish:=False
'Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVEROK(!R49C2,2,0,(最適化!R49C3:R49C13))"
'Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVERSOLVE(UserFinish:=False)"
' SendKeys ("{ENTER}")
Range("C49:M49").Copy
Cells(31 + I, 3).Select
Selection.PasteSpecial Paste:=xlValues
Next I
End Sub
hana-hana3さん、いろいろサジェスチョンありがとうございました。
少し勉強になりました。
解決しました。長く付き合ってくださって感謝しています。
No.4
- 回答日時:
#2です。
Excel2003で確かにファイル選択ダイアログが出ました。
ソルバーを使ったこと無いうえデータ環境とかも不明なので、希望動作なのか解りませんけど、取り合えず SOLVER.OK と SOLVER.SOLVE の「.」ピリオドを外したらダイアログは出なくなり、何か実行が掛かります。
Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVEROK(!R49C2,2,0,(最適化!R49C3:R49C13))"
Application.ExecuteExcel4Macro String:="SOLVER.XLA!SOLVERSOLVE()"
この回答への補足
ウアァー! 一歩前進。
試してみたら、(たぶん、I=1の場合を計算してI=2に進まず、)「マクロシートに RETURN() または HALT() が記述されていません。」 というダイアログがでてきますが、このダイアログの「OK」を一回一回14回クリックすれば、とにかくやりたい作業はできました。感激。
papayukaさんに感謝。
自分で使うものなので、これで用は足りますが、「マクロシートに RETURN() または HALT() が記述されていません。」というエラー修正のアイデアはありませんか?
No.3
- 回答日時:
>エラーの内容について、うまく説明できませんが、計算結果を書き込もうとして書き込み先が見つからないようなのです。
どのようなエラーが起きているか解らないと予測すらできませんが・・・。
実際にエラーが起きているなら実行が停止し、VBE画面からエラーが起きているコードが反転表示されます。
ソルバーは使った事が無いので解りませんが、コードからはファイル選択ダイアログを呼び出す部分はありませんので、他のコードが実行されているのではないでしょうか?
No.1
- 回答日時:
>Excel2002、Excel2003では動きません。
これだけでは何とも言えません。
どのようなエラーが表示されるのでしょうか?
SOLVER.XLA(ソルバーアドイン)と言うアドインは設定(登録)してありますか?
この回答への補足
hana-hana3さん、レスポンスありがとうございます。
(1) executeする前にソルバーアドインをロードしています。これは問題ないと思います。
(2)エラーの内容について、うまく説明できませんが、計算結果を書き込もうとして書き込み先が見つからないようなのです。つまり、ファイル選択ダイアログが出てきます。
全然関係ありませんが、ファイル選択ダイアログのイメージは次のようなものです。
http://www.softvision.co.jp/dbpro/help/dialog/cm …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
batファイルでレジストリキーの...
-
PowerShellを使って関連付けら...
-
「パス名が無効です」の発生原因
-
EXCELでのXMLファイルのインポ...
-
アクセスのクエリでコンパイル...
-
gccを行ってもexeファイルが生...
-
cube PDFについて
-
VBから参照できないCのDLLを使...
-
Access2013にてドラッグ&ドロ...
-
【COBOL】read文でエラー
-
Excelファイルのマクロによる排...
-
DBへのコネクションタイムアウト
-
アクセスでイベントのロジック...
-
Excel VBAのApplication.Execut...
-
ASP.NET 2.0にてアプリが動作し...
-
ワークブックに名前をつけて保...
-
マクロについての質問
-
LoadIconでエラー 原因は??
-
エクセル VBA dll 読み込...
-
エクセルマクロでエラーの原因...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba ファイル書き込み時に書き...
-
「パス名が無効です」の発生原因
-
Returnに対するGoSubがありません
-
PowerShellを使って関連付けら...
-
エクセル VBA dll 読み込...
-
batファイルでレジストリキーの...
-
gccを行ってもexeファイルが生...
-
アクセスのクエリでコンパイル...
-
VBから参照できないCのDLLを使...
-
access テキストボックスの値取得
-
VBでファイルが開かれているか...
-
EXCELのVBAでWORDが開いてある...
-
NAS上のファイルの使用中が解除...
-
VB6 Dir関数で52エラー発生
-
VBA ExecuteExcel4Macro 型が一...
-
エクセルマクロでエラーの原因...
-
fgets関数のEOFの扱い方について
-
【COBOL】read文でエラー
-
FTPの送信結果を検知したい
-
FORTRANの実行エラーについて
おすすめ情報