数値を表示しきれない場合に「###」と表示したい – MESCIUS ナレッジベース

作成日: 2022/01/21 最終更新日: 2022/02/24

文書種別

使用方法

詳細

数値型セルや通貨型セルのOverflowCharacterプロパティを使用することで、セルの幅に文字がおさまらなかった場合に置換する文字を設定することができます。

◎サンプルコード(VB)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　' セル型の設定
　　Dim nmbrcell As New FarPoint.Win.Spread.CellType.NumberCellType()
　　nmbrcell.OverflowCharacter = "#"c
　　FpSpread1.ActiveSheet.Columns(0).CellType = nmbrcell
　　Dim currcell As New FarPoint.Win.Spread.CellType.CurrencyCellType()
　　currcell.OverflowCharacter = "#"c
　　FpSpread1.ActiveSheet.Columns(1).CellType = currcell

　　' テストデータの設定
　　FpSpread1.ActiveSheet.Cells(0, 0).Value = 123456789
　　FpSpread1.ActiveSheet.Cells(0, 1).Value = 123456789

　　' 列幅の設定
　　FpSpread1.ActiveSheet.Columns(0).Width = 50
　　FpSpread1.ActiveSheet.Columns(1).Width = 50
End Sub

◎サンプルコード(C#)

private void Form1_Load(object sender, EventArgs e)
{
　　// セル型の設定
　　FarPoint.Win.Spread.CellType.NumberCellType nmbrcell = new FarPoint.Win.Spread.CellType.NumberCellType();
　　nmbrcell.OverflowCharacter = '#';
　　fpSpread1.ActiveSheet.Columns[0].CellType = nmbrcell;
　　FarPoint.Win.Spread.CellType.CurrencyCellType currcell = new FarPoint.Win.Spread.CellType.CurrencyCellType();
　　currcell.OverflowCharacter = '#';
　　fpSpread1.ActiveSheet.Columns[1].CellType = currcell;

　　// テストデータの設定
　　fpSpread1.ActiveSheet.Cells[0, 0].Value = 123456789;
　　fpSpread1.ActiveSheet.Cells[0, 1].Value = 123456789;

　　// 列幅の設定
　　fpSpread1.ActiveSheet.Columns[0].Width = 50;
　　fpSpread1.ActiveSheet.Columns[1].Width = 50;
}