Часто удобно произвести номера счета для Ваших клиентов. Если у Вас есть много cus¦-tomers, Вы, вероятно, не хотите делать это вручную, как бы то ни было. Один простой способ произвести номер счета состоит в том, чтобы просто взять первые n характеры в имени клиента и con¦-vert их к прописным буквам. Например, если у Вас есть имя клиента в клетке A2, следующая формула производит пятисимвольный номер счета:

=UPPER (ОСТАВЛЕННЫЙ (A2, 5))

Здесь, ЛЕВОЕ () функция извлекает характеры слева ценности в A2, и ВЕРХНЕГО (), функция преобразовывает их в прописные буквы.

Это прекрасно, но что, если у Вас есть имена клиента, которые разделяют первые пять характеров? Или, еще более хитрый, что, если у Вас есть имена клиента, где первые пять характеров включают одно или более мест, периоды, черты, или иностранные характеры? Другими словами то, что Вы действительно хотите сделать, производят уникальный номер счета, который включает только характеры через z и через Z. Чтобы сделать это, мы должны повернуться к VBA. Функция, показанная в Распечатке 5.1, производит такой номер счета.

Функция VBA, Которая Производит Восьмисимвольный Номер счета, Основанный на Имени клиента

Функция GenerateAccountNumber (strName Как Последовательность) Как Последовательность

Заявление. Изменчивый Ложный †˜ не повторно вычисляет †˜, †˜ Калибруют †переменных ˜

Производство Номеров счета

nPos = 1 strTemp = “” †˜ †˜ Пробегает характеры в †имени клиента ˜, Делают В то время как nPos <= Лен (strName)

†˜ †˜ Получают характер в положении, данном nPos †˜ strChar = Середина (strName, nPos, 1) †˜ †˜ Проверка †ценности характера ˜ Избранное Устройство автоматической смены щупов Случая (strChar)

†˜ †˜ Между A и †Z ˜ Случай 65 - 90

strTemp = strTemp & strChar †˜ †˜ Между a и z †˜ Случай 97 - 122

strTemp = strTemp & UCase (strChar) Конец Избранный †˜ †˜, Если текстовая часть номера счета - †˜ 5 характеров долго, выйдите из †петли ˜, Если Лен (strTemp) = 5 Тогда Выход Делает nPos = nPos + 1

†петли ˜ †˜ Проверка на †отказа ˜, Если strTemp <> “” Тогда

†˜ †˜, Если счет до сих пор хорош, добавьте, что случайный †числа с 3 цифрами ˜ Рандомизирует GenerateAccountNumber = strTemp & Формат (Rnd * 999, “000 ″)

Еще †˜ †˜ Иначе, произведите ошибочный †˜ GenerateAccountNumber = “Никакой произведенный номер счета!”

Конец, Если Функция Конца

Популярность: [3 %?]

Страницы: 1 2

Часто удобно произвести номера счета для Ваших клиентов. Если у Вас есть много cus¦-tomers, Вы, вероятно, не хотите делать это вручную, как бы то ни было. Один простой способ произвести номер счета состоит в том, чтобы просто взять первые n характеры в имени клиента и con¦-vert их к прописным буквам. Например, если у Вас есть имя клиента в клетке A2, следующая формула производит пятисимвольный номер счета:

=UPPER (ОСТАВЛЕННЫЙ (A2, 5))

Здесь, ЛЕВОЕ () функция извлекает характеры слева ценности в A2, и ВЕРХНЕГО (), функция преобразовывает их в прописные буквы.

Это прекрасно, но что, если у Вас есть имена клиента, которые разделяют первые пять характеров? Или, еще более хитрый, что, если у Вас есть имена клиента, где первые пять характеров включают одно или более мест, периоды, черты, или иностранные характеры? Другими словами то, что Вы действительно хотите сделать, производят уникальный номер счета, который включает только характеры через z и через Z. Чтобы сделать это, мы должны повернуться к VBA. Функция, показанная в Распечатке 5.1, производит такой номер счета.

Функция VBA, Которая Производит Восьмисимвольный Номер счета, Основанный на Имени клиента

Функция GenerateAccountNumber (strName Как Последовательность) Как Последовательность

Заявление. Изменчивый Ложный †˜ не повторно вычисляет †˜, †˜ Калибруют †переменных ˜

Производство Номеров счета

nPos = 1 strTemp = “” †˜ †˜ Пробегает характеры в †имени клиента ˜, Делают В то время как nPos <= Лен (strName)

†˜ †˜ Получают характер в положении, данном nPos †˜ strChar = Середина (strName, nPos, 1) †˜ †˜ Проверка †ценности характера ˜ Избранное Устройство автоматической смены щупов Случая (strChar)

†˜ †˜ Между A и †Z ˜ Случай 65 - 90

strTemp = strTemp & strChar †˜ †˜ Между a и z †˜ Случай 97 - 122

strTemp = strTemp & UCase (strChar) Конец Избранный †˜ †˜, Если текстовая часть номера счета - †˜ 5 характеров долго, выйдите из †петли ˜, Если Лен (strTemp) = 5 Тогда Выход Делает nPos = nPos + 1

†петли ˜ †˜ Проверка на †отказа ˜, Если strTemp <> “” Тогда

†˜ †˜, Если счет до сих пор хорош, добавьте, что случайный †числа с 3 цифрами ˜ Рандомизирует GenerateAccountNumber = strTemp & Формат (Rnd * 999, “000 ″)

Еще †˜ †˜ Иначе, произведите ошибочный †˜ GenerateAccountNumber = “Никакой произведенный номер счета!”

Конец, Если Функция Конца

Популярность: [3 %?]

Страницы: 1 2