＜2008年12月21日 23:46記＞
Excel VBA(Visual Basic for Applications、マクロ)に関する雑談トピックです。
雑談やトピック立てるまでもない質問や小ネタの披露などに使用してください。
質問される方はExcelのバージョン・OSの種類や、
詳しい状況などを最初に記載しておくと話がスムーズになるでしょう。
「Excel雑談」トピックはこちら
http://
＜2012年04月09日 03:21追記＞
2012/4/9以降、ここで提示される皆さんが書かれたコードは皆さんで自由に共有しましょう。
他サイトからのコードの転載などされる場合には作者さんの注意事項に従いましょう。
Excel VBA(Visual Basic for Applications、マクロ)に関する雑談トピックです。
雑談やトピック立てるまでもない質問や小ネタの披露などに使用してください。
質問される方はExcelのバージョン・OSの種類や、
詳しい状況などを最初に記載しておくと話がスムーズになるでしょう。
「Excel雑談」トピックはこちら
http://
＜2012年04月09日 03:21追記＞
2012/4/9以降、ここで提示される皆さんが書かれたコードは皆さんで自由に共有しましょう。
他サイトからのコードの転載などされる場合には作者さんの注意事項に従いましょう。
|
|
|
|
コメント(412)
賑やかしに質問ですー。
エクセルのコードをプログラムを使って別のブックにコピーするということをやってみたのですが、
なぜかプロセスが残る場合があります。（主にコピー失敗の場合）
どこをどう直せばよいですか？
Sub programCopy()
Dim masterBook As Workbook, targetBook As Workbook, tFile As String
Dim masterModule As String, targetModule As String
Dim masterSh As Worksheet
Const masterShName ="Sheet1"
tFile = "C:\test.xlsm"
Set masterBook = ThisWorkbook'コピー元
Set targetBook = Workbooks.Open(tFile)'コピー先
'Sheet1 module コードコピー
On Error GoTo er
Set masterSh = masterBook.Worksheets(masterShName)
masterModule = masterSh.CodeName
targetModule = targetBook.Worksheets(masterSh.Name).CodeName
Call moduleCopy(masterBook, targetBook, masterModule, targetModule)
er:
if err.number > 0 then
msgbox "エラー"
else
msgbox "コピー終了"
end if
'targetBookを保存して閉じる
targetBook.Save
targetBook.Close
Set masterBook = Nothing: Set targetBook = Nothing
End Sub
'//サブプログラム
Sub moduleCopy(masterBook As Workbook, targetBook As Workbook, masterModule As String, targetModule As String)
'コピー元のモジュールのコードを取得
Dim VBP, Code As String
With masterBook.VBProject.VBComponents(masterModule).codemodule
Code = .Lines(1, .CountOfLines) '宣言セクション込
End With
'ターゲットモジュールにコードをコピー
With targetBook.VBProject.VBComponents(targetModule).codemodule
.DeleteLines 1, .CountOfLines 'コード全て削除
.AddFromString Code
End With
End Sub
エクセルのコードをプログラムを使って別のブックにコピーするということをやってみたのですが、
なぜかプロセスが残る場合があります。（主にコピー失敗の場合）
どこをどう直せばよいですか？
Sub programCopy()
Dim masterBook As Workbook, targetBook As Workbook, tFile As String
Dim masterModule As String, targetModule As String
Dim masterSh As Worksheet
Const masterShName ="Sheet1"
tFile = "C:\test.xlsm"
Set masterBook = ThisWorkbook'コピー元
Set targetBook = Workbooks.Open(tFile)'コピー先
'Sheet1 module コードコピー
On Error GoTo er
Set masterSh = masterBook.Worksheets(masterShName)
masterModule = masterSh.CodeName
targetModule = targetBook.Worksheets(masterSh.Name).CodeName
Call moduleCopy(masterBook, targetBook, masterModule, targetModule)
er:
if err.number > 0 then
msgbox "エラー"
else
msgbox "コピー終了"
end if
'targetBookを保存して閉じる
targetBook.Save
targetBook.Close
Set masterBook = Nothing: Set targetBook = Nothing
End Sub
'//サブプログラム
Sub moduleCopy(masterBook As Workbook, targetBook As Workbook, masterModule As String, targetModule As String)
'コピー元のモジュールのコードを取得
Dim VBP, Code As String
With masterBook.VBProject.VBComponents(masterModule).codemodule
Code = .Lines(1, .CountOfLines) '宣言セクション込
End With
'ターゲットモジュールにコードをコピー
With targetBook.VBProject.VBComponents(targetModule).codemodule
.DeleteLines 1, .CountOfLines 'コード全て削除
.AddFromString Code
End With
End Sub
>>[377]
検証ありがとうございますー。見てますよー。
win10でも駄目だったんですね。なんか根本的にプログラムおかしかったんかなぁ。
私も素人なんで、いろんなところで必要に応じてコード拾って作ってるだけなので
どっか根本的にわかってないんですよねー。
C直下の制限も知らなかったし。
実際はC直下は使ってなくて
tFile = "C:\test.xlsm"
の部分は、ファイル選択ダイアログだったんですけどね。
もちろんそれでもだめだったんですけど。
.CodeModule.AddFromFile ←こんなんあるのも知りませんでした。
ちょっとこれは試してみようかと思います。
また何かあったら情報交換しましょう
検証ありがとうございますー。見てますよー。
win10でも駄目だったんですね。なんか根本的にプログラムおかしかったんかなぁ。
私も素人なんで、いろんなところで必要に応じてコード拾って作ってるだけなので
どっか根本的にわかってないんですよねー。
C直下の制限も知らなかったし。
実際はC直下は使ってなくて
tFile = "C:\test.xlsm"
の部分は、ファイル選択ダイアログだったんですけどね。
もちろんそれでもだめだったんですけど。
.CodeModule.AddFromFile ←こんなんあるのも知りませんでした。
ちょっとこれは試してみようかと思います。
また何かあったら情報交換しましょう
質問させてください。
添付図のようなチェックボックスを連動させたいと思っていますがうまくいきません。
�。院腺海離船Д奪�ボックスが全てTRUE→ALLのチェックボックスをTRUEに
�■院腺海離船Д奪�ボックスが全てFALSE→ALLのチェックボックスをFALSEに
��１〜３のチェックボックスがバラバラ→ALLのチェックボックスをNULLに
��ALLのチェックボックスをTRUE→１〜３のチェックボックスをTRUEに
��ALLのチェックボックスをFALSE→１〜３のチェックボックスをFALSEに
フォームはEnableEvents効かないみたいで、プログラム上からチェックボックスを操作したものと、マウスでクリックしたものと区別がつけられず希望の動作をさせることができません。
どうしたらよいですか？
何らかの代替案でもいいです。
ファイルアップします。誰かお知恵を貸してください。よろしくお願いします。
https://drive.google.com/file/d/0BwJIjN2jrfGKTm9oam13blRIU2M/view?usp=sharing
添付図のようなチェックボックスを連動させたいと思っていますがうまくいきません。
�。院腺海離船Д奪�ボックスが全てTRUE→ALLのチェックボックスをTRUEに
�■院腺海離船Д奪�ボックスが全てFALSE→ALLのチェックボックスをFALSEに
��１〜３のチェックボックスがバラバラ→ALLのチェックボックスをNULLに
��ALLのチェックボックスをTRUE→１〜３のチェックボックスをTRUEに
��ALLのチェックボックスをFALSE→１〜３のチェックボックスをFALSEに
フォームはEnableEvents効かないみたいで、プログラム上からチェックボックスを操作したものと、マウスでクリックしたものと区別がつけられず希望の動作をさせることができません。
どうしたらよいですか？
何らかの代替案でもいいです。
ファイルアップします。誰かお知恵を貸してください。よろしくお願いします。
https://drive.google.com/file/d/0BwJIjN2jrfGKTm9oam13blRIU2M/view?usp=sharing
>>[386]
アタマの中でイメージしてコメントしてたので、
ちょっと作ってやってみたのですが、
ボタンを透明にはできないのですね…（涙）
泣きながら、チェックボックス横のテキスト上にボタンを設置して、
以下のようなコードを書いてみました。
まず、Allのボタンを押した時
※CheckSelect_*** は、チェックボックスのことです。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub CommandButton1_Click()
If CheckSelect_All = True Then
CheckSelect_All = False
CheckSelect_A = False
CheckSelect_B = False
CheckSelect_C = False
Else
CheckSelect_All = True
CheckSelect_A = True
CheckSelect_B = True
CheckSelect_C = True
End If
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
A〜C（これは、Aの場合）
B,Cは、「_A」の部分をそれぞれに変更
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub CommandButton2_Click()
If CheckSelect_A = True Then
CheckSelect_A = False
Else
CheckSelect_A = True
End If
If CheckSelect_A = True And CheckSelect_B = True And CheckSelect_C = True Then
CheckSelect_All = True
Else
CheckSelect_All = False
End If
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
この方法だと、上手くいきます。
でも、ボックスが透明にならないので、
間違ってチェックボックスを押してしまうので、
良い方法ではなかったな、と反省です…
アタマの中でイメージしてコメントしてたので、
ちょっと作ってやってみたのですが、
ボタンを透明にはできないのですね…（涙）
泣きながら、チェックボックス横のテキスト上にボタンを設置して、
以下のようなコードを書いてみました。
まず、Allのボタンを押した時
※CheckSelect_*** は、チェックボックスのことです。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub CommandButton1_Click()
If CheckSelect_All = True Then
CheckSelect_All = False
CheckSelect_A = False
CheckSelect_B = False
CheckSelect_C = False
Else
CheckSelect_All = True
CheckSelect_A = True
CheckSelect_B = True
CheckSelect_C = True
End If
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
A〜C（これは、Aの場合）
B,Cは、「_A」の部分をそれぞれに変更
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub CommandButton2_Click()
If CheckSelect_A = True Then
CheckSelect_A = False
Else
CheckSelect_A = True
End If
If CheckSelect_A = True And CheckSelect_B = True And CheckSelect_C = True Then
CheckSelect_All = True
Else
CheckSelect_All = False
End If
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
この方法だと、上手くいきます。
でも、ボックスが透明にならないので、
間違ってチェックボックスを押してしまうので、
良い方法ではなかったな、と反省です…
単なる雑談というか、愚痴というか…
#REF を探すマクロを組もうと思ったんです。
参照先を消してしまうと、データに不備ができるし、
グラフが沢山あると、１つ１つ確認しても見落とすかもしれないから、
マクロを実行したら、どこに＃REFがあるか書きだすようにしたら
便利かなーと、思って。
で、関係のありそうなのは、名前の定義と、関数とグラフで、
名前の定義と関数は簡単にできたし、別にマクロにしなくても、
確認しやすい。
問題はグラフなんですよね。
グラフを１つずつ調べていって、範囲を取り出して、＃REFを含んでたら、
グラフの名前を取り出す、って、そんなに難しいことはしてないのに、
どうしてもできない。
どうしてもエラーになる。
で、いくつか確認したら、それこそ参照先が消えているような場合に、
エラーが出ている…。
ということで、現在エラーの出るグラフ名をピックアップするようにしたのだけど、
どうにも納得がいかん、と思いつつ、ちょっと疲れてきたので、もういいや、と思ってます。
（系列は取りだせても、軸ラベルは取り出せないとか、取り出し方が判らないとか、
なんかいろいろ調べて闘いましたが、敢え無く諦めました…）
で、ふと思い出して、確認したら、条件付き書式も、データの入力規則のリストも
他のシートの参照ができるんですね…。
２００３は出来なかったよーな気がするのにー
最初に確認しておくんだった…。
仕方ない、機能を追加しよう（←とか言いつつ、それなりに嬉しいらしい）
#REF を探すマクロを組もうと思ったんです。
参照先を消してしまうと、データに不備ができるし、
グラフが沢山あると、１つ１つ確認しても見落とすかもしれないから、
マクロを実行したら、どこに＃REFがあるか書きだすようにしたら
便利かなーと、思って。
で、関係のありそうなのは、名前の定義と、関数とグラフで、
名前の定義と関数は簡単にできたし、別にマクロにしなくても、
確認しやすい。
問題はグラフなんですよね。
グラフを１つずつ調べていって、範囲を取り出して、＃REFを含んでたら、
グラフの名前を取り出す、って、そんなに難しいことはしてないのに、
どうしてもできない。
どうしてもエラーになる。
で、いくつか確認したら、それこそ参照先が消えているような場合に、
エラーが出ている…。
ということで、現在エラーの出るグラフ名をピックアップするようにしたのだけど、
どうにも納得がいかん、と思いつつ、ちょっと疲れてきたので、もういいや、と思ってます。
（系列は取りだせても、軸ラベルは取り出せないとか、取り出し方が判らないとか、
なんかいろいろ調べて闘いましたが、敢え無く諦めました…）
で、ふと思い出して、確認したら、条件付き書式も、データの入力規則のリストも
他のシートの参照ができるんですね…。
２００３は出来なかったよーな気がするのにー
最初に確認しておくんだった…。
仕方ない、機能を追加しよう（←とか言いつつ、それなりに嬉しいらしい）
最終報告、かな？
グラフの範囲のREFを探す件です。
No.398〜402 のコメントの後ではSeriesCollectionのFomulaでエラーの出るグラフをピックアップ
↓
No.403のコメントの前で、マクロ内容をいじってないのにエラーが起きなくなったことを発見。
（範囲も系列名も取りだせてしまうようになった）
という流れの後、軸ラベルでいろいろ検索して、試して、範囲を取り出すことは諦めました。
でも、セルの数式のように検索で簡単に探せないし、
１つしかないグラフなら探すのなら簡単な話だけど、複数ある場合は、１つずつ開いていかないと見つけられない（よくよく見るとグラフそのものがどこかおかしいのだけど、それが忙しい時にはなかなかすぐには見つけられないし）ので、
とにかく何か別の角度から探せないか、とグラフとにらめっこしました。
と、seriesCollectionのformulaから取り出せる値が、
=series(系列名, 軸ラベル範囲, グラフ範囲, 系列No.)
だったんですよね…。
（これ、昔調べたことがあって、なんとなく知ってた筈なのに、項目軸ラベルはなんか別の方法で取り出すと決めつけていて、ちゃんと見直してなかったんですよね。エラーになったし。なんか、むなしく寂しい気持ちになりました…）
この内容と、グラフの選択のウィンドウの内容と比べていると、
REFが入っている範囲は、軸ラベル範囲も、グラフ範囲も取りだせていないことに気付きました。
たとえば、
=series(, , ,1)
こんな感じ。
あるいは、
=series(, , $A$1:$L$1,1)
みたいな感じ。
ここまでくれば、あとは、軸ラベル範囲かグラフ範囲が空欄になっているものを探せば良いだけなので、話は簡単になりました。
はあ〜、長かった長かった。
前回の範囲がとりだせてしまっている、エラーしない、って気付いた時点で、
どういう形で範囲がとりだせているかとか、ちゃんと確認しておけばよかった…。
当初の目的である、REFを含んでいる範囲を取り出すことは出来ていませんが、
とりあえずよしとします。
グラフの範囲のREFを探す件です。
No.398〜402 のコメントの後ではSeriesCollectionのFomulaでエラーの出るグラフをピックアップ
↓
No.403のコメントの前で、マクロ内容をいじってないのにエラーが起きなくなったことを発見。
（範囲も系列名も取りだせてしまうようになった）
という流れの後、軸ラベルでいろいろ検索して、試して、範囲を取り出すことは諦めました。
でも、セルの数式のように検索で簡単に探せないし、
１つしかないグラフなら探すのなら簡単な話だけど、複数ある場合は、１つずつ開いていかないと見つけられない（よくよく見るとグラフそのものがどこかおかしいのだけど、それが忙しい時にはなかなかすぐには見つけられないし）ので、
とにかく何か別の角度から探せないか、とグラフとにらめっこしました。
と、seriesCollectionのformulaから取り出せる値が、
=series(系列名, 軸ラベル範囲, グラフ範囲, 系列No.)
だったんですよね…。
（これ、昔調べたことがあって、なんとなく知ってた筈なのに、項目軸ラベルはなんか別の方法で取り出すと決めつけていて、ちゃんと見直してなかったんですよね。エラーになったし。なんか、むなしく寂しい気持ちになりました…）
この内容と、グラフの選択のウィンドウの内容と比べていると、
REFが入っている範囲は、軸ラベル範囲も、グラフ範囲も取りだせていないことに気付きました。
たとえば、
=series(, , ,1)
こんな感じ。
あるいは、
=series(, , $A$1:$L$1,1)
みたいな感じ。
ここまでくれば、あとは、軸ラベル範囲かグラフ範囲が空欄になっているものを探せば良いだけなので、話は簡単になりました。
はあ〜、長かった長かった。
前回の範囲がとりだせてしまっている、エラーしない、って気付いた時点で、
どういう形で範囲がとりだせているかとか、ちゃんと確認しておけばよかった…。
当初の目的である、REFを含んでいる範囲を取り出すことは出来ていませんが、
とりあえずよしとします。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
Excel（エクセル）活用 更新情報
Excel（エクセル）活用のメンバーはこんなコミュニティにも参加しています
人気コミュニティランキング
- 1位
- パニック障害とうつ病
- 8432人
- 2位
- 音楽が無いと生きていけない
- 195990人
- 3位
- マイミク募集はここで。
- 89516人