Excel VBA質問箱 IV

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

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


16451 / 76733 ←次へ | 前へ→

【65749】Re:最終セル
発言  REV  - 10/6/25(金) 2:02 -

引用なし
パスワード
   ▼あや さん:

こんばんわ

ひょっとして終わった感じ・・・?

>理由は、1.保存以外のタイミングで保存はしたくない
>       (VBA内だと利用者が知らないうちに保存されていまう)
>     2.毎回保存をすると遅い

一応、まったく同じ理由でうちで使ってるコード出しておきますね^^
やりたいことが違ってたらごめんなさいm(_ _)m

Dim moto As String

Rows(5).Delete '試しに5行目消してみる

Selection.SpecialCells(xlCellTypeLastCell).Select  '位置ずれ確認

Application.ScreenUpdating = False
Application.DisplayAlerts = False

moto = ActiveSheet.Name
ActiveSheet.Copy after:=ActiveSheet

ActiveSheet.Name = moto & "B"
Worksheets(moto).Delete

Worksheets(moto & "B").Name = moto

Selection.SpecialCells(xlCellTypeLastCell).Select '結果の確認

Application.DisplayAlerts = True
Application.ScreenUpdating = True

汎用に書き換えてありますが
原理はこれで行けるかと^^

うちのデータは
対象のシート名も固定なので
もう少し簡素化されてます。

ちなみに扱ってるデータは
A〜Nまでで500件程度のレコードです。

まぁ、サクッと動くからいいかなぁ
くらいで使ってますw

ごっそりコピってるなんて
きっとバレてないwうんうんw

jaka さん
こんばんわですw
実は質問でこのサイトに来たんですが
似たような経験があったんで^^;
でわでわ、またどこかで宜しくです^^v

2 hits

【65729】最終セル あや 10/6/24(木) 10:03 質問
【65730】Re:最終セル ponpon 10/6/24(木) 10:27 発言
【65731】Re:最終セル Jaka 10/6/24(木) 10:34 発言
【65733】Re:最終セル あや 10/6/24(木) 10:43 発言
【65737】Re:最終セル ponpon 10/6/24(木) 12:15 発言
【65749】Re:最終セル REV 10/6/25(金) 2:02 発言
【65750】追伸 REV 10/6/25(金) 2:35 発言
【65751】追伸の追伸 REV 10/6/25(金) 3:00 発言

16451 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free