差分
このページの2つのバージョン間の差分を表示します。
| 両方とも前のリビジョン 前のリビジョン 次のリビジョン | 前のリビジョン | ||
| programming:vba:uncategorized [2021/04/15] – atama | programming:vba:uncategorized [2021/04/15] (現在) – atama | ||
|---|---|---|---|
| 行 1: | 行 1: | ||
| ====== 未分類 ====== | ====== 未分類 ====== | ||
| - | |||
| - | <wrap hi> | ||
| CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。 | CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。 | ||
| 行 13: | 行 11: | ||
| </ | </ | ||
| - | 指定したファイルが使用中かどうか判定< | + | 指定したファイルが使用中かどうか判定< |
| <code vb> | <code vb> | ||
| On Error Resume Next | On Error Resume Next | ||
| Err.Clear | Err.Clear | ||
| - | Ope FILENAME For Append As #1 | + | Open FILENAME For Append As #1 |
| Close #1 | Close #1 | ||
| If Err.Number > 0 Then | If Err.Number > 0 Then | ||
| 行 31: | 行 29: | ||
| </ | </ | ||
| - | * イベント(BeforeUpdate, | + | * イベント(BeforeUpdate, |
| * On Error Resume Next | * On Error Resume Next | ||
| * On Error GoTo 0 | * On Error GoTo 0 | ||
| 行 48: | 行 46: | ||
| * Range(CELL).Font.Color = RGB(0, 0, 0) | * Range(CELL).Font.Color = RGB(0, 0, 0) | ||
| * Range(CELL).Interior.Color = RGB(240, 240, 0) | * Range(CELL).Interior.Color = RGB(240, 240, 0) | ||
| - | * Range(CELL).Borders.LineStyle = xlContinuous<wrap hi> | + | * Range(CELL).Borders.LineStyle = xlContinuous |
| + | * Application.FileDialog(fileDialogType) | ||
| - | ファイルを検索する。< | + | ファイルを検索する。< |
| <code vb> | <code vb> | ||
| - | TMP = Dir(PATH & 『*.xlsx』) | + | TMP = Dir(PATH & "*.xlsx") |
| - | Do While TMP <> | + | Do While TMP <> |
| TMP = Dir() | TMP = Dir() | ||
| Loop | Loop | ||