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

    701

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

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

    701
    # 16 февраля 2010 15:32

    KSIva, не будем обсуждать у кого какие знания в Экселе и гнуть пальцы.

    за ответ спасибо:beer:

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

    2587

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

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

    2587
    # 17 февраля 2010 09:14

    друзья. непредвиденный трабл.

    надстройка - Поиск решения.

    офис 2007, но трабл не в этом.

    решение эксель мне находит, но результаты выдавать отказывается. точнее говоря матрицу решал многократно и решения выводились исправно а вот в тот момент когда я принял решение об окончательном виде матрицы и попытался вывести окончательные результаты после выполнения Поиска Решения выползает такая вот надпись:

    Поиск решения: непредвиденная внутренняя ошибка или достигнут предел доступной памяти.

    ЧТО ЭТО? и с чем его едят.

    мне победить эту запись не удалось.

    помогите плиз, кто чем может. очень нужно.

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

    59396

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

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

    59396
    # 17 февраля 2010 11:55
    dikar:

    друзья. непредвиденный трабл.

    надстройка - Поиск решения.

    офис 2007, но трабл не в этом.

    решение эксель мне находит, но результаты выдавать отказывается. точнее говоря матрицу решал многократно и решения выводились исправно а вот в тот момент когда я принял решение об окончательном виде матрицы и попытался вывести окончательные результаты после выполнения Поиска Решения выползает такая вот надпись:

    Поиск решения: непредвиденная внутренняя ошибка или достигнут предел доступной памяти.

    ЧТО ЭТО? и с чем его едят.

    мне победить эту запись не удалось.

    помогите плиз, кто чем может. очень нужно.

    Эксель чувствителен к исходным данным в изменяемых ячейках.

    Легче зажечь одну маленькую свечку, чем клясть темноту. (с) Конфуций.
  • Олег Senior Member
    офлайн
    Олег Senior Member

    681

    23 года на сайте
    пользователь #937

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

    681
    # 4 марта 2010 12:34

    Помогите правильно в макросе указать переименование страницы

    мне надо чтобы переименовывало по данным из ячейки А8 (они там меняются)

    в бейсике указывает имя из информации в ячейке, которое там было на момент написания макроса, а хочу чтобы чтобы имя было то, которое указано в упоминаемой ячейке на момент выполнения макроса

    Sheets("2").Select

    Sheets("2").Name = "Беларусь.43"

  • DimetriX Member
    офлайн
    DimetriX Member

    314

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

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

    314
    # 4 марта 2010 19:50

    Олег,

    попробуй такой код.

    предполагается, что он выполняется на той закладке, где и расположена ячейка А8.

    то что надо?

    Sub zakladka()

    y = ActiveSheet.Name

    x = "" & y & ""

    Sheets(x).Select

    Sheets(x).Name = Cells(8, 1).Value

    End Sub

  • Олег Senior Member
    офлайн
    Олег Senior Member

    681

    23 года на сайте
    пользователь #937

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

    681
    # 5 марта 2010 09:52

    DimetriX, спасибо, вроде работает

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

    12296

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

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

    12296
    # 5 марта 2010 10:04

    Олег, DimetriX, а зачем эта строчка: Sheets(x).Select ? Без нее будет работать?

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

    681

    23 года на сайте
    пользователь #937

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

    681
    # 5 марта 2010 11:14

    KSIva, вроде и без неё работает

  • Артёмка Senior Member
    офлайн
    Артёмка Senior Member

    22047

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

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

    22047
    # 9 марта 2010 14:57

    подскажите плиз, как преобразовать формат времени 5:34:00 в целое значение минут? т.е. 334 мин.

    спасибо.

    Поделись улыбкою своей - и тебе её не раз ещё припомнят...
  • KSIva Senior Member
    офлайн
    KSIva Senior Member

    12296

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

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

    12296
    # 9 марта 2010 15:07
    Артёмка:

    подскажите плиз, как преобразовать формат времени 5:34:00 в целое значение минут? т.е. 334 мин.

    спасибо.

    "Формат- ячейки- все форматы" указать формат [м] (буква "м" русская)

    Вечно молодой, вечно пьяный...
  • Артёмка Senior Member
    офлайн
    Артёмка Senior Member

    22047

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

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

    22047
    # 9 марта 2010 17:28

    KSIva, в офисе гут, получилось. в гугл докс такой фокус не прокатывает. есть варианты?

    Поделись улыбкою своей - и тебе её не раз ещё припомнят...
  • KSIva Senior Member
    офлайн
    KSIva Senior Member

    12296

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

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

    12296
    # 10 марта 2010 09:44
    Артёмка:

    KSIva, в офисе гут, получилось. в гугл докс такой фокус не прокатывает. есть варианты?

    C гуглдокс не работаю, но попробуй значение ячейки умножить на 1440. Типа =A1*1440 , где а1 - ячейка со временем. Формат поставь числовой. Если есть секунды, округляй до целых.

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

    681

    23 года на сайте
    пользователь #937

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

    681
    # 22 марта 2010 14:27

    А можно написать макрос, который удаляет все листы кроме активного?

  • IveGotThePower USA Team
    офлайн
    IveGotThePower USA Team

    3467

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

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

    3467
    # 22 марта 2010 15:02

    Олег, можно:

    Sub DelSheet()

    For Each sh In Windows(1).SelectedSheets

    Name = sh.Name

    Exit For

    Next

    Application.DisplayAlerts = False

    For Each sh In ActiveWorkbook.Sheets

    If sh.Name <> Name Then

    sh.Delete

    End If

    Next

    Application.DisplayAlerts = True

    End Sub

    We can take that place. And than do what? Heads on pikes.
  • Олег Senior Member
    офлайн
    Олег Senior Member

    681

    23 года на сайте
    пользователь #937

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

    681
    # 22 марта 2010 16:27

    I've got the power, да, работает,

    большое спасибо

  • Олег Senior Member
    офлайн
    Олег Senior Member

    681

    23 года на сайте
    пользователь #937

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

    681
    # 23 апреля 2010 11:47

    Вот выше описывали мне как переименовать лист в соответствии со значением в определённой ячейке

    А можно ли также переименовать книгу? Нужно чтобы книга сохранялась на рабочий стол и обзывалась значением в ячейке А8 + дата и время

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

  • DimetriX Member
    офлайн
    DimetriX Member

    314

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

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

    314
    # 24 апреля 2010 21:31

    Олег, попробуйте. Но вместо "F:\" надо прописать точный путь к рабочему столу, он у вас может быть другой, чем у меня, поэтому и не вписывал.

    Sub new1()

    d = Format(Date, "YYYYMMDD") & "_" & Format(Time, "HHMMSS") & ".xls"

    ActiveWorkbook.SaveAs Filename:="F:\" & Cells(8, 1).Value & "_" & d

    End Sub

  • Олег Senior Member
    офлайн
    Олег Senior Member

    681

    23 года на сайте
    пользователь #937

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

    681
    # 26 апреля 2010 10:04

    DimetriX, спасибо, работает

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

    2666

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

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

    2666
    # 6 мая 2010 14:13

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

    а то листов много везде настраивать долго :(

    Лучше один раз вовремя - чем два раза правильно!
  • KSIva Senior Member
    офлайн
    KSIva Senior Member

    12296

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

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

    12296
    # 6 мая 2010 15:20
    Vita:

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

    а то листов много везде настраивать долго

    Выделяешь первый лист, Ctrl+щелчок по ярлыку последнего. Выделяются все листы (вверху в заголовке окна появляется слово [Группа]). Устанавливаешь колонтитулы - они утанавливаются для всех выделенных листов.

    Вечно молодой, вечно пьяный...