未分類

※要調査：半角で使ってはいけないと思われる単語：Ｏｐｅｎ、Ｓｔｙｌｅ

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

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

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

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

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

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

テキストボックス等の指定を変数で行う。

Me.Controls("TextBox" & i).Value

• イベント(BeforeUpdate, AfterUpdate, DblClick, Workbook_Ｏｐｅｎ)
• On Error Resume Next
• On Error GoTo 0
• Ｏｐｅｎ / ReadOnly, IgnoreReadOnlyRecommended, Filename, UpdateLinks
• Close / SaveChanges
• UBound
• Select Case / Case Is / Case Like
• 図
• cells.UseStandardHeight = True
• cells.UseStandardWidth = True
• cells.clear
• SHEET.Hyperlinks.Add Anchor:=SHEET.Cells(X, Y), Address:=FILENAME
• InStr, CDate, Narrow
• StrConv(UCase(Cells(X, Y)), vbNarrow)
• Range(CELL).Font.Bold = True
• Range(CELL).Font.Color = RGB(0, 0, 0)
• Range(CELL).Interior.Color = RGB(240, 240, 0)
• Range(CELL).Borders.LineＳｔｙｌｅ = xlContinuous

ファイルを検索する。「ファイルの一覧を取得する」Office TANAKA

TMP = Dir(PATH & "*.xlsx")
Do While TMP <> ""
    TMP = Dir()
Loop

テキストファイルに書き込む。下記コードは同名ファイル(前回作ったファイルと想定)を削除してから処理を行なっている。「テキストファイルを操作する(開く)」Office TANAKA

Kill FILENAME
Open FILENAME For Append As #1
    Print #1, TXT
Close #1

テキストファイルを読み込む。「テキストファイルを操作する(開く)」Office TANAKA

Open TXTFILE For Input As #1
Line Input #1, TXT
Close #1

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

Application.ScreenUpdating = False

自動再計算を止める。処理後にxlCalculationAutomaticに戻すのを忘れないこと。

Application.Calculation = xlCalculationManual