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

Страницы: 1
Замена числен по порядковому номеру из таблицы соответствий
 
#
27.01.2021 14:25:28
Добрый день! Помогите,пожалуйста, написать макрос или формулами авто нормализатор номера мобильного телефона

Например у нас есть номер 93170639502 - это шифрованный номер телефона, и если его расшифровать по приложенной таблице то мы получим - 89255908687.

Надо сделать так же в экселе, макросом или формулами, допустим я вставляю телефон в определенную ячейку, а по кнопке или автоматически он выдает правильный.

Сам к сожалению не осилил, искал по форуму по ключему слову "замена чисел" но разобраться не смог. для меня сложно
Изменено: Baristan - 27.01.2021 14:54:51
 
Перейти    
Нумерация ячейки в каждом файле, Нумерация ячейки в каждом файле
 
#
18.04.2018 11:54:49
Добрый день !

Помогите, пожалуйста, необходимо пронумеровать ячейку С2 в каждом файле. Нумерация должна идти 2, 3,4,5 , n ... n+1
Допустим 700 файлов то нумерация будет от 1 до 700. Подскажите, пожалуйста, как это сделать, мб макрос какой.

У меня есть макрос, который написал кто то из участников форума, но он применяет код во всех файлах, но какой именно код написать, чтобы он делал нумерацию +1 , я не знаю, прошу помощи, заранее огромное спасибо!

Код
Sub InsRowFolderFile()
Dim arr1$(), fName$, iTr$, i%, j%
Dim book As Workbook
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then iTr = .SelectedItems(1)
End With
fName = Dir(iTr & "\*.xls*")
If fName = "" Then Exit Sub
Do
    i = i + 1
    ReDim Preserve arr1(1 To i)
    arr1(i) = fName
    fName = Dir
    If fName = "" Then Exit Do
Loop
Application.ScreenUpdating = False
For j = 1 To i
    Set book = Workbooks.Open(Filename:=iTr & "\" & arr1(j))
    With book
        
"Код чего применить в каждом файле"


    End With
Next j
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
 
Перейти    
Фильтр по двум строкам
 
#
13.12.2017 16:05:57
Добрый день, Товарищи!

Есть большая таблица с ФИО людей. У некоторых людей есть строки Родительская плата. У некоторых людей есть строки Договор. У некоторых людей есть строки которые содержат и строку Договор и строку Родительская плата.
Необходимо сделать фильтр который покажет в таблице только тех людей у которых есть строки и Договор и Родительская плата!

Спасибо! Прикладываю Пример
 
Перейти    
Разделение значения на отдельные составляющие в разные колонки, Разделение значения на отдельные составляющие в разные колонки
 
#
27.11.2017 20:23:03
Добрый день, товарищи! Очень прощу помощи!

В Таблице исходная в столбце F необходимо установить фильтр по ТИП1 и в столбце G , каждую строку разбить на составляющие в добавленные для них колонки, как в файле примере "Результат.

Спасибо огромное за помощь!
 
Перейти    
Создание файла с вставленным туда значением из другого файла
 
#
22.11.2017 09:41:34
Добрый день, товарищи!  Помогите создать макрос, который бы считывал строки, которые содержат данные
| Организация | ИНН | Данные 1 | Данные 2| Данные 3 | Данные 4 | (Файл "Список") , далее из этих данных он находил по ИНН из прочитанной строки файл , который находится в выбранной папке и имеет название ИНН.xls , и в этот файл вставил  | Данные 1 | Данные 2| Данные 3 | Данные 4 | в определенные ячейки (Они отмечены в файле "Шаблон")

Надеюсь это возможно,  большое спасибо всем за помощь
Изменено: Baristan - 22.11.2017 17:48:22
 
Перейти    
Удаление каждой n-ой строки в заданной области
 
#
20.11.2017 14:55:19
Добрый день , товарищи !)
Может кто помочь с небольшим макросом.
Нужно удалять каждую 5 строку в заданной области Range("C6:O265").Select
Изменено: Baristan - 20.11.2017 15:00:35
 
Перейти    
Вставка строк выше от текущей позиции
 
#
20.11.2017 14:28:43
Добрый день, товарищи!

Возможно ли написать макрос , который вставил бы строку/строки допустим выше на 5 строк?

Текущая позиция + 5  - Вставить.

Чтобы самому не считать адрес ячейки для вставки
 
Перейти    
Подсчет строк файлов папке
 
#
15.11.2017 11:48:46
Добрый день! Есть задача подсчета строк в файлах, и их перемещение в папки равные кол-ву их строк.

Допустим имеется 700 файлов, из них 500 файлов имеет 112 строк - их переместить в папку 112 строк. остальные имеют разное количество строк, их нужно переместить в папки в соответствии с их количеством строк. Уточнение. Количество заполненных строк
Изменено: Sandji - 15.11.2017 18:30:51
 
Перейти    
Применение макроса по всем выбранным файлам в папке
 
#
15.11.2017 10:20:29
Добрый день ! Помогите справиться с небольшой для вас задачей. Пишу макрос через запись. Допустим добавить 3 столбца. И этот макрос необходимо применить ко всем файлам в выбранной папке. Помогите, пожалуйста.

Код
 Range("L6").Select
    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
 
Перейти    
Переименовать файлы в папке согласно ИНН в шапке
 
#
15.11.2017 10:11:02
Добрый день, Товарищи!

Прошу у Вас помощи. Есть много файлов. Все они типовые, и имеют значение ИНН в ячейке B1. Помогите создать макрос, который бы прочитал все файлы в папке, и переименовал бы все эти файлы согласно ИНН в ячейке B1.
Изменено: Sandji - 15.11.2017 11:04:37 (Поправил адрес ячейки, правильно B1( было B2))
 
Перейти    
Найти и заменить на значение +1
 
#
01.11.2017 16:51:38
Добрый день !

Возможно ли как то в экселе найти значение <Сотрудник ="1">
и заменить его на <Сотрудник ="предыдущее значение +1">.

Поясню подробнее. Есть большой файл со списком сотрудников,  файл формируется автоматом. Иногда зачастую приходится удалять некоторые строки, и соответственно нумерация теряется.

Было

Сотрудник 1
Сотрудник 2
Сотрудник 3
.....
Сотрудник 160

Стало

Сотрудник 2
Сотрудник 4
Сотрудник 7
.....
Сотрудник 160

Ну либо какой нибудь другой способ сделать правильную нумерацию.


Пробовал копать на тему "Регулярные выражения" но что то не нашел.

Изначально такой файл в формате xml, думал временно вставить в эксель, как то заменить  ,  обратно с правильной нумерацией вернуть в xml
Изменено: Sandji - 01.11.2017 17:46:02
 
Перейти    
Копирование данных из объединенных ячеек в обычную
 
#
27.10.2017 14:05:15
Добрый день!

Помогите, пожалуйста, скопировать данные из ячейки которая получена объединением множества столбцов в ячейку простую(1x1)

Таблица будет такая же, но ячейки не будут построены путем объединения, а будут простые. Поэтому надо как то скопирвать. Простое копирование вставляет вместе с форматированием, специальная вставка - вставить значение - тоже не помогает, всё равно копируются пустые столбцы.
 
Перейти    
Суммирование данных из нескольких файлов
 
#
25.10.2017 16:00:53
Добрый день ! Помогите поправить макрос в Excel

Нашел необходимый макрос в этой теме , макрос автора Nilema.

Мне необходим тот же функционал , а именно суммировать диапазон ячеек по всем похожим файлах в папке, где находится основной файл. Поправил диапазон в макросе под свой (P21:AC54). Но выходит ошибка "Run-time error '9': Subscript out of range". Примерно понимаю, что нужно правильно указать границы массивы, но попытки не  увенчались успехом. В этом совсем новичок, пожалуйста, помогите поправить.

Прикладываю пример таблицы, их будет множество таких типовых, но с разными данными. Макрос так же внутри файла.
Изменено: Sandji - 25.10.2017 18:09:11
 
Перейти    
Страницы: 1
Наверх