差分
このページの2つのバージョン間の差分を表示します。
| 両方とも前のリビジョン 前のリビジョン 次のリビジョン | 前のリビジョン | ||
| programming:vba:uncategorized [2021/04/15] – atama | programming:vba:uncategorized [2021/04/15] (現在) – atama | ||
|---|---|---|---|
| 行 1: | 行 1: | ||
| ====== 未分類 ====== | ====== 未分類 ====== | ||
| - | |||
| - | <wrap hi> | ||
| CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。 | CLM列のデータ数を数える。CLM列を下から上に向かって検索して、データが存在する最初のセルの行数を返す。 | ||
| 行 17: | 行 15: | ||
| On Error Resume Next | On Error Resume Next | ||
| Err.Clear | Err.Clear | ||
| - | Ｏｐｅｎ | + | 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 | ||
| - | * Ｏｐｅｎ | + | * Open / ReadOnly, IgnoreReadOnlyRecommended, |
| * Close / SaveChanges | * Close / SaveChanges | ||
| * UBound | * UBound | ||
| 行 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.LineＳｔｙｌｅ | + | * Range(CELL).Borders.LineStyle |
| + | * Application.FileDialog(fileDialogType) | ||
| ファイルを検索する。< | ファイルを検索する。< | ||