Ответить
  • KSIva Senior Member
    офлайн
    KSIva Senior Member

    12172

    20 лет на сайте
    пользователь #15360

    Профиль
    Написать сообщение

    12172
    # 11 января 2007 15:29

    Ctrl+PgUp и Ctrl+PgDn.

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

    Вечно молодой, вечно пьяный...
  • Vita Senior Member
    офлайн
    Vita Senior Member

    2666

    22 года на сайте
    пользователь #3387

    Профиль
    Написать сообщение

    2666
    # 11 января 2007 15:43

    большое человеческое СПАСИБО :rotate:

    Лучше один раз вовремя - чем два раза правильно!
  • To4ilka Neophyte Poster
    офлайн
    To4ilka Neophyte Poster

    2

    17 лет на сайте
    пользователь #82503

    Профиль
    Написать сообщение

    2
    # 12 января 2007 13:01

    Вопрос следующий:

    Есть таблица с кучей данных. По каждый позиции, например -дерево в таблице есть много значений, по котрым я строю диаграмму -график с несколькими линиями.

    проблема в том, что таких диаграмм нужно сделать штук 300!!!

    Читала кое-что в интернете -нужно делать макрос, но!

    мне нужно, чтобы макрос брал данные моей диаграммы ну например:

    Диаграмма - Лес.

    А B

    1 45 60

    2 54 45

    это типа таблица))

    Диаграмма берет данные из ячейки A1 B1, а мне нужно написать макорс (или может что-то еще - все варианты рассматривать буду) где бедет делаться та же диаграмма, но будет брать данные из ячеек ниже т.е. из ячейки 2A и 2B.

    Вот, надеюсь не запутала никого.

    пример простой. на деле в диаграмме задействовано около 50 ячеек, сами понимаете, что вручную набирать - АНРИАЛ!

    АЙ НИД ХЕЛП))

    или меня

  • Zwalker Senior Member
    офлайн
    Zwalker Senior Member

    1915

    22 года на сайте
    пользователь #3119

    Профиль
    Написать сообщение

    1915
    # 12 января 2007 14:17

    IMHO. Я бы сделал так. Если не заморачиваться с макросами. Посмотри может пойдет...

    Friends come and go, but enemies accumulate.
  • Yuri_K Senior Member
    офлайн
    Yuri_K Senior Member

    6125

    22 года на сайте
    пользователь #4604

    Профиль
    Написать сообщение

    6125
    # 12 января 2007 15:08

    А когда нужно комбинировать несколько графиков, то можно тоже самое огранизовать чекбоксами.

    http://marketingnet.narod.ru/files/Book.rar

  • 37492 Member
    офлайн
    37492 Member

    480

    19 лет на сайте
    пользователь #37492

    Профиль
    Написать сообщение

    480
    # 22 февраля 2007 12:26

    При открытии любого файла *.xls

    открывается еще один пустой файл PERSONAL.XLS

    из #Sharkeva (irc.mgts.by)
  • SashaR Senior Member
    офлайн
    SashaR Senior Member

    2658

    22 года на сайте
    пользователь #3519

    Профиль
    Написать сообщение

    2658
    # 22 февраля 2007 12:55

    Alex Advanced, курим поиск, при чем один в один с вопросом

    http://www.yandex.ru/yandsearch?rpt=rad&text=%CF%F0%E8+%EE%F2%EA% ... RSONAL.XLS

    и вот например:

    http://www.viruslist.com/ru/viruses/encyclopedia?virusid=27837

    http://tver.mesi.ru/e-lib/res/334/3VIRUSES/6MACRO/EXCEL/EXCEL.HTM

    лечимсо ;)

    Жить хорошо, а хорошо жить еще лучше
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 5 апреля 2007 17:10

    появилась задача. сам справиться не смог. попыток сделал массу, но пока ничего. суть задачи:

    имеем таблицу с данными в которой есть ключевой столбец: наименование клиента.

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

    понятно объясняю?

    Пишите в ЛС.
  • Creative Senior Member
    офлайн
    Creative Senior Member

    1299

    21 год на сайте
    пользователь #7692

    Профиль
    Написать сообщение

    1299
    # 5 апреля 2007 17:43

    dikar, используйте функцию "просмотр"

  • KSIva Senior Member
    офлайн
    KSIva Senior Member

    12172

    20 лет на сайте
    пользователь #15360

    Профиль
    Написать сообщение

    12172
    # 5 апреля 2007 17:46

    dikar, функция ВПР тебе поможет. Правда придется повозиться, что бы разобрать. Если нужно, брошу пример.

    Вечно молодой, вечно пьяный...
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 5 апреля 2007 20:00

    пока пробую функцию Просмотр. в ней есть один минус. нужно дополнительно придумывать способ для случая когда данные не совпадают. ибо в стандартной ситуации она подставляет наиболее подходящее значение, а нужно четкое выполнение задачи либо совпадают значения либо нет. и все... тем не менее Creative, спасибо. эту функцию можно хоть и со сложностями прикрутить для решения задачи.

    KSIva, сейчас буду посмотреть функцию ВПР. если не осилю сам попрошу хелпа.

    Пишите в ЛС.
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 6 апреля 2007 20:49

    KSIva, спасибо. ВПР делает все что нужно для моей задачи.

    появилась новая:

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

    так вот сейчас я этот диапазон устанавливаю в макросе единожды и с запасом. т.е. если у меня стандартно в новой таблице 930-940 строк то я с запасом установил в макросе копирование формул до ячейки 999, но согласитесь это как то неправильно. а если вдруг новая таблица будет содержать больше 1000 строк, получается за макросом нужно потом доделывать работу, а если в этой работе участвуют формулы в которых изначальные значения в формулах в ходе выполнения макроса заменяются на интервалы базы данных, т.е. эта замена выполняется после копирования формул для того чтобы во всех строках интервал содержащий базу данных был идентичным и не менялся при копировании от строки к строке, то задача доделки работы после макроса и вовсе превращается в рутину.

    вот отсюда и вопрос: можно ли макросу дать задачу как то определять до какой строки копировать формулы или хотя бы заставить его в ходе выполнения спрашивать меня номер строки до которой я хочу скопировать формулы.

    надеюсь понятно объяснил. простите с примерами сложно, но если будут нужны постараюсь и сделаю.

    заранее благодарен.

    Пишите в ЛС.
  • SashaR Senior Member
    офлайн
    SashaR Senior Member

    2658

    22 года на сайте
    пользователь #3519

    Профиль
    Написать сообщение

    2658
    # 9 апреля 2007 08:29

    dikar, думаю...

    While IsEmpty(Sheets("Лист1";).Range(Cells(i,...), Cells(i,...)))

    ....

    Wend

    должно помочь :super:

    Жить хорошо, а хорошо жить еще лучше
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 9 апреля 2007 09:30

    SashaR, сорри за вопрос но это именно те строки, которые должны быть добавлены в макрос или вместо многоточия должно быть что то что я должен был понять из написанного?

    заранее благодарен.

    Пишите в ЛС.
  • SashaR Senior Member
    офлайн
    SashaR Senior Member

    2658

    22 года на сайте
    пользователь #3519

    Профиль
    Написать сообщение

    2658
    # 10 апреля 2007 11:09

    dikar, это цыкл который просматривает не пустые ячейки определенного слолбца

    внутри соответственно должен быть исходный рабочий код

    Жить хорошо, а хорошо жить еще лучше
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 12 апреля 2007 11:33

    SashaR, а можно этот цикл в каком то простом примере описать. просто я не совсем понимаю каким образом заменить многоточие правильно и более того ведь рабочий код также будет отличаться от обычного с учетом постепенного просмотра ячеек, что также хотелось бы сделать абсолютно правильно.

    могу ли попросить вас привести пример в котором с помощью данного цикла на листе 1 в столбце D начиная со строки 3 будут помещаться значения (копирование формулы) строки 2 того же столбца при условии наличия данных в строке столбца А.

    и как измениться цикл вместе с рабочим кодом если заполнение нужно производить в столбцах D-G при том же условии (не пустые ячейки строки столбца А).

    заранее благодарен.

    Пишите в ЛС.
  • SashaR Senior Member
    офлайн
    SashaR Senior Member

    2658

    22 года на сайте
    пользователь #3519

    Профиль
    Написать сообщение

    2658
    # 12 апреля 2007 13:25

    dikar, привожу простой пример

    1. Например в лист1 вставляем кнопку и назначаем ей макрос Кнопка1_Щелкнуть

    2. Выбираем например Находится в: Эта книга

    3. Далее - Создать

    4. Код будет выглядеть следующим образом:

    Sub Кнопка1_Щелкнуть()

    Dim i As Integer

    i = 3

    While IsEmpty(Sheets("Лист1";).Range(Cells(i, 1), Cells(i, 1))) = False

    Cells(2, 4).Copy

    Cells(i, 4).Select

    ActiveSheet.Paste

    i = i + 1

    Wend

    End Sub

    Sub Кнопка1_Щелкнуть()

    Dim i As Integer

    i = 3

    While IsEmpty(Sheets("Лист1";).Range(Cells(i, 1), Cells(i, 1))) = False

    Cells(2, 4).Copy

    Cells(i, 4).Select

    ActiveSheet.Paste

    Cells(2, 5).Copy

    Cells(i, 5).Select

    ActiveSheet.Paste

    Cells(2, 6).Copy

    Cells(i, 6).Select

    ActiveSheet.Paste

    Cells(2, 7).Copy

    Cells(i, 7).Select

    ActiveSheet.Paste

    i = i + 1

    Wend

    End Sub

    Один из вариантов, думаю можно как-то и по другому сделать с менее избыточным кодом - Вам и флаг в руки

    Жить хорошо, а хорошо жить еще лучше
  • SashaR Senior Member
    офлайн
    SashaR Senior Member

    2658

    22 года на сайте
    пользователь #3519

    Профиль
    Написать сообщение

    2658
    # 12 апреля 2007 13:33

    Второй вариант правельние будет представить в виде:

    Sub Кнопка1_Щелкнуть()

    Dim i As Integer

    Dim j As Integer

    i = 3

    While IsEmpty(Sheets("Лист1";).Range(Cells(i, 1), Cells(i, 1))) = False

    For j = 4 To 7

    Cells(2, j).Copy

    Cells(i, J).Select

    ActiveSheet.Paste

    Next j

    i = i + 1

    Wend

    End Sub

    Жить хорошо, а хорошо жить еще лучше
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 12 апреля 2007 19:55

    SashaR, спасибо за помощь. буду сейчас вставлять все енто дело в мою задачку. спасибо.

    Пишите в ЛС.
  • dikar Клуб счастливых людей
    офлайн
    dikar Клуб счастливых людей

    2587

    22 года на сайте
    пользователь #1697

    Профиль
    Написать сообщение

    2587
    # 14 апреля 2007 08:51

    всем еще раз спасибо. все задачки решены. все работает. спасибо.

    Пишите в ЛС.