Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Fotik Fotikov
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
12.10.2020 17:16:51
Бездумная копия - не цитата[МОДЕРАТОР]

Спасибо огромное..... всё заработало.... затупил я, в макросе вместо столбца C подставлял D..... не понял что это для обоих столбцов сразу....
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
12.10.2020 13:12:47
За ссылку спасибо, мощный инструмент но работать приходится в 2003 и 2010 все последующие версии офис не запускают данный проект.
Работает только первый макрос для столбца С а второй макрос для столбца D добавляет 19 перед буквами и перед двумя последними цифрами то есть два раза и оба не туда :)
А со столбцом E вобще метаморфоза было слово "записей" а стало "за19писей", хотя столбец Е вроде вобще нипричём:) :)
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
12.10.2020 12:30:29
Здравствуйте спасибо большое за помощь, первый макрос работает прекрасно для столбца С а второй для столбца D нет. Прикреплю пример с этими макросами чтоб наглядно. столбец D это сокращение столбца С -фамилия+ две буквы имени+ две буквы отчества+ две последние цифры года рождения+трёхзначный номер. Цифирь всегда пять- две год рожд+три номер.нужно как и в столбце С, то есть между последней буквой и первой цифрой вставить 19, чтоб год рождения стал четырёхзначным. По поводу поставщика данных согласен полностю! Дело в том что это кусок большого проекта по учёту скажем так граждан и в частности ведения амбулаторных медицинских приёмов но тот кто писал базу не предусмотрел такой тонкости как четырёхзначная дата рождения и в итоге пошли даты рождения 2000, 2001 и вышло так что в двухзначном варианте это выглядит 00, 01, а в числовой форме вышло 0 и 1 то есть год рождения в ячейке 0. В основной базе я всё переименовал. вроде норм работает но в медицинской базе возникла проблема все предыдущие приёмы пациента привязаны к данным из столбцов C и D этой таблицы, теперь открывая амбулаторную базу предыдущие приёмы не подгружаются и получается что вся история больного не доступна, поскольку эти сокращения являются своеобразным ID пациента.
Изменено: Fotik Fotikov - 12.10.2020 12:40:09
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
11.10.2020 21:54:57
Спасибо огромное работает, не сочтите за наглость а можно и для столбца D также сделать там год рождения это первые цифры после букв
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
11.10.2020 20:02:52
а как удалить сообщение?
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
11.10.2020 19:59:45
Код
Private Sub Добавление 19()
For Each c In Worksheets("Лист1").Range("C2:C17").Cells
 c.Value = "19" + CStr(c.Value)
Next
End Sub
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
11.10.2020 19:53:19
Код
Private Sub Добавление 19()
For Each c In Worksheets("Лист1").Range("C2:C17").Cells
 c.Value = "19" + CStr(c.Value)
Next
End Sub

в примере таблицы семнадцатая строка в ячейке C,D17 дата рождения полностью - так нужно сделать....

только это только кусочек файла всего 8831 строка и в каждой нужно заменить двух числовую дату рождения на четырёх...
Изменено: Fotik Fotikov - 11.10.2020 20:00:45
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
11.10.2020 19:22:10
Красным отмечено как нужно
Изменено: Fotik Fotikov - 11.10.2020 19:23:57
 
Перейти    
Макрос на добавления символов в ячейки столбца на определенную пощицию
 
#
11.10.2020 17:26:13
Здравствуйте..... Помогите разобраться: имеется макрос:
Код
Private Sub Добавление 19()
For Each c In Worksheets("Лист1").Range("C2:C17").Cells
 c.Value = "19" + CStr(c.Value)
Next
End Sub

который добавляет символы в начало строки в ячейке. необходимо добавить символы в шестую и седьмую позицию от конца строки.
Пример: имею вот так - Иванов Иван Иванович 78 228
              нужно - Иванов Иван Иванович 1978 228.....
таких ячеек в столбце несколько тысяч......
 
Перейти    
Страницы: 1
Наверх