powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос
12 сообщений из 12, страница 1 из 1
Макрос
    #34049107
DAN1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
привет всем.

кто поможет по ексел.
ситуация такая ест данные о людях ФИО но фамилия на одном а ИМя и отчество сохранено на другом поле
мне надо их объеденить.
их у меня 1,5штук надо какой то цилк
как мне сделать этот цикл
заранее благодарен

пример
пол1 поле 2
фамииля Имя отчество

результат
поле1
Фамилиля имя отчество
...
Рейтинг: 0 / 0
Макрос
    #34049133
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм... примерно так...
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub MergeNames
Const intLastRow= 10 
      Dim i%
      For i= 1  to intLastRow
           Cells(i, 1 )=Cells(i, 1 ) & " " & Cells(i, 2 )
      Next
End Sub
где intLastRow - номер последней строки данных
...
Рейтинг: 0 / 0
Макрос
    #34049134
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Зачем здесь макрос? Используйте формулу:
=сцепить(ячейка1;" ";ячейка2),
где ячейка1 - адрес ячейки с фамилией; ячейка2 - адрес ячейки с именем и отчеством.
Например: =сцепить(A1;" ";B1). Затем копируйте формулу в другие ячейки поля.
...
Рейтинг: 0 / 0
Макрос
    #34049143
SvIva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здесь макрос не нужен. Используй функцию СЦЕПИТЬ. В ячейку С1 напиши формулу =СЦЕПИТЬ(A1;" ";B1) и раскопируй ее по столбцу.
...
Рейтинг: 0 / 0
Макрос
    #34050790
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
функция СЦЕПИТЬ - самая бесполезная функция существовавшая когда либо :-) Тот же эффект достигается оператором амперсанд - &, но намного экономичнее:

=A1&" "&B1

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
Макрос
    #34052263
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
KL (XL)
Использование & экономичней относительно чего?
...
Рейтинг: 0 / 0
Макрос
    #34052269
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SirFisher KL (XL)
Использование & экономичней относительно чего?Выбирай:
1) относительно лимита в 30 параметров для функций
2) относительно лимита в 1024 знака для формул
3) относительно лимита в 7 уровней вложенности для функций
4) относительно количества знаков вводимых вручную (9 лишних знаков на каждое появление данной функции в формуле)
5) относительно скорости пересчета (& считается Excel-ем быстрее чем СЦЕПИТЬ)

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
Макрос
    #34052272
SirFisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
KL (XL)
То, что доктор прописал. Спасибо :)
...
Рейтинг: 0 / 0
Макрос
    #34053003
zweck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
orunbekхм... примерно так...
Код: plaintext
1.
2.
3.
Sub MergeNames
Const intLastRow= 10 
      Dim i%
 End Sub
где intLastRow - номер последней строки данных А в чем будет отличие в описании счетчика цикла:
- Dim i % или
- Dim i
...
Рейтинг: 0 / 0
Макрос
    #34054610
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zweckА в чем будет отличие в описании счетчика цикла:
- Dim i % или
- Dim i
В первом случае i объявляется как переменная целого типа. Во втором как вариантного.
...
Рейтинг: 0 / 0
Макрос
    #34054719
zweck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White Owl zweckА в чем будет отличие в описании счетчика цикла:
- Dim i % или
- Dim i
В первом случае i объявляется как переменная целого типа. Во втором как вариантного.
А мне казалось, что Dim i - переменная целого типа (значит в VB - это другому).
А можно на примере показать особенность и необходимость применения переменной вариантного типа?
...
Рейтинг: 0 / 0
Макрос
    #34054764
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zweckА можно на примере показать особенность и необходимость применения переменной вариантного типа?

На примере Excel... На мой взгляд, переменные вариантного типа хороши лишь в редких случаях, например:

- когда невозможно задекларировать конкретный тип переменной и/или неудобно/бессмыссленно создавать пользовательский тип (UDT), например:

Dim sh
For Each sh In Sheets
MsgBox sh.Name
Next sh

Данный код возвращает имена всех членов коллекции Sheets - Worksheet, Chart, Excel4MacroSheet. Несмотря на наличие коллекции, не существует общего типа для ее членов.

- когда нужно задекларировать массив cоздаваемый при помощи функции Array, например:

Dim A As Variant
A = Array(10,20,30)

- когда переменная может принимать различные типы в процессе работы кода, например:

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If

Метод GetOpenFilename может возвращать типы Boolean (False в сл. отмены) и String (полное имя файла)

Если переменная не задекларированна эксплицитно, то она по-умолчанию принимает тип Variant.

В большинстве остальных случаев - это неоправданный расход памяти.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]