Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
827 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78091】別のブックに貼り付け kan 16/4/2(土) 16:44 質問[未読]
【78092】Re:別のブックに貼り付け β 16/4/3(日) 17:59 発言[未読]
【78093】Re:別のブックに貼り付け β 16/4/3(日) 18:02 発言[未読]
【78094】Re:別のブックに貼り付け β 16/4/3(日) 18:04 発言[未読]
【78095】Re:別のブックに貼り付け β 16/4/3(日) 18:55 発言[未読]
【78096】Re:別のブックに貼り付け マナ 16/4/3(日) 20:56 発言[未読]
【78097】Re:別のブックに貼り付け β 16/4/3(日) 21:27 発言[未読]
【78098】Re:別のブックに貼り付け マナ 16/4/3(日) 22:13 発言[未読]
【78101】Re:別のブックに貼り付け kan 16/4/4(月) 17:51 お礼[未読]
【78091】別のブックに貼り付け
質問  kan  - 16/4/2(土) 16:44 -
引用なし
パスワード
   2010までのEXCELでは問題なく動くのですが、2013以降のEXCELでは、ユーザーフォームを使って、別のブックを開きテキストボックスに入力して開くと
上部リボンがフリーズしたり、元のブックが表示したまま、新たに開いたブックが表示できなくなります。何か良い解決方法が有るかお教え下さい。
直接起動させるコードは下記になります。

元ブック　　　1.xlsm
開くブック　　2.xlsm

Sub Macro1()
　　Workbooks.Open Filename:="D:\2.xlsm"
　　Range("H6").Select
　　ActiveCell.FormulaR1C1 = "win10"
End Sub
これでは問題ないのですが、下記の様にユーザーフォームを利用すると問題が生じます。

Sub Macro2()
　　UF1.Show
End Sub

Private Sub OK_Click()
　　Workbooks.Open Filename:="D:\2.xlsm"　
　　Cells(6, 7).Value = TB1
　　Unload UF1
End Sub

以上　よろしくお願いいたします。
【78092】Re:別のブックに貼り付け
発言  β  - 16/4/3(日) 17:59 -
引用なし
パスワード
   ▼kan さん：

回答ではありません。

>　　Cells(6, 7).Value = TB1

TB1 って何でしょうか？
【78093】Re:別のブックに貼り付け
発言  β  - 16/4/3(日) 18:02 -
引用なし
パスワード
   ▼kan さん：

当方のxl2013 でアップされたコードを、そのまんま使い（ただし TB1 は　適当な値に変えましたが）
実行したところ、macro1,macro2-->ユーザーフォームのクリック　いずれも
全く問題なく動いて結果がでました。
【78094】Re:別のブックに貼り付け
発言  β  - 16/4/3(日) 18:04 -
引用なし
パスワード
   ▼kan さん：

TB1 って、テキストボックスだったんですね。
失礼しました。

こちらの2013 でも似たような状況再現しました。
ちょっと調べてみます。
【78095】Re:別のブックに貼り付け
発言  β  - 16/4/3(日) 18:55 -
引用なし
パスワード
   ▼kan さん：

回答ではなく、こちらの検証結果を報告します。

１．まず、TB1を「適当な値」に置き換えるとＯＫだったとコメントしましたが
　　勘違いで、やはりＮＧでした。
２．2.xlsm のリボンは固まっているわけですが、この状態で 1.xlsm を選択し
　　あらためて 2.xlsm を選択するとリボンの塊は解除されています。
３．現象としてはモーダル表示されたユーザーフォームがUNLOAD されて
　　シート（セル群）は、モーダル状態が解除されていますが、リボン部分のみ
　　モーダルの影響が残っているような状態ですね。
４．このコードを xl2010環境で実行すると全く問題はありませんね。

★推測ですが、バグだと思います。
　2013で SDIインターフェースに変わった結果、それまでの MDIインターフェース時は
　なんの問題もなく動いていたものがＮＧになるというケースは、他のケースでも
　発生しています。これも、それがらみなのかなと思います。
【78096】Re:別のブックに貼り付け
発言  マナ  - 16/4/3(日) 20:56 -
引用なし
パスワード
   こういうことみたいです。

ht tp://support.microsoft.com/kb/2851316/ja
【78097】Re:別のブックに貼り付け
発言  β  - 16/4/3(日) 21:27 -
引用なし
パスワード
   ▼マナ さん：

情報ありがとうございます。
やはり、MDI,SDIがらみでしたか。
Msから２つの回避策が提示されていましたが、私が↑でコメントした方法も
（もし、別ブックが、開かれていた場合には）ありですかね。
【78098】Re:別のブックに貼り付け
発言  マナ  - 16/4/3(日) 22:13 -
引用なし
パスワード
   ▼β さん：
以前、こんな感じの質問がありました。
シートにボタンを置いて、Macro2を登録して実行。

Sub Macro2()
　　UF1.Show
End Sub

Private Sub OK_Click()
　　Worksheets.Add
　　Cells(6, 7).Value = TB1
　　Unload UF1
End Sub

やはり2010はOKで2013で異常？
追加したシートでスクロールできない。終了できない。
そのときも、別シートを選択してから、戻ると正常になりました。
【78101】Re:別のブックに貼り付け
お礼  kan  - 16/4/4(月) 17:51 -
引用なし
パスワード
   ▼マナ さん：
>こういうことみたいです。
>
>ht tp://support.microsoft.com/kb/2851316/ja

情報有り難うございます。
一度いろいろ試してみたいと思います。
また、結果が出ましたらお知らせ致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
827 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free