Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Формула для посменки

Автор Asante, 18.10.2011, 15:58

« назад - далее »

Asante

Подскажите формулу для VBA,два числа 15 и 8 принадлежат к ячейкам принадлежащим в VBA "D" и "K",необходимо чтоб при введении в первую ячейку буквы "Р" последующая ячейка также отмечалась буквой "Р",а в ячейках ниже ставились под первой 15 под второй 8,после этого две пустых и снова Р-15,Р-8 итак на месяц

Wasilic

Цитата: Asante от 18.10.2011, 15:58
два числа 15 и 8 принадлежат к ячейкам принадлежащим в VBA "D" и "K
Чёто не понятно. Ячейки, в общем то, имеют конкретный адрес "D1", "К1" и т.д.
А "D" и "К" это столбцы. И они как-то не вписываются в задаче.
Дальше, тоже не понятно:
Цитироватьнеобходимо чтоб при введении в первую ячейку буквы "Р"
Что значит в первую ячейку. Это в какую?
Кроме того, табель любого текущего месяца может закончиться на Р15 а следующего начаться с  Р-8, как тогда продолжить процедуру ввода, да и месяцы ведь не все по 30 дней.
И табель, он что, всего на 1-го человека?
Запутано всё как-то.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

Табель уже с макросом добавления людей и растановкой раб.- вых.дней(Кнопка на листе список),но он для недель а мне надо посменка,в этом и заключается проблема что возможно что месяц начнется с "р=8",я так думаю,что на листе список надо создать еще 4 ячейки(4 первых числа месяца в связи с 4 сменами),но как это описать в макросе?

Wasilic

Пример корявый но работает.
Остальное сам.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

почти оно,только уже без запроса даты,без добавления ячеек и без выпадающего списка :o

Wasilic

Не, ну это пример решения основного вопроса. А на остальное придется приложить собственные усилия.  :)
Успехов!
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

ну да,только проблема была в цикличности кода(можно было добавлять сколько угодно людей)а здесь код максимум на  четырех

Wasilic

#7
Вмакросе есть строка:
ЦитироватьKS = 4 ' последняя строка списка
Так определи сколько строк должно быть в списке. В примере 3 фамилии, последняя на 4-й строке, вот я и указал - KS=4.
Откуда мне знать сколько будет фамилий.

   KS = Range("C" & Rows.Count).End(xlUp).Row
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

Спасибо огромное,очень помогли еще один вопрос
Каким образом можно сделать здесь же зависимость от месяца
так чтоб не проставляло после окончания месяца

Wasilic

У Вас же есть рабочая версия на 6-ти дневку. Возьмите там нужные коды и доработайте. Или надо под ключ.  :)
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

под ключ не надо,а вот  направить в нужное русло и подсказать,критически не обходимо
просто знаком с VBA только неделю,а начальство мозг проело
а то вариант конечно класный но при ошибке месяца ничего не исправишь
тем более что делаю заполнение через диалоговое окно

Wasilic

Цитироватьпросто знаком с VBA только неделю
Понятно, значит под ключ. С миру по нитке ...
См. личные сообщения. Вверху страницы.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante


Wasilic

Цитата: Asante от 25.10.2011, 09:27
и в чем прикол?
На счет чего? Последнего Файла?
Доработаю, если будут выложены все ньюасы обращения с файлом.
Лучше в личку.
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Asante

а вот и он