[B! VBA] sinzysinzyのブックマーク

VBA応用(ファイルのコピー)

ファイルのコピーはそのものズバリ「FileCopy」ステートメントです。単一ファイルのコピーなら１行で記述できます。 Option Explicit Private Const g_cnsSOUR = "C:\TEMP\AAA\SAMPLE1.txt" ' 元ファイル Private Const g_cnsDEST = "C:\TEMP\BBB\SAMPLE2.txt" ' 先ファイル ' ファイルコピーのサンプル Sub CopySample() ' ファイルをコピー FileCopy g_cnsSOUR, g_cnsDEST ' ←※ End Sub コピー元、コピー先ともにフルパスでファイル名まで指定します。 FSO(FileSystemObject)の場合は「CopyFile」メソッドです。引数は、「コピー元ファイル名」、「コピー先ファイル名」、「上書き指定(OverWrite

sinzysinzy 2010/02/26

VBA応用(ファイルのコピー)

VBA
COPY

リンク

ステータスバーを使って進捗を表示させる - アプリケーションとしてのVBA

◆ステータスバーを使って進捗を表示させる実行時間を早くするために Display の表示を止めると、実行時間が長いマクロを組んだ場合、進捗が分からなくなります。やっぱりあとどのくらいで終了するのか知りたくなるのが人間の心理です。プログレスバーを ProgressBar Control を使用してフォームで表示させる方法もありますが、簡単にできる、ステータスバーを使って進捗を表示させる方法を説明します。 Sub test1() Dim i As Long For i = 1 To 10 Application.StatusBar = i & "/10 の処理終了" Next 'ステータスバーの文字列を既定値に戻すには、プロパティに 'False を設定します。 Application.StatusBar = False End Sub 進捗表示を文字列で表現します。 Applica

sinzysinzy 2009/11/02

ステータスバー

vba

リンク

Office TANAKA - VBA高速化テクニック[配列を使う]

パソコン通信時代に書いた、この「VBA高速化テクニック」の中で、間違って伝わっているな～と感じていたのは、冒頭の「画面を止める」と、これ「配列を使う」です。90年代のパソコンはスペックが低かったです。CPUは遅いし、メモリも少なく低速、Windowsの画面描画機能も遅かったし、そもそもExcelもそれほど速くはなかったです。そんな中で、大量のセルにアクセスするのなら、一度配列に入れて配列を操作する方が速いよって話でした。でも、何となく「配列に入れると速い」ということだけが一人歩きして、とにかく何でも「配列は速い！配列は速い！配列！配列ぅ！」って言われてます。ちょっとやってみましょうか。まずは単純に、データを探す操作から。A列に200,000個の名前が入っています。この中から"田中"を探して、該当するB列の数値を取得します。ちなみに"田中"は一番下のセルA200000にあります。 Sub

sinzysinzy 2009/11/02

vba

リンク

実行時間を表示する - アプリケーションとしてのVBA

◆実行時間を表示するいろいろなマクロを作り始めた頃は、CPU のスピードが遅くて、ちょっとしたマクロでも、1分～2分はかかっていました。重たいマクロを走らせると10分以上はざらで、その頃に挿入していた実行時間を表示するルーチンです。少しでも早く動作させるためにはどうすれば良いかも気になるところです。 Dim StartTime, StopTime As Variant 'ここから実行時間のカウントを開始します StartTime = Time ' ' 仕事をさせたいマクロ ' StopTime = Time StopTime = StopTime - StartTime MsgBox "所要時間は" & Minute(StopTime) & "分" & _ Second(StopTime) & "秒でした"

sinzysinzy 2009/10/29

VBA
TIME

リンク

VBA/高速化 - TOBY SOFT wiki

再計算を一時的に切る方法 † どうやら、再計算が遅いようなので再計算を一時的に切れば、劇的に速くなる模様…。 Application.Calculation = xlManual '計算を手動モードにする For i = i To 1000 ActiveSheet.Cells(i, 1) = i End Sub Application.Calculation = xlAutomatic '計算を自動モードに戻す Calculate 参考： Excel VBAで再計算を一時的に止めたい - 答えてねっと投稿全文表示 ↑ 配列に入れて後で一括代入する方法 † 連続して多数代入する場合は、配列に入れて後で一括代入すると、上記の再計算の抑止よりさらに超速に速いです。一括代入の例： ReDim results(100, 1) as Long ' 動的配列で宣言 For i = 0 To 100

sinzysinzy 2009/10/23