В помщь комрадам по Word & Excel - Страница 6
  1. #101
    Всем Перцам - Перец Клуба! Аватар для COOLLER
    Регистрация
    01.09.2006
    Сообщений
    48,770
    Записей в дневнике
    10
    Спасибо:
    Получено: 1,500
    Отправлено: 875

    0 Вы не можете благодарить!

    По умолчанию

    Комрады! Помогите! Хелпаните.

    Ворд 2013.

    С чего-то вдруг вылезла вот это строка при создании нового документа. Она как бы рамочка для вида, т.е она не ограничивает текст. Но как ее убрать?
    И что это хрень?

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

  2. #102
    Touareg Аватар для batch
    Регистрация
    30.06.2008
    Адрес
    Россия, Санкт-Петербург
    Возраст
    55
    Сообщений
    2,212
    Спасибо:
    Получено: 86
    Отправлено: 61

    0 Вы не можете благодарить!

    По умолчанию

    Привет
    Как собрать данные из книги с 60 листами
    Нужны пара цифр, расположены в одних и тех же ячейках
    B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817

  3. #103
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    2 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от batch Посмотреть сообщение
    Как собрать данные из книги с 60 листами
    Нужны пара цифр, расположены в одних и тех же ячейках
    Один раз, или такое нужно проделывать регулярно?
    В принципе достаточно просто решается написанием макроса, который «пройдётся» по всем листам, и считает данные из определённых ячеек (предположим Е2 Е4)...

    --- Добавлено чуть позже ---

    Набросал за пару минут:

    Sub Button_Click()

    For i = 1 To ThisWorkbook.Sheets.Count

    ' исключаем из подборки лист где будем выводить результаты
    If ThisWorkbook.Sheets(i).Name <> "Summary" Then

    ' читаем данные - первая строка, второй столбец:
    Value1 = ThisWorkbook.Sheets(i).Cells(1, 2)

    ' читаем данные - первая строка, третий столбец:
    Value2 = ThisWorkbook.Sheets(i).Cells(1, 3)

    ' тут чего нибудь делаем с данными:
    ' super pupuper action: Value2 + Value1 ....

    ' заполняем лист с результатами:
    Worksheets("Summary").Cells(i, 1) = Value1
    Worksheets("Summary").Cells(i, 2) = Value2

    End If

    Next

    ' активируем лист с результатами:

    Worksheets("Summary").Activate

    End Sub

    100% рабочий вариант - проверил только что...

  4. #104
    Touareg Аватар для batch
    Регистрация
    30.06.2008
    Адрес
    Россия, Санкт-Петербург
    Возраст
    55
    Сообщений
    2,212
    Спасибо:
    Получено: 86
    Отправлено: 61

    0 Вы не можете благодарить!

    По умолчанию

    Спасибо, Круть!!
    Ещё бы понять как это присобачить всё..
    Данные бы надо на отдельном листе в таблицу занесть
    В два столбца
    B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817

  5. #105
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от batch Посмотреть сообщение
    Ещё бы понять как это присобачить всё..
    Данные бы надо на отдельном листе в таблицу занесть
    В два столбца
    Тут тоже всё просто:

    - Заводим отдельный лист, называем его «Summary» (ну или любое другое название, главное в скрипте это тоже поменять соответственно).

    - в любом месте документа вставляем кнопку (в меню developer), или, как простой вариант, просто рисунок/картинку.

    - щелчок правой кнопкой мыши на кнопке/рисунке, выбираем Assign Macro, выбираем «New».

    - Excel откроет «Visual Basic for Application», с заготовкой макроса.

    - Вписываем текст макроса между Sub Button1_Click() и End Sub

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

    Ну вот и всё. Теперь нажатие на кнопку / щелчок по картинке, и лист Summary заполнен данными...

  6. #106
    Touareg Аватар для batch
    Регистрация
    30.06.2008
    Адрес
    Россия, Санкт-Петербург
    Возраст
    55
    Сообщений
    2,212
    Спасибо:
    Получено: 86
    Отправлено: 61

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Vjacheslav Посмотреть сообщение
    поправляем координаты ячеек от куда считывать данные и куда их выводить (в примере данные выводятся построчно во второй и третий столбцы). Можно к выводимым данным добавить имя листа и т.п. если нужно...
    тут затык
    надо в таблицу на Лист "Summ"

    С данными делать ничего не надо, построить таблицу
    в два столбца, чтобы диаграмму потом
    B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817

  7. #107
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от batch Посмотреть сообщение
    надо в таблицу на Лист "Summ"
    Только поменять везде в тексте скрипта "Summary" на "Summ"

  8. #108
    Touareg Аватар для batch
    Регистрация
    30.06.2008
    Адрес
    Россия, Санкт-Петербург
    Возраст
    55
    Сообщений
    2,212
    Спасибо:
    Получено: 86
    Отправлено: 61

    0 Вы не можете благодарить!

    По умолчанию

    Vjacheslav,
    Чего-то не хочет

    Worksheets("Summ").Cells(i, 1) = Value1 - на это пишет Can`t execute code in break mode

    Прямо как починка машины по телефону...

    Заработало

    Тьфу, в разных листах ячейки разные оказывается
    Модно привязаться к значениям как-нить по-другому
    например
    ячейка справа от ячейки в которой "текст"?
    B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817

  9. #109
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    1 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от batch Посмотреть сообщение
    Модно привязаться к значениям как-нить по-другому
    например
    ячейка справа от ячейки в которой "текст"?
    Макросами можно сделать абсолютно всё...

    Вот вариант для и этого случая:

    Sub Button2_Click()

    ' маркерные тексты:
    Marker1 = "Marker text #1"
    Marker2 = "Marker text #2"

    For i = 1 To ThisWorkbook.Sheets.Count

    ' исключаем из подборки лист где будем выводить результаты
    If ThisWorkbook.Sheets(i).Name <> "Summary" Then

    ' задаём область где будем искать маркерный текст, в данном случае в области от A1 до X99
    With ThisWorkbook.Sheets(i).Range("A1:X99")

    ' ищем первый маркер:
    Set MarkerCell = .Find(Marker1, LookIn:=xlValues)

    If Not MarkerCell Is Nothing Then
    ' читаем данные - искомое значение находится справа на одну ячейку от маркерного текста
    Value1 = MarkerCell.Offset(0, 1)
    End If

    ' ищем второй маркер:
    Set MarkerCell = .Find(Marker2, LookIn:=xlValues)

    If Not MarkerCell Is Nothing Then
    ' читаем данные - искомое значение находится справа на одну ячейку от маркерного текста
    Value2 = MarkerCell.Offset(0, 1)
    End If

    End With

    ' заполняем лист с результатами:
    Worksheets("Summary").Cells(i, 1) = Value1
    Worksheets("Summary").Cells(i, 2) = Value2

    End If

    Next

    ' активируем лист с результатами:
    Worksheets("Summary").Activate

    End Sub

  10. #110
    Touareg Аватар для batch
    Регистрация
    30.06.2008
    Адрес
    Россия, Санкт-Петербург
    Возраст
    55
    Сообщений
    2,212
    Спасибо:
    Получено: 86
    Отправлено: 61

    0 Вы не можете благодарить!

    По умолчанию

    Vjacheslav,
    Все вышло, спасибо!
    B5+, 1.8T, AWM, 2001 - был -> B6 почти такой же тока местный XW8ZZZ3CZAG006817

  11. #111
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от batch Посмотреть сообщение
    Vjacheslav,
    Все вышло, спасибо!
    Будут ещё вопросы, обращайся, не стесняйся.

  12. #112
    Всем Перцам - Перец Клуба! Аватар для Fishka
    Регистрация
    01.10.2005
    Адрес
    Россия, Москва, ЮВАО, Люблино
    Сообщений
    9,156
    Записей в дневнике
    3
    Спасибо:
    Получено: 593
    Отправлено: 2,448

    0 Вы не можете благодарить!

    По умолчанию

    Можно ли в ворде сделать ОДИН нижний колонтитул в многостраничном документе, где-нить в середине (т.е. не первая и не последняя страница)?
    Очень ннада
    Страхование со скидкой!!!
    9264476526,9057619524 Елена

  13. #113
    Phaeton Аватар для Dron
    Регистрация
    16.10.2005
    Адрес
    Россия, Санкт-Петербург
    Возраст
    52
    Сообщений
    3,706
    Записей в дневнике
    8
    Спасибо:
    Получено: 243
    Отправлено: 3,412

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Fishka Посмотреть сообщение
    Можно ли в ворде сделать ОДИН нижний колонтитул в многостраничном документе, где-нить в середине (т.е. не первая и не последняя страница)?
    Очень ннада
    делаешь разные разделы
    и в каждом разделе можно делать свои колонтитулы
    если я не ошибаюсь...

    а обязательно делать колонтитул???

    --- Добавлено чуть позже ---

    Цитата Сообщение от Dron Посмотреть сообщение
    делаешь разные разделы
    и в каждом разделе можно делать свои колонтитулы
    если я не ошибаюсь...

    а обязательно делать колонтитул???
    что-то не выходит - все дублируется даже в разных разделах

    можно тольок четных и нечетных стр. и отдельно первую
    Было: Passat B-5, 1.8T! Mondeo V6-2.5л.5АКПП, Passat В-6/ 2.0 TDi DSG, Superb Combi/ 2.0 TDi DSG-6
    Skoda Oktavia 1.4 / DSG-7 / Skoda Kodiaq TDi 4*4 DSG-7

  14. #114
    Всем Перцам - Перец Клуба! Аватар для Fishka
    Регистрация
    01.10.2005
    Адрес
    Россия, Москва, ЮВАО, Люблино
    Сообщений
    9,156
    Записей в дневнике
    3
    Спасибо:
    Получено: 593
    Отправлено: 2,448

    1 Вы не можете благодарить!

    По умолчанию

    Dron, Андрюх, привет! Это знаю.. мне бы вообще один, на одной страничке. А в остальных не надо..
    Без колонтитула и так обхожусь.. Со своими шаблонами сама управляюсь, а вот при передаче другим, в регионы, уже каша получается
    Страхование со скидкой!!!
    9264476526,9057619524 Елена

  15. #115
    Phaeton Аватар для Dron
    Регистрация
    16.10.2005
    Адрес
    Россия, Санкт-Петербург
    Возраст
    52
    Сообщений
    3,706
    Записей в дневнике
    8
    Спасибо:
    Получено: 243
    Отправлено: 3,412

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Fishka Посмотреть сообщение
    Dron, Андрюх, привет! Это знаю.. мне бы вообще один, на одной страничке. А в остальных не надо..
    Без колонтитула и так обхожусь.. Со своими шаблонами сама управляюсь, а вот при передаче другим, в регионы, уже каша получается
    Я нашел!!!

    http://on-line-teaching.com/word/lsn030.html

    мысль была в нужном направлении - только надо было повтор "как в предыдущем разделе" выключить


    Если внесённый вами текст повторяется и одновременно изменяется в колонтитулах всех разделов, это означает, что в настройках колонтитула включена опция Как в предыдущем разделе. Об этом свидетельствует плашка:



    которая находится в правом нижнем углу колонтитула.
    Для отключения этой опции необходимо перейти в режим редактирования (дважды кликнув по колонтитулу). В этом режиме откроется вкладка Работа с колонтитулами, на которой в группе Переходы находится команда включения опции Как в предыдущем разделе. Отключите её, кликнув на команде.

    Было: Passat B-5, 1.8T! Mondeo V6-2.5л.5АКПП, Passat В-6/ 2.0 TDi DSG, Superb Combi/ 2.0 TDi DSG-6
    Skoda Oktavia 1.4 / DSG-7 / Skoda Kodiaq TDi 4*4 DSG-7

  16. #116
    Всем Перцам - Перец Клуба! Аватар для Fishka
    Регистрация
    01.10.2005
    Адрес
    Россия, Москва, ЮВАО, Люблино
    Сообщений
    9,156
    Записей в дневнике
    3
    Спасибо:
    Получено: 593
    Отправлено: 2,448

    0 Вы не можете благодарить!

    По умолчанию

    Андрюх, знаю об этом Но смотри, идут у нас два листа без колонтитула, третий с колонтитулом, а с 4 по 8, допустим, должны быть БЕЗ колонтитула, а 9-й с ним Вот такая моя хотелка Первую часть решила именно указанным тобой образом, а вот вторую чтоб сделать....Мелкомягкий, по-моему, до такого извращения не додумался.
    Страхование со скидкой!!!
    9264476526,9057619524 Елена

  17. #117
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Fishka Посмотреть сообщение
    Но смотри, идут у нас два листа без колонтитула, третий с колонтитулом, а с 4 по 8, допустим, должны быть БЕЗ колонтитула, а 9-й с ним Вот такая моя хотелка
    Привет Лёна!

    Я сделал тебе черновик именно с таким расположением колонтитулов.. Лови: http://rghost.ru/8DV2SV5MR

  18. #118
    Всем Перцам - Перец Клуба! Аватар для Москит
    Регистрация
    29.03.2009
    Адрес
    От туда
    Возраст
    57
    Сообщений
    16,498
    Записей в дневнике
    1
    Спасибо:
    Получено: 1,868
    Отправлено: 1,312

    0 Вы не можете благодарить!

    По умолчанию

    А мне просто нужен офис,а везде с какой-то хнёй скачивается
    "Nil inultum remanebit"-"ничто не останется безнаказанным"

  19. #119
    Всем Перцам - Перец Клуба! Аватар для Fishka
    Регистрация
    01.10.2005
    Адрес
    Россия, Москва, ЮВАО, Люблино
    Сообщений
    9,156
    Записей в дневнике
    3
    Спасибо:
    Получено: 593
    Отправлено: 2,448

    0 Вы не можете благодарить!

    По умолчанию

    Vjacheslav, Слав, привет!
    Спасибо! А поменять верхний на нижний мона?

    ЗЫ. Каждая страница - отдельный раздел? Мне это не всегда удобно
    Страхование со скидкой!!!
    9264476526,9057619524 Елена

  20. #120
    Passat Аватар для Vjacheslav
    Регистрация
    07.03.2010
    Возраст
    50
    Сообщений
    1,243
    Спасибо:
    Получено: 82
    Отправлено: 19

    1 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Fishka Посмотреть сообщение
    А поменять верхний на нижний мона?
    Да, конечно. Там принцип тот же.

    Цитата Сообщение от Fishka Посмотреть сообщение
    Каждая страница - отдельный раздел? Мне это не всегда удобно
    Не совсем так.
    Каждая секция [раздел] имет свои параметры (колонтутулы, размер/расположение страницы, и т.п.).
    А сама секция может состоять из нескольких страниц.

    Название: Untitled.png
Просмотров: 24

Размер: 16.3 Кб

Страница 6 из 7 ПерваяПервая ... 4567 ПоследняяПоследняя

Похожие темы

  1. Excellence
    от Bomj в разделе Архив 2008г.
    Ответов: 12
    Последнее сообщение: 13.11.2008, 13:39
  2. Ответов: 0
    Последнее сообщение: 17.10.2008, 18:21
  3. перевод таблиц из WORD в EXEL
    от оборотень в разделе Курилка - Матюгалка
    Ответов: 3
    Последнее сообщение: 30.07.2008, 08:35
  4. vag-com (проблема экспорта данных в word)
    от alexNUR в разделе Архив 2008г.
    Ответов: 6
    Последнее сообщение: 11.07.2008, 12:52
  5. Сигнализация Excellent. Какие отзывы ?
    от imported_kibernetic в разделе Архив 2006г.
    Ответов: 12
    Последнее сообщение: 22.09.2006, 12:51

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •