Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Апрель 2018   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Академик
Рейтинг: 74
∙ повысить рейтинг » 		Асмик Гаряка
Статус: Советник
Рейтинг: 56
∙ повысить рейтинг » 		Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 30
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1126
Дата выхода:13.04.2018, 00:15
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:14 / 12
Вопросов / ответов:3 / 5

Консультация # 23344: Добрый день. Посоветуйте плагины к VB 6 IDE для облегчения жизни программиста. Желательно со ссылками. Спасибо....
Консультация # 128130: Добрый день, уважаемые Эксперты! подскажите , пожалуйста, как в цикле проделать следующую поцедуру вычитания например, на одном листе расположены данные А В С D 10 11 8 15 12 15 5 7 8 12 17 3 а на другом лесте надо сформировать таблицу В1-А1 С1-A1 D1-A1 В2-А2 С2-A2 D2-A2 В3-А3 С3-A3 ...
Консультация # 106731: Добрый день, уважаемые эксперты! Столкнулся с такой проблемой: у меня имеется Excel файл, в котором данные в таком виде (код)название (код)название (код)название (код)название (код)название (код)название то есть в отчет выводятся названия товаров и коды не в один столбец, а в разные в виде иерархического списка...

Консультация # 23344:

Добрый день. Посоветуйте плагины к VB 6 IDE для облегчения жизни программиста. Желательно со ссылками. Спасибо.

Дата отправки: 11.07.2005, 14:43
Вопрос задал: Александр Шевченко
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Залетин Виталий Викторович:

Здравствуйте, Александр Шевченко!
Фигня все это. Меня устраивает и обычная ИДЕ. Если что надо, пишу AddIn.

Консультировал: Залетин Виталий Викторович
Дата отправки: 16.07.2005, 13:30
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 128130:

Добрый день, уважаемые Эксперты!
подскажите , пожалуйста, как в цикле проделать следующую поцедуру вычитания
например, на одном листе расположены данные

А В С D

10 11 8 15
12 15 5 7
8 12 17 3

а на другом лесте надо сформировать таблицу

В1-А1 С1-A1 D1-A1
В2-А2 С2-A2 D2-A2
В3-А3 С3-A3 D3-A3

Заранее, большое Вам спасибо!

Дата отправки: 19.03.2008, 15:22
Вопрос задал: Шубейко
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Megaloman (Академик):

Здравствуйте, Шубейко!
Если исходные данные расположены на Лист1 и существует Лист2, то решение в приложении

Приложение:

Консультировал: Megaloman (Академик)
Дата отправки: 19.03.2008, 16:03
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Черников Игорь Владимирович:

Здравствуйте, Шубейко!
Исходные данные должны находиться в "Лист1", ответы будут формироваться в "Лист2"

For i = 1 To 3
For j = 1 To 3
Лист2.Cells(i, j) = Лист1.Cells(i, j + 1) - Лист1.Cells(i, 1)
Next j
Next i

Удачи!

Консультировал: Черников Игорь Владимирович
Дата отправки: 19.03.2008, 19:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 106731:

Добрый день, уважаемые эксперты!
Столкнулся с такой проблемой: у меня имеется Excel файл, в котором данные в таком виде
(код)название
(код)название
(код)название
(код)название
(код)название
(код)название
то есть в отчет выводятся названия товаров и коды не в один столбец, а в разные в виде иерархического списка.
Мне нужно собрать их в один столбец.... в ручную это не реально, так как файл большой.... если пытаюсь скопировать данные, например, с четвертого столбца в первый, то он затирает все данные с первого столбца само собой....
Как мне может макросом, может формулой, выделив эти ячейки перемистить все их в один столбец, чтобы уменя получился обычный список
(код)название
(код)название
(код)название
и т.д.

Дата отправки: 25.10.2007, 13:49
Вопрос задал: Чернов С.В.
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Чернов С.В.!
Попробуйте в "пятый" столбец вставить подобную формулу: =A1&B1.
Скопировать содержимое "пятого" столбца.
Вставить в первый столбец: Меню Правка_Специальная вставка_Значения
Если дело только в сборке строки из данных двух ячеек, у Вас все должно получиться.;-)
Евгений.

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 25.10.2007, 17:03
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Черников Игорь Владимирович:

Здравствуйте, Чернов С.В.!
Это будет работать только в том случае, если в строке с 1 по 10 столбец кроме "(код)название" больше нет данных, иначе код соберёт их все и вставит в 11 столбец.

chetchik=0 \'укажите порядковый № строки с которой начинать минус 1
Do
chetchik = chetchik + 1
For i = 1 To 10\'указываем с 1 по 10 столбец(можно изменить на своё усмотрение)
znachenie = znachenie & Worksheets("Лист1").Cells(chetchik, i).Value \'вместо Лист1 укажите свой
Next i
If znachenie = "" Then Exit Do \'Если данных нет, выйти из цикла
Worksheets("Лист1").Cells(chetchik, 11).Value = znachenie \'Данные записываются в 11 столбец(можно поменять)
znachenie = ""
Loop

можно и без макроса, формула будет примерно такой:
=СЦЕПИТЬ(A1;B1;C1;...) для первой строки
=СЦЕПИТЬ(A2;B2;C2;...) для второй
и т.д.
достаточно вставить первую фрмулу в нужный столбец верхней строки, а затем провести маркером(точка в нижнем правом углу ячейки) до последней строки с данными. Все данные соберутся построчно в одном столбце.
Удачи!

Консультировал: Черников Игорь Владимирович
Дата отправки: 25.10.2007, 19:25
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное