Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Автоматическое добавление (удаление) строк
 
#1
16.02.2011 12:21:49
Добрый день! Помогите, пожалуйста, справится с такой задачкой. Каждый месяц я редактирую шаблон таблицы под выкачанные данные.При этом каждый раз меняется количество строк. Мне приходиться или расширять (добавлять строки)или сужать таблицу (удалять строки). Таких таблиц мне нужно сделать больше тридцать штук. А разница в кол-ве строк иногда может быть существенной. Помогите, пожалуйста, написать макрос, который бы корректировал высоту таблицы в зависимости от вставленного столбца (например, второго столбца). Спасибо всем большое за ранее.
 
 
 
#2
16.02.2011 12:32:31
Почитайте правила перед созданием тем, дайте пример, "что есть, что хочу",  
иначе утонет тема
 
 
 
#3
16.02.2011 13:49:47
{quote}{login=}{date=16.02.2011 12:32}{thema=Re: Автоматическое добавление (удаление) строк}{post}Почитайте правила перед созданием тем, дайте пример, "что есть, что хочу",  
иначе утонет тема{/post}{/quote}
 
 
 
#4
16.02.2011 15:19:30
Смотрите.
Я сам - дурнее всякого примера! ...
 
 
 
#5
16.02.2011 17:02:53
Спасибо большое!
 
 
 
#6
16.02.2011 17:10:02
Да ради Бога. Просто если хотите получать ответы поскорей и без лишней переписки - помните о п.3 правил форума. Удачи!  
 
80330
Я сам - дурнее всякого примера! ...
 
 
 
#7
18.02.2011 12:02:45
Здравствуйте, nilem!БОЛЬШОЕ Вам спасибо за тот карандашь, который вы для меня сделали.Только у меня нет доступа к теме sergio76 (Копировать-вставить со сдвигом всех строк таблицы new)и я не могу забрать те нароботки, котры вы сделали непосредственно со своего комп-ра. С других компов получается, а с моего нет((((.    
По поводу карандаша у меня вопросик, как добавить строки еще, Вы сделали мак.на 120...у меня иногда до 400х доходит (как самой на будущее расширять диапазон)...И еще меня интересует модель 12, за чем он я до конца так и не поняла...Буду ОООЧЕНЬ благодарна.
 
 
 
#8
18.02.2011 12:08:35
{quote}{login=Наталия}{date=18.02.2011 12:02}{thema=}{post}у меня нет доступа к теме sergio76 {/post}{/quote}  
Попробуйте удалить куки в Вашем Интернет-обозревателе. И после этого попробуйте снова зайти в ту тему.
 
 
 
#9
18.02.2011 12:30:38
{quote}{login=Юрий М}{date=18.02.2011 12:08}{thema=Re: }{post}{quote}{login=Наталия}{date=18.02.2011 12:02}{thema=}{post}у меня нет доступа к теме sergio76 {/post}{/quote}  
Попробуйте удалить куки в Вашем Интернет-обозревателе. И после этого попробуйте снова зайти в ту тему.{/post}{/quote}  
 
СПАСИБО БОЛЬШОЕ! Доступ открылся).
 
 
 
#10
18.02.2011 12:47:20
оффтоп, а может и нет - удалять все куки вероятно лишнее, хватит удалить один файл.  
А чтоб не делать это каждый раз вручную, я себе подспорье сделал. Если у Вас система не на диске С и не ХР, то вероятно нужно корректировать.  
Сохранить этот текст как *.vbs и запустить:  
 
 
Set FSO = CreateObject("Scripting.FileSystemObject")    
 
'### определяем user  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")      
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer"  
strValueName = "Logon User Name"  
oReg.GetExpandedStringValue &H80000001, strKeyPath, strValueName, strValue  
'msgbox strValue  
 
Set TheFolder = FSO.GetFolder("C:\Documents and Settings\" & strValue & "\Cookies\") 'Каталог, откуда удалять    
Set TheFiles = TheFolder.Files    
For Each AFile In TheFiles    
   If instr(AFile,"planetaexcel")>0 Then AFile.Delete    
Next  
 
 
Хотя конечно юзера можно сразу прописать в путь к файлам - Вы ведь себя знаете :)  
Тогда половину кода можно выкинуть.
 
 
 
#11
18.02.2011 12:50:49
Просто вставьте столько строк, сколько нужно. А в коде измените размерность массивов и адреса диапазонов. Сравните этот и предыдущий файлы - станет понятно.  
В зеленых ячейках функции ЧислоПрописью и СуммаПрописью - это из Module11 (автор неизвестен).  
В синих ячейках функция Пропис - это из Module12 (автор IgorGo). Функция может возвратить рубли, гривны, на рус., на укр. языках и т.д. Справка по функции на листе Справка.
 
 
 
#12
18.02.2011 13:59:47
СПАСИБО Вам большое, nilem,Hugo!  
ВЫ ПРОСТО МОЛОДЦЫ!    
Выношу Вам эти слова благодарности в надежде, что Ваше начальство их прочтет и поощрит Вас за Ваши труды (премия, надбавки за работу с такими новичками как я)) ). ОООчень благодарна Вам! Еще раз спасибо!!!  
Сайт просто бомбовый!!!!
 
 
 
#13
23.02.2011 17:19:36
Здравствуйте, nilem! Пользуясь случаем, хочу поздравить Вас с 23 февраля!)  
У меня возникла опять небольшая проблемка. Иногда (при выгрузке данных из программы )у меня выводятся нулевые суммы (это так надо). Как в моем макросе добавить условие(если в колонке сумма стоит 0, тогда и цена 0).    
За ранее спасибо!
 
 
 
#14
23.02.2011 17:30:37
{quote}{login=Наталия!}{date=23.02.2011 05:19}{thema=}{post}Здравствуйте, nilem! Пользуясь случаем, хочу поздравить Вас с 23 февраля!)  
У меня возникла опять небольшая проблемка. Иногда (при выгрузке данных из программы )у меня выводятся нулевые суммы (это так надо). Как в моем макросе добавить условие(если в колонке сумма стоит 0, тогда и цена 0).    
За ранее спасибо!{/post}{/quote}
 
 
 
#15
24.02.2011 13:31:13
Уважаемый, nilem!Помогите, пожалуйста, решить проблемку, которую я выложила 23.02.2011. ОООчень надо! Большое спасибо за ранее)
 
 
 
#16
24.02.2011 14:12:55
Если кол-во нулевое (в примере у Вас выделено желтым), то цена и сумма тоже по нулям. Так?
 
 
 
#17
24.02.2011 19:16:48
{quote}{login=nilem}{date=24.02.2011 02:12}{thema=}{post}Если кол-во нулевое (в примере у Вас выделено желтым), то цена и сумма тоже по нулям. Так?{/post}{/quote}  
 
 
Спасибо большое!    
Но я немного неправильно изложила Вам условие (голова уже кругом, я недавно внедрилась в мир макросов).  
Верное вот такое, если сумма = 0, тогда цена равна 0; если кол-во (или кол-во и сумма)= равно ноль, тогда след. шаг! За ранее благодарна.
 
 
 
#18
24.02.2011 22:53:08
{quote}{login=}{date=24.02.2011 07:16}{thema=Re: }{post}{quote}{login=nilem}{date=24.02.2011 02:12}{thema=}{post}Если кол-во нулевое (в примере у Вас выделено желтым), то цена и сумма тоже по нулям. Так?{/post}{/quote}  
...Верное вот такое, если сумма = 0, тогда цена равна 0; если кол-во (или кол-во и сумма)= равно ноль, тогда след. шаг! За ранее благодарна.{/post}{/quote}  
Если сумма 0, то цена и раньше была 0 (цена у нас определяется делением суммы на кол-во). А если кол-во 0, то "след. шаг" - видимо, след. строка, т.е. пропускаем строки с нулевым кол-вом. Вот, смотрите (в коде закомментирована строка для др. условий - попробуйте).  
Если не так, то давайте подробный пример с разными вариантами.
 
 
 
#19
25.02.2011 15:16:10
Nilem!Большое Вам человеческое СПАСИБО!    
Немного уже начала разбираться). Еще раз спасибо.
 
 
 
Страницы: 1
Читают тему
Loading...