| |
▼あや さん：
こんばんわ
ひょっとして終わった感じ・・・？
>理由は、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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
