戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
エクセル365で使用すると応答しない

    [189458] エクセル365で使用すると応答しない-

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

    □投稿者/ マクロ初心者 -(2019/06/07(14:37))
    □U R L/
      エクセル2013で作成したマクロをエクセル365で使用すると処理中で固まります。(エラー等は特にでません...)
      ステップ実行を行うとテストシートを新規ブックにコピーする際に固まります。
      詳しい方、教えていただけると幸いです。
      使用しているマクロは下記になります。
      
      
      
      Sub テスト提出用() 
      ' 
      ' テスト提出用Macro 
      ' 
          Dim strAa As String '変数
          Dim strBa As String '変数
          Dim objCa As Object '変数
          ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort.SortFields.Clear         'G列昇順↓(G列が最初)
          ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort.SortFields.Add Key _
              :=Range("G6:G2000"), SortOn:=xlSortOnValues, Order:=xlAscending, _
              DataOption:=xlSortNormal
          With ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort
              .Header = xlYes
              .MatchCase = False
              .Orientation = xlTopToBottom
              .SortMethod = xlPinYin
              .Apply
          End With
          ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort.SortFields.Clear         'I列昇順↓
          ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort.SortFields.Add Key _
              :=Range("I6:I2000"), SortOn:=xlSortOnValues, Order:=xlAscending, _
              DataOption:=xlSortNormal
          With ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort
              .Header = xlYes
              .MatchCase = False
              .Orientation = xlTopToBottom
              .SortMethod = xlPinYin
              .Apply
          End With
          ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort.SortFields.Clear         'H列降順↓(H列が一番最後)
          ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort.SortFields.Add Key _
              :=Range("H6:H2000"), SortOn:=xlSortOnValues, Order:=xlDescending, _
              DataOption:=xlSortNormal
          With ActiveWorkbook.Worksheets("テスト").ListObjects("テーブル1").Sort
              .Header = xlYes
              .MatchCase = False
              .Orientation = xlTopToBottom
              .SortMethod = xlPinYin
              .Apply
          End With
          Set objCa = CreateObject("WScript.Network")
          strBa = objCa.UserName
          If vbNo = MsgBox("工場提出用に変更しますか?", vbYesNo) Then Exit Sub          'ウィンドウ表示
          Sheets("テスト").Copy                                                        'コピーするシート指定
          strAa = "【提出用】テスト " & Format(Date, "yyyymmdd")                       '保存するファイル名
          ActiveWorkbook.SaveAs Filename:="C:\Users\" & strBa & "\Desktop\" & strAa      'デスクトップ指定
          Selection.EntireColumn.Hidden = False  '再表示
          ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=7 '指定列全表示
          Columns("A:AN").Select                 '列指定
          Selection.EntireColumn.Hidden = False  '再表示
          Columns("AF:AF").Select                '列指定↓
          Selection.Delete Shift:=xlToLeft       '列削除↓
          Columns("Y:Y").Select
          Selection.Delete Shift:=xlToLeft
          Columns("X:X").Select
          Selection.Delete Shift:=xlToLeft
          Columns("W:W").Select
          Selection.Delete Shift:=xlToLeft
          Columns("L:L").Select
          Selection.Delete Shift:=xlToLeft
          Columns("J:J").Select
          Selection.Delete Shift:=xlToLeft
          Columns("E:E").Select
          Selection.Delete Shift:=xlToLeft
          Columns("D:D").Select
          Selection.Delete Shift:=xlToLeft
          Columns("C:C").Select
          Selection.Delete Shift:=xlToLeft
          ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=4, Criteria1:= _
          Array("F", "FE", "="), Operator:=xlFilterValues                 'FE,F,空欄選択
          Rows("7:3000").Select                                           '7から3000までの列を選択
          Selection.Delete Shift:=xlUp                                    'セル列削除
          ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=4  '全てのランク表示
          Range("A1").Select                                    'A1にカーソルを合わせる
          ActiveWorkbook.Save                                                   '上書き保存
          MsgBox "デスクトップ出力完了"                                         'ウィンドウ表示
          Workbooks(strAa & ".xlsx").Close                                      '出力したファイルを閉じる
      End Sub 


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

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



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [189475] Re[1]: エクセル365で使用すると応答しない-

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

    □投稿者/ リスキーダック -(2019/06/09(17:24))
    □U R L/
      >Sheets("テスト").Copy
      >新規ブックにコピーする際に固まります。
      
      「ディスクがいっぱいです。」とのエラーは出ないんですよね。
      2000?のころは、データ量が多いとこれが良く出ました。
      同じデータ量で2013ではうまくいくのでしょうか?
      
      フリーズしているように見えるけど、数十分?まてば処理が終わると思います。
      365でもこの遅さはあまり変わってないのかな?
      




    [189477] Re[2]: エクセル365で使用すると応答しない-

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

    □投稿者/ リスキーダック -(2019/06/09(17:49))
    □U R L/

      後、AppData-Local-Tempフォルダか、他のTempフォルダに下記と同じような名前のファイルがあると思いますから、全部捨てておいた方がいいと思います。

      ~DF0F9F8D4305C7EEED.TMP
      ~DF1D8E395D6EDAA749.TMP
      ~DF2C40986F53E759A6.TMP
      ~DF05DC82E95BB22957.TMP
      ~DFDC26D923097A39BE.TMP




    [189498] Re[3]: エクセル365で使用すると応答しない-

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

    □投稿者/ マクロ初心者 -(2019/06/10(16:59))
    □U R L/

      リスキーダック様
      ご返信ありがとうございます。
      現在エクセル2013と365しか使用しておらず、2013を使用しているPCでは
      問題なく動きます・・・

      ご教授頂いたアドバイス早速試させてもらいます。
      ありがとうございます。




    [189499] Re[4]: エクセル365で使用すると応答しない-

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

    □投稿者/ リスキーダック -(2019/06/10(18:37))
    □U R L/

      更に、コピー前に再計算を手動にしてみては?




    [189501] Re[3]: エクセル365で使用すると応答しない-

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

    □投稿者/ マクロ初心者 -(2019/06/10(20:31))
    □U R L/

      リスキーダック様

      ご返信ありがとうございます。
      動作確認をしたところ20分強ほどで完了しました。

      アドバイス等ありがとうございます。




    [189502] Re[4]: エクセル365で使用すると応答しない-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ マクロ初心者 -(2019/06/10(21:56))
    □U R L/

      リスキーダック様

      申し訳ございません。
      今回規約を確認せずに規約違反行為を行っておりました。
      誠に勝手ではございますが、こちらの質問内容を閉じさせて頂きます。

      貴重な時間を割いて頂いたにも関わらず私の確認不足により不愉快な思いを
      させてしまい申し訳ございません。




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

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

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


- Child Forum -
Edit:ゆう-G