戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
自分の端末とその他の端末でマクロの結果が異なる

    [189388] 自分の端末とその他の端末でマクロの結果が異なる-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ モカ -(2019/05/25(00:05))
    □U R L/

      仕事で使用するツールを、マクロを組み込んで作成しました。
      ところが、他の人の端末で動作させると、自分の端末と違う動きをします。
      具体的には、「activexコントロールのみを削除」というマクロを組んでいるのですが、他の人の端末で動作させると、マクロを割り当てた図形(ボタン)まで削除されてしまいます。
      原因や対応方法がわからず困っています。お力貸して頂ければ幸いです。




    [189389] Re[1]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ リスキーダック -(2019/05/25(00:15))
    □U R L/

      たぶん、(あてずっぽう。)
      巷に多い(格好良く見せるための)オブジェクト名をダイレクトに指定してるからじゃないですか???
      図形(ボタン)と言うものがなんだか解ってないし、削除コードも知らないけれど。




    [189392] Re[2]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ 阿倍野介 -(2019/05/25(07:23))
    □U R L/

      >「activexコントロールのみを削除」というマクロ

      そのプログラムをここに掲載できませんか?




    [189401] Re[3]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ モカ -(2019/05/27(07:16))
    □U R L/
      以下になります
      
      Sub ActiveXコントロールを削除する_アクティブシート()
       Dim shp As Shape
      
       For Each shp In ActiveSheet.Shapes
        If shp.Type = msoOLEControlObject Then
         shp.Delete
        End If
       Next shp
      
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [189402] Re[4]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2019/05/27(22:29))
    □U R L/
      >以下になります
      
      問題ないと思います。
      
      他の人の端末のところに行って、ステップ実行し、
      この部分がTrueにならないのに、
            ↓
      If shp.Type = msoOLEControlObject Then
      
      この部分が実行される現場を押さえるしかないです。(私はあり得ないと思っていますが)
            ↓
      >   shp.Delete


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [189423] Re[5]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ リスキーダック -(2019/05/31(00:05))
    □U R L/

      削除しないで、
      shp.name
      として、全ての名前をどこかのセルに書き込んで、それらを調べてみては?




    [189505] Re[6]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ とおりすがり -(2019/06/11(13:26))
    □U R L/
      実は提示したコードの他にON ERROR RESUME NEXTがあって、
      問題のPCで「shp.Type = msoOLEControlObject」が実行時エラーを起こしていると、無条件に「shp.Delete」が実行されてしまう恐れがあるかも。
      
      Typeが異常値を返したりエラーを起こすことがあるのかは分かりませんが。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [189530] Re[7]: 自分の端末とその他の端末でマクロの結果が異なる-

    記事引用/メール受信=OFF■

    □投稿者/ apple -(2019/06/13(11:36))
    □U R L/

      >「activexコントロールのみを削除」というマクロ

      以下で試してみたらどうでしょうか?

        ActiveSheet.OLEObjects.Delete



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G