よのじやの備忘録

Excelで時々悩まされるこのメッセージ この時は、1列削除したかった。 したかっただけなのに 「実行しようとしている操作では多数のセルを処理するため、 完了に長い時間がかかる可能性があります。続行しますか？」 …ってさ、 たったの303行だよ💢 まあ、「可能性がある」ということなので 「時間がかからない可能性」に賭け [OK]をクリック なお、60秒なにもしないと勝手に実行される模様。 すると 「リソース不足のため、このタスクを完了することができません。選択するデータを少なくするか、 ほかのアプリケーションを終了して再度試してください。」 ここで「元に戻さずに続けますか？」→[OK]なんてしてしまうと… フリーズ 他のアプリケーションを終了というので、OUTLOOKやエクスプローラーなどを閉じても 変わらない いや、 さらに遅くなる。 しょうがないのでグーグル先生にお伺いを立てると 「いらない行を削除してみる」 なるほど   304行目から 1047048行目を 選択して削除   すると…   「リソース不足のため、このタスクを完了することができません。選択するデータを少なくするか、 ほかのアプリケーションを終了して再度試してください。」 堂々巡り！！！！ けっきょく…   データの範囲をコピーして   新しいExcelファイルに貼り付けて終了しましたよ。   ええ。なんにも解決になっておりません。   ただ、互換性モードのファイルの時に、多発する気がするんですよね。 共通のサーバーにいれていて、複数の人が閲覧するとか、そういうファイル。   1047048行目を 選択すること自体ちょっとおかしい。（こだわる）   あ、そっか。Excelがそこまで認識しちゃってるのか。 それをなんとかすればいいのか…？   根本から解決したらまた書く。 けど、まあ、 うわべは解決したから追及しないとは思います。   OA事務歴10年。まだまだ...

新しいブックを作成する  Workbooks.Add  End Sub 上書き保存 　Active Workbook. Save    End Sub 名前を付けて保存　（ここではセルA2に入れた文字をファイル名として使う） 　Active Workbook. SaveAs Filename:=    Dim BookName As String   (ブックネームは次の変数が入りますよの意味） 　BookName=Range("A2").Value (ブックネームには”A2"セルと同じものが入りますの意味） 　End Sub セルに今日の日付を入れる（ここではセルA6) 　 　Range("A6").Select    ActiveCell. FormulaR1C1 = "=TODAY()"  (選択したセルにTODAYの関数を入れますよの意味） End Sub 画像を張り付ける 　 　ActiveSheet. Pictures. Insert( _   "C:\Users\Public\Pictures\Sample Pictures\ooo.jpg). Select （↑貼りたい画像のパス。\は半角の￥マーク。なぜちょっと日本仕様なのかナゾ） End Sub メッセージボックスを表示させる。 　MsgBox "HELLO!"(入れたいメッセージ）

OA事務員のよのじです。 毎日ExcelやAutoCADと格闘しています。 備忘録としてここに記録していきたいと思います。 よろしくお願いしますします！