ベストアンサー

エクセルマクロで外部ファイルを開きたい

2010/08/23 09:28

DOUGLAS_の回答

DOUGLAS_
ベストアンサー率74% (397/534)

2010/08/29 21:44 回答No.17

＞書き換え部分というのは、＞最終グループ最終行以降は対象としないと考えていいのですね。　たぶん、ＯＫだと存じます。　コードを「書き換え」たことにより、ブロック内が「エラー値」・「空白セル」だけで満たされている場合に限り、EmEditor の起動をスルーします。　実際に運用してご確認いただき、他の問題が生じるようでしたらお知らせください。 -------------------------------- ＞L列に「Ａ」が存在しない場合、＞すなわち対象外はL列すべて空欄　これはどういう意味でしょうか？　『L列に「Ａ」が存在しない』ではなくて『Ｋ列に．．．』でしたら、「Ｍ列～Ｒ列」×「先頭行～末尾行」というブロック内がすべて「空白セル」になるはずですから、この場合はＯＫです。　Ｌ列の数式をすべて削除しても、先頭行のＫ列が生きていたら、そこに「A」が表示され、先頭行には ---------------- Ｍ列：■510080100 Ｎ列：■6 Ｏ列：■4 Ｐ列：■3 Ｑ列：■2 Ｒ列：MB10080100=００：００／ＮＥＷ ---------------- というようなデータが表示されるかと存じますが、この場合は、この先頭行のデータをクリップボードに積んでしまいますので、これを回避するとなると、ちょっとコーディングが厄介になります。 -------------------------------- ＞最終行に限らず途中で中止したい場合＞たとえば進行の途中でセルのエラーに気がついて直したいとき　そういうことでしたら、　　　MsgBox "「" & Selection.Text & "」から始まるグループについて" & vbCrLf & _ 　　　　vbCrLf & "EmEditor での作業が終わったら OK してください。" の部分を　　　If MsgBox("「" & Selection.Text & "」から始まるグループについて" & vbCrLf & _ 　　　　vbCrLf & "EmEditor での作業が終わったら OK してください。" & vbCrLf & _ 　　　　vbCrLf & "操作を中止する場合はキャンセルしてください。", 1) _ 　　　　= vbCancel Then Exit Sub に置き換えてください。 ================================================ ＞元の内容がわからないと書き換える文字を決められない＞元データをファィル名用に直してしまう手もある　ですよねぇ！　結局、この「スタート位置のセル値」＝「後々のファイル名」これをやっつけてしまわないことには、冗長な操作の連続からは逃げられないかと存じます。 -------------------------------- 　それでは、そろそろ、このファイル名の問題に移りたいと存じます。 ---------------- 【ア】＞R3ですが、私もなんとか自動で表示できないか悩んでいる＞あらかじめプルダウンメニューを作って置き換え文字を登録し＞その都度選択する手があるかもしれません。　これにつきましては、ＶＢＡでの操作は、通常ユーザーフォームにコンボボックスを配置することになりますので、ＶＢＡ初心者にはハードルが高いかと存じます（こういうＱ＆Ａ掲示板では「ユーザーフォーム」作成・運用の方法の手解きは難しいです）。 ---------------- 【イ】＞たとえばA3の中の特定文字を見つけて＞そのときはある文字に置き換えるという方法もある　≪常に≫「特定文字を見つけて」「ある文字に置き換える」ことができるのでしたら、コーディングはできます。　しかし、「置き換えることができる≪こともある≫」というような頻度ではコーディングはできません。 ---------------- 【ウ】＞特定文字の種類が20通りくらいになってしまい＞多すぎて式の中に取り込めない　各ブロックのどこかに「ファイル名」を決定することのできる要素が≪必ず≫入っているのでしたら、これは、十分、コーディングの余地があります。　たとえ、その種類が「20通り」であろうとも、例えば、Ａ列の「ＮＥＷ」・「ＯＬＤＭＩＸ」や「○○○」・「△△」などの条件によって、対応する「ファイル名」を決めることができるのでしたら、その条件をコードに織り込めば良いだけのことです。

質問者

お礼 2010/08/29 22:24

＞L列に「Ａ」が存在しない場合、＞すなわち対象外はL列すべて空欄　これはどういう意味でしょうか？補足記述のとおり勘違いです。「キャンセル」についてはありがとうございました。 Lotus123のときにMenublanchとかMenucallといった語を用いてラジオボタンやダイアログボックスなどのメニューボタンをよく作ったのでその分岐を意識していました。【ア】【イ】【ウ】についてはマクロというより関数式で当てはめることを考えてました。すなわちFINDで「○」があったら11文字目からうしろを「××××」に置き換え、なかったら次の語のFINDで「△」を探して置き換えてゆくというやり方で、そうすると20通りくらいになり長い式になってしまうという意味です。テレビ番組のタイトルと同じように「ニュース」とか「天気予報」という定形的な言葉があるかと思えば特番のようにどんなタイトルが登場するかわからないというケースもあります。ある程度はルールを整理できないこともないのですが。元データを直す場合は300行あるうちからその行を探すことになりけっこう手間にはなりそうです。テキストにしてしまえばテキストごとに常に１行目だけということになるからです。まあ、ここはあきらめて手動でがんばるっきゃないですね。全作業で、ここだけ手動になるならそんなに苦にはなりません。むしろ、現在手動の「保存メニュー」の呼び出しと、名前をつけて保存、ファィル名は１行目をクリップしたものを貼り付け、その名前で保存という部分が通してマクロでできるとかなり楽になります。