Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ошибка: Не удается выполнить макрос...
 
Lodes, выдавало тоже самое, пока я не перенес файл в обычную папку на диск С. (изначально файл был в папке с атрибутом "только для чтения")
Замена недопустимых символов в ячейке
 
k61, Irregular Expression, все работает, просто мои кривые руки не могли нормально Ctrl+C и Ctrl+V.
Спасибо.
Изменено: Bogdan Sydorenko - 31.10.2017 08:29:50
Замена недопустимых символов в ячейке
 
Irregular Expression написал:
Bogdan Sydorenko , ключевой вопрос, который лично мне непонятен из Вашего описания проблемы: что делаем с недопустимыми символами убираем или так же заменяем, как и пробелы?

Пробелы заменяем на "-" а знаки типа: ~!@/\#$%^&*=|()`" мы удаляем из ячейки, макрос не работает почему то(
Изменено: Bogdan Sydorenko - 31.10.2017 00:11:11
Замена недопустимых символов в ячейке
 
Код
Function Replace_path(path)
    StFind = "~!@/\#$%^&*=|`"""
    StRepl = "___--________''"
    For i% = 1 To Len(StFind)
        path = Replace(path, Mid(StFind, i, 1), Mid(StRepl, i, 1))
    Next
    Replace_path = path
End Function


Вот тут тоже работает, но не так как мне нужно.
Изменено: Bogdan Sydorenko - 30.10.2017 19:43:13
Замена недопустимых символов в ячейке
 
Цитата
Юрий М написал:
Ma3aHaKa , ознакомьтесь с нашими Правилами и поменяйте отображаемое имя.
поменял.
Замена недопустимых символов в ячейке
 
Цитата
k61 написал:
~!@/\#$%^&*=|()`""
Не работает, замена(((
Изменено: Bogdan Sydorenko - 30.10.2017 19:34:23
Замена недопустимых символов в ячейке
 
Как сделать через макрос что бы данные вида:
Разъем SIM и SD карты Samsung Galaxy A3 A310, Galaxy A5 A510, Galaxy A7 A710, Galaxy J3 J330, Galaxy J5 J530, Galaxy J7 J730, оригинал
были автоматом написаны Разъем-SIM-и-SD-карты-Samsung-Galaxy-A3-A310-Galaxy-A5-A510-Galaxy-A7-A710-Galaxy-J3-J330-Galaxy-J5-J530-Galaxy-J7-J730-оригинал
То есть пробелы заменены на "-" и без недопустимых символов " ""~!@/\#$%^&*=|()`.,"
вот нашел макрос но незнаю как подправить(((

Хочу еще купить Надстройку PLEX там реализовано ли это? впрочем она и так подходит мне для моих задач... но как всегда хочется ВСЕ и сразу.
Код
Function Replace_symbols(ByVal txt As String) As String
    St$ = "~!@/\#$%^&*=|()`"""
    For i% = 1 To Len(St$)
        txt = Replace(txt, Mid(St$, i, 1), "-")
    Next
    Replace_symbols = txt
End Function
Изменено: Bogdan Sydorenko - 30.10.2017 19:44:24
Непонятная Диаграмма
 
Собственно сама диаграмма в прикрепленом файле...  
<EM><STRONG>Файл удален</STRONG> - велик размер - 1,4М [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Непонятная Диаграмма
 
Помогите с диаграммой, не могу разобраться что да как    
вот    
Страницы: 1
Наверх