|
|
|
Junior Member
 
участник
Last Login: 10.07.2006 14:00
Сообщ.: 14,
Visits: 131
|
|
Необходимо отформатировать в создаваемом листе ячейку так, чтобы она сразу показывала
единицы измерения, напр. при присвоении значения 50 показывала "50.00 m". Из Excel это делается через свойства ячейки и введение доп. формата во "(все форматы)" вида 0.00" m" - а как этот же эффект получить из VB (кавычки в кавычках он не воспринимает) ?
Dim WSheet As New Microsoft.Office.Interop.Excel.Worksheet
WSheet = EXL.Application.Workbooks.Add.Worksheets.Add
EXL.Application.Visible = True
WSheet.Name = System.IO.Path.GetFileNameWithoutExtension(CurFile)
With WSheet
.Range("c1").HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignRight
.Range("c1").Font.Name = "Arial"
.Range("c1").Font.FontStyle = "Bold"
.Range("c1").Font.Size = 14
.Range("c1").Cells.NumberFormat = "0.00" ' вот здесь надо аналог 0.00" m"
.Range("c1").Value = 50
End With
|
|
|
|
|
Supreme Being
модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240,
Visits: 65 445
|
|
Чтобы вставить кавычку внутрь строки ее нужно удвоить.
Range("c1").Cells.NumberFormat = "0.00"" m"""
|
|
|
|