Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread设置通货型单元格


 / Published in: Visual Basic
 

  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.