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

IKor>> Re: Разобрать строчку по запятым и собрать заново


Профессиональные приемы работы в Microsoft Excel

Выпуск 5
от 2011-02-11

Подписчиков: 6044

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel"



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: изменение цифрового &quot;названия&quot; столбца на буквенное
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()
  With Application
  .OnKey "%3", "XXXXXXX"
End Sub
где XXXXX вызов макроса с параметром r
Код:
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>> И снова это страшное слово &quot;макрос&quot;
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: И снова это страшное слово &quot;макрос&quot;
2011-02-07 13:35 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Задача простая. Но не полная.
Предпологаю, что будет не одна фамилия.
Макрос на 1-ну фамилию.


lovko>> Re: И снова это страшное слово &quot;макрос&quot;
2011-02-07 15:01 http://forum.msexcel.ru/profiles/lovko-u30610.html
Фамилий действительно будет много. Можно ли доработать макрос с учетом этого?
Кроме того, баллы в данном макросе не прибавляются: прежний балл просто заменяется новым. А нужно чтобы к старым прибавлялись или вычитались в зависимости от действия новые баллы. Действие вычитания вообще не предусмотрено. Наконец, когда вводишь несуществующие фамилии, макрос почему-то всегда работает с баллами Петрова. Помогите, пожалуйста!

С.М.>> Re: И снова это страшное слово &quot;макрос&quot;
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: И снова это страшное слово &quot;макрос&quot;
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: И снова это страшное слово &quot;макрос&quot;
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: И снова это страшное слово &quot;макрос&quot;
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: И снова это страшное слово &quot;макрос&quot;
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: И снова это страшное слово &quot;макрос&quot;
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), так он просто рисует значок.

И еще почему-то у меня элементы формы меняют цвет, когда находятся не в фокусе.

Alexandrin>> Re: Макрос переноса данных из одного файла в другой
2011-02-09 13:18 http://forum.msexcel.ru/profiles/alexandrin-u64040.html
Благодарю!

FESH66>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 13:24 http://forum.msexcel.ru/profiles/fesh66-u69293.html
2GWolf Ааа, вон оно как... Это не то, что мне нужно.
 Исходные данные:
Есть какая-то таблица состоящая из постоянного количества столбцов и переменного количества строк.
 Задача выбрать определенные строки, (не факт, что они идут подряд) и скопировать на другой лист выбранные строки (цвет это как признак того , что нужная строка не пропущена) для дальнейшей обработки... В принципе можно и всю строку помечать, ничего страшного, но как-то не аккуратненько  :Улыбка

GWolf>> Re: Создание формы в excel
2011-02-09 13:24 http://forum.msexcel.ru/profiles/gwolf-u4652.html
Здравствуйте. Подскажите, как можно в форме в TextBox писать текст в несколько строк? (и можно ли)
Пытался добавлять chr(13), так он просто рисует значок.

И еще почему-то у меня элементы формы меняют цвет, когда находятся не в фокусе.

У TextBox есть свойство WordWrap, по умолчанию = False, так вот его в = True. Ну а вводимый текст, если нужны строго ВАМИ заданные переносы, то с chr(13).

Удачи!

GWolf>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 13:34 http://forum.msexcel.ru/profiles/gwolf-u4652.html
ну так и в чем проблема?
Если Ваша таблица из десяти столбцов, то недоконца выделенная строка - это еще один уровень контроля внимательности пользователя.
Ведь выделение отменяется лишь при повторном выделении ТОЙ ЖЕ строки!



KuklP>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 13:39 http://forum.msexcel.ru/profiles/kuklp-u39713.html
А Вы бы форум почитали. В соседней теме:http://forum.msexcel.ru/microsoft_excel/makros_perenosa_dannyh_iz_odnogo_fayla_v_drugoy-t4801.0.html Алексей выложил макрос по переносу строк. И не надо танцев с бубнами.

FESH66>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 14:05 http://forum.msexcel.ru/profiles/fesh66-u69293.html
ну так и в чем проблема?
Если Ваша таблица из десяти столбцов, то недоконца выделенная строка - это еще один уровень контроля внимательности пользователя.
Ведь выделение отменяется лишь при повторном выделении ТОЙ ЖЕ строки!

Проблем нет. Не до конца выделенная строка - это просто замечательно. Но у меня выделяются ВСЕ строки (сколько их там -  64К?) 10ти колонок. Или я что-то не то делаю.

2KuklP
Почитаю канешна... Я только вчера зарегистрировался на этом форуме, до этого и не знал о его существованиии и не успел ознакомится с этой кладезью макрописатетельской мудрости.
Извините, что отвлек... Подмигивающий

Тему можно прикрыть, раз есть та, которая мне, кажись, и нужна

_Boroda_>> Re: Распределение данных в колонке
2011-02-09 14:14 http://forum.msexcel.ru/profiles/boroda-u12234.html
Столбец F просто для общего понимания ситуации разрисован был.
Сейчас сделал немного иначе. Поиграйтесь там в G:I, что не понятно будет - кричите.

GWolf>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 14:29 http://forum.msexcel.ru/profiles/gwolf-u4652.html
to KukIP: Никакие это не танцы, всего лишь ВАРИАНТЫ решения задач. Согласен, что глубина проработки зависит от подготовленности решающего. Но! Зачем же тогда форум надобен был бы. Выставили в сети "Я РЕШАЮ ВСЕ!" и решали бы все задачи.  Подмигивающий

А ссылку Вами данную я посмотрел и ... скопировал ВСЮ тему. - Как учебник. СПАСИБО ребята!

to FESH66: Поздравляю от всего сообщества с открытием НАС! Обращайтесь, поможем чем сможем. Удачи!

Yull>> Re: Распределение данных в колонке
2011-02-09 14:39 http://forum.msexcel.ru/profiles/yull-u69361.html
сянки!
но не понял пока Улыбка
сначала про условие, Norton не указал основной критерий -допуск на перекос фаз -не более 15%, т.е. значения сумм не должны отличаться друг от друга на некую величину -т.е.15% (по нормам).
если я в А столбце пишу скажем чисо 55 или больше то по логике оно будет максимальным а фаза Л2 и Л3 будут набираться из остатков значений столбца А пока сумма в каждой фазе не достигнет 55 или не будет +-15% от 55...

у Вас в столбцах G:I забиты номера строк (по 5 строк) соответственно и суммируются сразу 5 значений, но если одно из этих значений будет большим то и разница между суммами увеличиться..
в этих столбиках номера строк вбиты произвольно или както  выбирались? на практике данных в А может быть и 50 и 100 и более...
наверное нужно проверить значения сумм на допуск -если превышает то из этого столбца перенести значения в соседнюю сумму...
Пы.Сы...
Спасибки за содействие! надеюсь добьем сию задумку!

KuklP>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 14:48 http://forum.msexcel.ru/profiles/kuklp-u39713.html
to KukIP: Никакие это не танцы, всего лишь ВАРИАНТЫ решения задач. Согласен, что глубина проработки зависит от подготовленности решающего. Но! Зачем же тогда форум надобен был бы. Выставили в сети "Я РЕШАЮ ВСЕ!" и решали бы все задачи.  Подмигивающий
Про танцы я написал к тому, что нет смысла пачкать таблицу заливками(а потом же это назад в божеский вид приводить надо будет), если есть более короткий и эффективный способ. Никто же не ходит в ближайший гастроном через соседнюю область:-) Никак не хотел задеть Вас своим высказыванием.

Alexandr Zlobin>> Re: Создание формы в excel
2011-02-09 14:54 http://forum.msexcel.ru/profiles/zlobin-u1684.html
Спасибо! Нашел нужное свойство MultiLine. Осталось разобраться с изменением цвета.


Peri>> Re: изменение связей в Power Point
2011-02-09 15:00 http://forum.msexcel.ru/profiles/peri-u7767.html
Пробовала подобным образом. Перемещение в новую папку даже под старым именем (без переименования) почему-то все сбивает.
Пришлось заходить в закладку Подготовить и там все связи вручную обновлять на новый файл. Но даже так не все связи обновились.
Спасибо большое за ответ!

GWolf>> Re: Создание формы в excel
2011-02-09 15:21 http://forum.msexcel.ru/profiles/gwolf-u4652.html
Спасибо! Нашел нужное свойство MultiLine. Осталось разобраться с изменением цвета.


О, да, да! Прошу прощения за некачественный ответ. Помню, что сам с этой проблемой мучился, но .. Видать плохо мучился.  Веселый

Wasilic>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 15:22 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Break!, ребята! Мне однажны тАк написали.
Собственно и весь вопрос. Надо изменить цвет строки, например на красный, при щелчке мышью по номеру строки и вернуть первоначальное состояние при повторном щелчке.
В том то и дело, что FESH66 не пояснил, для чего ему это нужно. Оказывается:
Цитировать
Есть какая-то таблица состоящая из постоянного количества столбцов и переменного количества строк. Задача выбрать определенные строки, (не факт, что они идут подряд) и скопировать на другой лист выбранные строки (цвет это как признак того , что нужная строка не пропущена) для дальнейшей обработки...
То FESH66.  А почему сразу не описать задачу до конца? Возможно, были бы сразу предложены другие варианты решения Вашей задачи. Ну или конечное решение таким же образом. И не было бы подобных разборок.
Лично я подумал, что этот вопрос не серьезный и задан так, на всякий случай, а вдруг пригод...

GWolf>> Re: Как изменить цвет заливки строки по щелчку мыши
2011-02-09 15:22 http://forum.msexcel.ru/profiles/gwolf-u4652.html
to KukIP: Принято. Спасибо за сотрудничество.

МаркизаСТО>> Re: Суммирование ячеек пo диапазону дат
2011-02-09 15:27 http://forum.msexcel.ru/profiles/markizasto-u67164.html
Еще раз недеюсь на вашу помощь: А можно эту задачу решить с помощью функции СУМПРОИЗВЕД? если да, то подскажите пожалуйста как.

Serge 007>> Re: Суммирование ячеек пo диапазону дат
2011-02-09 15:29 http://forum.msexcel.ru/profiles/serge_007-u25260.html
А можно эту задачу решить с помощью функции СУМПРОИЗВЕД?
А я как её решил?!

Ответ #12 : 02 Февраль 2011, 10:21:21

МаркизаСТО>> Re: Суммирование ячеек пo диапазону дат
2011-02-09 16:38 http://forum.msexcel.ru/profiles/markizasto-u67164.html
хотела спросить про СУММЕСЛИ, мой преподаватель доказывает мне что в СУМПРОИЗВЕД нельзя использовать условия Грустный переубедить его видимо невозможно..

MCH>> Re: Распределение данных в колонке
2011-02-09 17:04 http://forum.msexcel.ru/profiles/mch-u48782.html
А такой вариант решения устроит?

Serge 007>> Re: Суммирование ячеек пo диапазону дат
2011-02-09 17:20 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Можно и СУММЕСЛИ  Подмигивающий
Код:
=СУММЕСЛИ(ЕСЛИ(И('Журнал прихода'!$B$10:$B$32>=$G$2;'Журнал прихода'!$B$10:$B$32<$H$2);'Журнал прихода'!$D$10:$D$32);D5;'Журнал прихода'!$E$10:$E$32)


МаркизаСТО>> Re: Суммирование ячеек пo диапазону дат
2011-02-09 17:35 http://forum.msexcel.ru/profiles/markizasto-u67164.html
 Веселый СПАСИБО! Очень выручаете!

_Boroda_>> Re: изменение связей в Power Point
2011-02-09 17:48 http://forum.msexcel.ru/profiles/boroda-u12234.html
Я не слишком подробно написал, думал Вы догадаетесь - файл Excel должен называтьсятак же, как тот, на который ссылается файл РР и лежать В ТОМ ЖЕ МЕСТЕ. Т.е., при закрытом файле РР, перетаскиваем файл Excel, на который есть ссылки, в любую другую папку (или просто переименовываем его), а на его место кладем файл, на который нужно перевесить ссылки (переименовав его в имя, которое у старого файла было). Потом открывает файл РР, в связях говорим открыть источник. Должен открыться наш новый файл. А потом пересохраняем его в нужную папку. У меня так работает. Но файлы Excel должны быть абсолютно идентичны во всем, кроме цифр.

Antonynsk>> Re: Собрать обновляемый отчет из файлов
2011-02-09 18:06 http://forum.msexcel.ru/profiles/antonynsk-u50298.html
Может хотя бы кто подсказать, какие подобными макросами (на данном форуме) можно реализовать поставленную задачу?

МаркизаСТО>> Re: Суммирование ячеек пo диапазону дат
2011-02-09 18:24 http://forum.msexcel.ru/profiles/markizasto-u67164.html
Посмотрите пожалуйста: Если ввести по 01.03.10, то суммируется аэрозоль и за 30.04.10, которая не входит в заданный диапозон, что с этим сделать? Должно быть кол-во 47, а суммируется вся аэрозоль в ячейках 10:32???


На сегодня все. До встречи на следующей неделе.


В избранное