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

MCH>> Re: Преобразование столбца чисел в одну ячейку, с последующим разделением всех цифр.


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

Выпуск 49
от 2011-12-16

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

Рассылка сайта "Профессиональные приемы работы в 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"



MCH>> Re: Преобразование столбца чисел в одну ячейку, с последующим разделением всех цифр.
2011-12-08 12:38 http://forum.msexcel.ru/profiles/mch-u48782.html
UDF:

Код:
Function JoinDiap(Arr, Optional del As String = " ") As String
    Dim i As Long, x
    For Each x In Arr
        If x <> "" Then
            JoinDiap = JoinDiap & IIf(i, del, "") & x
            i = i + 1
        End If
    Next x
End Function


virusnjk>> формат csv как в опен офисе
2011-12-08 13:47 http://forum.msexcel.ru/profiles/virusnjk-u116458.html
всем привет
я тут со своей проблемой
при сохранении в опен офисе в формате CSV, есть настройки сохранения формата см. ниже скрин

а в MS Excel я копался копался так и ничего не нашёл
кто подскажет примерные настройки "Разделитель поля" и "Разделитель текста" в MS Excel?

Snekich>> Не могу найти причину. Ошибка 1004.
2011-12-08 14:48 http://forum.msexcel.ru/profiles/snekich-u112201.html
Если UserForm1 запускать находясь на странице "Кодировки" из которой берутся значения для списка ComboBox1, то все ОК, а если с другой страницы, то макрос выдает ошибку при обращении к UserForm1:

"Error 1004: Application-defined or Object-defined Error"

Уже все перепробовал но не могу решить проблему...

Сам файл приложен.

P.S. Запускать макрос нажатием кнопки "Загрузить(настроить)" и выбрать любой текстовый файл

Могу предположить, что где-то вот тут "ошибка":
Private Sub UserForm_Initialize()
Dim iMassiv
    iMassiv = Sheets("Кодировка").Range("B1", Cells(Rows.Count, 2).End(xlUp)).Value
    ComboBox1.List = iMassiv
End Sub


Как заставить ее работать запуска с любой страницы т.к. страница "Кодировка" в последствии будет вообще скрыта  Непонимающий

Snekich>> Re: Как поставить Excel на выбранный диск
2011-12-08 14:55 http://forum.msexcel.ru/profiles/snekich-u112201.html
Там на одном из этапов установки есть выбор что-то наподобии:
- стандартная установка
- расширенные параметры.

Нажимаешь на "расширенные" и открывается окно где можно выбрать и папку и то, что конкретно будет устанавливаться.

P.S. Я сам почему-то эту кнопку не сразу заметил... хотя вроде не спрятана)))



Eduardoss>> копирование данных таблицы на новый лист с нарастающим итогом
2011-12-08 15:01 http://forum.msexcel.ru/profiles/eduardoss-u112395.html
Поясните пожалуйста, копирую каждую неделю данные таблицы на новый лист, но с нарастающим итогом не получается. т.е. форма таблицы предыдущей таблицы копируется на новый лист, стираю данные недельные вновом листе, вставляю новые в пустые ячейки, однако в итоговых строках сумма неправильная. 

hammer7>> Re: Создание БАЗЫ ДАННЫХ в экселе для ФИНАНАЛИЗА
2011-12-08 15:10 http://forum.msexcel.ru/profiles/hammer7-u10499.html

2. Данные должны храниться в любой из пяти нормальных форм (про нормализацию почитать можно здесь).


Жесть!  Веселый

Wasilic>> Re: Как при копировании с одного листа на другой вставлялись не значения, а ссылки
2011-12-08 15:33 http://forum.msexcel.ru/profiles/wasilic-u24852.html
И в чем проблема??? Впишите в каждый корешок ссылки на ячейки определенной строки листа "ШКОЛА".
=ШКОЛА!C17
=ШКОЛА!E17
=ШКОЛА!F17
и т.д.

ArtemValentinovich>> Re: Как при копировании с одного листа на другой вставлялись не значения, а ссылки
2011-12-08 15:44 http://forum.msexcel.ru/profiles/artemvalentinovich-u116306.html
И в чем проблема??? Впишите в каждый корешок ссылки на ячейки определенной строки листа "ШКОЛА".
=ШКОЛА!C17
=ШКОЛА!E17
=ШКОЛА!F17
и т.д.

Да, я так и делаю, но это так ДОЛГО Улыбка, вот я и подумал, может есть какой нибудь быстрый способ. А тут еще какой-то глюк (озвучил в другом вопросе), что перестали при копировании меняться буквы в ссылке, хотя знака доллара перед буквой нет.

Wasilic>> Re: Как при копировании с одного листа на другой вставлялись не значения, а ссылки
2011-12-08 16:10 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Ааа, долго?  Смеющийся   Так и Киев не сразу построился.
Быстро токо ... котята слепыми рождаются.  Смеющийся
Процес можно немного и ускорить, если так:

Wasilic>> Re: Не могу найти причину. Ошибка 1004.
2011-12-08 16:11 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Особо не разбирался но, может так пойдет?

STEROID>> Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-08 16:38 http://forum.msexcel.ru/profiles/steroid-u114348.html
Доброго времени суток!

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

Помогите все делаю вручную нереально тупо, не могу так дальше!




ArtemValentinovich>> Re: Как при копировании с одного листа на другой вставлялись не значения, а ссылки
2011-12-08 16:41 http://forum.msexcel.ru/profiles/artemvalentinovich-u116306.html
Ааа, долго?  Смеющийся   Так и Киев не сразу построился.
Быстро токо ... котята слепыми рождаются.  Смеющийся
Процес можно немного и ускорить, если так:

Спасибо, думаю, что таким образом веселее будет  Веселый

STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-08 16:42 http://forum.msexcel.ru/profiles/steroid-u114348.html
Прилагаю к примеру скрин!

Serge 007>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-08 16:51 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Формула УФ:
Код:
=$D$2=A2


waw01>> проблема после переустановки софта.
2011-12-08 17:35 http://forum.msexcel.ru/profiles/waw01-u56766.html
Помогите разобраться:
Вчера опер. Система была ХР, офис 2007 и был документ Ворд  и в нем была вставка таблицы эксель, где собственно расчеты и производились. Двойной щелчок мыши по данной вставке и она открывается в экселе, все работало!
Сегодня: ОС семерка, офис 2010, открываю этот же документ, щелкаю по вставке (таблице эксель) появляется инф. Окно – не удается найти приложение, посмотрите установлено ли оно, не переименовано ли, не заблокировано ли политикой
Что делать, какие мысли будут?


Snekich>> Re: Не могу найти причину. Ошибка 1004.
2011-12-08 17:52 http://forum.msexcel.ru/profiles/snekich-u112201.html
Особо не разбирался но, может так пойдет?

Спасибо.
Вариант))

Еще меня только что на другом форуме навели на верную мысль:

Private Sub UserForm_Initialize()
Dim iMassiv
    iMassiv = Sheets("Кодировка").Range("B1", ThisWorkbook.Sheets("Кодировка").Cells(Rows.Count, 2).End(xlUp)).Value
    ComboBox1.List = iMassiv
End Sub

eugrita>> Re: Как поставить Excel на выбранный диск
2011-12-08 19:29 http://forum.msexcel.ru/profiles/eugrita-u4153.html
То-то оно что такой кнопки нет. А часом та установка, которой вы пользовались - лицензионная?
А есть ли доступные для скачивания (freeware) установки, где все-таки возможен выбор папки установки?

Schurik>> Одновременное копирование строк в два файла
2011-12-08 21:52 http://forum.msexcel.ru/profiles/schurik-u114958.html
Здравствуйте! в Vba я нуль, так что сильно не пинайте  Улыбка

Задача стоит такая:
Заполнить строки из формы с боксами в два файла.  В первый заносится по листам, во второй в один лист.
Листы везде одинаковые
файл прилагаю

_Boroda_>> Re: копирование данных таблицы на новый лист с нарастающим итогом
2011-12-09 00:15 http://forum.msexcel.ru/profiles/boroda-u12234.html
на втором листе у Вас формула, суммирующая итог первого листа и оборот второго. Когда Вы копируете второй лист в третий, то в третьем получается формула, суммирующая итог первого листа и оборот третьего, и т.д.
Переписал формулу. Переназвал листы (так формула попроще, если обязательно нужно, чтобы назывались так, как у Вас, то тоже можно, но формула будет сложнее). Переделал ячейку А1.

Перекиньте вопрос в тему "Excel", как я Вам написал в личном сообщении.

FairyMary>> Помогите чайнику с простыми заданиями на опред пола/возраста и сортировку
2011-12-09 08:31 http://forum.msexcel.ru/profiles/fairymary-u116622.html
1.Определить пол(даны имя фамилия и отчество)

2.Определить возраст(дана дата рождения)

3.Например, оклад будет равен 40 тыс в месяц(это по одному человеку,там их будет много), надо расчитать премию,которая будет равна годовому окладу,но не более 600 тыс рублей.

Принцип выполнения заданий я прекрасно понимаю, но так как не владею Excel'ем на должном уровне, то не представляю как все нужные параметры для решения загнать в формулу.

И объясните плиз ещё, что такое итоговые суммы в сводных таблицах.




lsg>> Re: Получение значение формулы без записи ее в ячейку
2011-12-09 08:32 http://forum.msexcel.ru/profiles/lsg-u16533.html
Всего = WorksheetFunction.VLookup([D5], [G6:K10], 5, 1)

Уважаемый _Boroda_.
Вернусь к своему вопросу. А можно ли в этой формуле вместо ссылки на ячеку D5 подставить переменную?. Попробовал сделать так,
WorksheetFunction.VLookup(ТекущаяДата, [G6:K10], 5, 1)

Но макрос выдает ошибку: "Run-time error '1004' Невозможно получить свойство VLookup класса WorksheetFunction".
Спасибо.

lsg>> Re: Получение значение формулы без записи ее в ячейку
2011-12-09 08:48 http://forum.msexcel.ru/profiles/lsg-u16533.html
Всего = WorksheetFunction.VLookup([D5], [G6:K10], 5, 1)

Уважаемый _Boroda_.
Вернусь к своему вопросу. А можно ли в этой формуле вместо ссылки на ячеку D5 подставить переменную?. Попробовал сделать так,
WorksheetFunction.VLookup(ТекущаяДата, [G6:K10], 5, 1)

Но макрос выдает ошибку: "Run-time error '1004' Невозможно получить свойство VLookup класса WorksheetFunction".
Спасибо.

Хочу добавить, что это переменная типа Дата. А формула ищет по дате в заданном диапазоне  определенное значение.
Спасибо


STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-09 08:51 http://forum.msexcel.ru/profiles/steroid-u114348.html
Предложение интересное, НО в параметрах критерия СУММЕСЛИ задаю именно "*шуруп*3*2*1*6*, т.к. значения наименования может менятся, например "шуруп 3,2*16", "шуруп3,2*16", "шуруп 3,2х16" и т.д.
Простое тождество =$D$2=A2 , не бкдет охватывать весь диапазон
Побывал текстовый  код в УФ - не получается....

Serge 007>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-09 09:02 http://forum.msexcel.ru/profiles/serge_007-u25260.html
значения наименования может менятся, например "шуруп 3,2*16", "шуруп3,2*16", "шуруп 3,2х16" и т.д.
Спрашивается, нафига тогда пример прикладывать, в котором самое главное условие не отражено?!

Формула УФ:
Код:
=ЕЧИСЛО(ПОИСК("*шуруп*3*2*16*";A2))
или:
Код:
=НЕ(Еош(ПОИСК("*шуруп*3*2*16*";A2)))


ShAM>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-09 09:12 http://forum.msexcel.ru/profiles/sham-u106530.html
Или так:
Код:
=СЧЁТЕСЛИ(A2;"*шуруп*3*2*1*6*")>0


_Boroda_>> Re: Получение значение формулы без записи ее в ячейку
2011-12-09 09:41 http://forum.msexcel.ru/profiles/boroda-u12234.html
Я уже заколебался писАть одно и то же.
Файл где?
Цитировать
WorksheetFunction.VLookup(ТекущаяДата, [G6:K10], 5, 1)

"Run-time error '1004' Невозможно получить свойство VLookup класса WorksheetFunction"/quote]

Нет Вашей ТекущейДаты в диапазоне G6:G10


s133p>> Печать каждой строки из таблицы на новом листе
2011-12-09 09:54 http://forum.msexcel.ru/profiles/s133p-u91401.html
День добрый.
Подскажите, пожалуйста:
Есть таблица с фамилиями :
Иванов Петя
Петров Вася
Сидоров Федя
Нужно распечатать каждую фамилию на новом листе.
(можно было бы сделать вручную, но их там 4000 фамилий.)

Спасибо

STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-09 10:04 http://forum.msexcel.ru/profiles/steroid-u114348.html
Спасибо огромное, все варианты рабочие!

Высылаю окончательный пример!


_Boroda_>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 10:12 http://forum.msexcel.ru/profiles/boroda-u12234.html
Кладите файл и ТОЧНО описывайте хотелки

s133p>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 10:23 http://forum.msexcel.ru/profiles/s133p-u91401.html
Результат при печати должен быть таким:
На 1 листе
Лубош Витвера   Kategorie 1

На 2 листе
Ирина Афанасьева   Kategorie 2

На 3 листе
Штефан Эрвер   Kategorie 2

На 4 листе
Денис Ларочкин   Kategorie 2
.......
И т.д.

MaxP>> Вычисление значения ячейки
2011-12-09 11:16 http://forum.msexcel.ru/profiles/maxp-u116640.html
Здравствуйте!
У меня возникла следующая проблема. Есть ячейка А1 с неким значением в виде 53,7*3,31*0,77*0,4*7 (необходимо показывать для заказчика). Мне нужно, чтобы в другой ячейке А2 выводился результат вычисления, и любые изменения в ячейке А1 моментально влияли на результат вычисления А2. Файл excel прилагается.
Заранее спасибо.


cook_master>> Re: Вычисление значения ячейки
2011-12-09 11:27 http://forum.msexcel.ru/profiles/cookmaster-u80690.html
Как это любые изменения?Мне кажется здесь надо раскладывать строку на символы, а потом делать действия.Но если будут сложные вычисления типа со скобками , возведение в степень, умножение и деление и сложение(вычитание), то тут потребуется сложный анализ на порядок действий.
Если любые изменения касаются только чисел, то здесь будет несложно написать маленький макрос.

lsg>> Re: Получение значение формулы без записи ее в ячейку
2011-12-09 11:36 http://forum.msexcel.ru/profiles/lsg-u16533.html
Прошу прощения.

Jim>> Re: Помогите чайнику с простыми заданиями на опред пола/возраста и сортировку
2011-12-09 11:41 http://forum.msexcel.ru/profiles/jim-u4457.html
1.
Код:
=ЕСЛИ(ПРАВСИМВ(A1;3)="вна";"Ж";ЕСЛИ(ПРАВСИМВ(A1;3)="вич";"М";))
, где А1 это ячейка с отчеством, если ФИО написано в отдной ячейке, то нужно чтобы отчество было последним.

2.
Код:
=РАЗНДАТ(A5;ТДАТА();"y")
, где А5 это ячейка с датой рождения

3.
Код:
=ЕСЛИ(A11*12>600000;600000;A11*12)
, где А11 это ячейка с окладом

KuklP>> Re: Вычисление значения ячейки
2011-12-09 11:48 http://forum.msexcel.ru/profiles/kuklp-u39713.html
ЮДФ:
Код:
Public Function MyEval(s$)
    MyEval = Evaluate(Replace(s, ",", "."))
End Function


cook_master>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 11:55 http://forum.msexcel.ru/profiles/cookmaster-u80690.html
Вот такой безобидный макрос пойдёт?

Sub фамилияНаОтдельныйЛист()
rw = ActiveWorkbook.ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To rw
   ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
   ActiveWorkbook.ActiveSheet.Cells(1, 1) = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
   ActiveWorkbook.ActiveSheet.Cells(1, 2) = ActiveWorkbook.Sheets("Лист1").Cells(i, 2)
   ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
Next i

End Sub

cook_master>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 12:04 http://forum.msexcel.ru/profiles/cookmaster-u80690.html
вот так лучше.

Sub фамилияНаОтдельныйЛист()
rw = ActiveWorkbook.ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count

For i = 1 To rw
   ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
   ActiveWorkbook.ActiveSheet.Cells(1, 1) = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
   ActiveWorkbook.ActiveSheet.Cells(1, 2) = ActiveWorkbook.Sheets("Лист1").Cells(i, 2)
   Columns("A:A").EntireColumn.AutoFit
   Columns("B:B").EntireColumn.AutoFit
   ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.Sheets("Лист1").Cells(i, 1)
   
Next i
End Sub


А потом вывести на печать всю книгу.

cook_master>> Re: Вычисление значения ячейки
2011-12-09 12:13 http://forum.msexcel.ru/profiles/cookmaster-u80690.html
KukIP, а со скобками не справилась Ваша формула.

sawwa>> Вопрос по графикам в Excel
2011-12-09 12:24 http://forum.msexcel.ru/profiles/sawwa-u116650.html
Друзья, не поможете ли в таком вопросе. Имеется табличка такого плана
1978  37
1985  30
1999  36
2010  37

По ней нужно составить график, в котором первая колонка (год) будет по оси X (абсцисс), а вторая (значение) - по оси Y (ординат). Но! Ось X должна быть размечена линейно, то есть расстояние между первыми двумя значениями (1978 и 1985) должно составлять 7 единиц, между следующими -14 единиц, следующими - 11 единиц (условно говоря, миллиметров). Иначе форма кривой получается неправильной, из-за нелинейности значений в первой колонке таблицы. Как это сделать?

И в идеале - еще хотелось бы (если это возможно), чтобы кроме реального графика можно было еще штриховой линией построить экстраполирующий. То есть, взять, например, тенденции изменения значений во второй колонке за 1978-1999 годы, и продлить штриховой линией график на 2010-й и далее, чтобы показать, как бы менялся Y, если бы эти тенденции сохранились. Такое возможно в Excel?

Спасибо огромное!!

vavilon>> Re: Копирование данных средствами VBA
2011-12-09 12:31 http://forum.msexcel.ru/profiles/vavilon-u114565.html
Здраствуйте Wasilic.

Верно, это ошибка но, не Ваша. Ваш макрос работает отлично.
Просто при переносе примера в рабочую книгу, ошибку допустил я.
Дело в том что местоположения таблиц в примере и в книге разное.
Вот прога и ругнулась. Все уже устранено.

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

Эта функия, в принципе, не предусматривалась но, если есть способ ее внедрить то
это, (для последующих отладок) было бы хорошо.

Подскажите мне, пожалуйста, что здесь можно изменить в связи с этим?

Спасибо.

ПыСы. Ниже приведен код с рабочей книги.

Sub перенести()
Dim PS, K, S, I
  PS = Range("C" & Rows.Count).End(xlUp).Row 'последняя строка данных
  If Range("L32") = 0 Then
    K = 2
  Else
    K = 6 * Range("L32") + 2
  End If
  S = 8
  For I = 16 To PS
    If Cells(I, 4) <> 0 And Cells(I, 6) <> 0 Then
       Sheets("Мат-лы").Cells(S, K) = Cells(I, 3)
       Sheets("Мат-лы").Cel...

KuklP>> Re: Вычисление значения ячейки
2011-12-09 12:33 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Она не только со скобками не справится. Туда любого мусора можно напихать и она не справится. Стандартные формулы Экса тоже возвращают ряд ошибок. Это не значит, что они плохи. И универсальных решений, разбирающих все возможные ляпсусы пользователей, я еще не встречал. Так, что мое дело предложить... Да и Вам никто не мешает предложить свой вариант.

_Boroda_>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 12:42 http://forum.msexcel.ru/profiles/boroda-u12234.html
Вариант без макросов (на 2-м листе - сводная таблица)

_Boroda_>> Re: Вычисление значения ячейки
2011-12-09 12:50 http://forum.msexcel.ru/profiles/boroda-u12234.html
А если так?

_Boroda_>> Re: Вопрос по графикам в Excel
2011-12-09 12:55 http://forum.msexcel.ru/profiles/boroda-u12234.html
так?

cook_master>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 13:07 http://forum.msexcel.ru/profiles/cookmaster-u80690.html
печатается-то не так, как хотелось автору.

sawwa>> Re: Вопрос по графикам в Excel
2011-12-09 13:11 http://forum.msexcel.ru/profiles/sawwa-u116650.html
Спасибо за ответ! Чуть-чуть не так. Вот эта линия тренда должна быть не по всем значениям из таблицы. К примеру, не учитывать последнее, точку Х=2010.

_Boroda_>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 13:20 http://forum.msexcel.ru/profiles/boroda-u12234.html
печатается-то не так, как хотелось автору.

Тоже мне, проблема. Покрасить ненужное (в сводной делается автоматом) Перевложил в пред сообщение

_Boroda_>> Re: Вопрос по графикам в Excel
2011-12-09 13:25 http://forum.msexcel.ru/profiles/boroda-u12234.html
перевложил

MaxP>> Re: Вычисление значения ячейки
2011-12-09 13:44 http://forum.msexcel.ru/profiles/maxp-u116640.html
Спасибо! Все получилось.

Wasilic>> Re: Копирование данных средствами VBA
2011-12-09 14:02 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Цитировать
Но, оказывется что при удалении или добавлении строк в исходную
таблицу, программа выдает ошибку и подсвечивает строку (выделено красным).
Range("L32") - (в старом примере F15),
это ячейка указывающая сколько уже создано таблиц и от её значения зависит № начальной колонки следующей таблицы , и она не должна сдвигаться при добавлении или удалении строк. Это значит, что необходимо использовать любую ячейку в любом месте где при удалении или добавлении строк её адрес не меняется. Ест-но указав этот адрес в макросе.  Ведь макрос не следит за изменением адреса ячеек. Для просмотра же этой ячейки, создать на неё ссылку, и сдвигай её куда хош.
А ошибка из-за того, что после сдвига ячека L32 уже имеет текстовый формат и не может принимать участие в арифметике, -  K = 6 * "текст" + 2


vavilon>> Re: Копирование данных средствами VBA
2011-12-09 14:56 http://forum.msexcel.ru/profiles/vavilon-u114565.html
Wasilic

Наша переписка напоминает мне общение Ш.Холмса с д-р Ватсоном:
Холмс: "...это же элементарно Ватсон."
Ватсон: "Как все просто... когда Вы объяснили".

Молодчина. Я всегда завидовал (белой завистью) спецам в своем деле.
К сожалению быть спецом во всех делах, думаю не возможно.

Спасибо дружище.

STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-09 14:59 http://forum.msexcel.ru/profiles/steroid-u114348.html
Но начал обрабатывать свою таблицу и понял - что никакой автоматизации нету, заколебешься вносить согласно каждому заданному критерию цвет УФ. Нужно другое решение проблемы, УФ не канает!

s133p>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 15:05 http://forum.msexcel.ru/profiles/s133p-u91401.html
А как добавить сотрудников. Я попробовал прописать их в листе 2, но в листе 4 ничего не изменилось.
Добавлять их в лист 4? а зачем тогда лист 1.

С макросом не совсем удобно если их будет 4000 человек и как там поменять формат (размер, цвет) для всех 4000 .

_Boroda_>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 15:35 http://forum.msexcel.ru/profiles/boroda-u12234.html
Лист 4 это сводная таблица, составленная по данным на листе 1.
Вы знаете что такое сводная? Диапазон у нее автоматом не меняется. Нужно нажать кнопку обновить или Alt+F5.
Чтобы не путать Вас листами, сделал новую таблицу. На листе 1 добавляем, на листе 2 обновляем сводную и печатаем

Wasilic>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 17:55 http://forum.msexcel.ru/profiles/wasilic-u24852.html
А по моему у автора другая задача.
Есть таблица с фамилиями :
Иванов Петя
Петров Вася
Сидоров Федя
Нужно распечатать каждую фамилию на новом листе.
(можно было бы сделать вручную, но их там 4000 фамилий.)
Мне так показалось, просто нужно автоматизировать печать на принтере. На каждый печатный лист Фамилия и другая относящаяся к ней информация.
Или я не прав?
(Вопрос Александру s133p)



_Boroda_>> Re: Печать каждой строки из таблицы на новом листе
2011-12-09 18:45 http://forum.msexcel.ru/profiles/boroda-u12234.html
Мне так показалось, просто нужно автоматизировать печать на принтере. На каждый печатный лист Фамилия и другая относящаяся к ней информация.
Или я не прав?
Меня тоже немного насторожило желание распечатать 4000 листов.

FairyMary>> Re: Помогите чайнику с простыми заданиями на опред пола/возраста и сортировку
2011-12-09 20:39 http://forum.msexcel.ru/profiles/fairymary-u116622.html
Спасибо огромное!!!!!! Веселый

Wasilic>> Re: Одновременное копирование строк в два файла
2011-12-09 20:58 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Заполнить строки из формы с боксами в два файла.  В первый заносится по листам, во второй в один лист.
Листы везде одинаковые
А проще нельзя? Заполнить строку на нужном листе и отправить в другой файл. Или без гемора никак?  Улыбка

Schurik>> Re: Одновременное копирование строк в два файла
2011-12-09 21:13 http://forum.msexcel.ru/profiles/schurik-u114958.html
А проще нельзя? Заполнить строку на нужном листе и отправить в другой файл. Или без гемора никак?  Улыбка
Наверное можно. Пытаюсь так сделать. Для начала мне нужно чтобы строка записывалась в нужный лист, а уж потом прикручу отправку.

exceleved>> Re: Получение значение формулы без записи ее в ячейку
2011-12-09 21:24 http://forum.msexcel.ru/profiles/exceleved-u35802.html
Как ни странно, надо конвертировать дату в число, тогда ищет:
Код:
   Курс = WorksheetFunction.VLookup(CDbl(ТекущаяДата), Range("A2:C9999"), 2, 1)
А лучше объявите переменную как Double или Long, тогда этой конвертации не надо.
Код:
Dim ТекущаяДата As Long
'...
For ТекущаяДата = ТекущаяДата To ДатаОтчетная
    Курс = WorksheetFunction.VLookup(ТекущаяДата, Range("A2:C9999"), 2, 1)
    Сумма2 = Курс * Сумма
    Range("G" & N) = ТекущаяДата
    Range("H" & N) = Сумма2
    N = N + 1
Next
Еще можно загрузить таблицу в массив, использовать его в VLookup. Результат записывать в другой массив и потом выгрузить на лист. Это если будет тормозить на больших таблицах.

Wasilic>> Re: Одновременное копирование строк в два файла
2011-12-09 21:34 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Для начала мне нужно чтобы строка записывалась в нужный лист, а уж потом прикручу отправку.
В вопросе я имел ввиду: - открываешь тот нужный лист , вводишь в последнюю строку (не в форму а в лист) инфу. После, нажимаешь кнопку, и эта последняя строка отправляется в другой файл с одним листом.

Schurik>> Re: Одновременное копирование строк в два файла
2011-12-09 21:42 http://forum.msexcel.ru/profiles/schurik-u114958.html
В вопросе я имел ввиду: - открываешь тот нужный лист , вводишь в последнюю строку (не в форму а в лист) инфу. После, нажимаешь кнопку, и эта последняя строка отправляется в другой файл с одним листом.
Нужно через форму, для простоты ввода пользователями. Листов может быть очень много - не удобно.
Можно конечно из файла с одним листом скопировать по листам в другой, но опять же нужно сделать это через форму.


Eduardoss>> копирование таблиц в новый лист
2011-12-09 21:44 http://forum.msexcel.ru/profiles/eduardoss-u112395.html
Подскажите, способ копирования таблиц в новый лист с сохранением формул (сложения), чтобы при внесении новых данных (в новый лист) сумировался текущий столбец плюс итоговый столбец на предыдущем листе или поясните при копировании таблицы в новый лист необходимо ли заново редактировать формулу???

Wasilic>> Re: Одновременное копирование строк в два файла
2011-12-09 23:40 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Нужно через форму, для простоты ввода пользователями.
Ну, если нужно, значит нужно.
Только не думаю, что пользователю будет проще работать с формой
нежели например так:

_Boroda_>> Re: копирование таблиц в новый лист
2011-12-10 03:43 http://forum.msexcel.ru/profiles/boroda-u12234.html
примерно так.
Только аккуратно называйте новые листы. Строго через 7 дней

Schurik>> Re: Одновременное копирование строк в два файла
2011-12-10 10:26 http://forum.msexcel.ru/profiles/schurik-u114958.html
Нужно через форму, для простоты ввода пользователями.
Ну, если нужно, значит нужно.
Только не думаю, что пользователю будет проще работать с формой
нежели например так:
Да, можно так. Буду осмысливать пример.
Спасибо, что поковырялись в моих проблемах.
Надеюсь, что кому-то тоже будет полезен пример.

Алексей Шмуйлович>> Re: Печать каждой строки из таблицы на новом листе
2011-12-10 10:54 http://forum.msexcel.ru/profiles/alexshm-u64.html
Я бы решал эту задачу через слияние в Word. Делаете шаблон отчета, который хотите получить и добавляете Ваш список в Excel в качестве источника слияния.

olimpus>> Ссылку в текст
2011-12-10 12:04 http://forum.msexcel.ru/profiles/olimpus-u4596.html
Здравствуйте
Нужен макрос который в выделенном диапазоне заменял ссылки на текст

_Boroda_>> Re: Ссылку в текст
2011-12-10 12:32 http://forum.msexcel.ru/profiles/boroda-u12234.html
Код:
Sub tt()
    Selection = Selection.Value
End Sub


olimpus>> Re: Ссылку в текст
2011-12-10 12:43 http://forum.msexcel.ru/profiles/olimpus-u4596.html
Выделяю столбец , включаю макрос , но ссылки(на интернет страницы в виде текста) так и остались ссылками почемуто


KuklP>> Re: Ссылку в текст
2011-12-10 13:06 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Объяснять толком надо. Ссылки и гиперссылки суть вещи разные.
Код:
Public Sub www()
    Selection.Hyperlinks.Delete
End Sub


olimpus>> Re: Ссылку в текст
2011-12-10 14:10 http://forum.msexcel.ru/profiles/olimpus-u4596.html
Объяснять толком надо. Ссылки и гиперссылки суть вещи разные.
Код:
Public Sub www()
    Selection.Hyperlinks.Delete
End Sub

Теперь и для меня они стали разными вещами  Улыбка
спасибо все работает



Eduardoss>> Re: копирование таблиц в новый лист
2011-12-11 09:33 http://forum.msexcel.ru/profiles/eduardoss-u112395.html
Спасибо....
попробовал, все работает...........


STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-11 21:57 http://forum.msexcel.ru/profiles/steroid-u114348.html
Ребят помогите с решением, завтра срок сдачи отчета, а я пролетаю! Плачущий

sawwa>> Re: Вопрос по графикам в Excel
2011-12-11 21:57 http://forum.msexcel.ru/profiles/sawwa-u116650.html
Спасибо! А вот как бы этот же тренд изобразить (экстраполяцией) в виде таблички, то есть - трендовых значений на произвольный год за пределами 2010-го?

Moriartii>> Помогите выполнить задания в Excel (за плату)
2011-12-12 03:23 http://forum.msexcel.ru/profiles/moriartii-u117130.html
Господа (или дамы) нужна помощь. Мне (по правде говоря, не совсем мне, хотя не суть важно) необходимо выполнить ряд заданий по дисциплине "Информационные технологии". Задания выполняются в Excel'e и, как правило, заключаются в создании и/или редактировании баз данных. У самого на эту тему времени заморачиваться нет, да и желания честно говоря тоже. Однако думаю, что "шарящий" человек управится с этим делом за пять минут. Оплата зависит от скорости/качества выполненной работы, взаимопонимания и совести подрядчика Улыбка На вскидку: работа включает порядка 7 практических работ (с несколькими заданиями) + контрольная работа, предполагаю что ценник варьируется от 300 до 1000р. Вообщем договоримся  Подмигивающий

один из примеров контр. работ:
"Вариант 1. Создать базу данных со следующими полями: номер магазина, номер телефона (например – 25-32-69), специализация (например – продукты, промышленные товары и т.д.), форма собственности (например – ОАО, ЧП, ИП и т.д.).
а)определить список магазинов одной...


lotos>> выбор ответа по 2-м аргументам
2011-12-12 07:44 http://forum.msexcel.ru/profiles/lotos-u116818.html
Работая с формулами Ехеl в таблице, "застрял" при попытке выбора ответа по 2-м аргументам таблицы.В основном все формулы для решения  опираются на одно значение (ячейку). Что-то можно сделать? Таблица в семь столбцов: 1- цыфры (1-33), 2-4ый а,в,с и 3-ри столбца ответов. Требуется найти горизонтальный ответ по 2-м ячейкам (цифре и букве): условно цыфра 2+"а"-ответ слово"2а", 33+"в" ответ слово "33б". Кроме как предварительного слияния 2-х аргументов в одну ячейку, ничего придумать не смог. Просмотрел ЕСЛИ, ПРОСМОТР, ВПР, ГПР и другие, также массивы, но решения не нашел. Предложите варианты, направления.     
 

ShAM>> Re: выбор ответа по 2-м аргументам
2011-12-12 08:26 http://forum.msexcel.ru/profiles/sham-u106530.html
Так? Или я что-то не так понял?


STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 08:41 http://forum.msexcel.ru/profiles/steroid-u114348.html
Задача аналогична поставленной ранее, есть столбец "наименование"  - шурупы, саморезы и т.д., с одним лишь условием - функционально одинаковые позиции могут повторяться в списке и повторяться могут под разными наименованиями (т.е. "шуруп 3.2*16", "шуруп3.2х16", "шуруп 3.2*16 DIN 968" и т.д), второй столбец - количество соответственно.

Задача - подбить количество по каждой конкретной позиции, а именно подсчитать сколько, к примеру, должно быть "шуруп 3.2*16" (попутно надо учесть и отсеять все возможные варианты - "шуруп3.2х16", "шуруп 3.2*16 DIN 967" и т.д)
 
СУТЬ ПРОБЛЕМЫ:
Для подсчета использую формулу, к примеру,  =СУММЕСЛИ($A$1:$A$107;"*шуруп*3*2*16*";$В$1:$В$107) - таким образом формула подсчитает варианты "шуруп 3.2*16",  "шуруп3.2х16", "шуруп 3.2*16 DIN 967" , но может в списке быть значение "шуруп 3.2*16 DIN 7982" - оно попадет под критерий поиска, но именно это значение имеет другой логический смысл и оно считаться не должно!

Отсюда необходимо все критерии поиска, а именно -...

cook_master>> Re: Отчёт по нескольким книгам. Какой метод использовать?
2011-12-12 08:47 http://forum.msexcel.ru/profiles/cookmaster-u80690.html
А пример можно получить?

s133p>> Re: Печать каждой строки из таблицы на новом листе
2011-12-12 09:01 http://forum.msexcel.ru/profiles/s133p-u91401.html
Цитировать
На каждый печатный лист Фамилия и другая относящаяся к ней информация

Да.

Цитировать
Меня тоже немного насторожило желание распечатать 4000 листов.
Это зарплатный листок. На другой чистой стороне фамилия и имя будет, потом всё уходит в аппарат который пакует в конверты.

Цитировать
На листе 1 добавляем, на листе 2 обновляем сводную и печатаем
И кнопку обновить и Alt+F5 жал - не хочет обновляться Грустный

ShAM>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 09:29 http://forum.msexcel.ru/profiles/sham-u106530.html
Проблема не совсем понятна. Выделяйте хоть весь столбец с "шурупами...", ставьте УФ и просматривайте.
Кстати:
Цитировать
и тут АГА - "шуруп 3.2*16 DIN 7982" - не подходит - и я беру меняю значение на "2шуруп 3.2*16 DIN 7982" и оно в поиск автоматически  не  попадает, так как не находит формула  критерий "шуруп", соответственно поиск полностью выбрал весь перечень необходимых материалов!
ВОТ!
Так не получится. Можете перед "шуруп" ставить не только "2", но и что угодно. Формула все равно ее найдет, т.к. стоит "*" перед "шуруп".


_Boroda_>> Re: Печать каждой строки из таблицы на новом листе
2011-12-12 09:36 http://forum.msexcel.ru/profiles/boroda-u12234.html
Цитировать
На листе 1 добавляем, на листе 2 обновляем сводную и печатаем
И кнопку обновить и Alt+F5 жал - не хочет обновляться
Ну не знаю. У меня все обновляется.
Кладите свой файл (в котором не обновляется) и ПОШАГОВО описывайте, что и как делаете.
Пошагово - это примерно так:
на листе Лист1 в ячейку А13 пишу "ррр", в В13 пишу "ААА", на листе Лист2 выделяю ячейку А5, жму Alt+F5

Johann>> Помогите с выборкой значений в столбцах
2011-12-12 09:38 http://forum.msexcel.ru/profiles/johann-u117176.html
Всем здравствуйте

Помоги пожалуйста со следующей выборкой:

Есть столбец под названием "Ассортимент" со строками со значениями через "," т.е. "Лист, Плита, Проволока" и т.д.

Нужно сделать так, чтобы выскакивал список с несколькими единичными значениями, т.е. 1) Плита 2) Лист 3) Проволока. Выбираешь значение "Лист" и оторбражются все строки, где есть это значение. А у меня они в списке идут сразу по несколько значений через ",", т.е. 1) Лист, Плита, Пруток 2) Пруток, Лист, Плита и т.д.

Помоги пожалуйста.

Wasilic>> Re: Печать каждой строки из таблицы на новом листе
2011-12-12 11:15 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Цитировать
Это зарплатный листок. На другой чистой стороне фамилия и имя будет,
А что, Ф.И.О. на той же стороне не помещается?
Или принтер с двухсторонней печатью?  Улыбка
И вообще, один рассчетный на один А4 - жирновато будет.
Экономика должна быть экономной.
Ложите натуральный пример фамилий на 10 (Ф.И.О. можно сменить),
а мы подумаем.

vavilon>> Re: Копирование данных средствами VBA
2011-12-12 11:34 http://forum.msexcel.ru/profiles/vavilon-u114565.html
Здраствуйте Wasilic

Посидел на выходних с нашей програмкой.
Пыталься разобратся в коде. Призвал на помощь Help, Уокенбаха и форумы.
Многое чего узнал. Я и не подозревал о таких возможностях Excel !!!  Шокирован
Наверное надо занятся посеръезней.

Но, к сожалению, на свой вопрос я ответа и не нашел. Может объясните как
сделать чтобы в этом же цикле, дополнительно, из первого листа на второй
можно было-бы скопировать данные нескольких, отдельно расположеных ячеек
(в примере - серая заливка).

И, если можна, черкните несколько слов разяснения для понимания работы кода.

С уважением,

Wasilic>> Re: Копирование данных средствами VBA
2011-12-12 11:38 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Цитировать
(в примере - серая заливка).
В каком примере?

Wasilic>> Re: Помогите с выборкой значений в столбцах
2011-12-12 12:04 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Читайте правила форума, 2-й пункт.

vavilon>> Re: Копирование данных средствами VBA
2011-12-12 12:09 http://forum.msexcel.ru/profiles/vavilon-u114565.html
Цитировать
(в примере - серая заливка).
В каком примере?

Во блин! Понедельник !!!

Прошу прощения. Пример во вложенном файле.

Wasilic>> Re: Копирование данных средствами VBA
2011-12-12 13:17 http://forum.msexcel.ru/profiles/wasilic-u24852.html
В макросе  Cells (1,1)  – Ячейки (строка 1, столбец 1)  то есть  ячейка А1
Ячейки на листе 1   С7  - Cells(7,3),    I7 – Cells(7,9),   K12 – Cells(12,11),  M12 – Сells(12,13)
Ячейки на листе 2  E6  - Cells(6,5),    E7 – Cells(7,5),   E9 – Cells(9,5),  E21 – Cells(21,5)
Вместо цифр в скобках, при смене строк и столбцов, могут подставляться
переменные, например в цикле.
В данном случае, после “Next” надо дописать:
Sheets("Мат-лы").Cells(6, K + 4) = Cells(7, 9)
Sheets("Мат-лы").Cells(7, K + 4) = Cells(7, 3)
Sheets("Мат-лы").Cells(9, K + 4) = Cells(12, 11)
Sheets("Мат-лы").Cells(S+2, K + 4) = Cells(12, 13)

Здесь тоже полезная информация:
http://vtit.kuzstu.ru/books/shelf/book3/doc/chapter2.html


lotos>> Re: выбор ответа по 2-м аргументам
2011-12-12 14:05 http://forum.msexcel.ru/profiles/lotos-u116818.html
да ,такая таблица - в ответах будет просто слово -выбранная ячейка от информации ячейки столбца и ячейки -буквы: типа если в таблицу поступят данные -1 и "а" должен быть ответ текст -один из трех ответов (1а)

Wasilic>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 15:02 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Предложили УФ, а именно задавать *шуруп*3*2*16* чтобы выделяло цветом, все супер, вот только наименований около 500, пусть я и смогу прикинуть весь диапазон критериев в формуле =СУММЕСЛИ($A$1:$A$107;"*..................*";$В$1:$В$107), но внести их еще в УФ - двойная работа - нереально!
ПОМОГИТЕ!
Может такой вариант ввода облегчит страдания!  Улыбка

ShAM>> Re: выбор ответа по 2-м аргументам
2011-12-12 15:07 http://forum.msexcel.ru/profiles/sham-u106530.html
да ,такая таблица - в ответах будет просто слово -выбранная ячейка от информации ячейки столбца и ячейки -буквы: типа если в таблицу поступят данные -1 и "а" должен быть ответ текст -один из трех ответов (1а)
Не понятно, Вы получили, что хотели?
Если нет, напишите подробнее, что откуда брать, что с этим делать и что должно получиться в итоге.


STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 16:28 http://forum.msexcel.ru/profiles/steroid-u114348.html
Проблема не совсем понятна. Выделяйте хоть весь столбец с "шурупами...", ставьте УФ и просматривайте.
Кстати:
Цитировать
и тут АГА - "шуруп 3.2*16 DIN 7982" - не подходит - и я беру меняю значение на "2шуруп 3.2*16 DIN 7982" и оно в поиск автоматически  не  попадает, так как не находит формула  критерий "шуруп", соответственно поиск полностью выбрал весь перечень необходимых материалов!
ВОТ!
Так не получится. Можете перед "шуруп" ставить не только "2", но и что угодно. Формула все равно ее найдет, т.к. стоит "*" перед "шуруп".


Согласен, не проверил, поправка и тут АГА - "шуруп 3.2*16 DIN 7982" - не подходит - и я беру меняю значение на "ш2уруп 3.2*16 DIN 7982" и оно в поиск автоматически  не  попадает, так как не находит формула  критерий "шуруп", соответственно поиск полностью выбрал весь перечень необходимых материалов!

STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 16:38 http://forum.msexcel.ru/profiles/steroid-u114348.html
Предложили УФ, а именно задавать *шуруп*3*2*16* чтобы выделяло цветом, все супер, вот только наименований около 500, пусть я и смогу прикинуть весь диапазон критериев в формуле =СУММЕСЛИ($A$1:$A$107;"*..................*";$В$1:$В$107), но внести их еще в УФ - двойная работа - нереально!
ПОМОГИТЕ!
Может такой вариант ввода облегчит страдания!  Улыбка
Согласен - супер Идея - облегчит, но если вариант автоматизировать создание УФ по каждой конкретной позиции (заданному критерию)?
или же альтернативный вариант без уф, формульно, хоть цветом, хоть числом в соседней колонке, главное чтобы зрительно легко воспринималось?

А так честно - спасибо реально помогло!

Jim>> Re: выбор ответа по 2-м аргументам
2011-12-12 17:08 http://forum.msexcel.ru/profiles/jim-u4457.html
плохо понял что требуется, но может эта формула подойдет.
вставляешь, и растягиваешь.. Подмигивающий

Код:
=СЦЕПИТЬ("текст";$A2;B2)


Kirill G.>> копирование между строк
2011-12-12 18:39 http://forum.msexcel.ru/profiles/kereal-u2111.html
Добрый день, подскажите как сделать копирование между строк с другого листа:
1

1

1

на другом листе

2

2

2
 
нужно чтобы получилось:
1
2
1
2
1

пример прикрепил

Serge 007>> Re: копирование между строк
2011-12-12 19:34 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Из файла ровным счётом ничего не понятно.
Опишите алгоритм словами.

ЗЫ Между строк в Excel ничего нет.

Wasilic>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 20:30 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Хоть цветом, хоть числом ...

Schurik>> Re: Одновременное копирование строк в два файла
2011-12-12 21:09 http://forum.msexcel.ru/profiles/schurik-u114958.html
В принципе я добился чего хотел - заполнение и копирование в файл-учёт.
НО вот такая проблема возникла: не хочет подгружать  комбобокс при смене листа, работает если кликнуть по форме.Как выличить это? Пробовал _Activate - не работает.
И вот ещё: при закрытии формы по кнопке "закрыть" или "очистка..." очистка комбобоксов работает через раз, в остальных случаях работает нормально



Igor__>> вопрос по ф-и БДсумм
2011-12-12 21:16 http://forum.msexcel.ru/profiles/igor-u117307.html
при использовании  ф-и БДСУММ, пишу условие:

округ            |   показатель   |
Центральный  |
Южный          |

диапазон выбирается, для Центрального например, выделяю шапку - округ, и "центральный"

как это сделать для "южного"? для каждого условия создавать свою одинаковую шапку?

STEROID>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 21:47 http://forum.msexcel.ru/profiles/steroid-u114348.html
Всем спс теперь все действительно ОК!

Сегодня забомблю шаблон отчета, завтро высчитаю дефицит по метизам и электрике - и вуаля - премия в 15% оклада к концу месяца!
Этим я буду обязан вам!
 Пивасик

kimtan>> Re: вопрос по ф-и БДсумм
2011-12-12 21:48 http://forum.msexcel.ru/profiles/kimtan-u12219.html
...для каждого условия создавать свою одинаковую шапку?
Нет, создавать отдельную шапку не нужно, БДСУММ будет прекрасно работать с двумя условиями одновременно.

Igor__>> Re: вопрос по ф-и БДсумм
2011-12-12 22:08 http://forum.msexcel.ru/profiles/igor-u117307.html
в том то и дело что не получается. пишет ошибку

Wasilic>> Re: Как задать ф. СУММЕСЛИ чтобы выделяло найденные критерии цветом?
2011-12-12 22:22 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Этим я буду обязан вам!
 Пивасик
Не возражаю.
Яндекс-деньги:  счет № 410011183795425  это просто! Подмигивающий

kimtan>> Re: вопрос по ф-и БДсумм
2011-12-12 22:23 http://forum.msexcel.ru/profiles/kimtan-u12219.html
Вот так, без ошибок и без функций БД...

Igor__>> Re: вопрос по ф-и БДсумм
2011-12-13 00:35 http://forum.msexcel.ru/profiles/igor-u117307.html
премного благодарен)

Igor__>> Re: вопрос по ф-и БДсумм
2011-12-13 01:25 http://forum.msexcel.ru/profiles/igor-u117307.html
а все таки как с помощью бдсумм?

kimtan>> Re: вопрос по ф-и БДсумм
2011-12-13 02:22 http://forum.msexcel.ru/profiles/kimtan-u12219.html
Можно и с БДСУММ, но для меня остается загадкой: зачем? Задание от препода?

ShAM>> Re: копирование между строк
2011-12-13 08:11 http://forum.msexcel.ru/profiles/sham-u106530.html
Выделяете на Sheet2 – A1:A9 – Copy – Переходите на Sheet1 – A2 – Специальная вставка – Пропускать пустые ячейки – OK.


Kirill G.>> Re: копирование между строк
2011-12-13 09:57 http://forum.msexcel.ru/profiles/kereal-u2111.html
Выделяете на Sheet2 – A1:A9 – Copy – Переходите на Sheet1 – A2 – Специальная вставка – Пропускать пустые ячейки – OK.

Благодарю! что-то сразу не посмотрел это пункт, хотя лазил по этому меню

vavilon>> Re: Копирование данных средствами VBA
2011-12-13 10:32 http://forum.msexcel.ru/profiles/vavilon-u114565.html
 Wasilic  Ok!

Все работает чудесно!

Преогромное сасибо.

ПыСы См. личку

Шпец Докапыч>> Re: Шпаргалка с hotkey'ями - для тех кто забыл
2011-12-13 10:57 http://forum.msexcel.ru/profiles/shpetsealist-u3583.html
Шпора переехала сюда: http://www.hot-keys.ru/klava_Excel.pdf

lotos>> Re: выбор ответа по 2-м аргументам
2011-12-13 15:27 http://forum.msexcel.ru/profiles/lotos-u116818.html
Уважаемый г.ShaM, и другие, со слиянием все понятно. Ищу формулу вот для чего: во вложеной таблице из горизонтального и вертикального массива чисел (123... и АВС...) нужно найти значение на их пересечении. То есть в данную таблицу поступают 2 значения, входящие в массивы, ответ -на пересечении... Тут кажется одна формула не справится, только наверно с подформулой??   

Serge 007>> Re: выбор ответа по 2-м аргументам
2011-12-13 15:31 http://forum.msexcel.ru/profiles/serge_007-u25260.html
lotos, он же ural.
Вам ответили здесь:http://www.excelworld.ru/forum/2-1095-1. Сегодня в 11:10 вы написали:
Цитата: ural
MCH, спасибо. Сейчас всё увидел!

Так РЕШЕНА ВАША ЗАДАЧА ИЛИ НЕТ?!


lotos>> Re: выбор ответа по 2-м аргументам
2011-12-13 15:46 http://forum.msexcel.ru/profiles/lotos-u116818.html
Sergey007, не все было понятно по ответу МСН. Но сейчас ещё раз просмотрел и наконец-то всё понял! Проблема решена!!! Извиняюсь, что не сразу все доходит.

Snekich>> Как поменять значение константы?
2011-12-13 19:45 http://forum.msexcel.ru/profiles/snekich-u112201.html

Задаю константу

Public Const MyPass = "пароль"

Как потом ее поменять из самой программы и что бы она работала и после перезапуска программы?


Что-то наподобии, только что бы новое значение записывалось в константу:

Sub ЗадатьПароль()
Dim p As String
p = InputBox("Введите старый пароль:", "Вы тот, кто знает пароль?")
If p = MyPass Then
p = InputBox("Введите новый пароль:", "Запомните пароль")
MyPass = p
End If
End Sub


Подскажите пожалуйста

StaffInc>> заменить одни числа строки на другие, а потом сложить результат
2011-12-13 20:47 http://forum.msexcel.ru/profiles/staffinc-u117507.html
Задача не из самых сложных, но я в ступоре!
Необходимо заменить одни числа строки на другие, а потом сложить результат.

19 7 17 7 17 19 - есть такая строка (*)

В ней необходимо заменить 19 на 12, 7 на 12, 17 на 14

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

StaffInc>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 21:13 http://forum.msexcel.ru/profiles/staffinc-u117507.html
Вот, прикрепляю файл, в нем таблица!!! В ячейках прописано время выхода на работу (7, 17, 19 - часов). Это время меняем на кол-во часов(17-14 часов, 7-12, 19-12). Суммируем кол-во часов и результат заносим в ячейку факт.смен

Wasilic>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 21:36 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Так пойдет?
Код:
=(СЧЁТЕСЛИ(B7:AF7;17)*14)+(СЧЁТЕСЛИ(B7:AF7;7)*12)+СЧЁТЕСЛИ(B7:AF7;19)*12


StaffInc>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 21:40 http://forum.msexcel.ru/profiles/staffinc-u117507.html
Класс!!! А если усложнить задачу?! Как считать тоже самое только в тех ячейках, которые др. цвета? Возможно такое?

Wasilic>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 21:50 http://forum.msexcel.ru/profiles/wasilic-u24852.html
 Улыбка Таких формул не знаю. Возможно макросом.

MCH>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 22:03 http://forum.msexcel.ru/profiles/mch-u48782.html
формулами по признаку цвета считать нельзя, только макросом, но можно пометить выходные признаком и по нему уже считать

StaffInc>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 22:15 http://forum.msexcel.ru/profiles/staffinc-u117507.html
чёт как то не очень понятно.... Непонимающий Как это сделать?!

Wasilic>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 22:28 http://forum.msexcel.ru/profiles/wasilic-u24852.html
МСН +5. Красивый выход из положения!
чёт как то не очень понятно.... Непонимающий Как это сделать?!
Пример МСН смотреть! Там выходные помечены буквой В.

StaffInc>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 23:03 http://forum.msexcel.ru/profiles/staffinc-u117507.html
Ну вы ваще красавцы!!!! "Пацаны ваще ребята" ))))
Тогда задачка на ночь))) последняя))) как говорили в школе "Задача на 5!!!"

Имеем график (файл - 1), нужно автоматически преобразовать его в вид (файл - 2)!!! Преобразование состоит в том, что:
12 в будни - меняем на 17
12 в выходные - меняем на 7
5 в будни - меняем на 17
5 в выходные - меняем на 19
7 везде стираем

Можно ли график типа 1 (саму таблицу) копировать в заранее подготовленный шаблон, так чтобы он автоматически преобразовывался в тип 2?!!!

MCH>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-13 23:56 http://forum.msexcel.ru/profiles/mch-u48782.html
как говорили в школе "Задача на 5!!!"
что типа зачетку готовить?

Код:
Sub Задача_на_5()
Dim x As Range, lr As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row
For Each x In Range("B7:AF" & lr)
    If x.Interior.ColorIndex = xlNone Then
        Select Case x.Value
        Case 7: x.ClearContents
        Case 12, 5: x.Value = 17
        End Select
    Else
        Select Case x.Value
        Case 7: x.ClearContents
        Case 12: x.Value = 7
        Case 5: x.Value = 19
        End Select
    End If
Next x
Range("AH7:AH" & lr).FormulaR1C1 = _
    "=(COUNTIF(RC[-32]:RC[-2],17)*14)+(COUNTIF(RC[-32]:RC[-2],7)*12)+COUNTIF(RC[-32]:RC[-2],19)*12"
Range("AI7:AI" & lr).FormulaR1C1 = _
    "=(COUNTIF(RC[-33]:RC[-3],17)*12)+COUNTIF(RC[-33]:RC[-3],19)*12"
End Sub


StaffInc>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-14 04:05 http://forum.msexcel.ru/profiles/staffinc-u117507.html
Меняет все подряд на 7-19, а в будни нужно 17!!! Так что зачетку пока рано доставать Обеспокоенный

KuklP>> Re: Как поменять значение константы?
2011-12-14 05:30 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Константа, она и есть константа. Ее нельзя поменять. Хотите менять - используйте переменную.
В общий модуль:
Код:
Public MyPass as String
а в модуль книги:
Код:
Private Sub Workbook_Open()
      MyPass = "пароль"
End Sub
Если хотите, чтоб измененный пароль сохранялся при переоткрытиях, можно использовать savesetting, customdocumentproperties, ячейку на скрытом листе и т.д..

Wasilic>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-14 10:22 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Меняет все подряд на 7-19, а в будни нужно 17!!! Так что зачетку пока рано доставать Обеспокоенный
Сначала надо разобраться, а потом зачет ставить.
У тебя таблица графика залита белым цветом, а в макросе идет проверка как - "Если нет заливки", вот и результат.
Так что, если ставить зачет, то МСН +5, тебе 2-ка.  Смеющийся
Думай!!!


StaffInc>> Re: заменить одни числа строки на другие, а потом сложить результат
2011-12-14 11:44 http://forum.msexcel.ru/profiles/staffinc-u117507.html
Согласен получить двойку, лишь бы работало)))) Спасибо!!! Буду на работе, проверю)

Zergiuz>> Выборка (сопоставление) с листов
2011-12-14 14:47 http://forum.msexcel.ru/profiles/zergiuz-u117677.html
Тема скорее всего не верна, есть на 1ом листе: Имя Код (число), 2ой лист: Отчество Код (число), 3ий лист: Фамилия Код Имени Код Отчества - как все это дело собрать на четвертом листе где было бы Фамилия Имя Отчество? Образец файла прилагается.

slavabatov>> Расчет пеней.
2011-12-14 14:49 http://forum.msexcel.ru/profiles/slavabatov-u84818.html
Добрый день.
Подскажите, пожалуйста, как можно рассчитать размер пени если % изменяется в зависимости от количества дней просрочки.
Т.е. количество дней просрочки я считаю в отдельном столбце (например 120 дней), а затем имеются условия, 45 дней без пени, с 46-го по 60-ый 12 % от стоимости (например 100 руб), с 61-го по 90-й 24 %, более 90 дней 30 %.
Значит за 15 дней 1,8 руб + за 30 дней 7,2 руб + и ещё 30 дней 9 руб    Итого пени за 75 дней сверх срока составляет 18 руб

proandrey>> Re: Смена кодировки в Экселе (UTF-8 -&gt; windows-1251)
2011-12-14 14:50 http://forum.msexcel.ru/profiles/proandrey-u117678.html
Подскажите, как воспользоваться данным модулем преобразования.

Спасибо

slavabatov>> Re: Расчет пеней.
2011-12-14 15:18 http://forum.msexcel.ru/profiles/slavabatov-u84818.html
Добавляю.

_Boroda_>> Re: Выборка (сопоставление) с листов
2011-12-14 15:19 http://forum.msexcel.ru/profiles/boroda-u12234.html
так?

solov62>> Re: Бухгалтерская система АКСИОС
2011-12-14 15:44 http://forum.msexcel.ru/profiles/solov62-u117680.html
Описание красивое. А демку посмотреть хотя бы?

Zergiuz>> Re: Выборка (сопоставление) с листов
2011-12-14 15:46 http://forum.msexcel.ru/profiles/zergiuz-u117677.html
Именно так, но список большой, как это чудо сотворить?

_Boroda_>> Re: Выборка (сопоставление) с листов
2011-12-14 16:48 http://forum.msexcel.ru/profiles/boroda-u12234.html
Увеличьте диапазоны. Не до восьмой строки, и до той, до которой нужно

Wasilic>> Re: Выборка (сопоставление) с листов
2011-12-14 17:14 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Можно макросом.


Wasilic>> Re: Расчет пеней.
2011-12-14 18:35 http://forum.msexcel.ru/profiles/wasilic-u24852.html
с 46-го по 60-ый 12 % от стоимости (например 100 руб),
Значит за 15 дней 1,8 руб
Чёй-то я с процентами не врубаюсь. В замешательстве
12% от 100  х 15 = 1,8


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


В избранное