| ← Февраль 2011 → | ||||||
|
1
|
2
|
4
|
5
|
6
|
||
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
11
|
12
|
13
|
|
|
14
|
15
|
16
|
18
|
19
|
20
|
|
|
21
|
22
|
23
|
25
|
26
|
27
|
|
|
28
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://excel.1gb.ru/content/view/98/74/
Открыта:
16-11-2006
Статистика
427 подписчиков
0 за неделю
0 за неделю
garykzzz>> Re: Копирование столбца на новый лист по критерию дата
Форум по Microsoft Excel Выпуск 5 Подписчиков: 574 Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"
Новости сайта в формате RSS Порекомендуйте нашу рассылку друзьям Обратная связь Наши рассылки: Наши сайты Профессиональные приемы работы в Microsoft Excel bonifatiy.narod.ru Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии. StudentTools.Narod.Ru Для тех, кто любит учиться Наши друзья VBAtips.ru - wordexpert.ru planetaexcel.ru |
Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel".
Код: lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row на прямое её задание.SS78RUS>> Re: Макрос переноса данных из одного файла в другой 2011-02-02 23:35 http://forum.msexcel.ru/profiles/ss78rus-u19949.html  Всё верно, я уже смотрел как работает этот макрос, НО соседние колонки не пустые.. вот почему спрашиваю именно про копирование колонок, хотя выделенный диапазон более интересен..Спасибо! Student666>> как совместить разные типы данных? 2011-02-03 01:30 http://forum.msexcel.ru/profiles/student666-u67340.html тема наверное неправильно названа сорри. вопрос такой: есть формула скажем x+y=a+b+c+d известны y,a,c (скажем 4; 12; 34,75) лежащие в ячейках A1 B2 C3 мне не нужно считать что там получится мне надо чтобы Excel выводил вместо y,a,c результаты рассчетов из ячеек A1 B2 C3 те просто формула должна принимать такой вид x+4=12+b+34,75+d соответственно при изменении результатов в ячейках они должны выводится в формулы. как это сделать? заранее Спасибо! _Boroda_>> Re: Вставка или удаление строк при изменении ячейки и автоматическая перенумератция 2011-02-03 02:03 http://forum.msexcel.ru/profiles/boroda-u12234.html А такой вариант подойдет? _Boroda_>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-03 02:25 http://forum.msexcel.ru/profiles/boroda-u12234.html Уважаемый Poltava. К сожалению, Ваш макрос работать будет не корректно. Давайте представим себе, что в диапазоне В8:В18 у нас нули в ячейках В8 и В9, а в В10 значение 22222. Тогда, следуя Вашему коду, последовательность действий будет такая: 1). i=B8, поскольку В8=0, то удаляем строку 8 и строка, которая была под номером 9 становится строкой 8, а десятая строка становится девятой; 2). i=В9, в В9 у нас сейчас не 0, как было до удаления восьмой строки, а 22222 из ячейки, которая была В10, а сейчас стала В9. Ее не удаляем. И так далее. И все бы хорошо, но ноль, который сначала был в В9, а после удаления строки 8 стал в В8, так и остался. Такие макросы нужно писать с циклом от конца диапазона к началу (то есть For i = 18 to 8 step = -1). Но, если объем проверяемых данных велик, то такой цикл займет довольно много времени. Я такие вещи делаю вообще без цикла. Если Demitius приложит свой файл, то с удовольствием покажу как. _Boroda_>> Re: как совместить разные типы данных? 2011-02-03 02:30 http://forum.msexcel.ru/profiles/boroda-u12234.html см. вложение equinor>> организация циклов B MS EXCEL 2011-02-03 02:38 http://forum.msexcel.ru/profiles/equinor-u67348.html Помогите пожалуйста военным!делаю программу для учета личного состава и для составления ежедневного расхода печатается справка.суть в следующем: есть таблица с заголовками должность, звание, ФИО далее идут заголовки наряд отпуск командировка болен и в зависимости от того где находится военнослужащий ему соответственно в той колонке ставится единичка.потом единички суммируются и у нас есть сколько в наряде сколько больных и тд. в сумме.но еще хочется чтобы программа выбирала фамилии например будет колонка болен и туда должны попасть все фамилии напротив которых стоит единичка в колонке болен.и тд.помогите если кто сможет. Student666>> Re: как совместить разные типы данных? 2011-02-03 02:48 http://forum.msexcel.ru/profiles/student666-u67340.html как здесь плюсы ставить? Бааальшое спасибо! vovan852>> Найти добавленные строки 2011-02-03 08:14 http://forum.msexcel.ru/profiles/vovan852-u67447.html Здравствуйте, помогите пожалуйста ламеру Ситуация такая. Ежемесячно мне сбрасывают прайс в котором порядка 7000 строк. Каждый раз этот прайс увеличивается. Т.е. к старой информации добавляется новая. Прайс отсортирован по алфавиту. Вопрос такой. Как можно вытащить новые строки, сравнив старый и новый прайсы, в другой файл или на другой лист.Формат каждый раз одинаковый. Т.е. количество и наименование столбцов остается старое. Подскажите пожалуйста или дайте ссылочку где можно почитать об этом. Заранее всем благодарен. Demitius>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-03 08:39 http://forum.msexcel.ru/profiles/demitius-u67033.html Добрый день "Борода" ! Действительно так и есть, строки при удалении могут менятся. Файл прилагаю но к сожалению всё не так просто, Н/Д может действительно вылезти в любом месте столбца А. Простенький Файл прилагаю. Poltava>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-03 08:51 http://forum.msexcel.ru/profiles/poltava-u39021.html Спасибо за разъяснение как писал выше на роль эксперта не претендую так что прошу не обижаться я сразу предупреждал Poltava>> Re: Вставка или удаление строк при изменении ячейки и автоматическая перенумератция 2011-02-03 08:58 http://forum.msexcel.ru/profiles/poltava-u39021.html не совсем ведь если в строке пустота то ее не нужно нумеровать это раз и к томуже хотелось бы макросом Function hid(rng As Range) As Long If rng.EntireRow.Hidden Then hid = rng.Value Else hid = rng.Value + 1 End If End Function этот пример работает не совсем коректно так как если скрываеться пустая строка то следующая за ней получает значение равное 0 а не +1 к предидушей не скрытой это раз во вторых при копировании на новый лист этот макрос не парессчитываеться а перессчирываеться только при входе и выходе из ячейки IKor>> Re: Найти добавленные строки 2011-02-03 09:31 http://forum.msexcel.ru/profiles/ikor-u6827.html Пусть у Вас старый прайс располагается в столбце А на листе 1, а новый - в столбце А на листе 2. тогда в ячейке В1 на листе 2 записываем следующую формулу: =ЕОШИБКА(ПОИСКПОЗ($A1;Лист1!$A:$A;0)) которая вернет ЛОЖЬ, если значение из ячейки A1 присутствует в старом прайсе и ИСТИНА - в случае отсутствия. затем копируем эту формулу напротив остальных ячеек нового прайса или используем ее в качестве критерия для УСЛОВНГО ФОРМАТИРОВАНИЯ для ячейки А1, формат которой после может быть скопирован для всех остальных ячеек нового прайса. P.S. Новый прайс необязательно копировать в старую книгу. Аналогичные формулы будут прекрасно работать со внешними связями, при условии что внешняя книга открыта. P.P.S. Для ускорения работы формулы вместо ссылки на целый столбец А:А можно указать точную ссылку на старый прайс, например, $A$5:$A$105. Совет: используйте именованные диапазоны. _Boroda_>> Re: Вставка или удаление строк при изменении ячейки и автоматическая перенумератция 2011-02-03 09:37 http://forum.msexcel.ru/profiles/boroda-u12234.html Тогда еще проще Для А18 =СУММ(A17;ПРОМЕЖУТОЧНЫЕ.ИТОГИ(103;B18)) Rimsky>> Разобрать строчку по запятым и собрать заново 2011-02-03 09:43 http://forum.msexcel.ru/profiles/rimsky-u34074.html Доброе время суток! Я в экселе слабоват, помогите пожалуйста. Есть строчки вида 302004, РОССИЯ, , , г Орел, , ул Канадская, 8, , 9 , РОССИЯ, Орловская обл, Орловский р-н, , , ул Орловская, 1, , 2 Надо разобрать их на отдельный лист в каждый столбец по слову от запятой до запятой и склеить заново в другом порядке, если слова нет - ячейка пустая. С помощью этого сайта и яндекса намудрил следующее [code] Function IsWorkSheetExist(sSName As String) As Boolean Dim c As Object On Error GoTo errНandle: Worksheets(sSName).Cells(1, 1) = Worksheets(sSName).Cells(1, 1) IsWorkSheetExist = True Exit Function errНandle: IsWorkSheetExist = False End Function Sub TextToColumns() Dim rRange As Object If IsWorkSheetExist("www") = True Then ActiveWorkbook.Worksheets("www").Delete If TypeName(Selection) <> "Range" Then MsgBox "Выделенная область не является диапазоном", vbCritical, "Неверное выделение": Exit Sub Set rRange = Intersect(Selection, ActiveSheet.UsedRange) Dim ... IKor>> Re: организация циклов B MS EXCEL 2011-02-03 09:44 http://forum.msexcel.ru/profiles/ikor-u6827.html Для того, чтобы упростить задачу тем, кто может вам помочь, приложите пример вашего документа (без секретной информации) и укажите в нем начальные условия (то что Вы имеете) и результат (то, что хочется получить). nilem>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 10:06 http://forum.msexcel.ru/profiles/nilem-u30547.html Дайте примерчик нескольких исходных строк и покажите, как надо сцепить. Diml>> Re: Списки в Excel 2011-02-03 10:13 http://forum.msexcel.ru/profiles/diml-u67158.html 2 Diml Но вот на основании данных из какого столбца строки G11:I11 определять указанный пользователем материал (= номер столбца) - лично мне непонятно. Уточните свой запрос И удачи! Уточнение: D ячейку N11 нужна формула, чтобы он проверил ячейку В11 и I11. В данном случае 1 этажный кирпичный дом, кровля металлочерепица, соответственно формула должна выбрать ячейку Е57, если бы в I11 стояло железо - то D57. Помогите пожалуйста с формулой MCH>> Re: организация циклов B MS EXCEL 2011-02-03 10:14 http://forum.msexcel.ru/profiles/mch-u48782.html Два решения: с дополнительными столбцами и без (с использованием формул массива) Rimsky>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 10:36 http://forum.msexcel.ru/profiles/rimsky-u34074.html Дайте примерчик нескольких исходных строк и покажите, как надо сцепить. Да вот хотел прицепить а сайт показывает "индейскую хижину" - превышена нагрузка на сайтВот SS78RUS>> Re: График с суммированием значений 3-х столбцов по часам. 2011-02-03 10:37 http://forum.msexcel.ru/profiles/ss78rus-u19949.html Так как с сутками быть, никто не подскажет?  Буду старым проверенным методом "тыка" пробовать..
vovan852>> Re: Найти добавленные строки 2011-02-03 10:38 http://forum.msexcel.ru/profiles/vovan852-u67447.html Спасибо за ответ, сейчас поробую _Boroda_>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-03 10:50 http://forum.msexcel.ru/profiles/boroda-u12234.html Вроде так работает Код: Sub Макрос1()
r_ = Range("A1").End(xlDown).Row Range("A1:A" & r_).Replace What:="#", Replacement:="///#" Range("A1:A" & r_).AutoFilter ActiveSheet.Range("$A$1:$A$94").AutoFilter Field:=1, Criteria1:="///#N/A" Range("A2:A" & r_).SpecialCells(xlCellTypeVisible).EntireRow.Delete Selection.AutoFilter End Sub Poltava>> Re: Вставка или удаление строк при изменении ячейки и автоматическая перенумератция 2011-02-03 10:58 http://forum.msexcel.ru/profiles/poltava-u39021.html не скажите наверно не правильно выразился смотрите что получается если в скрытый диапвзон попала пастая ячейка nilem>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 11:06 http://forum.msexcel.ru/profiles/nilem-u30547.html Если нужные части строки всегда будут находиться на 7, 8, и 10 позициях исходной строки (судя по примеру, так оно и есть). Проверяйте. _Boroda_>> Re: Вставка или удаление строк при изменении ячейки и автоматическая перенумератция 2011-02-03 11:07 http://forum.msexcel.ru/profiles/boroda-u12234.html А зачем скрывать пустую строку? Она же как разделитель используется. Rimsky>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 11:25 http://forum.msexcel.ru/profiles/rimsky-u34074.html Если нужные части строки всегда будут находиться на 7, 8, и 10 позициях исходной строки (судя по примеру, так оно и есть). Спасибо, но немножко не так. Нужно чтобы переписанные строчки были напротив фамилий/имен (третий столбец), те этот файл должен стать шаблоном, вставил в этот файлик нужные данные, нажал кнопочку и из третьго столбца забрал что нужно.
Проверяйте. Poltava>> Re: Вставка или удаление строк при изменении ячейки и автоматическая перенумератция 2011-02-03 11:29 http://forum.msexcel.ru/profiles/poltava-u39021.html на тот случай когда нам нужно список без зависимости от подразделения я конечно понимаю что ее можно удалить и тогда получим нужный эффект но все же lovko>> Отображение данных одного листа на другом листе 2011-02-03 11:39 http://forum.msexcel.ru/profiles/lovko-u30610.html Смотрите прилагающийся файл. В столбце А указаны коды тарифов, а их величины в рублях - в столбце С. Эти величины забиты через формулу и отображаются только напротив отдельных кодов (в зависимости от значения ячейки В, на которой и завязана формула с величиной тарифа). Необходимо, чтобы на листе2 отображались только те строки (тариф+величина), которые полностью заполнены на листе1 (тоже тариф – столбец А + величина – столбец С). Большое спасибо! nilem>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 11:54 http://forum.msexcel.ru/profiles/nilem-u30547.html Тогда вместо b2 пишем c2 (предпоследняя строка), вот так: Код: Sub Scepka()
Dim x, s, i As Long x = Range([b2], Cells(Rows.Count, 2).End(xlUp)).Value For i = 1 To UBound(x) s = Split(x(i, 1), ",") x(i, 1) = s(6) & " " & s(7) & " " & s(9) Next i [c2].Resize(UBound(x)).Value = x End Sub Serge 007>> Re: Отображение данных одного листа на другом листе 2011-02-03 11:57 http://forum.msexcel.ru/profiles/serge_007-u25260.html Формулами и сводной. anisolga>> Автонумерация при различных форматах ячеек 2011-02-03 12:00 http://forum.msexcel.ru/profiles/anisolga-u67554.html Здравствуйте! Нужна автонумерация в столбце. В новой таблице получилось (все ячейки одного формата), а как сделать это в уже существующей таблице, где ячейки разнятся по размерам. Заранее спасибо, Ольга. Rimsky>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 12:05 http://forum.msexcel.ru/profiles/rimsky-u34074.html Тогда вместо b2 пишем c2 (предпоследняя строка), вот так: а нафига тогда на промежуточном листе еще строчки из данных?Код: Sub Scepka() Dim x, s, i As Long x = Range([b2], Cells(Rows.Count, 2).End(xlUp)).Value For i = 1 To UBound(x) s = Split(x(i, 1), ",") x(i, 1) = s(6) & " " & s(7) & " " & s(9) Next i [c2].Resize(UBound(x)).Value = x End Sub Спасибо за помощь! lovko>> Re: Отображение данных одного листа на другом листе 2011-02-03 12:07 http://forum.msexcel.ru/profiles/lovko-u30610.html Премного благодарен! Не было такого случая, чтобы мне когда-то не помогли на этом сайте. Покорен вашими знаниями. Спасибо еще раз! Попробую разобраться с предложенными вами формулами. lovko>> Re: Отображение данных одного листа на другом листе 2011-02-03 12:22 http://forum.msexcel.ru/profiles/lovko-u30610.html Теперь не получается расширить поле с 13 строк, на которые ссылаются формулы листа 2, до больших размеров. Кодов тарифов у меня будет гораздо больше. Они займут в столбце А "высоту" как минимум А1:А1000. Помогите, пожалуйста! lovko>> Re: Отображение данных одного листа на другом листе 2011-02-03 12:23 http://forum.msexcel.ru/profiles/lovko-u30610.html И еще вопрос: сводная таблица - это второй вариант решения проблемы или она нужна обязательно, чтобы работали формулы на Листе 2? Михаил С.>> Re: Автонумерация при различных форматах ячеек 2011-02-03 12:31 http://forum.msexcel.ru/profiles/mihail_s-u26973.html Наверно точно также. Или показать свою табличку, и чем там отличаются ячейки. Serge 007>> Re: Отображение данных одного листа на другом листе 2011-02-03 13:08 http://forum.msexcel.ru/profiles/serge_007-u25260.html Сводная - это самостоятельный и более предпочтительный способ решения Вашей задачи. Что не получается с формулами? Demitius>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-03 13:31 http://forum.msexcel.ru/profiles/demitius-u67033.html Спасибо большое! Работает, да еще так как нужно! Пойду присобачу его на место, и будет мне счастье. boa>> Ширина колонок в ListBox 2011-02-03 13:54 http://forum.msexcel.ru/profiles/boa-u4698.html Доброго дня, Форумчане есть ListBox на 7 колонок установил точную ширину колонок в UserForm_Initialize, но при разных запусках на одном и том же компе для правильного отображения ListBox нужно то так написать, Код: .ColumnWidths = "2,45 cm;2,15 cm;4,05 cm;4 cm;3,8 cm;2 cm;2 cm" то такКод: .ColumnWidths = "2.45 cm;2.15 cm;4.05 cm;4 cm;3.8 cm;2 cm;2 cm" Вопрос: что и где еще надо дописать, что бы ColumnWidths понимал однозначно или точки или запятые? Спасибо. IKor>> Re: Списки в Excel 2011-02-03 13:54 http://forum.msexcel.ru/profiles/ikor-u6827.html 2 Diml формула для ячейки N11: =ВПР($B11;$B$53:$E$105;ПОИСКПОЗ($I11;$B$53:$E$53;0);0) если скопировать эту формулу в ячейку N12, то она изменится для работы с ячейками B12 и I12, соответственно. IKor>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 14:23 http://forum.msexcel.ru/profiles/ikor-u6827.html В Excel есть встроенный мастер "Текст по столбцам" (меню Данные). Посмотрите на его работу - возможно, Вам не понадобится писать макросы.
IKor>> Re: Ширина колонок в ListBox 2011-02-03 14:33 http://forum.msexcel.ru/profiles/ikor-u6827.html Я не очень понимаю зачем на одном и том же компьютере менять настройки разделителя целой и дробной части числа. Я не слишком хорошо знаю VBA Поэтому рускну предложить только как идею: когда передо мной встала задача определить какой символ используется в качестве разделителя целой и дробной части числа, я воспользовался следующей формулой, записанной в именованный диапазон: =ПСТР(ПИ();2;1) Надеюсь, что средствами VBA ее также можно повторить
Diml>> Re: Списки в Excel 2011-02-03 14:41 http://forum.msexcel.ru/profiles/diml-u67158.html IKor, огромное спасибо! все работает  Rimsky>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 14:56 http://forum.msexcel.ru/profiles/rimsky-u34074.html В Excel есть встроенный мастер "Текст по столбцам" (меню Данные). О! то что нужно! Спасибо! Посмотрите на его работу - возможно, Вам не понадобится писать макросы. Оказывается полезно читать хелпы boa>> Re: Ширина колонок в ListBox 2011-02-03 15:42 http://forum.msexcel.ru/profiles/boa-u4698.html Спасибо, IKor Как вариант пробую Код: znak = Mid(1 / 2, 2, 1) .ColumnWidths = "2" & znak & "45 cm;2" & znak & "15 cm;4" & znak & "05 cm;4 cm;3" & znak & "8 cm;2 cm;2 cm" но серкет где-то рядом 
nilem>> Re: Разобрать строчку по запятым и собрать заново 2011-02-03 15:42 http://forum.msexcel.ru/profiles/nilem-u30547.html ... а нафига тогда на промежуточном листе еще строчки из данных? Промежуточный лист не нужен, оставил его как образец. И, да, можно использовать "текст по столбцам", а потом собирать нужное формулой. Но макросом быстрее - одна кнопка.SS78RUS>> Re: Макрос переноса данных из одного файла в другой 2011-02-03 17:10 http://forum.msexcel.ru/profiles/ss78rus-u19949.html Та-дааам! Победил таки Код: Sub Copy_Cells_to_EXT_file() Dim cnt As Long Dim cell As Range MsgBox "Ты выбрал диапазон:" & Selection.Address If Selection.Cells.Count = 1 Then If MsgBox("Копируем всего одну ячейеку? о_О", vbYesNo, "Warning") = vbNo Then Exit Sub End If cnt = 0 For Each cell In Selection If Not IsEmpty(cell) Then cnt = cnt + 1 End If Next If cnt = 0 Then If MsgBox("А в ячейках то пусто! Продолжишь?!", vbYesNo, "Warning") = vbNo Then Exit Sub End If End If 'ActiveSheet.UsedRange.Select Selection.Copy Workbooks.Open ("C:\Имя_файла.xlsx") Range("A2").PasteSpecial xlPasteAll End Sub Копирует выбранный диапазон во внешний файл с оповещениями  Range("A2") - потому что мне нужно с этой ячейки начинать, а так можно любую поставить, в том числе и последнюю не пустую. Всем спасибо! VictorK>> Re: График с суммированием значений 3-х столбцов по часам. 2011-02-03 18:17 http://forum.msexcel.ru/profiles/victork-u4470.html Так как с сутками быть, никто не подскажет? Также, как и с часами. Слева от столбца с часами добавить столбец с числами месяца и в формулу добавить проверку на числа.=СУММПРОИЗВ((ДЕНЬ($B$2:$B$10000)=$H2)*(ЧАС($B$2:$B$10000)=$I2)*E$2:E$10000) Михаил С.>> Re: График с суммированием значений 3-х столбцов по часам. 2011-02-03 19:24 http://forum.msexcel.ru/profiles/mihail_s-u26973.html Я не пойму, Вам это надо? Saken>> Re: Ввод списка дданных 2011-02-03 21:21 http://forum.msexcel.ru/profiles/saken-u36540.html Вот вам пример! Alex_ST>> Re: Ширина колонок в ListBox 2011-02-03 21:49 http://forum.msexcel.ru/profiles/alexst-u65623.html Почему у Вас прыгают хаотично настройки разделителя целой и дробной части а Виндах (?) я не знаю. Может, пользователи разные? Хотя вряд ли... Но есть очень простой путь узнать текущие настройки при помощи такой функции: Код: Function ShellSeparator$() With CreateObject("WScript.Shell") ShellSeparator = .RegRead("HKEY_CURRENT_USER\Control Panel\International\\sMonDecimalSep") End With End Function А ещё можно так извратиться - просто в UserForm_Initialize первым делом считать текущую ширину какого-нибудь столбца ListBox, вытащить из него текущий разделитель, а потом уже установить нужные ширины столбцов, используя вычисленный разделителью Alex_ST>> Re: Автонумерация при различных форматах ячеек 2011-02-03 22:08 http://forum.msexcel.ru/profiles/alexst-u65623.html Попробуйте таким макросом: Код: Sub RowsNum() 'нумерация ячеек в выделенном столбце Selection Он хорош ...
If TypeName(Selection) <> "Range" Then Exit Sub On Error Resume Next If Selection.Columns.Count <> 1 Then MsgBox "Выбрано более одного столбца": Exit Sub Dim iCell As Range Dim Nn: Nn = Selection.Cells(1) Application.ScreenUpdating = False For Each iCell In Selection With iCell If (Not .MergeCells) Or (.MergeCells And .Address = .MergeArea.Cells(1).Address) Then .Value = Nn: Nn = Nn + 1 .NumberFormat = Selection.Cells(1).NumberFormat .HorizontalAlignment = Selection.Cells(1).HorizontalAlignment .VerticalAlignment = Selection.Cells(1).VerticalAlignment .Orientation = Selection.Cells(1).Orientation .ShrinkToFit = Selection.Cells(1).ShrinkToFit End If End With Next Application.ScreenUpdating = True End Sub SS78RUS>> Re: График с суммированием значений 3-х столбцов по часам. 2011-02-03 22:44 http://forum.msexcel.ru/profiles/ss78rus-u19949.html Также, как и с часами. Хмм.. ну да, туплю.. Спасибо! Я не пойму, Вам это надо? Надо и еще как! Более того, уже всё сделано То, что заняло бы час для обработки одного файла, теперь занимает только время нажатия горячих клавиш для запуска макроса.. Вы просто не видите полной картины  Всем еще раз спасибо! Alexandr Zlobin>> Re: Ввод списка дданных 2011-02-03 23:00 http://forum.msexcel.ru/profiles/zlobin-u1684.html Спасибо.Но это немного не то. Меня интересовала возможность именно ВСТАВКИ списка в форму. Своего рода куча заполняемых текстбоксов Saken>> Re: Ввод списка дданных 2011-02-03 23:04 http://forum.msexcel.ru/profiles/saken-u36540.html Вложите пример, подробно! boa>> Re: Ширина колонок в ListBox 2011-02-03 23:31 http://forum.msexcel.ru/profiles/boa-u4698.html И вот что получилось Код: znak = ShellSeparator .ColumnWidths = "2" & znak & "45 cm;2" & znak & "15 cm;4" & znak & "05 cm;4 cm;3" & znak & "8 cm;2 cm;2 cm" znak = "," а общая ширина колонок в ListBox ~ в 3,3 раза стала шире при этом с разделителем "." все норамально работает на данном компе XP SP3 и Office 2010 SP2 А вообще данный макрос выполняется на разных виндах (ХР, 2007, 2008) и в разных офисах (2007, 2010), пересечения различны. При чем обычно с разделителем "." все работает, но иногда не хочет и тогда приходится включать строку ColumnWidths с "," Где подвох отследить не могу Причем znak = Mid(1 / 2, 2, 1) сейчас тоже выдает "," и таже жо... Может еще идеи есть? Олег*>> Re: Перемещение листа в другую книгу без сохранения связей 2011-02-04 00:44 http://forum.msexcel.ru/profiles/oleg-u24862.html Есть еще одна фишка, которую можно использовать: Если копируемый лист содержит формулы с именованными диапазонами, а в новой книге такие же имена уже используются, то при копировании Excel должен спросить обновлять ли связи. (по крайней мере 2000 Excel у меня спрашивал )Но даже если имена сдублируются, то несложно пробежаться по списку имен и удалить ненужные дубликаты имен, ссылающихся на внешние книги. После чего новые формулы скопированного листа должны подхватить имена из нового файла. Интересная идея! Спасибо! Попробую. mpv>> данные из одного файла в другой по условиями 2011-02-04 10:28 http://forum.msexcel.ru/profiles/mpv-u67911.html Добрый день, уважаемые корифеи! Сразу хочу признаться, что я полный ноль во всем этом, поэтому Очень нуждаюсь в Вашей помощи. Суть вопроса в следующем. Есть таблица (прайс-лист, с колонками: наименование продукта, артикул, цена), в которой необходимо создать рядом с колонкой Цена, колонку Цена1. Данные в Цена1 необходимо произвести из такого же файла (прайс-листа), однако с учетом того, что значение соответствовало указанной ячейке. Разница между файлами в том, что: 1.разные цены (где-то одинаковые-выделил цветом) 2. отличается содержимое по части наименования 3. название в наименовании немного отличается, но это должно использоваться как одинаковое наименование для 2-х таблиц (пример отличия выделил цветом) Примеры приложил. Alex_ST>> Re: Ширина колонок в ListBox 2011-02-04 12:20 http://forum.msexcel.ru/profiles/alexst-u65623.html Были у меня как-то проблемы с заданием ширины столбцов листбокса при попытке делать автоматическое выравнивание их по ширине столбцов таблицы, откуда берутся данные... Тоже долго бился, не всякую ширину столбцов хотел глотать листбокс. Как поборол тогда, точно сейчас не скажу. Сижу дома, гриппую. Выпишусь, наверное, не раньше понедельника. А файл на работе... Единственно, что сейчас припоминаю, так это то, что пришлось отказаться от задания ширины в сантиметрах, а задавать её в целых единицах (пикселах, кажется). Целое число ширина "глотает" не морщась. А вот если ширину столбца пытаешься задать в сантиметрах с дробной частью, то листбокс может иногда это не понимать - там есть какой-то шаг изменения. И если не попадаешь точно в него, то вылетает ошибка. oleg xovok>> Как преобразовать таблицу / массив в 2 столбца? 2011-02-04 12:35 http://forum.msexcel.ru/profiles/xovok-u822.html Нужно преобразовать таблицу. Пример в файле. На первом листе - исходник, на втором - желаемый результат. Excel 2007. Оригинальная таблица - порядка 33000 строк. Столбцов по некоторым строкам может быть больше сотни boa>> Re: Ширина колонок в ListBox 2011-02-04 13:31 http://forum.msexcel.ru/profiles/boa-u4698.html задавать её в целых единицах (пикселах, Пожалуй так и придется делать но все же вопрос остался открытым, ведь от разделения целой и дробной части(вообще в макросах) не уйдешь полностью и где-то эта ошибка себя снова может проявить 
IKor>> Re: Как преобразовать таблицу / массив в 2 столбца? 2011-02-04 13:50 http://forum.msexcel.ru/profiles/ikor-u6827.html Сделано на скорую руку. Кроме того, для наглядности формулы разобраны по дополнительным столбцам. boa>> Re: Как преобразовать таблицу / массив в 2 столбца? 2011-02-04 14:08 http://forum.msexcel.ru/profiles/boa-u4698.html а если макросом, то так Код: Sub Spisok() Dim i As Integer, j As Integer, KolStrok As Integer, KolStolb As Integer, iRow As Integer Dim Ishod As Object, Rezult As Object Set Ishod = ThisWorkbook.Sheets("Исходник") Set Rezult = ThisWorkbook.Sheets("Результат") KolStrok = Ishod.Cells(Rows.Count, 1).End(xlUp).Row 'находим последнюю строку в таблице KolStolb = Ishod.Cells(1, 1).End(xlToRight).Column 'находим последний столбец в таблице iRow = 2 Rezult.Cells(1, 1) = "Артикул" Rezult.Cells(1, 2) = "Кросс" For i = 2 To KolStrok For j = 2 To KolStolb If Not IsEmpty(Ishod.Cells(i, j)) Then 'если ячейка не пустая, то Rezult.Cells(iRow, 1) = Ishod.Cells(i, 1) Rezult.Cells(iRow, 2) = Ishod.Cells(i, j) iRow = iRow + 1 End If Next j Next i End Sub "Вклейте" его в свою книгу, надо будет только сохранить ее как книгу с поддержкой макросов, и выполните oleg xovok>> Re: Как преобразовать таблицу / массив в 2 столбца? 2011-02-04 14:35 http://forum.msexcel.ru/profiles/xovok-u822.html Спасибо, попробую и так, и так. Если возникнут вопросы - в понедельник продолжим musailov>> новые данные из колонки данных в одну ячейку 2011-02-04 16:23 http://forum.msexcel.ru/profiles/musailov-u67971.html Есть колонка в которую подгружаются постоянно новые данные из инета . Новые значения появляются снизу . Как сделать чтобы новые данные появлялись в одной и той же ячейки. shpakvi>> Re: изменение цифрового "названия" столбца на буквенное 2011-02-04 16:37 http://forum.msexcel.ru/profiles/shpakvi-u11476.html Огромное Спасибо!!!! Любахаха>> Re: StringGrid 2011-02-04 16:49 http://forum.msexcel.ru/profiles/lyubahaha-u44010.html Всё получилось, большое спасибо за пример  shpakvi>> Снятие пароля с файла стандартным методом 2011-02-04 16:49 http://forum.msexcel.ru/profiles/shpakvi-u11476.html Глубокоуважаемые Гуру! Доброго Вам времени суток...Создал небольшой файлик для печати квитанций по ЖКХ.По глупости поставил пароль ( не помню как) т.е. перед открытием файла просит ввести пароль. Теперь хочу поделиться файлом,а пароль снять не могу... сам пароль сообщать пользователям не хочу. Стандартные процедуры "Сервис-защита-...." не помогают...Прошу помощи. Пароль то 49774835 equinor>> Re: организация циклов B MS EXCEL 2011-02-04 18:11 http://forum.msexcel.ru/profiles/equinor-u67348.html спасибо огромное.вообще вы тут малорики KuklP>> Re: Снятие пароля с файла стандартным методом 2011-02-04 19:01 http://forum.msexcel.ru/profiles/kuklp-u39713.html Меню-сервис-параметры-безопасность. Alex_ST>> Re: новые данные из колонки данных в одну ячейку 2011-02-04 21:01 http://forum.msexcel.ru/profiles/alexst-u65623.html Просто подправьте код программы, подгружающей данные. А какого ещё можно ожидать ответа, ещё ожидали если никто не знает как, откуда и куда выкачивается из и-нета информация? Давайте файл с примером, тогда народ и будет думать 
Poltava>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-04 21:46 http://forum.msexcel.ru/profiles/poltava-u39021.html Здрасте помогите разобраться попытался применить ваш код к себе дабы удалить все строки с буквой У хотя посути нужно наобород те в которых нет буквы У но это пол беды я применить попытался но в ответ тишина подскажите что я делаю не так нужно удалить все строки в диапазоне AQ8:AQ80 не равные У при условии появления в строке AQ7 букв "CL" пытаюсь вставить ваш код не в модуль а непосредственно в лист между Private Sub Worksheet_Change(ByVal Target As Range) но что то нет эффекта вообще при вставке в модуль и запуске вручную какието изменения есть чтото удаляеться но явно не то что НУЖНО вот собственно код r_ = Range("AQ8").End(xlDown).Row Range("AQ8:AQ" & r_).Replace What:="У", Replacement:="///У" Range("AQ8:AQ" & r_).AutoFilter ActiveSheet.Range("$AQ$8:$AQ$80").AutoFilter Field:=1, Criteria1:="///У" 'And "///Y" Range("AP8:AP" & r_).SpecialCells(xlCellTypeVisible).EntireRow.Delete Selection.AutoFilter ниже файл на всякий случай либо в моем случ... _Boroda_>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-04 22:52 http://forum.msexcel.ru/profiles/boroda-u12234.html В предыдущем макросе первые две строки написаны исключитеьно для того, чтобы избавиться от #Н/Д и преобразовать его в текст. Так что в Вашем случае макрос будет таким: Код: Range("AQ7:AQ80").AutoFilter Да, забыл еще уточнить, условие работы - отсутствие на листе автфильтра.
Range("$AQ$8:$AQ$80").AutoFilter Field:=1, Criteria1:="<>У", Operator:=xlAnd, Criteria2:="<>Y" Range("Aq8:Aq80").SpecialCells(xlCellTypeVisible).EntireRow.Delete Selection.AutoFilter econata>> Объединение файлов с повторяющимися значениями 2011-02-04 23:30 http://forum.msexcel.ru/profiles/econata-u68019.html Здраствуйте. Я новичок, можно задам такой вопрос. Подскажите, с excel особо не сталкиваюсь. Есть 4 файла (ф1, ф2, ф3, ф4), которые надо объединить в один по ключевому столбцу (допустим ID). Причем если значение в ключевом столбце ф1.ID совпадает с другими значениями из ф2.ID и ф3.ID то подставлять надо остальные строки из файла ф2.
ZORRO2005>> Re: Как преобразовать таблицу / массив в 2 столбца? 2011-02-04 23:30 http://forum.msexcel.ru/profiles/zorro2005-u4225.html 1. Используем сводную таблицу в нескольких диапазонах консолидации. 2. Даблклик по правому нижнему уголку сводной 3. Сортировка с 2-мя уровнями (по Строке, по значениям) и в фильтре убрать пустые ячейки Итого 2 мин. Poltava>> Re: Удаление строки, с определенным значением в ячейке. 2011-02-04 23:35 http://forum.msexcel.ru/profiles/poltava-u39021.html ЗАРАБОТАЛО огромное спасибо ну и +1 конечножеevatiliw>> Сумма значиний за определенный период 2011-02-05 01:03 http://forum.msexcel.ru/profiles/evatiliw-u9990.html Добрый вечер Подскажите, как посчитать сумму за май месяц опредленного года. К примеру за май 2010 = 256 Число Дата 100. 1мая 2010 200. 1 февраля 2010 159. 3 марта 2010 156. 5 мая 2010 заранее спасибо Serge 007>> Re: Сумма значиний за определенный период 2011-02-05 01:32 http://forum.msexcel.ru/profiles/serge_007-u25260.html Здравствуйте. Например =СУММПРОИЗВ(диапазон_суммирования*диапазон_дат="*мая 2010") Без примера это всё. Saken>> Re: данные из одного файла в другой по условиями 2011-02-05 09:58 http://forum.msexcel.ru/profiles/saken-u36540.html Код VBA: Код: Private Sub CommandButton1_Click()
For i = 1 To Range("B4:B47").Rows.Count For j = 1 To Workbooks("Праис 2").Worksheets(1).Range("B4:B39").Rows.Count If Range("B4:B47").Cells(i, 1) = Workbooks("Праис 2").Worksheets(1).Range("B4:B39").Cells(j, 1) Then Range("E4:E47").Cells(i, 1) = Workbooks("Праис 2").Worksheets(1).Range("C4:C39").Cells(j, 1) End If Next j Next i MsgBox ("Готов!") End Sub Alexandr Zlobin>> Перехват клавиш OnKey 2011-02-05 11:04 http://forum.msexcel.ru/profiles/zlobin-u1684.html Здравствуйте. Скажите, как в макрос перехвата передавать параметры? Код: Sub KeyOn() где XXXXX вызов макроса с параметром rWith Application .OnKey "%3", "XXXXXXX" End Sub Код: Sub макрос (r) if r=1 then MsgBox "" End sub IKor>> Re: Объединение файлов с повторяющимися значениями 2011-02-05 11:50 http://forum.msexcel.ru/profiles/ikor-u6827.html На мой взгляд Ваша задача сформулирована слишком общо. Пристегните к сообщению пример исходных данных и необходимого результата без секретной информации. KuklP>> Re: Перехват клавиш OnKey 2011-02-05 11:56 http://forum.msexcel.ru/profiles/kuklp-u39713.html Как вариант, делаем переменную r глобальной, а в Sub макрос считываем ее. AHKOP>> Фильтр сводной таблицы макросом 2011-02-05 12:13 http://forum.msexcel.ru/profiles/ahkop-u59287.html Здравствуйте! Есть очень большая сводная таблица. Макросом с нее необходимо сделать копии и в каждой копии расставить различные фильтры на поле "Агент". По факту агентов очень много и выбирать их методом исключения не вариант. Нужна информация в копиях именно в виде сводных таблиц. Подразумевается, что в них будет гораздо больше полей сводной таблицы, формул, обрабатывающих данные с таблицы и сопутствующей информации, чем я привел в примере. Так же копий основного свода будет не две, а штук сорок и сохраняться они будут в отдельные файлы. Мне нужен сам принцип действия макроса. Спасибо. TimSha>> Re: Объединение файлов с повторяющимися значениями 2011-02-05 12:25 http://forum.msexcel.ru/profiles/timsha-u13313.html Если правильно понял, то в один файл надо объединить 4, но без повторов. Если так, то вам проще это сделать в Access'e, поставив ключ на поле "ID" и потом последовательно присоединять (копировать/вставить) файлы. OlgaK>> Построение графика функции 2011-02-05 12:27 http://forum.msexcel.ru/profiles/olgak-u64750.html Как построить вертикальный график, например х=2? Это нужно, чтобы отобразить ось симметрии или асимптоты. lovko>> Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-05 12:43 http://forum.msexcel.ru/profiles/lovko-u30610.html Друзья, прошу помочь с макросом (может быть, это возможно сделать и формулой), который будет искать ячейку и изменять в ней значение в зависимости от данных, которые вводятся в двух других ячейках. Подробности во вложенном файле. Огромное спасибо! Виктория Зуева>> Re: Построение графика функции 2011-02-05 13:20 http://forum.msexcel.ru/profiles/buka3-u2668.html Вариант решения - см. в файле. evatiliw>> Re: Сумма значиний за определенный период 2011-02-05 14:02 http://forum.msexcel.ru/profiles/evatiliw-u9990.html не получается разобраться, пишет 0 пример того, что требуется ниже, реализовано через лишний столбец с функцией "месяц" как обойтись без этого столбца? Alexandr Zlobin>> Re: Перехват клавиш OnKey 2011-02-05 14:10 http://forum.msexcel.ru/profiles/zlobin-u1684.html Это я тоже сделал. Интересует принципиальная возможность передачи параметров. KuklP>> Re: Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-05 14:11 http://forum.msexcel.ru/profiles/kuklp-u39713.html Если правильно понял... Serge 007>> Re: Сумма значиний за определенный период 2011-02-05 14:24 http://forum.msexcel.ru/profiles/serge_007-u25260.html не получается разобраться... Поэтому всегда надо прикладывать пример.Код: =СУММПРОИЗВ((МЕСЯЦ(A1:A25)=1)*(ГОД(A1:A25)=2011)*B1:B25)
OlgaK>> Re: Построение графика функции 2011-02-05 17:19 http://forum.msexcel.ru/profiles/olgak-u64750.html Большое спасибо! А можно ли как-то сделать, чтобы возле самой линии графика автоматически появлялась подпись из ячейки, например y=x^2? Виктория Зуева>> Re: Построение графика функции 2011-02-05 17:56 http://forum.msexcel.ru/profiles/buka3-u2668.html Вариант - см. в файле. OlgaK>> Re: Построение графика функции 2011-02-05 20:38 http://forum.msexcel.ru/profiles/olgak-u64750.html Здорово! А если в одной системе координат 2 и более графиков, например сама функция, ось симметрии и две асимптоты, и все хочется подписать? Виктория Зуева>> Re: Построение графика функции 2011-02-05 21:05 http://forum.msexcel.ru/profiles/buka3-u2668.html Используйте вставку объекта Microsoft Equation 3.0 Лучше - рисовать такие формулы в Word, и в Excel копировать (как картинку). В Word 2007 - вкладка ленты Вставка - группа Символы - Формула. Пример - в файле. Poltava>> как узнать содержит ли имя текущего листа заданный текст 2011-02-06 00:49 http://forum.msexcel.ru/profiles/poltava-u39021.html Помогите понимаю что по идее задача не сложна но вот как ее осуществить не знаю не силен я в программировании так вот как узнать содержит ли имя текущего листа "Увол" то есть лист скажем Декабрь или Декабрь Увол и в зависимости от этого записать в ячейку A5 ту или иную формулу nilem>> Re: как узнать содержит ли имя текущего листа заданный текст 2011-02-06 01:00 http://forum.msexcel.ru/profiles/nilem-u30547.html Что-то вроде этого: Код: Sub test()
Dim wsh As Worksheet For Each wsh In ThisWorkbook.Worksheets If wsh.Name Like "*Увол*" Then wsh.Range("A5").Formula = "та формула" Else wsh.Range("A5").Formula = "или иная формула" End If Next wsh End Sub Poltava>> Re: как узнать содержит ли имя текущего листа заданный текст 2011-02-06 01:45 http://forum.msexcel.ru/profiles/poltava-u39021.html Спасибо завтра будем пробовать kimtan>> Re: как узнать содержит ли имя текущего листа заданный текст 2011-02-06 02:18 http://forum.msexcel.ru/profiles/kimtan-u12219.html =ЕСЛИ(ЕОШ(ПОИСК("увол";ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК("]";ЯЧЕЙКА("имяфайла"))+1;99)));первая_формула;вторая_формула) boa>> Re: Построить зависимость столбца А от строки 3 2011-02-06 03:29 http://forum.msexcel.ru/profiles/boa-u4698.html Построить зависимость столбца А от строки 3 А в чём "зависимость"?
Dimanb14>> Сбор данных из нескольких источников в столбец 2011-02-06 04:45 http://forum.msexcel.ru/profiles/dimanb14-u68243.html Привет всем! Сразу говорю я _ЧАЙНИК_  Имеется Лист1 ну или/и Лист2. в одну ячейку скажем B1 пишутся данные №1 (при изменении), начиная с ячейки А4 и вниз пишется время и дата изменения, а начиная с ячейки В4 и вниз значение той самой изменённой В1. + Через 1 пустой столбец, скажем D, принцип повторяется но только для уже данных №2 и так далее разделяя 1 пустым столбцом Как не пытался не получалось, даже с примером (но он как я понял только для Листа1 и 1й колонкой), прикреплён, помогите реализовать 
_Boroda_>> Re: как узнать содержит ли имя текущего листа заданный текст 2011-02-06 06:03 http://forum.msexcel.ru/profiles/boroda-u12234.html Уважаемый kimtan, маленькое дополнение. Цитата из справки по функции ЯЧЕЙКА: Цитировать Ссылка — это ячейка, информацию о которой необходимо получить. Если аргумент опущен, возвращается требуемая информация о последней измененной ячейке. Отсюда вывод: Ваша формула будет правильно работать до тех пор, пока последнее изменение было произведено на листе, в котором она (формула) находится. Как только мы перейдем на другой лист и что-нибудь поменяем (например, введем в любую ячейку любое число или просто нажмем F9), то функця ЯЧЕЙКА без второго агумента будет выдавать информацию об этом другом листе.В нашем случае второй аргумет функции нужен. =ЕСЛИ(ЕОШ(ПОИСК("увол";ПСТР(ЯЧЕЙКА("имяфайла";C4);ПОИСК("]";ЯЧЕЙКА("имяфайла"))+1;99)));A1+B1;A1-B1) Демонстрацию см. во вложении. Uralmaster>> Выпадающий календарь как изменить условия 2011-02-06 07:14 http://forum.msexcel.ru/profiles/uralmaster-u64329.html Есть очень хороший выпадающий календарь - хотелось бы его изменить: Календарь вводит дату и время в одну ячейку а хотелось чтоб вводил дату в одну ячейку а время во 2 ячейку справа - как в примере (прилагаю файл) Например Дата в G:11 Время H:11 - Дата в G:12 Время H:12 и тд При этом Календарь нужно привязать к вводу только в диапазон G10:G500 ( если вдруг пользователь выбрал другой диапазон - выскакивает табличка "Выберите колонку Дата") И еще если возможно Как сделать ввод времени в форме календаря в виде выпадающего списка (поля и кнопки установки времени не нужны) – для времени остается одно поле с выпадающим списком А выпадающий список - с листа «Время» в приложенном файле. Заранее благодарен OlgaK>> Re: Построение графика функции 2011-02-06 11:19 http://forum.msexcel.ru/profiles/olgak-u64750.html Спасибо за совет! Но мне бы хотелось вот что сделать: пользователь вводит коэффициенты квадратного уравнения и получает график функции. Как получить в ячейке уравнение этой функции я нашла. С помощью Вашего совета я смогу подписать в заголовке название функции, но подписать формулы для оси симметрии и асимптот, которые у разных функций свои, наверное не получится? Dimanb14>> Re: Сбор данных из нескольких источников в столбец 2011-02-06 12:57 http://forum.msexcel.ru/profiles/dimanb14-u68243.html Очень интересует сам макрос, принцип прикрепил, использовать необходимо n-ное количество источников значений, для каждого своя запись в столбец с датой kimtan>> Re: как узнать содержит ли имя текущего листа заданный текст 2011-02-06 14:20 http://forum.msexcel.ru/profiles/kimtan-u12219.html Александр, абсолютно с Вами согласен, хотя это и неважно если расчеты, зависимые от этой ячейки производятся в пределах одного листа - нет связей с другими листами. Еще пару дополнений: Если требуется получить название с другого листа, то перед ссылкой нужно писать еще и название этого листа: =ЕСЛИ(ЕОШ(ПОИСК("увол";ПСТР(ЯЧЕЙКА("имяфайла";'Лист1 увол'!C4);ПОИСК("]";ЯЧЕЙКА("имяфайла";'Лист1 увол'!C4))+1;99)));A1+B1;A1-B1) - формула введена на Лист1. Ввиду того, что функция ЯЧЕЙКА() является "летучей/пересчитываемой", и если результат этой функции учавствует в дальнейших сложных расчетах, от ее применения желательно воздержаться. nilem>> Re: Сбор данных из нескольких источников в столбец 2011-02-06 14:25 http://forum.msexcel.ru/profiles/nilem-u30547.html Вот, например: Код: Private Sub Worksheet_Change(ByVal Target As Range) 'вариация на тему кода ZVI
If Intersect(Target, Range("B1,E1,H1")) Is Nothing Then Exit Sub Dim rng As Range, r As Range Set rng = Target.Offset(2).CurrentRegion Set r = rng.Rows(1).Offset(rng.Rows.Count).Cells r(1, 1) = Now: r(1, 2) = Target End Sub Poltava>> Re: как узнать содержит ли имя текущего листа заданный текст 2011-02-06 14:40 http://forum.msexcel.ru/profiles/poltava-u39021.html Я тоже так подумал и решил воспользоваться приведенным выше макросом но вот столкнулся с проблемой формула которую нужно записать выглядит так =ЕСЛИ(ДВССЫЛ("'"&listn()&"'!AU4")=12;1;(ДВССЫЛ("'"&listn()&"'!AU4"))+1) ну и здесь проблема с кавычками и ' которые воспринимаются как комментарии а как этого избежать не знаю попробывал такую формулу ДВССЫЛ ("'" & ListN() & "'!AU4") записать так wsh.Range("AU4").Formula = "=ДВССЫЛ(" & Chr(34) & Chr(39) & Chr(34) & "&listn()&" & Chr(34) & Chr(39) & "!AU4" & Chr(39) & Chr(41) но вместо ожидаемого результата ошибка подскажите как это сделать Dimanb14>> Re: Сбор данных из нескольких источников в столбец 2011-02-06 15:15 http://forum.msexcel.ru/profiles/dimanb14-u68243.html Вот СПАСИБО! То что нужно! lovko>> Re: Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-06 15:27 http://forum.msexcel.ru/profiles/lovko-u30610.html Все прекрасно. Приятно иметь дело с умным человеком! Одно уточнение: будет ли работать данные макрос, если я продолжу заполнение листа2 дальше: т.е. ниже уже заполненных ячеек продолжу указывать номера складов, их тарифы и количество мест? Или в этом случае макрос нужно подправлять? KuklP>> Re: Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-06 16:22 http://forum.msexcel.ru/profiles/kuklp-u39713.html А попробовать? С.М.>> Re: Построение графика функции 2011-02-06 17:52 http://forum.msexcel.ru/profiles/sm-u19758.html Спасибо за совет! OlgaK, а Вы эти "формулы для оси симметрии и асимптот кв. уравнения" покажите (я, например, запамятовал).
Но мне бы хотелось Виктория Зуева>> Re: Построение графика функции 2011-02-06 22:40 http://forum.msexcel.ru/profiles/buka3-u2668.html Посмотрите вариант во вложении. Конечно, хотелось бы увидеть Ваши "хотелки" и исходные данные - может, нашлись бы еще способы. Какая версия Excel, кстати? mpv>> Re: данные из одного файла в другой по условиями 2011-02-07 09:06 http://forum.msexcel.ru/profiles/mpv-u67911.html СПАСИБО!!!!Нажал на кнопку и увидел ЧУДЕСА!!!  iron priest>> Re: не работают надстройки 2011-02-07 09:08 http://forum.msexcel.ru/profiles/iron_priest-u20725.html помоему сами на свои вопрос ответили. под администратором работайте вот и все lovko>> Re: Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-07 09:51 http://forum.msexcel.ru/profiles/lovko-u30610.html Помогите, пожалуйста, подогнать написанный вами макрос под меня. Спасибо! KuklP>> Re: Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-07 10:05 http://forum.msexcel.ru/profiles/kuklp-u39713.html Хорошо, только позже, сейчас занят. lovko>> И снова это страшное слово "макрос" 2011-02-07 12:07 http://forum.msexcel.ru/profiles/lovko-u30610.html Друзья, просьба написать макрос, который выполнял бы действие на втором листе в зависимости от того, какие данные введены на первом листе. Подробности - во вложении. Благодарю! fido90>> Выделение цветом колонки при опр. событии 2011-02-07 12:15 http://forum.msexcel.ru/profiles/fido90-u68936.html Здравствуйте.Есть запись Техас. Рядом идет время Техаса. Как сделать так что бы когда в техасе наступает 13.00 Запись техас становилась допустим красным ? как можно выделить цветом ? KuklP>> Re: Друзья, прошу помочь с макросом, результат которого зависит от нескольких услови 2011-02-07 12:16 http://forum.msexcel.ru/profiles/kuklp-u39713.html Как-то так. Wasilic>> Re: И снова это страшное слово "макрос" 2011-02-07 13:35 http://forum.msexcel.ru/profiles/wasilic-u24852.html Задача простая. Но не полная. Предпологаю, что будет не одна фамилия. Макрос на 1-ну фамилию. lovko>> Re: И снова это страшное слово "макрос" 2011-02-07 15:01 http://forum.msexcel.ru/profiles/lovko-u30610.html Фамилий действительно будет много. Можно ли доработать макрос с учетом этого? Кроме того, баллы в данном макросе не прибавляются: прежний балл просто заменяется новым. А нужно чтобы к старым прибавлялись или вычитались в зависимости от действия новые баллы. Действие вычитания вообще не предусмотрено. Наконец, когда вводишь несуществующие фамилии, макрос почему-то всегда работает с баллами Петрова. Помогите, пожалуйста! С.М.>> Re: И снова это страшное слово "макрос" 2011-02-07 19:38 http://forum.msexcel.ru/profiles/sm-u19758.html lovko, я не понял что делать с ячейкой K3 (Начисленные баллы). Посмотрите прикреплённый. tgm>> Перенести данные 2011-02-07 22:20 http://forum.msexcel.ru/profiles/tgm-u43423.html Добрый вечер,помогите пожалуйста с макросом. Нужно чтобы: при выборе на "лист2" месяца и периода,на листе "свод"выбирались и переносились данные за этот период по всем годам. Спасибо. kamina>> Проблемы с построениеем нескольких графиков функций в одной системе координат 2011-02-07 23:28 http://forum.msexcel.ru/profiles/kamina-u42329.html Добрый вечер. Помогите решить следующую проблему: Имеются значения функций на некоторых интервалах. Нужно построить их графики в одной системе координат. В итоге должен получится рисунок с изображением очков. Не могу сообразить как все графики отобразить в одной системе координат. Если при построении выделить сначала только значения функций, а потом указать значения аргументов, то получается какая-то каша, а не очки. Помогите найти ошибку. В приложении Книга. MCH>> Re: Проблемы с построениеем нескольких графиков функций в одной системе координат 2011-02-08 00:38 http://forum.msexcel.ru/profiles/mch-u48782.html так? kamina>> Re: Проблемы с построениеем нескольких графиков функций в одной системе координат 2011-02-08 00:43 http://forum.msexcel.ru/profiles/kamina-u42329.html так? Спасибо большое. Похоже на правду. Буду теперь разбираться дальше
Uralmaster>> Что сделать с ComboBox Format 2011-02-08 03:09 http://forum.msexcel.ru/profiles/uralmaster-u64329.html Код: Private Sub ComboBox1_Click() ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0") ActiveCell = ComboBox1.Value Unload UserForm_Time End Sub Заметил что команда ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0") не форматирует ячейку те если до срабатывания формы отформатировать ячейку в текст или еще как то после срабатывания формы формат остается прежним Как правильно написать ComboBox1.Value = Format Uralmaster>> Реализовал задачу 2011-02-08 03:17 http://forum.msexcel.ru/profiles/uralmaster-u64329.html Реализовал задачу Файл во вложении Только одна проблема осталась - календарь при запуске из ячейки диапазона дает старую дату а не сегодняшнюю По кнопке макроса - дает сегодняшнюю дату Как исправить ? Uralmaster>> Координатное выделение 2011-02-08 03:35 http://forum.msexcel.ru/profiles/uralmaster-u64329.html Есть код координатного выделения в лист Код: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim addr As String Dim x As Variant Dim rng, c, r, cll As String If Target.Cells.Count > 1 Then Exit Sub addr = ActiveCell.Address() x = Split(addr, "$") c = x(1) r = x(2) rng = c & ":" & c & "," & r & ":" & r Range(rng).Select cll = c & r Range(cll).Activate End Sub Как можно в макросе ограничить диапазон ( например A3:O45) и изменить цвет координатного выделения ? lovko>> Re: И снова это страшное слово "макрос" 2011-02-08 06:16 http://forum.msexcel.ru/profiles/lovko-u30610.html Вы все сделали правильно. Огромное вам спасибо! Единственная проблема: лист "Начисление" защещен от изменений и эта функция запоролена. Через какой пароль снять защиту? Еще раз спасибо! Alexandrin>> Re: Макрос переноса данных из одного файла в другой 2011-02-08 08:24 http://forum.msexcel.ru/profiles/alexandrin-u64040.html Добрый день! При активной эксплуатации макроса вылез еще один вопросик. Исходные и итоговый файлы находятся на одном компьютере. Как нужно поправить строчку "Set wb = GetObject("c:\test.xls") ' здесь нужно прописать полный путь к файлу-накопителю", чтобы с другого компьютера можно было по сети открыть файл с исходными данными и скопировать ячейки в итоговый файл, т.е. требуется, чтобы макрос работал и на локальном компьютере, и по сети. GWolf>> Re: И снова это страшное слово "макрос" 2011-02-08 10:31 http://forum.msexcel.ru/profiles/gwolf-u4652.html Вы все сделали правильно. Огромное вам спасибо! Единственная проблема: лист "Начисление" защещен от изменений и эта функция запоролена. Через какой пароль снять защиту? Еще раз спасибо! Alt+F11, переходим в редактор. Смотрим код в 61 строке находим запись: Me.Protect "123" Т.о. ПАРОЛЬ = 123. Удачи! Alex_ST>> Re: Макрос переноса данных из одного файла в другой 2011-02-08 10:43 http://forum.msexcel.ru/profiles/alexst-u65623.html Т.е. вы хотите сказать, что и источник и накопитель лежат на расшаренном ресурсе другого компьютера? Тогда попробуйте в проводнике Windows со своего компьютера найти файл-источник, по правой кнопке мышки ([abbr=клик правой кнопкой мыши]ПКМ[/abbr]) откройте его свойства и сетевой путь к файлу скопируйте в строку макроса Код: Set wb = GetObject("c:\test.xls")
lovko>> Re: И снова это страшное слово "макрос" 2011-02-08 10:53 http://forum.msexcel.ru/profiles/lovko-u30610.html Спасибо! Собравшиеся тут прямо-таки гуру Excel. Глядишь, и я чему-нибудь научусь с вашей помощью. Может, подскажите ресурсы в интернете, в которых доступно рассказано, как писать эти самые макросы. Правда, я совсем не знаю английского, хотя, может быть, этого и не нужно. GWolf>> Re: Выделение цветом колонки при опр. событии 2011-02-08 10:55 http://forum.msexcel.ru/profiles/gwolf-u4652.html Здравствуйте.Есть запись Техас. Рядом идет время Техаса. Как сделать так что бы когда в техасе наступает 13.00 Запись техас становилась допустим красным ? как можно выделить цветом ? Простите, но ничегошеньки не понял! Судя по тексту: Техас - это есть Штат в США? Запись - имеется в виду строка электронной таблицы, в ячейке этой строки расположены: Название штата и в соседней ячейке формула, считающая тамошнее время? Если все это так, то в общем случае строка кода, красящего блок ячеек с координатами: nRIn - строка начала блока; nRTo - строка окончания блока (в случае строки, эти координаты будут равны); nCIn - колонка начала блока; nCTo - колонка окончания блока, будет выглядеть так: Range(Cells(nRIn,nCIn),cells(nRTo,nCTo)).Interior.ColorIndex = 3 '- красным Ну, а что бы красилось только при наступлении 13.00 организуйте реакци... GWolf>> Re: Что сделать с ComboBox Format 2011-02-08 11:04 http://forum.msexcel.ru/profiles/gwolf-u4652.html Код: Private Sub ComboBox1_Click() ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0") ActiveCell = ComboBox1.Value Unload UserForm_Time End Sub Заметил что команда ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0") не форматирует ячейку те если до срабатывания формы отформатировать ячейку в текст или еще как то после срабатывания формы формат остается прежним Как правильно написать ComboBox1.Value = Format Доброго дня! Ну так она и не должна! Вы же, насколько я понял, хотите передать из формы в активную ячейку значение, при этом отформатировав последнюю под него? Если так, то: ActiveCell = Format(ComboBox1.Value, "h:mm;0") и код должен выглядеть примерно так (ГДЕ ПРИМЕР? ? )Private Sub ComboBox1_Click() ActiveCell = Format(ComboBox1.Value, "h:mm;0") Unload UserForm_Time End Sub fido90>> Проблемы при сравнивании времени. 2011-02-08 11:10 http://forum.msexcel.ru/profiles/fido90-u68936.html Почему когда я сравниваю время то условие выполняется неправильно =ЕСЛИ(A1>C3;"Истина";"Ложь") Ячейка A=ТДАТА() Ячейка С3 = 22:00:00 . Когда А наступает 20:00:00 а С = 22:00:00 то все равно наступает истина. GWolf>> Re: Перенести данные 2011-02-08 11:33 http://forum.msexcel.ru/profiles/gwolf-u4652.html Добрый вечер,помогите пожалуйста с макросом. Нужно чтобы: при выборе на "лист2" месяца и периода,на листе "свод"выбирались и переносились данные за этот период по всем годам. Спасибо. Доброго дня! Я понимаю, что Вы В ТЕМЕ! Но мы то НЕТ! "переносились данные за этот период по всем годам" а КУДА? Если правильно понял, то "Лист 2" это некая ежедневная форма ввода? А данные с нее при задании нового учетного периода (следующий рабочий день) должны "сваливаться" в накопитель - лист "свод"? Объясните по подробнее. _Boroda_>> Re: Проблемы при сравнивании времени. 2011-02-08 11:33 http://forum.msexcel.ru/profiles/boroda-u12234.html Потому, что в А у Вас дата и время, а в С - только время (количество дней равно 0). Следовательно, А всегда будет больше С. Или пишите в А только время, или в С дату и время, или сравнивайте ЕСЛИ(ОСТАТ(A1;1)>C3;... _Boroda_>> Re: Выделение цветом колонки при опр. событии 2011-02-08 11:35 http://forum.msexcel.ru/profiles/boroda-u12234.html Используйте [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] MAXAH>> Как протянуть формулу со ссылками на вкладки другого Excel файла 2011-02-08 11:50 http://forum.msexcel.ru/profiles/maxah-u69233.html Начинающий специалист просит помощи. К примеру в ячейках: А1: ='[Сводная Финансовая модель Панельных.xlsx]1'!$F$9 А2: ='[Сводная Финансовая модель Панельных.xlsx]2'!$F$9 где [Сводная Финансовая модель Панельных.xlsx] - название файла на который ссылаюсь. 1, 2 - названия вкладок(ЛИСТ1, ЛИСТ2). Как изменить формулу так, чтобы при протягивании формулы в ячейке А3 автоматически поставилась формула: ='[Сводная Финансовая модель Панельных.xlsx]3'!$F$9 tgm>> Re: Перенести данные 2011-02-08 11:58 http://forum.msexcel.ru/profiles/tgm-u43423.html Добрый день GWolf,спасибо что откликнулись. Извините что плохо обьяснил.. В лист "Свод" будут еженедельно заносится данные в ручную. А "лист2" мне нужен для анализа. т.е если я выбрал на "лист2" период,то нужно чтобы макрос из листа "свод" подтянул на "лист2" данные за этот период по всем годам. Допустим выбрал я "Январь" и период "1-7",в итоге на лист2 должны перенестись данные(за этот период) в 5 столбцов(за 2010,2011,2012,2013,2014 годы) из листа "свод". Вот. :
Serge 007>> Re: Как протянуть формулу со ссылками на вкладки другого Excel файла 2011-02-08 11:58 http://forum.msexcel.ru/profiles/serge_007-u25260.html Код: =ДВССЫЛ("'[Сводная Финансовая модель Панельных.xlsx]"&СТРОКА()&"'!$F$9") С.М.>> Re: И снова это страшное слово "макрос" 2011-02-08 12:02 http://forum.msexcel.ru/profiles/sm-u19758.html http://msexcel.ru http://www.planetaexcel.ru/tips.php http://excel-vba.ru/index.php?file=Tips MAXAH>> Re: Как протянуть формулу со ссылками на вкладки другого Excel файла 2011-02-08 12:15 http://forum.msexcel.ru/profiles/maxah-u69233.html Спасибо, люди добрые, понял наконец =) tfos>> при печати пропадают буквы и цифры 2011-02-08 13:03 http://forum.msexcel.ru/profiles/tfos-u69240.html Когда печатаю с этого компьютера беспорядочно пропадают буквы и цифры, а с других компьютеров никаких проблем. В эксель все показывает нормально. С принтером проблем тоже никаких. Файл лежит на сервере. Помогите. GWolf>> Re: Перенести данные 2011-02-08 13:04 http://forum.msexcel.ru/profiles/gwolf-u4652.html Ага, теперь понятно... На скрепке, файл. Жмеш на зеленую кнопку на листе "Лист2" и макрос собирает значения. Хочу заметить, что Лист "Свод" абсолютно НЕОПТИМАЛЕН! Но наверное ВАМ так нужно!? Если нет, то следует организовать книжно-страничное пространство хранения (Книга - год; листы - месяцы года), а сброс в него данных (первичный ввод) производить из листа-шаблона отдельной книги. Удачи. Wasilic>> Re: Перенести данные 2011-02-08 13:14 http://forum.msexcel.ru/profiles/wasilic-u24852.html Здравствуйте. Проанализировав задачу, пришел к выводу, что для её решения, таблицу нужно построить иначе, то есть - количество столбцов (1-7, 8-14, 15-21 и т.д.) во всех месяцах должно быть одинаковым, предположим по 5, вне зависимости от месяца. А если свод по годам сделать на отдельных листах, то хоть на 20 лет вперед (назад) и задача решится без макроса. Например так: Peri>> изменение связей в Power Point 2011-02-08 13:57 http://forum.msexcel.ru/profiles/peri-u7767.html Здравствуйте, может быть кто-то знает как можно быстро изменить связь на файл Exel с набором листов для презентации Power Point где на каждый лист внеден связный Объект Exel из этого файла , если исходный Exel просто пересохранен под другим именем? iron priest>> Re: при печати пропадают буквы и цифры 2011-02-08 14:11 http://forum.msexcel.ru/profiles/iron_priest-u20725.html а в акробат если печатаете тоже пропадают буквы? если нет, то дело в принтере. хотя у меня например в 2010 (что правда ворде) текст которому применили встроенный стиль "НАЗВАНИЕ"(помоему) тоже не печатается С.М.>> Re: Координатное выделение 2011-02-08 14:14 http://forum.msexcel.ru/profiles/sm-u19758.html Код: '
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const AreaAddress As String = "A3:O45" Dim Area As Range, X As Range ' Set Area = Range(AreaAddress) Area.Interior.ColorIndex = xlColorIndexNone If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, Area) Is Nothing Then Exit Sub Set X = Intersect(Area, Union(ActiveCell.EntireRow, ActiveCell.EntireColumn)) X.Interior.Color = RGB(0, 255, 0) End Sub ' _Boroda_>> Re: изменение связей в Power Point 2011-02-08 14:29 http://forum.msexcel.ru/profiles/boroda-u12234.html Файл Excel пересохранить под старым именем (на который есть связи), открыть его и файл Power Point и, при ОТКРЫТОМ файле Power Point, сохранить файл Excel с нужным именем. Alexandrin>> Re: Макрос переноса данных из одного файла в другой 2011-02-08 15:38 http://forum.msexcel.ru/profiles/alexandrin-u64040.html Тогда я не смогу работать с макросом на локальном компьютере, а мне требуется, чтобы макрос работал и так и так. Я думаю, что нужно сделать условие в макросе, что если исходный файл запущен на том же компьютере, где лежит итоговый файл, то путь такой "Set wb = GetObject("c:\test.xls")", а если на другом, то прописывается сетевой путь. Только как это все прописать? Про это и был вопрос в предыдущем посте. tgm>> Re: Перенести данные 2011-02-08 16:18 http://forum.msexcel.ru/profiles/tgm-u43423.html GWolf, Wasilic,спасибо огромное - оба варианта супер! MAXAH>> Автообновление файла 2011-02-08 16:28 http://forum.msexcel.ru/profiles/maxah-u69233.html Помогите советами начинающему специалисту: 1. Как сделать так, чтобы даже при закрытом исходном файле данные в сводной таблице сохранялись. Есть вот такая формула: =ДВССЫЛ("'[Сводная Финансовая модель Панельных.xlsx]"&СТРОКА(2:2)&"'!$F$9") Данные в ячейке отображаются только при открытом файле "Сводная Финансовая модель Панельных.xlsx" Как сделать так, чтобы она отображалась и при закрытом файле? 2. Автообновление как сделать, чтобы при изменении данных в файле "Сводная Финансовая модель Панельных.xlsx" происходило изменение в сводной таблице? GWolf>> Re: Перенести данные 2011-02-08 16:44 http://forum.msexcel.ru/profiles/gwolf-u4652.html Пожалуйста! - Обращайтесь ... Wasilic>> Re: Фильтр сводной таблицы макросом 2011-02-08 16:55 http://forum.msexcel.ru/profiles/wasilic-u24852.html А такой вариант не подойдет? Как информация для размышления. GWolf>> Re: Реализовал задачу 2011-02-08 17:05 http://forum.msexcel.ru/profiles/gwolf-u4652.html Реализовал задачу Файл во вложении Только одна проблема осталась - календарь при запуске из ячейки диапазона дает старую дату а не сегодняшнюю По кнопке макроса - дает сегодняшнюю дату Как исправить ? В [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуле листа[/abbr] "Лист1" Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("G8:G801"), Target) Is Nothing Then UserForm_Time.Show End If If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("F8:F801"), Target) Is Nothing Then Form_SelectDate.Show End If End Sub замените на этот код: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("G8:G801"), Target) Is Nothing Then UserForm_Time.Show ... MAXAH>> Re: Автообновление файла 2011-02-08 17:20 http://forum.msexcel.ru/profiles/maxah-u69233.html Я начинающий, самоучка ещё вдобавок =) Поэтому некоторые вопросы самостоятельно не могу разобрать
IKor>> Re: Макрос переноса данных из одного файла в другой 2011-02-08 17:22 http://forum.msexcel.ru/profiles/ikor-u6827.html Как вариант: задайте пользователю вопрос при открытии файла: ссылка на файл-источник. IKor>> Re: Автообновление файла 2011-02-08 17:32 http://forum.msexcel.ru/profiles/ikor-u6827.html Функция ДВССЫЛ() / INDIRECT() не работает с закрытыми внешними файлами. Я бы посоветовал менять саму идеологию: Попробуйте использовать функции типа ИНДЕКС(), [url=http://msexcel.ru/content/view/20/2/]ВПР(_)[/url] поддерживающие работу с закрытыми внешними файлами. Но если Вы захотите, то сможете разобраться с библиотекой внешних функций MoreFunc http://xcell05.free.fr/morefunc/english/index.htm#Functions, в состав которой входит функция INDIRECT.EXT(), автор которой заявляет поддержку работы с закрытыми файлами. Toha153>> Выполнение при условии если соседняя ячейка пустая 2011-02-08 20:56 http://forum.msexcel.ru/profiles/toha153-u39281.html Здравствуйте! Подскажите, пожалуйста, как внести дополнительное условие в этот код для строки Cells(i, 29).Value = Range("BR4").Value, чтобы выполнялось, если Cells(i, 30) пусто (или любой другой для примера), а если заполнено каким-либо значением вручную (текстом или числом), то просто пропускалось и выполнялись следующие действия по списку? [code]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Dim i As Long If Not Intersect(Target, ActiveSheet.Columns("X"), ActiveSheet.UsedRange) Is Nothing Then i = Target.Row Select Case Target.Value Case "занести" Cells(i, 67).Value = Range("BO6").Value Target.Next.Value = Cells(i, 31).Value Cells(i, 26).Value = Cells(i, 36).Value Target.Next.Value = Cells(i, 31).Value Cells(i, 45).Value = Cells(i, 25).Value Cells(i, 59).Value = Cells(i, 58).Value Cells(i, 29).ClearContents Cel... sdwig>> Re: при печати пропадают буквы и цифры 2011-02-08 22:05 http://forum.msexcel.ru/profiles/sdwig-u69290.html Драйвера на принтер переставить не пробовали? FESH66>> Как изменить цвет заливки строки по щелчку мыши 2011-02-08 22:15 http://forum.msexcel.ru/profiles/fesh66-u69293.html Собственно и весь вопрос. Надо изменить цвет строки, например на красный, при щелчке мышью по номеру строки и вернуть первоначальное состояние при повторном щелчке. _Boroda_>> Re: Проблема с датами 2011-02-08 22:33 http://forum.msexcel.ru/profiles/boroda-u12234.html ПЕРЕД загрузкой данных в файл поставьте в нужных столбцах формат даты ДД.ММ.ГГГГ А после этого уже грузите. sdwig>> Re: Проблема с датами 2011-02-08 22:49 http://forum.msexcel.ru/profiles/sdwig-u69290.html Если бы всё было так просто Данные выгружаются только в таком виде - проставить форматы до выгрузки нельзя. Нужно работать с тем что есть на выходе. _Boroda_>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-08 23:13 http://forum.msexcel.ru/profiles/boroda-u12234.html В [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr] такой макрос Код: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = Columns.Count Then If Target.Interior.ColorIndex = 3 Then Target.Interior.ColorIndex = 0 Else: Target.Interior.ColorIndex = 3 End If End If End Sub К сообщению уважаемого KuklP ниже: согласен, так короче. Можно еще короче Код: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = Columns.Count Then Target.Interior.ColorIndex = (Target.Interior.ColorIndex <> 3) * -3 End If End Sub sdwig>> Re: Проблема с датами 2011-02-08 23:44 http://forum.msexcel.ru/profiles/sdwig-u69290.html Спасибо, ответ подсказали на другом форуме, кому интересно вот формула =ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(C2;"/";""))=ДЛСТР(C2);ДАТА(ГОД(C2);ДЕНЬ(C2);МЕСЯЦ(C2))+C2-ЦЕЛОЕ(C2);ДАТА(ЗНАЧЕН(ПСТР(C2;ПОИСК(" ";C2)-4;4));ЗНАЧЕН(ЛЕВСИМВ(C2;ПОИСК("/";C2)-1));ЗНАЧЕН(ПСТР(C2;ПОИСК("/";C2)+1;2))) + ВРЕМЗНАЧ(ПРАВСИМВ(C2;ДЛСТР(C2)-ПОИСК(" ";C2)))) Тему можно закрывать. KuklP>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-09 00:30 http://forum.msexcel.ru/profiles/kuklp-u39713.html С позволения уважаемого Александра, чуть сократим код: Код: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = Columns.Count Then Target.Interior.ColorIndex = Abs((Target.Interior.ColorIndex <> 3)) * 3 End If End Sub FESH66>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-09 06:23 http://forum.msexcel.ru/profiles/fesh66-u69293.html Спасибо большое! А как сделать так, что б данная процедура работала в любой открытой книге и на любом листе? Или же всегда надо будет копировать макрос в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr]? И ограничить количество выделяемых колонок, скажем, десятью? Проститите за ламерские вопросы  GWolf>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-09 08:23 http://forum.msexcel.ru/profiles/gwolf-u4652.html Спасибо большое! А как сделать так, что б данная процедура работала в любой открытой книге и на любом листе? Или же всегда надо будет копировать макрос в [abbr=правой кнопкой мыши по ярлычку листа -> Исходный текст]модуль листа[/abbr]? И ограничить количество выделяемых колонок, скажем, десятью? Проститите за ламерские вопросы Доброго дня! В открытой с данным макросом книге, но на любом ее листе и при выделении десяти колонок: В модуль "Эта Книга" пишем Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Columns.Count = 10 Then Target.Interior.ColorIndex = Abs((Target.Interior.ColorIndex <> 3)) * 3 End If End Sub Запуск в любой книге - разместить макрос в книге Personal.xls (не проверял). GWolf>> Re: Координатное выделение 2011-02-09 08:30 http://forum.msexcel.ru/profiles/gwolf-u4652.html Супер! Спасибо С.М.!!!! А то, тот вариант, который был изначально предложен имеет один существенный недостаток. Там не цветовое выделение, а .Select-ивное, что приводит к СНОСУ всего выделенного строки-столбца, при случайном нажатии клавиши Delete!!! GWolf>> Re: И снова это страшное слово "макрос" 2011-02-09 08:47 http://forum.msexcel.ru/profiles/gwolf-u4652.html Спасибо! Собравшиеся тут прямо-таки гуру Excel. Глядишь, и я чему-нибудь научусь с вашей помощью. Может, подскажите ресурсы в интернете, в которых доступно рассказано, как писать эти самые макросы. Правда, я совсем не знаю английского, хотя, может быть, этого и не нужно. Я тоже незнаю английского! В школе и институте учил немецкий ...  Идеш по первой ссылке, указанной уважаемым С.М., разбираешся, что такое редактор VBA, и как с ним работать. Выясняешь что такое процедура и что такое функция. Берешь какую нибудь "замучившую тебя рутиной повторяемости" ТВОЮ задачу. И вперед ... !!! При этом незабывая задавать, периодически, вопросы на этом форуме. И поменьше думай что ты "ламер", "чайник" и тому подобный приятный для своего самолюбия  субъект.Т. о. = УДАЧИ! Alexandrin>> Re: Макрос переноса данных из одного файла в другой 2011-02-09 08:52 http://forum.msexcel.ru/profiles/alexandrin-u64040.html А как должна выглядеть строчка кода, определяющая имя компьютера? KuklP>> Re: Макрос переноса данных из одного файла в другой 2011-02-09 10:16 http://forum.msexcel.ru/profiles/kuklp-u39713.html Тогда я не смогу работать с макросом на локальном компьютере, а мне требуется, чтобы макрос работал и так и так. Я думаю, что нужно сделать условие в макросе, что если исходный файл запущен на том же компьютере, где лежит итоговый файл, то путь такой "Set wb = GetObject("c:\test.xls")", а если на другом, то прописывается сетевой путь. Только как это все прописать? Про это и был вопрос в предыдущем посте. Да не надо Вам имя.on error resume next Set wb = GetObject("c:\test.xls") ' здесь нужно прописать полный путь к файлу-накопителю" if err<>0 then ' или if wb is nothing "Set wb = GetObject("Тут сетевой путь.xls") ' здесь нужно прописать полный путь к файлу-накопителю" end if Но если уж так хочется имя то пробуйте: Public Sub www() MsgBox CreateObject("WScript.Network").UserName MsgBox Application.UserName End Sub Alex_ST>> Re: Макрос переноса данных из одного файла в другой 2011-02-09 10:31 http://forum.msexcel.ru/profiles/alexst-u65623.html А разве если я на своём компе укажу сетевой путь к файлу, расположенному на нём же, то файл не откроется? Кажется, он не откроется только если я в сеть не войду... Я сейчас дома. Завтра на работе если будет время, проверю. Но вообще-то Сергей предложил абсолютно безотказный вариант: Код: On Error Resume Next
Set wb = GetObject("c:\test.xls") ' полный путь к файлу-накопителю If Err Then Set wb = GetObject("Сетевой путь\test.xls") ' полный сетевой путь к файлу-накопителю If Err Then MsgBox "Файл test.xls не доступен!": Exit Sub Alexandrin>> Re: Макрос переноса данных из одного файла в другой 2011-02-09 11:24 http://forum.msexcel.ru/profiles/alexandrin-u64040.html Цитировать А разве если я на своём компе укажу сетевой путь к файлу, расположенному на нём же, то файл не откроется? Не откроется, пробовал.Код: On Error Resume Next А вот этот вариант попробую, спасибо!
Set wb = GetObject("c:\test.xls") ' полный путь к файлу-накопителю If Err Then Set wb = GetObject("Сетевой путь\test.xls") ' полный сетевой путь к файлу-накопителю If Err Then MsgBox "Файл test.xls не доступен!": Exit Sub Alexandrin>> Re: Макрос переноса данных из одного файла в другой 2011-02-09 12:02 http://forum.msexcel.ru/profiles/alexandrin-u64040.html Код: If Err Then MsgBox "Файл test.xls не доступен!": Exit Sub С этой строчкой по сети не работает, каждый раз вылезает сообщение. Если ее убрать, то все работает нормально (при наличии сети, конечно )Alex_ST>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-09 12:15 http://forum.msexcel.ru/profiles/alexst-u65623.html Всё это, конечно, элегантно и коротко (особенно - метод определения, что кликнули по номерочку строки - СУПЕР), но одно из требований задания не удовлетворяется: при повторном клике по строке старая заливка ячеек не восстанавливается. А если она ещё и разная у ячеек, то это вообще кирдык: не запоминать же в массиве исходный цвет каждой ячейки в строке... Alex_ST>> Re: Макрос переноса данных из одного файла в другой 2011-02-09 12:20 http://forum.msexcel.ru/profiles/alexst-u65623.html ну, естественно... Ведь предыдущую ошибку я сбросить забыл Конечно, должно быть так: Код: On Error Resume Next
Set wb = GetObject("c:\test.xls") ' полный путь к файлу-накопителю If Err Then Err.Clear: Set wb = GetObject("Сетевой путь\test.xls") ' полный сетевой путь к файлу-накопителю If Err Then MsgBox "Файл test.xls не доступен!": Exit Sub tfos>> Re: при печати пропадают буквы и цифры 2011-02-09 12:38 http://forum.msexcel.ru/profiles/tfos-u69240.html Драйвера на принтер переставить не пробовали? Дело в драйвере было, благодарю всех
Yull>> Re: Распределение данных в колонке 2011-02-09 12:39 http://forum.msexcel.ru/profiles/yull-u69361.html Всем привет! жаль примерчик не до конца доведен, сия темка очень важна! ту _Boroda_ -пасибки большое! только не понятно как данные в столбце F образуются??? в формулах сложения параметр К берется по нему но при смене исх данных в F ничего не меняется.. если можно -подскажите сие и заодно как перенести для наглядности данные просуммированные из столбца А в столбцы B,C,D.... FESH66>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-09 12:49 http://forum.msexcel.ru/profiles/fesh66-u69293.html 2Alex_ST Нет, все работает и цвет меняет и возвращает исходный цвет(т.е. без заливки) даже если строка была, к примеру, зеленого цвета. 2GWolf К сожалению, Ваш код не работает, я так уже пробывал... Стоит вернуть строку "If Target.Columns.Count = 10 Then" к исходному "If Target.Columns.Count = Columns.Count Then" выделяется строка целиком на любом листе. GWolf>> Re: Как изменить цвет заливки строки по щелчку мыши 2011-02-09 13:03 http://forum.msexcel.ru/profiles/gwolf-u4652.html ... 2GWolf К сожалению, Ваш код не работает, я так уже пробывал... Стоит вернуть строку "If Target.Columns.Count = 10 Then" к исходному "If Target.Columns.Count = Columns.Count Then" выделяется строка целиком на любом листе. Гм, обращаю Ваше внимание что в моем варианте код будет срабатывать, если выделены ДЕСЯТЬ ячеек строки! Alexandr Zlobin>> Создание формы в excel 2011-02-09 13:09 http://forum.msexcel.ru/profiles/zlobin-u1684.html Здравствуйте. Подскажите, как можно в форме в TextBox писать текст в несколько строк? (и можно ли) Пытался добавлять chr(13), так он просто рисует значок. И еще почему-то у меня элементы формы меняют цвет, когда находятся не в фокусе. На форуме Вы можете получить совет по любым вопросам работы в Microsoft Excel. Добро пожаловать на форум! |
| В избранное | ||
