[[20100330160613]]　『ﾕｰｻﾞｰﾌｫｰﾑに別のﾌﾞｯｸを表示し、ｺﾋﾟｰしたい』（S TO Z）　ページの最後に飛ぶ

『ﾕｰｻﾞｰﾌｫｰﾑに別のﾌﾞｯｸを表示し、ｺﾋﾟｰしたい』（S TO Z）

質問です

①ｼｰﾄ上のﾎﾞﾀﾝを押すとﾕｰｻﾞｰﾌｫｰﾑが開き、別のﾌﾞｯｸのｼｰﾄが表示される(切替ﾀﾌﾞも表示)

②手動でｼｰﾄ上の任意のｾﾙ範囲を選択しｺﾋﾟｰ,ﾕｰｻﾞｰﾌｫｰﾑ上のｼｰﾄへｺﾋﾟｰ

このようなことができますか？

 ユーザーフォームをモーダルで開くと、閉じるまでシートの操作が
 出来ないので、モードレスで開き、
 別ブック(閉じていたら開く)のシートを表示します。
 ﾕｰｻﾞｰﾌｫｰﾑ上のｼｰﾄとは何のことでしょうか。
 (semm)

ﾕｰｻﾞｰﾌｫｰﾑ上のｼｰﾄ = ﾕｰｻﾞｰﾌｫｰﾑに表示されてる別ﾌﾞｯｸのｼｰﾄ

ということです。

いろいろ書きましたが、つまりはﾕｰｻﾞｰﾌｫｰﾑに別ﾌﾞｯｸのｼｰﾄを表示したいということです。

 ユーザーフォームが作れているのでしたら
 VBEのツール　その他のコントロールで
 Microsoft Office Spreadsheet　（バージョンあり）にチェックを入れると
 ツールボックスに表示されるのでそれを配置してみてください。
 細かいプロパティやメソッドは色々調べれば解ると思いますので。
 （ｍｏｍｏ）

ありがとうございました、やってみます。(S TO Z)

Office2007を使ってるのですが、調べたらMicrosoft Office Spreadsheetが
なくなっていて、追加することができません。

なにかいい手段はないでしょうか？

 そうですかぁ
 あとは、思いつくのはWebBrowserコントロールを使って
 Navigate で表示させるとか・・・

 Me.WebBrowser1.Navigate "D:\Test.xls"

 （ｍｏｍｏ）

Me.WebBrowser1.Navigateを早速やってみたのですが、

ﾌﾞﾗｳｻﾞに表示されません。確認ﾌｫｰﾑがでてきて開くﾎﾞﾀﾝをおすと別表示でﾌﾞｯｸがひらくのですが

ﾌﾞﾗｳｻﾞには「Webﾍﾟｰｼﾞへのﾅﾋﾞｹﾞｰｼｮﾝは取り消されました　ｱﾄﾞﾚｽを再入力する」とでてくるだけで開きません。

なにかやり方があるのでしょうか？

 既にご覧になっておられるかもしれませんが、ご参考に。。。

 WebBrowser コントロールを使用して Office ドキュメントを開く方法 
http://support.microsoft.com/kb/243058/ja

 (HANA)

 >ﾌﾞﾗｳｻﾞに表示されません。確認ﾌｫｰﾑがでてきて開くﾎﾞﾀﾝをおすと別表示でﾌﾞｯｸがひらくのですが

 新規ブックの標準モジュールに

 '=========================================================
 Sub test()
    With CreateObject("shell.application")
       .Explore 17
    End With
 End Sub

 これでマイコンピュータが開きましたか？

 このマイコンピュータの

 「ツール」-----「フォルダオプション」とクリックし、フォルダオプション　ダイアログを表示させてください。

 ファイルタイプ タブをクリックしてください。ファイルタイプ一覧の中から、

 「Microsoft Excel ワークシート」を選択してください。
 拡張子　XLSの詳細　で詳細設定をクリックします。

 ファイルタイプの編集　ダイアログが表示されます。

 同じウインドウで開く　にチェックを入れてください。
 ダウンロード後に開く確認をする　のチェックははずしてください。

 これでＯＫをクリックしてフォルダオプションも閉じてください。

 これは、Win2000の場合ですが、同じような設定が他のバージョンでもあると思います。

 この設定後、

 ユーザーフォームにWebbrowserを貼り付けて、試してみてください。

 Webbrowserを貼りつけたユーザーフォームをUserform1だとすると、このモジュールに

 Option Explicit
 Private Sub UserForm_Initialize()
    Workbooks.Open ThisWorkbook.Path & "\book1.xls"
    With WebBrowser1
        .Navigate2 ThisWorkbook.Path & "\book1.xls"
    End With
 End Sub
 '==========================================================================
 Private Sub UserForm_Terminate()
    Workbooks("book1.xls").Close False
    With CreateObject("excel.application")
       .Visible = True
       .Wait Now() + TimeValue("00:00:01")
       .Quit
    End With
    Application.Visible = True
    ThisWorkbook.Activate
 End Sub

 標準モジュールに

 '==========================================
 sub test()
    userform1.show
 end sub

 これで　testを実行してみてください。

 尚、上記コードは、上記ＶＢＡコードを配置したブック（仮に　Sample.xls）とユーザーフォームに
 表示するブックbook1.xlsは、同じフォルダ上にあるものとします。

 ただ、動作は随所に不安定さがありました。

 こんな操作で
 >ﾌﾞﾗｳｻﾞに表示されません
 が解消されましたが、一度試してみてください。

 Win2000&Excel2002で試しました。

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20100330160613]] 『ﾕｰｻﾞｰﾌｫｰﾑに別のﾌﾞｯｸを表示し、ｺﾋﾟｰしたい』（S TO Z） ページの最後に飛ぶ

[[20100330160613]]　『ﾕｰｻﾞｰﾌｫｰﾑに別のﾌﾞｯｸを表示し、ｺﾋﾟｰしたい』（S TO Z）　ページの最後に飛ぶ