| |
anakin さん、だるま さん、こんばんは。
>>でしたらはじめからマクロブックとデータブックは分けておけば良いと思いますが。^d^
>
>すみません。まだ素人なので、いまいち意味がよくわかりません。もう少し詳しくお願いできますか。
anakin さんのご質問もanakin さんより、初心者の方には何が問題になっているのか、
どのようなコードでどうのような手順で操作すれば、このような問題の現象になるのか、
たぶん、わからないと思いますよ！！
だって、anakin さん記述では
anakin さんのおっしゃっている状況が再現できないですからね！！
実は、最近こういう御質問が本当に多いんです・・・。
一年に一人ぐらいじゃ笑って済ませますけど、
これ以上増えては困るので、記述しています。
これの本当の解決方法は、私もだるま さん同様、
「プログラム（ＶＢＡコード）を記述するブックと
データを作成するブックを分ける」
というのが正解だと思います。
でも、この正解に至るまでの過程がきちんと記述されていて、
後々この質問をみるＶＢＡの初心者の方がanakin さんの困っている現象から
始まって、解決方法までの記述が再現可能になっていれば、
質問者と回答者が連携して作成した素晴らしいナレッジベースになります。
その一端を是非、anakin さんには担っていただきたいと思います。
さて、ご質問の件ですが、
例を出しましょう。これは、私とanakin さんが同じブックを見るための
一番、簡単な手段だとおもいます。
新規ブックの標準モジュールに以下のコードを記述してください
'==================================================================
Option Explicit
Sub auto_open()
On Error Resume Next
With Application.CommandBars.Add("サンプルバー")
If Err.Number = 0 Then
.Visible = True
With .Controls.Add(Type:=msoControlButton, ID:=2949, Before:=1)
.Style = msoButtonCaption
.Width = 100
.Caption = "ＶＢＡサンプル"
.OnAction = "macro"
End With
End If
End With
On Error GoTo 0
End Sub
'=====================================================================
Sub macro()
ThisWorkbook.Worksheets(1).Range("a1").Value = "書き込みＴＥＳＴ"
MsgBox ThisWorkbook.Name
End Sub
'======================================================================
Sub delete_bar()
On Error Resume Next
Application.CommandBars("サンプルバー").Delete
End Sub
１．このブックを適当なフォルダに適当な名前を付けて保存してください。
仮にこのブックのブック名をCmdbook.xlsとします。
２．保存が成功したら、一度このブックを閉じて、
マクロが作動可能な状態で改めてCmdbook.xlsを開いてください。
３．ツールバー「サンプルバー」が表示され、コマンドボタン「ＶＢＡサンプル」が
見えていますね？
４．このコマンドボタン「ＶＢＡサンプル」をクリックします。
５．コマンドボタン「ＶＢＡサンプル」に登録されているコードは、
「マクロの記述されているブックの最左端のワークシートのセルＡ１に
"書き込みＴＥＳＴ"と表示し、作動しているマクロがあるブック名を表示する
という動作をします。
６．いかがですか？最左端のワークシートのセルＡ１に
"書き込みＴＥＳＴ"と表示していますか？
７．「ファイル」----「名前を付けて保存」とクリックして、「Cmdbook.xls」
以外の名前で保存してください（例 Cmdbook2.Xls）
８．ブックの名前がCmdbook2.Xlsに変わっていますか？
９．このCmdbook2.Xlsを閉じてください。
１０．再度、元のブックであるCmdbook.xlsを開いてください。
１１．再び、コマンドボタン「ＶＢＡサンプル」をクリックしてください。
１２．いかがですか？Cmdbook2.Xlsが開いて、
Cmdbook2.Xlsの最左端シートのセルＡ１に
"書き込みＴＥＳＴ"と表示し（実際には最初から表示されています）、
「Cmdbook2.Xls」とメッセージボックスで表示されましたか？
これが問題になっている現象ですが、
anakin さんの問題のブックでも似たようなことをしていませんか？
で、「プログラム（ＶＢＡコード）を記述するブックと
データを作成するブックを分ける」
というのは、
ブックCmdbook.xlsのプロシジャーmacroを以下のように変更してください。
'======================================
Sub macro()
With Workbooks.Add
.Worksheets(1).Range("a1").Value = "書き込みＴＥＳＴ"
MsgBox .Name
End With
End Sub
１３．次いで、プロシジャー「delete_bar」を実行して、ツールバー「サンプルバー」
削除してください。
１４.ブックCmdbook.xlsを上書き保存してください。
１５．「２．」に戻って同じ操作を行ってください。
１６．コマンドボタン「ＶＢＡサンプル」をクリックで
新規ブックが作成され、そのブックの最左端ワークシートのセルＡ１に
「書き込みＴＥＳＴ」と表示し、最後に作成された新規ブック名が表示されます。
１７．これを保存すれば、データのみ保存となります。
尚、本来なら、Auto_Close()又、Closeイベント等で
ツールバー「サンプルバー」は削除することが望ましいですが、
ここでは、省略します。
上記を確認していただいて、実際のご自分が抱えているコードと
照らし合わせてみてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/8/4(金) 16:11 -
