seen from China
seen from Japan
seen from United States
seen from United States
seen from United States
seen from Singapore
seen from United States
seen from United States
seen from China
seen from China
seen from United States
seen from United States
seen from China
seen from United States
seen from China
seen from China
seen from United States
seen from United States
seen from Russia
seen from Yemen
原因① Dir関数がファイルへのアクセスを保持してしまう場合 いくつかtxtファイルが抽出された場合、 なんらかのハンドルがつかまれてしまうようで 参照しなかったファイルにロックがかかってしまいます。 これを防ぐには ループを抜けたあとに Dir (vbNullString) を呼び出してやることで解放が行えるようです。 TakyuLog/Dir関数での解放 ようするにこういうこと Dir (vbNullString) ' RmDir を呼び出す前にこいつを実施 RmDir DirectoryPath
Anya is live and ready to show you everything. Watch her strip, dance, and perform exclusive shows just for you. Interact in real-time and make your fantasies come true.
Free to watch • No registration required • HD streaming
Findメソッドが失敗したときの対応
◇注意点 Findメソッドの結果を受ける変数は、Range型またはVariant型で宣言する
結果を変数に格納するときはsetが必要となる
Findメソッドで、指定した値が見つからなかったときはNothingを返す。
◇例 Dim rFind as range
set rFind as .range([範囲指定]).find("ほげほげ")
if rFind is nothing then '見つからなかったときの処理 else '見つかったときの処理 end if
動的配列
dim hoge() '最初に配列の数を指定しないで宣言
i = function_hogehoge() '配列の数が決まったら
Redim hoge(i) '再宣言して配列の数を決める
配列の添え字の数を返す関数
UBound：配列の添え字の最大数を返す LBound：配列の添え字の最小数を返す
参考： http://msdn.microsoft.com/ja-jp/library/cc437658(v=vs.71).aspx
バリアント型を配列として扱うときに使える
Split関数で文字列を区切る
◇Spilit関数 spilit(元の文字列,区切り文字)
◇Spilit関数の戻り値は配列。 通常は、バリアント型で受ける。
◇使用例 dim moji as variant
moji = spilit("あああ,いいい,ううう",",")
Anya is live and ready to show you everything. Watch her strip, dance, and perform exclusive shows just for you. Interact in real-time and make your fantasies come true.
Free to watch • No registration required • HD streaming
罫線の線の種類
.range(cell).border1.LineStyle = 定数
として設定する
定数 罫線の種類 xlContinuous 実線(細) xlDash 破線 xlDashDot 一点鎖線 xlDashDotDot 二点鎖線 xlDot 点線 xlDouble 二重線 xlSlantDashDot 斜め斜線 xlLineStyleNone 無し
ユーザ型でセル位置を保存する入れ物を作っておくと便利
たとえばこんな感じに
type CellsData iRow as integer icol as integer end type
fsoを使うときの準備
Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject")
