#vbatips

[vba-memo-blog]

原因① Dir関数がファイルへのアクセスを保持してしまう場合 いくつかtxtファイルが抽出された場合、 なんらかのハンドルがつかまれてしまうようで 参照しなかったファイルにロックがかかってしまいます。 これを防ぐには ループを抜けたあとに Dir (vbNullString) を呼び出してやることで解放が行えるようです。 TakyuLog/Dir関数での解放 ようするにこういうこと Dir (vbNullString) ' RmDir を呼び出す前にこいつを実施 RmDir DirectoryPath

[vba-memo-blog]

Findメソッドが失敗したときの対応

◇注意点 Findメソッドの結果を受ける変数は、Range型またはVariant型で宣言する

結果を変数に格納するときはsetが必要となる

Findメソッドで、指定した値が見つからなかったときはNothingを返す。

◇例 Dim rFind as range

set rFind as .range([範囲指定]).find("ほげほげ")

if rFind is nothing then  '見つからなかったときの処理 else  '見つかったときの処理 end if

[vba-memo-blog]

動的配列

dim hoge() '最初に配列の数を指定しないで宣言

i = function_hogehoge() '配列の数が決まったら

Redim hoge(i) '再宣言して配列の数を決める

[vba-memo-blog]

配列の添え字の数を返す関数

UBound：配列の添え字の最大数を返す LBound：配列の添え字の最小数を返す

参考： http://msdn.microsoft.com/ja-jp/library/cc437658(v=vs.71).aspx

バリアント型を配列として扱うときに使える

[vba-memo-blog]

Split関数で文字列を区切る

◇Spilit関数 spilit(元の文字列,区切り文字)

◇Spilit関数の戻り値は配列。 通常は、バリアント型で受ける。

◇使用例 dim moji as variant

moji = spilit("あああ,いいい,ううう",",")

[vba-memo-blog]

罫線の線の種類

.range(cell).border1.LineStyle =　定数

として設定する

定数 罫線の種類 xlContinuous 実線(細) xlDash 破線 xlDashDot 一点鎖線 xlDashDotDot 二点鎖線 xlDot 点線 xlDouble 二重線 xlSlantDashDot 斜め斜線 xlLineStyleNone 無し

[vba-memo-blog]

ユーザ型でセル位置を保存する入れ物を作っておくと便利

たとえばこんな感じに

type CellsData  iRow as integer  icol as integer end type

[vba-memo-blog]

fsoを使うときの準備

Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject")