Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/удаление строки с екселе при разных данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
удаление строки с екселе при разных данных
anger47 Дата: Четверг, 12.07.2012, 18:47 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Здравствуйте, форумчане! Так как Я много раз в день выписываю счета за проделанную работу, я решил написать Эксель-программу, в которой нужно будет изменить совсем немного и нажать кнопку распечатать. Ну а теперь по существу:
- Мне нужно помочь написать макрос, для такой ситуации есть три вида счета - "Полный отчет", "Актуализированный отчет" и "Только акт" я рядом поставил переключатели с галочками и хочу, чтобы при выборе одного из них остальные отключались. а также менялись некоторые условия в счете при различных вариантах выбора .... Более подробно написано в ексель файле.
К сообщению приложен файл: _Exel_.xlsx.xlsm (43.3 Kb)


Сообщение отредактировал anger47 - Четверг, 12.07.2012, 21:42
 
Ответить
СообщениеЗдравствуйте, форумчане! Так как Я много раз в день выписываю счета за проделанную работу, я решил написать Эксель-программу, в которой нужно будет изменить совсем немного и нажать кнопку распечатать. Ну а теперь по существу:
- Мне нужно помочь написать макрос, для такой ситуации есть три вида счета - "Полный отчет", "Актуализированный отчет" и "Только акт" я рядом поставил переключатели с галочками и хочу, чтобы при выборе одного из них остальные отключались. а также менялись некоторые условия в счете при различных вариантах выбора .... Более подробно написано в ексель файле.

Автор - anger47
Дата добавления - 12.07.2012 в 18:47
KuklP Дата: Четверг, 12.07.2012, 19:14 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Умиляет: - помогите. Какой помогите, сделайте за меня. И не абы что, целое приложение. А я, дурак(или умный) такой, нифига в Эксе не шарю, поэтому хочу чтоб за меня МОЮ РАБОТУ, на халяву(!), прокопытили форумчане. Душевно, нет слов...
PS Я бы такую работу примерно в ~ 200$ оценил. Потому как нудная и неинтересная(кое-что поменял бы в условиях на более эффективное).
PPS И почему всем(ну многим) кажется, что форум - стол халявных заказов? Уже даже не просят, тупо так: "Все описано в файле." Щелкнул пальцами - эй! человек!


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Четверг, 12.07.2012, 19:25
 
Ответить
СообщениеУмиляет: - помогите. Какой помогите, сделайте за меня. И не абы что, целое приложение. А я, дурак(или умный) такой, нифига в Эксе не шарю, поэтому хочу чтоб за меня МОЮ РАБОТУ, на халяву(!), прокопытили форумчане. Душевно, нет слов...
PS Я бы такую работу примерно в ~ 200$ оценил. Потому как нудная и неинтересная(кое-что поменял бы в условиях на более эффективное).
PPS И почему всем(ну многим) кажется, что форум - стол халявных заказов? Уже даже не просят, тупо так: "Все описано в файле." Щелкнул пальцами - эй! человек!

Автор - KuklP
Дата добавления - 12.07.2012 в 19:14
anger47 Дата: Четверг, 12.07.2012, 19:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

1-ое:
Quote (KuklP)
сделайте за меня
не сделает за меня, а помогите. подскажите и т.д.
2-ое:
Quote (KuklP)
А я, дурак(или умный) такой, нифига в Эксе не шарю, поэтому хочу чтоб за меня МОЮ РАБОТУ
- ето не так: в екселе я разбираюсь(вроде), но я хотел бы что бы ето было макросами.
3-ое:
Quote (KuklP)
И не абы что, целое приложение
- предложение, что бы сразу все было понятно. что я хочу. А не по одной операция. а потом ломать голову всем почему у меня не сходится.
4-ое: KuklP, не можешь, не знаешь, не хочешь - сам. зачем грубить....а?
5-ое: если разбить все на операции, ето будет 5-6 тем.
6-ое: если что то подобное уже делалось, скиньте ссылки.
 
Ответить
Сообщение1-ое:
Quote (KuklP)
сделайте за меня
не сделает за меня, а помогите. подскажите и т.д.
2-ое:
Quote (KuklP)
А я, дурак(или умный) такой, нифига в Эксе не шарю, поэтому хочу чтоб за меня МОЮ РАБОТУ
- ето не так: в екселе я разбираюсь(вроде), но я хотел бы что бы ето было макросами.
3-ое:
Quote (KuklP)
И не абы что, целое приложение
- предложение, что бы сразу все было понятно. что я хочу. А не по одной операция. а потом ломать голову всем почему у меня не сходится.
4-ое: KuklP, не можешь, не знаешь, не хочешь - сам. зачем грубить....а?
5-ое: если разбить все на операции, ето будет 5-6 тем.
6-ое: если что то подобное уже делалось, скиньте ссылки.

Автор - anger47
Дата добавления - 12.07.2012 в 19:26
anger47 Дата: Четверг, 12.07.2012, 19:34 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Quote (KuklP)
Уже даже не просят, тупо так: "Все описано в файле.

А есть смысл дважды расписывать, то уже написал в екселе. кроме того, что даже в правилах написано
Quote
Всегда прикладывайте файл-пример

З.Ы. я тут видел когда не зарегистрированным пользователям делали макросы на 2-3 листа А4. Но не было даже файла примера... Ещё раз пишу. Подскажите, направте в правильное русло...
Quote (KuklP)
PS Я бы такую работу примерно в ~ 200$ оценил.
- ну и запросчики.
 
Ответить
Сообщение
Quote (KuklP)
Уже даже не просят, тупо так: "Все описано в файле.

А есть смысл дважды расписывать, то уже написал в екселе. кроме того, что даже в правилах написано
Quote
Всегда прикладывайте файл-пример

З.Ы. я тут видел когда не зарегистрированным пользователям делали макросы на 2-3 листа А4. Но не было даже файла примера... Ещё раз пишу. Подскажите, направте в правильное русло...
Quote (KuklP)
PS Я бы такую работу примерно в ~ 200$ оценил.
- ну и запросчики.

Автор - anger47
Дата добавления - 12.07.2012 в 19:34
KuklP Дата: Четверг, 12.07.2012, 19:36 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote
не сделает за меня, а помогите. подскажите и т.д.

Да не вопрос, поможем и подскажем. Где Ваши попытки что-то сделать? И вопрос, что не получается?

Quote
4-ое: KuklP, не можешь, не знаешь, не хочешь - сам. зачем грубить....а?

А мне показалось не просто грубостью, а откровенным хамством вот это:
Quote
Все описано в файле.
Потому и написал: "Щелкнул пальцами - эй! человек!"
Далее, я с Вами, anger47, ни свиней, ни гусей не пас. Почему Вы позволяете себе ТЫкать мне? Это в дополнение к вопросу о хамстве.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Quote
не сделает за меня, а помогите. подскажите и т.д.

Да не вопрос, поможем и подскажем. Где Ваши попытки что-то сделать? И вопрос, что не получается?

Quote
4-ое: KuklP, не можешь, не знаешь, не хочешь - сам. зачем грубить....а?

А мне показалось не просто грубостью, а откровенным хамством вот это:
Quote
Все описано в файле.
Потому и написал: "Щелкнул пальцами - эй! человек!"
Далее, я с Вами, anger47, ни свиней, ни гусей не пас. Почему Вы позволяете себе ТЫкать мне? Это в дополнение к вопросу о хамстве.

Автор - KuklP
Дата добавления - 12.07.2012 в 19:36
KuklP Дата: Четверг, 12.07.2012, 19:42 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote (anger47)
А есть смысл дважды расписывать, то уже написал в екселе. кроме того, что даже в правилах написано

Вижу, правила читали. Но невнимательно:
Пишите грамотно, на нормальном русском или если этот язык Вам не родной, то английском;
При выкладывании решений в файле, комментируйте способ решения в теле поста.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Quote (anger47)
А есть смысл дважды расписывать, то уже написал в екселе. кроме того, что даже в правилах написано

Вижу, правила читали. Но невнимательно:
Пишите грамотно, на нормальном русском или если этот язык Вам не родной, то английском;
При выкладывании решений в файле, комментируйте способ решения в теле поста.

Автор - KuklP
Дата добавления - 12.07.2012 в 19:42
Serge_007 Дата: Четверг, 12.07.2012, 19:44 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (anger47)
А есть смысл дважды расписывать, то уже написал в екселе. кроме того, что даже в правилах написано

Есть. anger47, внёс изменения в правила. Закон (правила) обратной силы не имеет, так что пока (до завтра) - это не нарушение.

KuklP, Серёг, кончай флудить


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (anger47)
А есть смысл дважды расписывать, то уже написал в екселе. кроме того, что даже в правилах написано

Есть. anger47, внёс изменения в правила. Закон (правила) обратной силы не имеет, так что пока (до завтра) - это не нарушение.

KuklP, Серёг, кончай флудить

Автор - Serge_007
Дата добавления - 12.07.2012 в 19:44
KuklP Дата: Четверг, 12.07.2012, 19:47 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ок. Согласен.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Четверг, 12.07.2012, 19:49
 
Ответить
СообщениеОк. Согласен.

Автор - KuklP
Дата добавления - 12.07.2012 в 19:47
Hugo Дата: Четверг, 12.07.2012, 20:40 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
1. Если вместо "птичек" использовать OptionButton (или по русски Переключатели) - то работать будет так, как хотите с птичками без особых ухищрений.

2. Для второго листа кажется чуть формулу недотянули:
=СЦЕПИТЬ(Лист1!C12;" держ. номер ";Лист1!C14;" (";ЕСЛИ(Лист1!C16<3;Лист1!C16;Лист1!F16) & ")")

3. Остальное понимается с трудом... Но сделать вроде бы не так и сложно - Сергей тут уж загнул с ценой smile


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение1. Если вместо "птичек" использовать OptionButton (или по русски Переключатели) - то работать будет так, как хотите с птичками без особых ухищрений.

2. Для второго листа кажется чуть формулу недотянули:
=СЦЕПИТЬ(Лист1!C12;" держ. номер ";Лист1!C14;" (";ЕСЛИ(Лист1!C16<3;Лист1!C16;Лист1!F16) & ")")

3. Остальное понимается с трудом... Но сделать вроде бы не так и сложно - Сергей тут уж загнул с ценой smile

Автор - Hugo
Дата добавления - 12.07.2012 в 20:40
anger47 Дата: Четверг, 12.07.2012, 21:27 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Quote
3. Кратко, но ёмко опишите задачу в теле поста.

шас роспишу. до завтра попробую зделать кое что сам...Извините если я Вас обидел или нахамил...
впредь постараюсь сам писать макрос...
 
Ответить
Сообщение
Quote
3. Кратко, но ёмко опишите задачу в теле поста.

шас роспишу. до завтра попробую зделать кое что сам...Извините если я Вас обидел или нахамил...
впредь постараюсь сам писать макрос...

Автор - anger47
Дата добавления - 12.07.2012 в 21:27
RAN Дата: Четверг, 12.07.2012, 22:30 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Quote (KuklP)
Почему Вы позволяете себе ТЫкать мне? Это в дополнение к вопросу о хамстве.

Молодежь! Что поделать! surprised

Quote (Hugo)
Но сделать вроде бы не так и сложно - Сергей тут уж загнул с ценой

Игорь, мой файл реестра для осушествления аналогичной деятельности, в итоге содержит ~ 20 Sub + 5 Function + 3 Userform. Начал я его делать еще до знакомства с форумами, иногда (правда редко) правлю и сейчас. + использую в нем формулы листа (Михаил С, Kim) и формы заполнения на листе. + листы с формами вывода на печать Чьи были подсказки по макросам - и не упомню!
Делал я все это потихоньку почти год. cool
Но никому ничего не платил! biggrin

В дополнение
anger47, Есть несколько причин написать макрос
1. Человек старается, но не получается
2. Ну очень скучно
3. Мне очень интересно
4. Мне совсем не интересно, но мне платят деньги.


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 12.07.2012, 22:40
 
Ответить
Сообщение
Quote (KuklP)
Почему Вы позволяете себе ТЫкать мне? Это в дополнение к вопросу о хамстве.

Молодежь! Что поделать! surprised

Quote (Hugo)
Но сделать вроде бы не так и сложно - Сергей тут уж загнул с ценой

Игорь, мой файл реестра для осушествления аналогичной деятельности, в итоге содержит ~ 20 Sub + 5 Function + 3 Userform. Начал я его делать еще до знакомства с форумами, иногда (правда редко) правлю и сейчас. + использую в нем формулы листа (Михаил С, Kim) и формы заполнения на листе. + листы с формами вывода на печать Чьи были подсказки по макросам - и не упомню!
Делал я все это потихоньку почти год. cool
Но никому ничего не платил! biggrin

В дополнение
anger47, Есть несколько причин написать макрос
1. Человек старается, но не получается
2. Ну очень скучно
3. Мне очень интересно
4. Мне совсем не интересно, но мне платят деньги.

Автор - RAN
Дата добавления - 12.07.2012 в 22:30
anger47 Дата: Пятница, 13.07.2012, 00:02 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Quote (Hugo)
2. Для второго листа кажется чуть формулу недотянули:
=СЦЕПИТЬ(Лист1!C12;" держ. номер ";Лист1!C14;" (";ЕСЛИ(Лист1!C16<3;Лист1!C16;Лист1!F16) & ")")

благодаря подсказке решыл вопрос через "диспечер имен". На сегодня хватит...
К сообщению приложен файл: _Exel-xlsx.xlsm (39.5 Kb)


Сообщение отредактировал anger47 - Пятница, 13.07.2012, 08:39
 
Ответить
Сообщение
Quote (Hugo)
2. Для второго листа кажется чуть формулу недотянули:
=СЦЕПИТЬ(Лист1!C12;" держ. номер ";Лист1!C14;" (";ЕСЛИ(Лист1!C16<3;Лист1!C16;Лист1!F16) & ")")

благодаря подсказке решыл вопрос через "диспечер имен". На сегодня хватит...

Автор - anger47
Дата добавления - 13.07.2012 в 00:02
anger47 Дата: Вторник, 17.07.2012, 14:55 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Доброго Дня! Как я писал ранее, мне нужна Ваша помощь. Все что я хотел, чтобы Вы помогли я сделал (потихоньку). Но последний пункт, не могу до делать. Суть: мне нужно, чтобы при нажатий на картинку в виде дискеты. выскакивало окошко с возможностью сохранить файл, но с некоторыми дополнениями...Продолжение в файле примере.
P.S. ссылку Макрос Save_Copy_As не предлагать . написано там все хорошо, но я не смог разобраться, что там и куда. если Вы можете подставить. то что мне надо под данный макрос. буду благодарен.
К сообщению приложен файл: _WinRAR.rar (86.8 Kb)


Сообщение отредактировал anger47 - Вторник, 17.07.2012, 15:06
 
Ответить
СообщениеДоброго Дня! Как я писал ранее, мне нужна Ваша помощь. Все что я хотел, чтобы Вы помогли я сделал (потихоньку). Но последний пункт, не могу до делать. Суть: мне нужно, чтобы при нажатий на картинку в виде дискеты. выскакивало окошко с возможностью сохранить файл, но с некоторыми дополнениями...Продолжение в файле примере.
P.S. ссылку Макрос Save_Copy_As не предлагать . написано там все хорошо, но я не смог разобраться, что там и куда. если Вы можете подставить. то что мне надо под данный макрос. буду благодарен.

Автор - anger47
Дата добавления - 17.07.2012 в 14:55
anger47 Дата: Вторник, 17.07.2012, 17:44 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Quote (anger47)
ссылку Макрос Save_Copy_As не предлагать

снова немного поиграл я с макросом,что по ссылке выше. я добился сохранения в нужном мне папке и имени, но как сделать так чтобы название копии было не Рахунок и Акт [17.07.2012], Рахунок и Акт [и текст из ячейки на Листе=Вихідні дані!D2] Вот так: Рахунок и Акт [07_06_12ВН]. Числа 07_06_12 могут меняться. Подскажите?
К сообщению приложен файл: __-.xlsm (63.1 Kb)
 
Ответить
Сообщение
Quote (anger47)
ссылку Макрос Save_Copy_As не предлагать

снова немного поиграл я с макросом,что по ссылке выше. я добился сохранения в нужном мне папке и имени, но как сделать так чтобы название копии было не Рахунок и Акт [17.07.2012], Рахунок и Акт [и текст из ячейки на Листе=Вихідні дані!D2] Вот так: Рахунок и Акт [07_06_12ВН]. Числа 07_06_12 могут меняться. Подскажите?

Автор - anger47
Дата добавления - 17.07.2012 в 17:44
Гость Дата: Вторник, 17.07.2012, 23:15 | Сообщение № 15
Группа: Гости
anger47!
Ваш вопрос - тривиален.
Вы не догадались - почему Вам никто не хочет ответить на него?!
 
Ответить
Сообщениеanger47!
Ваш вопрос - тривиален.
Вы не догадались - почему Вам никто не хочет ответить на него?!

Автор - Гость
Дата добавления - 17.07.2012 в 23:15
Jhonson Дата: Среда, 18.07.2012, 10:01 | Сообщение № 16
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

anger47, в Module1:
строчку:
[vba]
Code
Dim sSuff$: sSuff = " [" & Format(Now, "dd/mm/yyyy") & "]"
[/vba]
замените на:
[vba]
Code
Dim sSuff$: sSuff = " [" & Range("D2").Value & "]"
[/vba]


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
Сообщениеanger47, в Module1:
строчку:
[vba]
Code
Dim sSuff$: sSuff = " [" & Format(Now, "dd/mm/yyyy") & "]"
[/vba]
замените на:
[vba]
Code
Dim sSuff$: sSuff = " [" & Range("D2").Value & "]"
[/vba]

Автор - Jhonson
Дата добавления - 18.07.2012 в 10:01
Jhonson Дата: Среда, 18.07.2012, 10:02 | Сообщение № 17
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

или на такую:
[vba]
Code
Dim sSuff$: sSuff = " [" & Replace(Range("D2").Value, "/", "_") & "]"
[/vba]


"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 18.07.2012, 10:08
 
Ответить
Сообщениеили на такую:
[vba]
Code
Dim sSuff$: sSuff = " [" & Replace(Range("D2").Value, "/", "_") & "]"
[/vba]

Автор - Jhonson
Дата добавления - 18.07.2012 в 10:02
Jhonson Дата: Четверг, 19.07.2012, 11:43 | Сообщение № 18
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Проверяйте
К сообщению приложен файл: anger47.xlsm (59.7 Kb)


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеПроверяйте

Автор - Jhonson
Дата добавления - 19.07.2012 в 11:43
anger47 Дата: Четверг, 19.07.2012, 11:54 | Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Спасибо все отлично работает
 
Ответить
СообщениеСпасибо все отлично работает

Автор - anger47
Дата добавления - 19.07.2012 в 11:54
anger47 Дата: Четверг, 19.07.2012, 12:11 | Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Jhonson, глянь пожалуйста. постояно создается флажок Check Box -1018, почему?
К сообщению приложен файл: 0571160.xlsm (73.3 Kb)
 
Ответить
СообщениеJhonson, глянь пожалуйста. постояно создается флажок Check Box -1018, почему?

Автор - anger47
Дата добавления - 19.07.2012 в 12:11
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!