Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сохранение надстрочных /подстрочных символов в ячейке
 
#1
13.05.2020 14:32:05
Как с помощью макроса добиться, чтобы сохранялись надстрочные/подстрочные символы в ячейке?
В приложенном файле приведён пример.
 
 
 
#2
13.05.2020 14:57:58
Как вариант - например в словаре запоминать вместе с адресом ячейки или строкой вот это:

Скрытый текст

и затем пройтись по результату и восстановить.
Изменено: Hugo - 13.05.2020 15:00:31
 
 
 
#3
13.05.2020 15:29:55
Код
Range("F6").Value(11) = Replace(Replace(Replace(Range("f3").Value(11), """#", Chr(7)), "#", "&#10"), Chr(7), """#")
Изменено: БМВ - 13.05.2020 15:48:14
По вопросам из тем форума, личку не читаю.
 
 
 
#4
13.05.2020 15:29:59
Очень большой объём придётся восстанавливать, файл очень огромный.
Забыл уточнить, что в файле примера необходимо в ячейке все знаки # заменить на ALT-ENTER (CHR (10)).При такой замене вручную всё получается как надо, а при замене макросом  -  надстрочные/подстрочные символы в ячейке не сохраняются. Обидно.
 
 
 
#5
13.05.2020 15:31:37
Проверил, работает. Только проще не 1/0 сохранять, а как есть булево.
Код
Sub tt()
    Dim i&, t$, d As Object, arr

    Set d = CreateObject("scripting.dictionary")

    t = Selection
    For i = 1 To Len(t)
        d.Item(i & "|" & Mid(t, i, 1)) = Selection.Characters(Start:=i, Length:=1).Font.Superscript _
                                       & "|" & Selection.Characters(Start:=i, Length:=1).Font.Subscript

    Next
    
    t = Replace(t, "#", Chr(10))

    Selection(4).Value = t
    For i = 1 To Len(t)
        If d.exists(i & "|" & Mid(t, i, 1)) Then
            arr = Split(d.Item(i & "|" & Mid(t, i, 1)), "|")
            Selection(4).Characters(Start:=i, Length:=1).Font.Superscript = arr(0)
            Selection(4).Characters(Start:=i, Length:=1).Font.Subscript = arr(1)
        End If
    Next
End Sub

Это для одной ячейки. Если их много - нужно в ключе сохранять ещё привязку к ячейке, чтоб не путать.
Изменено: Hugo - 13.05.2020 15:32:37
 
 
 
#6
13.05.2020 15:36:39
БМВ, а что за Range("f3").Value(11).Value(11) - у меня такое не понимает....
 
 
 
#7
13.05.2020 15:39:36
исправил
также можно просто
Ctrl+H  найти и заменить, найти # заменить на CTRL+J

Код
Range("E3").Replace What:="#", Replacement:=Chr(10)
Изменено: БМВ - 13.05.2020 15:47:41
По вопросам из тем форума, личку не читаю.
 
 
 
#8
13.05.2020 15:45:38
У меня всё равно не пашет, ругается на  Range("6")
Если указать например Range("f4").Value(11) =... то ОК.
Только по строкам не разбивает, нужно формат ячейки менять.
Спасибо.
 
 
 
#9
13.05.2020 15:49:05
Hugo, да пока правил накорябал хрени, да еще инет отключился на минуту
По вопросам из тем форума, личку не читаю.
 
 
 
#10
13.05.2020 16:54:33
Цитата
БМВ написал:
накорябал хрени
Для самокрутки? :)
 
 
 
#11
13.05.2020 17:54:54
Цитата
Юрий М написал:
Для самокрутки?
тут покурить некогда, и так несколько RDP сессий висит, да еще пара вложенных, На рабочем компе открыт Excel, тут .... короче .... дистанционка.
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх