|
Excel2000を使用しています。
8桁の数字が入っている列を日付のように変更する処理を作成しています。
max_gyo = Workbooks(base_book).Sheets(st).Range("F65536").End(xlUp).Row
With Range("F5:F" & max_gyo) '日付編集 yyyymmdd -> yyyy/mm/dd
.Offset(, 0).Value = Application.Text(.Value, "0000""/""00""/""00")
End With
上記の処理で8桁の数字項目が日付に変換されるのですが、件数が多いと
「.Offset(, 0).Value = Application.Text(.Value, "0000""/""00""/""00")」
の行で「型が一致しません」とエラーになってしまいます。5400件ぐらいまでは
変換可能なのですが、制限があるのでしょうか?
制限があるとして、解消法はあるのでしょうか?
とりあえず、1レコードづつ、間に「/」を入れる処理を全件に行うようにFor文を
使用して対応しようと思ってますが、簡潔な対応法がありましたら、教えていただきたいと思います。
よろしくお願いします。
|
|