advanced code snippet search

Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread设置通货型单元格

 / Published in: Visual Basic
 
Expand | Embed | Plain Text 
  1. Public Type CellTypeFloatInfo
  2. 	    FloatMax                    As Currency     ' 最大値
  3. 	    FloatMin                    As Currency     ' 最小値
  4. 	    FloatDecimalPlaces          As Integer       ' 小数点桁数
  5. 	    FloatDecimalChar            As String       ' 小数点記号
  6. 	    FloatCurrencyChar           As String       ' 通貨記号
  7. 	    FloatSepChar                As String       ' 区切り文字
  8. 	    FloatMoney                  As Boolean      ' 通貨記号 表示
  9. 	    FloatSeparator              As Boolean      ' 3桁区切り 表示
  10. 	End Type
  11.  
  12.     With info
  13.         .FloatMax = "999999.9"
  14.         .FloatMin = "0"
  15.         .FloatDecimalPlaces = 1
  16.         .FloatDecimalChar = "."
  17.         .FloatSepChar = ","
  18.         .FloatMoney = False
  19.         .FloatSeparator = True
  20.     End With
  21.  
  22. 'スプレッドシートに実数型セルをセットする。
  23. '
  24. '   Syntax:     SetFloatToSpreadCell AnySs, Col&, Row&
  25. '
  26. '   IN:         AnySs       対象となるスプレッドシート
  27. '               Col&        ボタンをセットする列
  28. '               Row&        ボタンをセットする行
  29. '               Var         セットする値
  30. '
  31. Public Sub SetFloatToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, ByRef info As CellTypeFloatInfo)
  32.  
  33.  
  34.     ' 設定を SPREADへ反映します。
  35.     With AnySs
  36.         .Col = Col: .Col2 = Col                            ' 対象列
  37.         .Row = Row: .Row2 = Row                            ' 対象行
  38.         .BlockMode = True                                   ' ﾌﾞﾛｯｸﾓｰﾄﾞ ON
  39.  
  40.         .CellType = CellTypeFloat                           ' ｾﾙﾀｲﾌﾟの設定
  41.  
  42.         .TypeFloatMax = info.FloatMax                       ' 最大値
  43.         .TypeFloatMin = info.FloatMin                       ' 最小値
  44.         .TypeFloatDecimalPlaces = info.FloatDecimalPlaces   ' 小数点桁数
  45.  
  46.         If info.FloatDecimalChar <> "" Then                       ' 小数点記号
  47.             .TypeFloatDecimalChar = Asc(info.FloatDecimalChar)
  48.         Else
  49.             .TypeFloatDecimalChar = 0
  50.         End If
  51.  
  52.         If info.FloatCurrencyChar <> "" Then                      ' 通貨記号
  53.             .TypeFloatCurrencyChar = Asc(info.FloatCurrencyChar)
  54.         Else
  55.             .TypeFloatCurrencyChar = 0
  56.         End If
  57.  
  58.         If info.FloatSepChar <> "" Then                     ' 区切り文字
  59.             .TypeFloatSepChar = Asc(info.FloatSepChar)
  60.         Else
  61.             .TypeFloatSepChar = 0
  62.         End If
  63.  
  64.         .FloatDefDecimalChar = Asc(".")                                  ' ﾃﾞﾌｫﾙﾄ 小数点記号
  65.         .FloatDefCurrencyChar = Asc("\")                            ' ﾃﾞﾌｫﾙﾄ 通貨記号
  66.         .FloatDefSepChar = Asc(",")                   ' ﾃﾞﾌｫﾙﾄ 区切り文字
  67.  
  68.         .TypeFloatMoney = info.FloatMoney                   ' 通貨記号 表示
  69.         .TypeFloatSeparator = info.FloatSeparator           ' 3桁区切り 表示
  70.  
  71.         .TypeHAlign = 1                                     ' 水平配置(右)
  72.         .TypeVAlign = 2                                     ' 垂直配置(中央)
  73.  
  74.         .BlockMode = False                                  ' ﾌﾞﾛｯｸﾓｰﾄﾞ OFF
  75.     End With
  76.  
  77. End Sub

Report this snippet  

You need to login to post a comment.