Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5701 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49185】マクロボタンが自然に消える MKT 07/5/26(土) 16:14 質問[未読]
【49192】Re:マクロボタンが自然に消える りん 07/5/27(日) 6:41 発言[未読]
【49220】Re:マクロボタンが自然に消える MKT 07/5/28(月) 0:43 発言[未読]
【49234】Re:マクロボタンが自然に消える MKT 07/5/28(月) 9:40 発言[未読]
【49235】Re:マクロボタンが自然に消える Jaka 07/5/28(月) 10:03 発言[未読]
【49246】Re:マクロボタンが自然に消える MKT 07/5/28(月) 19:21 質問[未読]
【49397】Re:マクロボタンが自然に消える MKT 07/6/3(日) 22:44 お礼[未読]
【49185】マクロボタンが自然に消える
質問  MKT  - 07/5/26(土) 16:14 -
引用なし
パスワード
   受注管理マクロを作成し、見積書作成、出荷等のマクロを
つく注残リスト上にボタンをつくりました。
注残リストからｵｰﾄﾌｨﾙﾀで出荷分を抽出するのですが、一旦
ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
マクロのみ自然に消えてしまいます。
このような経験のある方、対処法をご教示ください。
よろしうお願いします。
【49192】Re:マクロボタンが自然に消える
発言  りん E-MAIL  - 07/5/27(日) 6:41 -
引用なし
パスワード
   MKT さん、おはようございます。
>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>マクロのみ自然に消えてしまいます。

本当に無くなっているわけではなく、見えないだけか高さか幅が０になっている可能性もあるので、下のコードを実行して、イミディエイトウィンドウで内容を確認してみてください。
Sub test()
　 Dim sh As Shape
　 For Each sh In Application.ActiveSheet.Shapes
　　　With sh
　　　　 Select Case .Type
　　　　　　Case 8, 12
　　　　　　　 Debug.Print .Name; vbTab; .TopLeftCell.Address(False, False); vbTab; "H:" & .Height; vbTab; "W:" & .Width
　　　　 End Select
　　　End With
　 Next
End Sub
結果が表示されて、
　数が足りない　→　消えている
　HまたはWの数値が0　→　高さか幅が０なので見えない
　数はあっている　→　非表示になっている
です。

わからなかったら、イミディエイトに表示された結果を貼ってみてください。
【49220】Re:マクロボタンが自然に消える
発言  MKT  - 07/5/28(月) 0:43 -
引用なし
パスワード
   りんさん

ご回答ありがとうございます。初心者が
仕事の煩雑さに嫌気がさし、半年かけて
作成したマクロでつぎはぎだらけです。

書いた質問自体もわかっていただける方は
いないものと半分あきらめておりました。
明日会社でためしてみます。
ありがとうございます。


▼りん さん：
>MKT さん、おはようございます。
>>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>>マクロのみ自然に消えてしまいます。
>
>本当に無くなっているわけではなく、見えないだけか高さか幅が０になっている可能性もあるので、下のコードを実行して、イミディエイトウィンドウで内容を確認してみてください。
>Sub test()
>　 Dim sh As Shape
>　 For Each sh In Application.ActiveSheet.Shapes
>　　　With sh
>　　　　 Select Case .Type
>　　　　　　Case 8, 12
>　　　　　　　 Debug.Print .Name; vbTab; .TopLeftCell.Address(False, False); vbTab; "H:" & .Height; vbTab; "W:" & .Width
>　　　　 End Select
>　　　End With
>　 Next
>End Sub
>結果が表示されて、
>　数が足りない　→　消えている
>　HまたはWの数値が0　→　高さか幅が０なので見えない
>　数はあっている　→　非表示になっている
>です。
>
>わからなかったら、イミディエイトに表示された結果を貼ってみてください。
【49234】Re:マクロボタンが自然に消える
発言  MKT  - 07/5/28(月) 9:40 -
引用なし
パスワード
   りんさん

MKTです。
大変勉強になります。デバックという手法自体が
理解できず、またイミディエイトウィンドウというのも
初めて開きました。重ねて感謝です。ありがとうございます。
ところで標準ﾓｼﾞｭｰﾙで実行したところ、Debag.Printのところで
エラー1004がでてしまいました。
下記はその時点でのイミディエイトウィンドウのコピーです。
なにか不都合な部分ありましたらご指摘頂きたく。
お忙しいところ申し訳ないのですが、ご教示ください。


Button 161　　C2　　H:18　　W:68.25
Button 586　　D2　　H:18.75　　W:66
Button 161　　C2　　H:18　　W:68.25
Button 586　　D2　　H:18.75　　W:66

▼MKT さん：
>りんさん
>
>ご回答ありがとうございます。初心者が
>仕事の煩雑さに嫌気がさし、半年かけて
>作成したマクロでつぎはぎだらけです。
>
>書いた質問自体もわかっていただける方は
>いないものと半分あきらめておりました。
>明日会社でためしてみます。
>ありがとうございます。
>
>
>▼りん さん：
>>MKT さん、おはようございます。
>>>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>>>マクロのみ自然に消えてしまいます。
>>
>>本当に無くなっているわけではなく、見えないだけか高さか幅が０になっている可能性もあるので、下のコードを実行して、イミディエイトウィンドウで内容を確認してみてください。
>>Sub test()
>>　 Dim sh As Shape
>>　 For Each sh In Application.ActiveSheet.Shapes
>>　　　With sh
>>　　　　 Select Case .Type
>>　　　　　　Case 8, 12
>>　　　　　　　 Debug.Print .Name; vbTab; .TopLeftCell.Address(False, False); vbTab; "H:" & .Height; vbTab; "W:" & .Width
>>　　　　 End Select
>>　　　End With
>>　 Next
>>End Sub
>>結果が表示されて、
>>　数が足りない　→　消えている
>>　HまたはWの数値が0　→　高さか幅が０なので見えない
>>　数はあっている　→　非表示になっている
>>です。
>>
>>わからなかったら、イミディエイトに表示された結果を貼ってみてください。
【49235】Re:マクロボタンが自然に消える
発言  Jaka  - 07/5/28(月) 10:03 -
引用なし
パスワード
   ▼MKT さん：
>受注管理マクロを作成し、見積書作成、出荷等のマクロを
>つく注残リスト上にボタンをつくりました。
>注残リストからｵｰﾄﾌｨﾙﾀで出荷分を抽出するのですが、一旦
>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>マクロのみ自然に消えてしまいます。
もう1度、そのボタンを作り直してみてください。
直る場合もあります。
全部の方が良かったのかもしれない？
（解決したリンク先を探すのを手抜きしました。
　もう残ってないかも知れないけど。）
【49246】Re:マクロボタンが自然に消える
質問  MKT  - 07/5/28(月) 19:21 -
引用なし
パスワード
   jakaさん

ありがとうございます。今、それを確認している
ところでした。うまく行きそうな気もしますが、
後日、確実なところを連絡させていただきます。
ただ、りんさんが提案してくれたイミディエイトウィンドウ
のデバック手法は興味があります。
何故、何にも関係のないマクロボタンが消えたのか
この手法で探すしかない様な気もするのです。（再発防止の為）
みなさんがどうやってこのデバック手法を手に入れたのか
教えて頂けませんか？


▼Jaka さん：
>▼MKT さん：
>>受注管理マクロを作成し、見積書作成、出荷等のマクロを
>>つく注残リスト上にボタンをつくりました。
>>注残リストからｵｰﾄﾌｨﾙﾀで出荷分を抽出するのですが、一旦
>>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>>マクロのみ自然に消えてしまいます。
>もう1度、そのボタンを作り直してみてください。
>直る場合もあります。
>全部の方が良かったのかもしれない？
>（解決したリンク先を探すのを手抜きしました。
>　もう残ってないかも知れないけど。）
【49397】Re:マクロボタンが自然に消える
お礼  MKT  - 07/6/3(日) 22:44 -
引用なし
パスワード
   りんさん、jakaさん

マクロボタンを再建することで、解決
したようです。
ありがとうございました。


▼MKT さん：
>jakaさん
>
>ありがとうございます。今、それを確認している
>ところでした。うまく行きそうな気もしますが、
>後日、確実なところを連絡させていただきます。
>ただ、りんさんが提案してくれたイミディエイトウィンドウ
>のデバック手法は興味があります。
>何故、何にも関係のないマクロボタンが消えたのか
>この手法で探すしかない様な気もするのです。（再発防止の為）
>みなさんがどうやってこのデバック手法を手に入れたのか
>教えて頂けませんか？
>
>
>▼Jaka さん：
>>▼MKT さん：
>>>受注管理マクロを作成し、見積書作成、出荷等のマクロを
>>>つく注残リスト上にボタンをつくりました。
>>>注残リストからｵｰﾄﾌｨﾙﾀで出荷分を抽出するのですが、一旦
>>>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>>>マクロのみ自然に消えてしまいます。
>>もう1度、そのボタンを作り直してみてください。
>>直る場合もあります。
>>全部の方が良かったのかもしれない？
>>（解決したリンク先を探すのを手抜きしました。
>>　もう残ってないかも知れないけど。）
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5701 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free