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

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


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

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

Megaloman
Статус: Академик
Рейтинг: 475
∙ повысить рейтинг »
mklokov
Статус: 5-й класс
Рейтинг: 104
∙ повысить рейтинг »
PsySex
Статус: Профессионал
Рейтинг: 27
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1119
Дата выхода:01.06.2017, 20:45
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:13 / 11
Вопросов / ответов:3 / 9

Консультация # 99556: Здравствуйте! Подскажите как в ACCESS 2000 вывести на ленточную форму расписание сотрудников следующим образом: строки -ФИО столбцы -- сетка часов от 9-30 до 23-30 где 1 клеточка пол-часа. если сотрудник на работе (согласно расписанию) клетка окрашена в желтый цвет. Если у сотр. выходной вся строка зеленая. Если пoпросил свобoдные часы ...
Консультация # 177994: Помогите пожалуйста. Как в экселе с помощью Вба сделать следующее: Есть форма. В форме находится текстовое поле(textbox) и кнопка(CommandButton). При вводе любого текста в TextBox и нажатии CommandButton) я сделал, чтобы этот текст добавлялся в Диапозон ячеек( A1,A2,A3,....). Так вот какой код прописать, чтобы с каждым отправлением текста в стол...
Консультация # 105914: Добрый день уважаемые эксперты! Подскажите как мне в файле Excel из колонки, где такие данные (число)текст, сделать две колонки следующие: число текст.... ..

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

Здравствуйте! Подскажите как в ACCESS 2000 вывести на ленточную форму расписание сотрудников следующим образом:
строки -ФИО
столбцы -- сетка часов от 9-30 до 23-30 где 1 клеточка пол-часа.
если сотрудник на работе (согласно расписанию) клетка окрашена в желтый цвет. Если у сотр. выходной вся строка зеленая. Если пoпросил свобoдные часы - красныe клетки.
есть 2 фиксированных перерыва которые не учитываются в рабочем времени.
выводить на экран нформацию по 1 дню . пеpехожу пo дням недели по закладкам.
как организовать хранение данных и как вывести на форму в таком красочном виде?
спасибо.

Дата отправки: 24.08.2007, 17:00
Вопрос задал: Natali
Всего ответов: 1
Страница онлайн-консультации »


Консультирует gella:

Здравствуйте, Natali!
Хранение данных - в таблице, именно такой как вы описали, имя сотрудника, время1, время2, etc. Не забудьте сделать индекс.
Раскраска - при редактировании формы, выбрать нужные полчя меню "формат" - "условное форматирование", там все просто, по условию оно разрисовывает в любые цвета.
Про закладки, честно говоря, не знаю, не нашла как их делать. Можно просто сделать кнопки "ПН", "ВТ", ... при нажатии на которые меняется запрос, на основе которого строится форма.
Если нашли что-то полезное, но есть еще вопросы, спрашивайте...

Консультировал: gella
Дата отправки: 24.08.2007, 17:49
Рейтинг ответа:

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

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

Помогите пожалуйста. Как в экселе с помощью Вба сделать следующее:
Есть форма. В форме находится текстовое поле(textbox) и кнопка(CommandButton). При вводе любого текста в TextBox и нажатии CommandButton) я сделал, чтобы этот текст добавлялся в Диапозон ячеек( A1,A2,A3,....). Так вот какой код прописать, чтобы с каждым отправлением текста в столбец A(A1,A2,...) в столбце B(B1,B2...) автоматом добавлялось дата и время?
Пример:
Сегодня хорошая погода 23 апреля 2010 7:43
Завтра будет плохая погода 23 апреля 2010 7:44
.......................................................................................

Дата отправки: 23.04.2010, 11:46
Вопрос задал: Azarov88
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Дмитрий FC:

Здравствуйте, Azarov88.
Cells(i, "B") = Now

Консультировал: Дмитрий FC
Дата отправки: 23.04.2010, 12:06
Рейтинг ответа:

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


Консультирует Измалков Эдуард Леонидович:

Здравствуйте, Azarov88.
Немного дополню предыдущий ответ, чтобы содержимое ячейки было именно такого формата, как Вы хотите, необходим следующий код:

Cells(i,2).Value = Format(Now(), "dd mmmm yyyy hh:mm")

Консультировал: Измалков Эдуард Леонидович
Дата отправки: 23.04.2010, 18:30
Рейтинг ответа:

НЕ одобряю +1 одобряю!

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

Добрый день уважаемые эксперты! Подскажите как мне в файле Excel из колонки, где такие данные (число)текст, сделать две колонки следующие: число текст....

Дата отправки: 18.10.2007, 11:31
Вопрос задал: Чернов С.В.
Всего ответов: 6
Страница онлайн-консультации »


Консультирует Alexander N. Monastyrsky:

Здравствуйте, Чернов С.В.!
Это несложно.
А1 - число
В1 - текст
В ячейку С1 добавляем формулу "=СЦЕПИТЬ(A1;" ";B1)"
функция "сцепить" позволяет соединить до 30 возможных выражений.
Выражения вставляются в !текстовом! виде.
Тоесть чтобы добавить выражение чистовое или дату, то для правильного отображдения нужно преобразовать выражение в текст.

Приложение:

Консультировал: Alexander N. Monastyrsky
Дата отправки: 18.10.2007, 11:49
Рейтинг ответа:

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


Консультирует Genyaa:

Здравствуйте, Чернов С.В.!

Посмотрите Меню-Данные-Текст по столбцам...

Консультировал: Genyaa
Дата отправки: 18.10.2007, 12:25
Рейтинг ответа:

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


Консультирует Филатов Евгений Геннадьевич:

Здравствуйте, Чернов С.В.!
Может я не так понял вопрос, но Вы указали, что данные находятся в одной колонке в виде "(число)текст" , например в ячейке A1 находится строка "(123.45)privet".
В таков случае для разделения может помочь две формулы :
ячейка B1 "=ПСТР(A1;2;ПОИСК(")";A1;1)-2)"
ячейка C1 "=ПСТР(A1;ПОИСК(")";A1;1)+1;ДЛСТР(A1))"
Производится поиск закрывающей скобки в тексте ячейки и строка делится по этому символу.
Во второй формуле вместо "ДЛСТР(A1)" корректней было бы написать "ДЛСТР(A1)-ПОИСК(")";A1;1)" , но т.к. строка берется до конца, то в случае превышения количества символов, которые нужно выделить, над общей длиной строки берется фактическое их количества без вывода ошибки. В данном примере берется текст начиная с 10 позиции в количестве 15 символов - с 10 по 24 символ, что больше реальной длины строки в 15 символов.
С уважением.

Консультировал: Филатов Евгений Геннадьевич
Дата отправки: 18.10.2007, 15:38
Рейтинг ответа:

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


Консультирует Caspian:

Здравствуйте, Чернов С.В.! Число в исходном столбце у Вас на самом деле в скобках, или там только пробел? Если только пробел, предлагаю формылы. "=ЗНАЧЕН(ЛЕВСИМВ(A1;ПОИСК(" ";A1)-1))" - это для числа. "=ПСТР(A1;ПОИСК(" ";A1)+1;10000)" - для текста. Если же число в скобках, то перед использованием "ЗНАЧЕН" нужно их убрать с помощью "ПОДСТАВИТЬ" (если не знаете как, напишите в личку или в комментарии к ответу).

Консультировал: Caspian
Дата отправки: 18.10.2007, 16:21
Рейтинг ответа:

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


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

Здравствуйте, Чернов С.В.!
Do
chetchik = chetchik + 1
znachenie = Worksheets("Лист1").Range("A" & chetchik).Value
If chetchik = "" Then Exit Do
chislo = Val(znachenie)
Text = Mid(znachenie, Len(chislo) + 1)
Worksheets("Лист1").Range("B" & chetchik).Value = chislo
Worksheets("Лист1").Range("C" & chetchik).Value = Text
Loop

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

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


Консультирует Архипов Александр Леонидович:

Здравствуйте, Чернов С.В.!
Если формат в ячейке действительно (число)текст , то можно и без VBA.
В первой колонке (там где должны появиться число) формула:
=ЗНАЧЕН(ПСТР(A1;НАЙТИ("(";A1)+1;НАЙТИ(")";A1)-2))
Во второй колонке (там где должен остаться текст) формула:
=СЖПРОБЕЛЫ(ПСТР(A1;НАЙТИ(")";A1)+1;ДЛСТР(A1)-НАЙТИ(")";A1)))

Консультировал: Архипов Александр Леонидович
Дата отправки: 19.10.2007, 05:40
Рейтинг ответа:

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


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

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

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


В избранное