未分類

文書の過去の版を表示しています。

※要調査：なぜかアポストロフィーとダブルクォーテーションを使うと403Errorになってしまう。

CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。

X = Cells(Rows.Count, CLM).End(xlUp).Row

ROW行のデータ数を数える。ROW行を右から左に向かって検索して、データが存在する最初のセルの列数を返す。

X = Cells(ROW, Columns.Count).End(xlToLeft).Column

指定したファイルが使用中かどうか判定（「ブックが開かれているかどうか調べる」Office TANAKA）コメントアウト

On Error Resume Next
Err.Clear
Open FILENAME For Append As #1
Close #1
If Err.Number > 0 Then
'    誰かが使用中
Else
    誰も使用していない
End If

画面の描画を止めて処理を高速化。処理後にTrueに戻すのを忘れないこと。

Application.ScreenUpdating = False

テキストボックス等の指定を変数で行う。TextBoxをダブルクォーテーションで囲む。

Me.Controls(TextBox & i).Value