Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Замена в документе ФИО на латинице на русский вариант, Программа выдает наряд на работы с персоналом на латинице, нужна замена на русские ФИО перед печатью.
 
#1
19.05.2016 12:13:38
        Доброго всем дня ! Был бы рад помощи от Вас.
Программа выдает наряд на работы в файлах эксель. Фамилии и имена
выходят на латинице, т.к. "привязаны" к выданным на людей лицензиям.
Перед печатью наряда необходима замена на русские ФИО.
      Человек, который этим занимается может только вывести наряд
на печать. Шаг влево, шаг вправо - ступор на длительный период.
------------------------------------------------------------
        Как я вижу решение:
1. Сформированные в течение дня наряды сохраняются в одной папке,
в которой лежит экселевский файл с вариантами написания ФИО (латиница <-> кирилица).
2. Когда все наряды сформированы, в этой же папке должен быть открыт файл-шаблон,
который по нажатию на кнопку "Поехали", заменит во всех сгенерированных нарядах
латинское написание ФИО на русский вариант из списка.
        Пример наряда приложен, список соответствия ФИО на втором листе.
    Если просто подскажете алгоритм действий и какие формулы (темы из форума) использовать,
буду очень признателен.
    Несколько лет назад очень много почерпнул из этого форума, но потом сменил
сферу деятельности, а потом в конторе всем эксель заменили и я опять чувствую
себя чайником.
              Заранее благодарен.   Валерий .
 
 
 
#2
19.05.2016 12:15:19
посмотрите здесь, думаю то что Вам нужно
http://www.planetaexcel.ru/techniques/7/32/
 
 
 
#3
19.05.2016 12:28:30
Цитата
Валерий Соболев написал:
Если просто подскажете алгоритм действий и какие формулы (темы из форума) использовать,
буду очень признателен.
1. Как перебрать все файлы в папке яндекс выдал первую ссылку http://www.excel-vba.ru/chto-umeet-excel/prosmotret-vse-fajly-v-papke/
2. В примере из ссылки просто записывается в левый верхний угол строка "www.excel-vba.ru", а вам надо в этом месте выполнить команду "заменить всё" для каждой латинской фамилии на русскую.
 
 
 
#4
19.05.2016 12:31:25
         Большое спасибо, сейчас всё опробую.
 
 
 
#5
19.05.2016 12:55:06
Цитата
alexthegreat написал:
посмотрите здесь, думаю то что Вам нужно
http://www.planetaexcel.ru/techniques/7/32/
            Это не то, спасибо!
Нужен не транслит, а замена варианта на латинице, который
выдает программа, на вариант в русском виде (фамилия, имя, отчетство) из
лежащего в той же папке файла.
     То есть: программа выдала - IVANOV IVAN.
      В заданной нами папке есть список соответствия всех работников
              и в этом списке в левой ячейке IVANOV IVAN, а в правой - Иванов Иван Иванович.
       Нужно в списке соответствия найти вариант и в нужную
       строку наряда на работу подставить "Иванов Иван Иванович"
        Заменить все строки и вывести на печать.
 
 
 
#6
19.05.2016 14:43:23
Код
Sub Zamena()
Dim FIO As String
Dim FoundFIO As Range
Dim i As Integer
Dim iLastRow As Integer
  iLastRow = Range("B9").End(xlDown).Row
  With Worksheets("СПИСКИ")
    For i = 9 To iLastRow
      FIO = Cells(i, 2)
      Set FoundFIO = .Columns(1).Find(FIO, , xlValues, xlWhole)
      If Not FoundFIO Is Nothing Then
        Cells(i, 2) = .Cells(FoundFIO.Row, 2)
      End If
    Next
  End With
End Sub
Макрос в модуль листа Наряд на работу
 
 
 
#7
19.05.2016 20:41:28
Цитата
Валерий Соболев написал:
программа выдала - IVANOV IVAN.
А если два IVANOV IVAN?
Правильно привязываться к № лицензии.
 
 
 
Страницы: 1
Читают тему
Наверх