Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
После применения макроса пропадают формулы
 
#1
20.10.2015 13:38:24
Ребят применяю макрос на странице по замене запятой на точку и все буквы делаю прописные. Всё работает как надо,но при клике на ячейку пропадает формула. Как её вернуть? Вот код, за написание которого огромное спасибо Казанскому.
Код
Sub bb()
With ActiveSheet.UsedRange
  .Value = Evaluate("INDEX(UPPER(SUBSTITUTE(" & .Address & ","","",""."")),)")
End With
End Sub
 
 
 
#2
20.10.2015 14:30:39
Сменил. Надеюсь теперь вы мне поможете.
 
 
 
#3
20.10.2015 14:35:42
Цитата
rvv2vvr написал: но при клике на ячейку пропадает формула.
Мы Вашей ячейки не видели.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#4
20.10.2015 14:48:27
Так этот макрос заменяет формулы значениями, - неудивительно, что формулы пропадают...
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
20.10.2015 14:56:44
1.xlsx до изменений. 2.xlsx после. До применения макрос при нажатии на ячейку B2 видим в строке формулы "=E2", а после применения "IJITSU 1152 13X5.5 4X98 D58.6 ET35 BP / ЧЕРНЫЙ С ПОЛИРОВКОЙ". Мне бы хотелось чтобы там была формула, как в первом случае.
 
 
 
#6
20.10.2015 15:01:08
Замените
Код
With ActiveSheet.UsedRange
  .Value = Evaluate("INDEX(UPPER(SUBSTITUTE(" & .Address & ","","",""."")),)")
End With

На
Код
With ActiveSheet.UsedRange
  .Formula (или FormulaR1C1) = Application.WorksheetFunction.INDEX и т.д
End With
 
 
 
#7
20.10.2015 15:10:58
Напишите полностью пожалуйста как надо, а то я не понимаю "и т.д."
 
 
 
#8
20.10.2015 15:16:43
Код
Sub bb()
Dim ccc As Range
For Each ccc IN ActiveSheet.UsedRange
  ccc.FormulaR1C1 = Replace(ccc.FormulaR1C1,",",".")
Next ccc
End Sub
Изменено: TheBestOfTheBest - 20.10.2015 15:24:45
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#9
20.10.2015 15:20:27
Код
Sub jjj()
Dim rng As Range
    On Error Resume Next
    Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rng Is Nothing Then
        Application.FindFormat.Clear
        rng.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=False, MatchByte:=False
    End If
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#10
20.10.2015 15:26:07
TheBestOfTheBest , пишет Run-time error "13"
 
 
 
#11
20.10.2015 15:37:49
Цитата
Андрей Гайкевич написал: Пишет Run-time error "13"
Поправлено.
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#12
20.10.2015 16:13:12
Ошибка 1004
 
 
 
#13
20.10.2015 16:13:54
Андрей Гайкевич, перестаньте копировать целые собщения! Кнопка цитирования не для ответа.

Спасибо всё работает. Но мне ещё надо чтобы все буквы были прописными.
 
 
 
#14
20.10.2015 16:18:46
Цитата
Андрей Гайкевич написал:
Ошибка 1004
Странно....
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#15
20.10.2015 16:18:58
А, ну, да.
Код
Sub jjj() ' _
http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=70772&TITLE_SEO=70772-posle-primeneniya-makrosa-ne-vidno-formul&MID=593072#message593072
Dim rng As Range, cl As Range
    On Error Resume Next
    Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rng Is Nothing Then
        Application.FindFormat.Clear
        rng.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=False, MatchByte:=False
        For Each cl In rng
            cl.Value = UCase(cl.Value)
        Next cl
    End If
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#16
20.10.2015 16:28:47
JayBhagavan,Огромное спасибо. Всё работает. Только я 2-ю строчку удалил.
 
 
 
#17
20.10.2015 23:57:27
А ответьте пожалуйста. Можно прописные буквы делать во всех столбцах, кроме, например: M
 
 
 
#18
21.10.2015 02:52:27
В этой теме - нельзя. Вопрос не по теме.
 
 
 
Страницы: 1
Читают тему
Наверх