Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
После применения макроса пропадают формулы
 
#1
20.10.2015 13:38:24
Ребят применяю макрос на странице по замене запятой на точку и все буквы делаю прописные. Всё работает как надо,но при клике на ячейку пропадает формула. Как её вернуть? Вот код, за написание которого огромное спасибо Казанскому.
Код
?
1
2
3
4
5
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
Замените
Код
?
1
2
3
With ActiveSheet.UsedRange
  .Value = Evaluate("INDEX(UPPER(SUBSTITUTE(" & .Address & ","","",""."")),)")
End With

На
Код
?
1
2
3
With ActiveSheet.UsedRange
  .Formula (или FormulaR1C1) = Application.WorksheetFunction.INDEX и т.д
End With
 
 
 
#7
20.10.2015 15:10:58
Напишите полностью пожалуйста как надо, а то я не понимаю "и т.д."
 
 
 
#8
20.10.2015 15:16:43
Код
?
1
2
3
4
5
6
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
Код
?
1
2
3
4
5
6
7
8
9
10
11
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
А, ну, да.
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
Читают тему
Наверх
Loading...