| Вопрос: глюк с форматом CURRENCY | Добавлено: 29.04.11 17:09 |
Автор вопроса:  mattiasrem
|
|
Range("B2").Select
ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(MID(RC[-1],FIND(""ïëàòåæà"",RC[-1],1)+8,30)),"""",MID(RC[-1],FIND(""ïëàòåæà"",RC[-1],1)+8,30))" Range("B2").Select Selection.AutoFill Destination:=Range("B2:B437"), Type:=xlFillDefault Range("B2:B437").Select Columns("B:B").Select Selection.Copy Columns("C:C").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("B:B").Select Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("B:B").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)" ======================================== Уважаемые коллеги. Помогите, пожалуйста, разобраться, почему этот макрос (простите что он длинный) половину строк в итоге делает в нужном мне формате {"$#,##0.00_);[Red]($#,##0.00)"}, а другие - тот же формат, но слева сверху в ячейке появляется зеленый треугольничек (для того, чтоб они тоже стали нужного формата, их надо "протыкать"). Большое человеческое спасибо за содействие. |
| Ответы | Всего ответов: 0 |
Страница: