作成日: 2020/05/15 最終更新日: 2021/05/26
文書種別
不具合
状況
修正済み
詳細
日付時刻型セルのDateTimeFormatプロパティに既定の書式であるLongDateまたはLongDateWithTimeを設定すると、年を正しく入力できません。また、Excelエクスポートで不要なシングルクォーテーションが付加され不正な値が出力されます。
【再現手順】
１．新規作成したプロジェクトのForm1にFpSpreadを張り付ける
２．下記サンプルコードを記述し、プロジェクトをデバック実行する
--エクスポートしたExcelで日付に不要なシングルクォーテーションが付加される
３．実行画面のA1セルをアクティブにして編集を開始しBackspaceキーで年月日を消す
４．A1セルの先頭にカーソルがある状態から年を入力する
--年の入力ができない
■サンプルコード（VB.NET）
【再現手順】
１．新規作成したプロジェクトのForm1にFpSpreadを張り付ける
２．下記サンプルコードを記述し、プロジェクトをデバック実行する
--エクスポートしたExcelで日付に不要なシングルクォーテーションが付加される
３．実行画面のA1セルをアクティブにして編集を開始しBackspaceキーで年月日を消す
４．A1セルの先頭にカーソルがある状態から年を入力する
--年の入力ができない
■サンプルコード（VB.NET）
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 日付型セルの設定
Dim dateCell1 As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDateWithTime
'dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDate
FpSpread1.ActiveSheet.Columns(0).CellType = dateCell1
FpSpread1.ActiveSheet.Columns(0).Width = 200
' 値の設定
FpSpread1.ActiveSheet.SetValue(0, 0, DateTime.Today)
' Excelファイルへの出力
Dim fileName As String = "test.xlsx"
FpSpread1.SaveExcel(fileName, FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
' Excelファイルの表示
Process.Start(fileName)
End Sub
End Class
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 日付型セルの設定
Dim dateCell1 As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDateWithTime
'dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDate
FpSpread1.ActiveSheet.Columns(0).CellType = dateCell1
FpSpread1.ActiveSheet.Columns(0).Width = 200
' 値の設定
FpSpread1.ActiveSheet.SetValue(0, 0, DateTime.Today)
' Excelファイルへの出力
Dim fileName As String = "test.xlsx"
FpSpread1.SaveExcel(fileName, FarPoint.Excel.ExcelSaveFlags.UseOOXMLFormat)
' Excelファイルの表示
Process.Start(fileName)
End Sub
End Class
回避方法
Service Pack 4（v11.0.4505.2012）で修正済み。
Service Pack 4 を適用せずに対処する方法としては、ユーザー定義の書式を設定することで回避可能です。
'日付型セルの作成
Dim dateCell1 As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDate
'回避策1
dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
dateCell1.UserDefinedFormat = "yyyy年M月d日"
'日付型セルの作成
Dim dateCell2 As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell2.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDateWithTime
'回避策2
dateCell2.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
dateCell2.UserDefinedFormat = "yyyy年M月d日 H:mm:ss"
Dim dateCell1 As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDate
'回避策1
dateCell1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
dateCell1.UserDefinedFormat = "yyyy年M月d日"
'日付型セルの作成
Dim dateCell2 As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell2.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.LongDateWithTime
'回避策2
dateCell2.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
dateCell2.UserDefinedFormat = "yyyy年M月d日 H:mm:ss"
旧文書番号
85582