Страницы: 1
RSS
Как посмотреть-вывести все значения свойств форматирования ячейки?
 
Нужно сравнить изменения стиля с дефолтной.  
Может это как-то возможно через стили, не знаю.  
Но все свойства стиля, тоже посмотреть не знаю как.  
Все это нужно через VBA.
 
Включите запись макрорекордера, измените формат ячейки и увидите сколько параметров (даже без их изменения) запишется.  
Вот их и отслеживайте.
Bite my shiny metal ass!      
 
Так не получается.  
Если нужно насоздавать, то да, а нужно именно уже созданной.
 
Вы не читаете, что предлагают.  
Вот что записал я:  
   Selection.NumberFormat = "0.00"  
   With Selection  
       .HorizontalAlignment = xlLeft  
       .VerticalAlignment = xlBottom  
       .WrapText = False  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
       .MergeCells = False  
   End With  
   With Selection.Font  
       .Name = "Arial Cyr"  
       .FontStyle = "курсив"  
       .Size = 10  
       .Strikethrough = False  
       .Superscript = False  
       .Subscript = False  
       .OutlineFont = False  
       .Shadow = False  
       .Underline = xlUnderlineStyleNone  
       .ColorIndex = xlAutomatic  
   End With  
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone  
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone  
   With Selection.Borders(xlEdgeLeft)  
       .LineStyle = xlContinuous  
       .Weight = xlThin  
       .ColorIndex = xlAutomatic  
   End With  
   With Selection.Borders(xlEdgeTop)  
       .LineStyle = xlContinuous  
       .Weight = xlThin  
       .ColorIndex = xlAutomatic  
   End With  
   With Selection.Borders(xlEdgeBottom)  
       .LineStyle = xlContinuous  
       .Weight = xlThin  
       .ColorIndex = xlAutomatic  
   End With  
   With Selection.Borders(xlEdgeRight)  
       .LineStyle = xlContinuous  
       .Weight = xlThin  
       .ColorIndex = xlAutomatic  
   End With  
   With Selection.Interior  
       .ColorIndex = 42  
       .Pattern = xlSolid  
       .PatternColorIndex = xlAutomatic  
   End With  
   Selection.Locked = False  
   Selection.FormulaHidden = False  
отвекитесь от значений после знака "=".  
Все что до него контролируйте.  
например, так:  
If Range("контролируемая ячейка").NumberFormat <> Range("дефолтная").NumberFormat Then MsgBox "Есть изменения"
Bite my shiny metal ass!      
 
А вот, что у меня.  
   Range("B10").Select  
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone  
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone  
   With Selection.Borders(xlEdgeLeft)  
       .LineStyle = xlContinuous  
       .ColorIndex = 15  
       .TintAndShade = 0  
       .Weight = xlThin  
   End With  
   Selection.Borders(xlEdgeTop).LineStyle = xlNone  
   Selection.Borders(xlEdgeBottom).LineStyle = xlNone  
   With Selection.Borders(xlEdgeRight)  
       .LineStyle = xlContinuous  
       .ColorIndex = 15  
       .TintAndShade = 0  
       .Weight = xlThin  
   End With  
   Selection.Borders(xlInsideVertical).LineStyle = xlNone  
   Selection.Borders(xlInsideHorizontal).LineStyle = xlNone  
   With Selection.Interior  
       .Pattern = xlNone  
       .TintAndShade = 0  
       .PatternTintAndShade = 0  
   End With  
 
Видно только то, что изменил
 
В хелпе найти border, interior, font и посмотреть их properties. Это то, что может поменяться.  
Либо создать    
dim a as border  
a.  
после . высветиться список пропертей.
 
to Prog  
нда, как вариант.  
А если на базе ячейки создать стиль?  
Там тоже только этими тремя параметрами оперируется?
 
{quote}{login=АК}{date=28.01.2009 05:46}{thema=}{post}А вот, что у меня.  
     
 
Видно только то, что изменил{/post}{/quote}Просто я прошелся по всем вкладкам формата ячеек, если бы я ограничился только границами, получил бы тоже самое.
Bite my shiny metal ass!      
 
Хорошо, вопрос остался открытым, но попробуем решить через стили.  
Как можно сохранить созданный стиль глобально?
Страницы: 1
Читают тему
Наверх