Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16456 / 76738

←次へ　｜　前へ→


	【65749】Re:最終セル

REV - 10/6/25(金) 2:02 -


	引用なし

	パスワード

▼あやさん：

こんばんわ

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

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

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

Dim moto As String

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

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

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

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

ちなみに扱ってるデータは
Ａ～Ｎまでで５００件程度のレコードです。

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

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

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

0 hits

▼

【65729】最終セル あや 10/6/24(木) 10:03