エクセルの学校：全文検索：Hyper Estraier： ExecuteExcel4Macro　閉じた｜開いて

Results of 1 - 1 of about 71 for ExecuteExcel4Macro　閉じた｜開いて｜開かず (0.012 sec.)

executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)

[[20061201131627]]: #score: 14119; @digest: ec61e18e04f008f3eed8ace9e282673f; @id: 26988; @mdate: 2006-12-01T09:36:35Z; @size: 4055; @type: text/plain; #keywords: objxl (53066), ラ- (4030), executeexcel4macro (3583), 時的 (2930), 数i (2878), るbo (2411), temp (2203), 一時 (1931), book1 (1838), r1c1 (1691), ォル (1503), ンセ (1359), ルダ (1287), ダ名 (1261), キャ (1137), ルア (1111), integer (1080), 仮定 (1067), フォ (1054), ャン (863), 純丸 (861), 相談 (772), アロ (699), ダイ (664), サン (656), ドレ (653), 動的 (619), book (611), 格納 (594), マク (573), ん)( (570), 終了 (530); 『エラ-がでたらexcelを終了させる方法』（りんご）
4.0マクロで、あるbookのセルを参照させ、今開いているシ-トのあるセルと数値の照合をさせ、=でなければ、エラ-のダイアログがでますが、ここでキャンセルを押すと、そのまま続けて処理されます。これをIF thenを使って excelを終了させる方法のマクロを組んでいるのですが、うまくできません。こんなのはできないのでしょうか? どなたかわかる方教えてください。 ---- 下記の過去ログが参考になるかもしれません。合わせて、ヘルプやネットで「On Error構文」を調べるとよいと思います。（純丸）(o^-')b [[20021110183942]]『マクロでのOn Errorの基本的使い方について』（エータロー） ---- ＞4.0マクロで、えっ!! 4.0マクロですか??「IF then」とあるからVBAだとは思いますが・・・。 (みやほりん)(-_∂)b ---- みやほりんさんわたしのやっていることは無茶ですか? どういうマクロか記述しますと dim i as integer dim i as integer i=ここに4.0で別のbookのセルを記述 p=range("a1").select if i=p then range("a1").select end if if i<>p then thisworkbook.close false end if と書いています。分らないままにこうだろうという思いつきでかいていますので! どうしたらいいか教えてください。よろしく ---- ははぁ。4.0マクロ関数をVBA内で部分的に使用する、ということですね。「4.0マクロで」が相談全体に対してと思ってびっくりしただけです。次のコードはC:¥TempというフォルダのBook1.xlsのSheet1、A1セルの値を変数iに格納します。 Dim ObjXl As Object Set ObjXl = New Excel.Application i = ObjXl.ExecuteExcel4Macro("'C:¥Temp¥[Book1.xls]Sheet1'!R1C1") Set ObjXl = Nothing (みやほりん)(-_∂)b ---- ダイアログでキャンセルだったらブックを終了、っていうのが相談の主旨でしたね。これを現在どのように処理されているのか、不明ですが、 MsgBoxの場合は次のような感じになるのではないでしょうか。 dim i as integer,p as Integer,Req As Integer Dim ObjXl As Object Set ObjXl = New Excel.Application i = ObjXl.ExecuteExcel4Macro("'C:¥Temp¥[Book1.xls]Sheet1'!R1C1") Set ObjXl = Nothing p = Range("a1").Value If i <> p Then Req = MsgBox("メッセージ", vbYesNoCancel) If Req = vbCancel Then thisworkbook.close false Exit Sub End If Range("A1").Select'以下にキャンセル時以外のコードを書く i,pが数字以外が代入される場合のことも想定した方が良いとは思いますが。 (みやほりん)(-_∂)b ---- ありゃ? On Error お呼びで無しでしたか。失礼しました。（純丸）(o^-')b ---- みやほりんさん親切にありがとうございます。それでやってみます。それと後一つ質問させて下さい。次のコードはC:¥TempというフォルダのBook1.xlsのSheet1、A1セルの値を変数iに格納します。上記の内容は自動的にこうなるんですか。Tempフォルダは一時的に保存するフォルダだったと思いますが。 Dim ObjXl As Object Set ObjXl = New Excel.Application i = ObjXl.ExecuteExcel4Macro("'C:¥Temp¥[Book1.xls]Sheet1'!R1C1") Set ObjXl = Nothing 純丸さんのコメントもアウトプットして研究してみます。というのもOn Error でもやっていたんですがうまくいかず if thenに切り替えたのです。ありがとうございました。 ---- ＞上記の内容は自動的にこうなるんですか。なりません。「あるbookのセル」を自動的に探してくれるものではないですし、マクロの記録で作成できるコードでもないのでこの部分は書き直してください。「あるbookのセル」が私には見えていませんからサンプル作成上の仮定です。りんごさんが参照したいのが C:¥Temp に保存してある、Book1.xls という名前のブックで、そのブックのSheet1のA1セルであると「仮定した場合は」サンプルのように書けますよ、という意味です。「あるbookのセル」の実際のフォルダ名、ブック名、シート名、セルアドレスにそれぞれ書き直してください。あっ、セルアドレスはR1C1形式で書く必要はありますね。 R=Row (行) C=Column (列) の番号をそれぞれR、Cの後ろに書いてセル位置を表現します。 D3 セルなら 3行目の4列目だから R3C4 と書きます。＞Tempフォルダは一時的に保存するフォルダ＞だったと思いますが。そういう特殊な意味を持たせた使い方をする場合もあるでしょうね。今回の場合はサンプルのために「一時的に作成した」フォルダなので、そういうフォルダ名にしなさい、という意味ではありません。 (みやほりん)(-_∂)b ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200612/20061201131627.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ