以下のマクロは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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エラー:インクルードファイル ...
-
マウントしたファイルサーバー...
-
画像読み込み失敗の判定
-
EXCELアドインファイル開けません
-
ASPからACCESSのOPENどうしても...
-
PowerShellを使って関連付けら...
-
NAS上のファイルの使用中が解除...
-
VBA データセットした後にその...
-
FTPの送信結果を検知したい
-
C++Builderプログラム開始エラー
-
Excelマクロで別名保存したい時...
-
Access2013にてドラッグ&ドロ...
-
ISOファイルとMDSファイル
-
イーファンビューでwebpファイ...
-
差し込み印刷の元データファイ...
-
Chromebookを使用しています。 ...
-
ccdファイルはどのようにして使...
-
Wordの文章をExcelに内容ごとに...
-
イラストレーターでの入稿(画像...
-
拡張子 epsの開き方、どなたか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「パス名が無効です」の発生原因
-
batファイルでレジストリキーの...
-
アクセスのクエリでコンパイル...
-
Returnに対するGoSubがありません
-
NAS上のファイルの使用中が解除...
-
VBから参照できないCのDLLを使...
-
PowerShellを使って関連付けら...
-
access テキストボックスの値取得
-
ACCESS VBAでのインポート
-
FTPの送信結果を検知したい
-
VBでファイルが開かれているか...
-
VB6 Dir関数で52エラー発生
-
【COBOL】read文でエラー
-
エクセル VBA dll 読み込...
-
VBA ExecuteExcel4Macro 型が一...
-
fgets関数のEOFの扱い方について
-
「複数の選択範囲に対して実行...
-
アクセスでイベントのロジック...
-
エクセルマクロでエラーの原因...
-
すでにファイルが開かれている...
おすすめ情報