Одесса: 6°С (вода 9°С)
Киев: 3°С
Львов: 6°С

Тема: помогите с EXCEL

Ответить в теме
Страница 1 из 2 1 2 ПоследняяПоследняя
Показано с 1 по 20 из 33
  1. Вверх #1
    Живёт на форуме Аватар для minchanka
    Пол
    Женский
    Адрес
    USSR/// МИНСК-ОДЕССА
    Сообщений
    3,697
    Репутация
    4886
    Записей в дневнике
    2

    Question помогите с EXCEL

    Подскажите,плиз,как объединить 2-3 ячейки без потери данных??? Или это не возможно???
    Никогда не сдавайся!!!


  2. Вверх #2
    Цитата Сообщение от minchanka Посмотреть сообщение
    Подскажите,плиз,как объединить 2-3 ячейки без потери данных??? Или это не возможно???
    Стандартными способами - врядли, можно написать макрос, который будет это делать, по замыслу он будет не сильно сложным.

  3. Вверх #3
    Модератор
    Мистер Одесский Форум
    Аватар для maxx™
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    38
    Сообщений
    23,354
    Репутация
    6088
    Цитата Сообщение от minchanka Посмотреть сообщение
    Подскажите,плиз,как объединить 2-3 ячейки без потери данных??? Или это не возможно???
    Никак даже в 2007, это следует из хелпа:

    Microsoft Office Excel, merging is the process of creating one cell out of two or more selected cells. When you merge cells and more than one of the selected cells contains data, Excel keeps the data in the upper-left or upper-right cell (depending on your current view direction) and deletes all remaining data.
    Что по русски означает примерно следующее - эксель сохраняет данные из верхней левой или правой ячейки и удаляет все остальные данные

    Но создав вот такой простейший макрос и повесив его на какое-то сочетание клавиш можно элементарно объединять содержимое выделенных ячеек. Это макрос лишь как вариант - первое что пришло в голову.

    Sub Macro1()
    Dim Cell As Range
    Dim str
    str = ""
    For Each Cell In Selection
    str = str + Cell.Formula
    Next Cell

    For Each Cell In Selection
    Cell.Value = str
    Next Cell
    Selection.Merge
    End Sub
    Последний раз редактировалось maxx™; 20.02.2008 в 09:41. Причина: добавление макроса

  4. Вверх #4
    Цитата Сообщение от maxx™ Посмотреть сообщение

    For Each Cell In Selection
    Cell.Value = str
    Next Cell
    Не сильно понятен смысл в этом цикле.
    Его можно заменить на такую строчку:
    Selection.FormulaR1C1 = str
    которая должна быть после Selection.Merge.
    в итоге все выглядит так:

    Dim Cell As Range
    Dim str
    str = ""
    For Each Cell In Selection
    str = str + Cell.Formula
    Next Cell

    Selection.Merge
    Selection.FormulaR1C1 = str

  5. Вверх #5
    Модератор
    Мистер Одесский Форум
    Аватар для maxx™
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    38
    Сообщений
    23,354
    Репутация
    6088
    Цитата Сообщение от ReeP Посмотреть сообщение
    Не сильно понятен смысл в этом цикле.
    r
    Можно и так. А смысл в том цикле в том, что мы делаем все ячейки одинаковыми, а потом уже пусть эксель удаляет что ему не нравится, содержимое всех ячеек к тому времени уже все равно одинаковое и такое как необходимо. Можно и так как ты предложил, но мне например искать в хелпе Selection.FormulaR1C1 было просто лень.

  6. Вверх #6
    Живёт на форуме Аватар для minchanka
    Пол
    Женский
    Адрес
    USSR/// МИНСК-ОДЕССА
    Сообщений
    3,697
    Репутация
    4886
    Записей в дневнике
    2
    спасибо ребята за внимание к моей проблеме,но я мало что поняла.
    Никогда не сдавайся!!!

  7. Вверх #7
    Цитата Сообщение от minchanka Посмотреть сообщение
    спасибо ребята за внимание к моей проблеме,но я мало что поняла.
    Выполняем следующие действия:
    1. Заускаем эксель
    2. Идем: Сервис-Макрос-Макросы
    3. Откроется окно макросов. А поле "Имя Макроса" набираем удобное название, затем нажимаем кнопку Создать.
    4. Откроется новое окно VBA. В открывшимся окне между строками:

    Sub <имя которое задали в пункте 3(подставляется автоматически )>()
    <сюда вставлять код>
    End Sub

    Вставить написанный здесь код:
    Dim Cell As Range
    Dim str
    str = ""
    For Each Cell In Selection
    str = str + Cell.Formula
    Next Cell

    Selection.Merge
    Selection.FormulaR1C1 = str


    5. Теперь просто закрываете окно, и снова попадаете в эксель.
    6. В окне экселя, снова идете Сервис-Макрос-Макросы.
    7. Выбираете макрос который только, что создали и нажимаете кнопку Параметры
    8. В появившимся окне ассоциируете вызов макроса с нужной комбинацие кнопок.
    9. сохраняете экселевский файл с любым названием.
    10. Теперь этот сохраненный экселевский файл необходимо скопировать сюда:
    C:\Documents and Settings\<Имя пользователя>\Application Data\Microsoft\Excel\XLSTART

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

  8. Вверх #8
    Посетитель Аватар для Vitalius
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    42
    Сообщений
    126
    Репутация
    20
    ReeP, Вам бы учебники писать

    Но...
    Уверен, что если человек (тем более девушка) ни разу не щупал макросы своими руками, то помочь может ИМХО, как минимум, консультация в телефонном режиме.

  9. Вверх #9
    Живёт на форуме Аватар для minchanka
    Пол
    Женский
    Адрес
    USSR/// МИНСК-ОДЕССА
    Сообщений
    3,697
    Репутация
    4886
    Записей в дневнике
    2
    ReeP,спасибо за помощь,но у меня новый "офис"(2007г) и некоторых вещей (которые ты написал) нет и в помине :
    C:\Documents and Settings\<Имя пользователя>\Application Data\Microsoft\Excel\XLSTART ... Начиная с Application и далее я потерялась ....

    ХЕЛП МИ
    Никогда не сдавайся!!!

  10. Вверх #10
    Цитата Сообщение от minchanka Посмотреть сообщение
    ReeP,спасибо за помощь,но у меня новый "офис"(2007г) и некоторых вещей (которые ты написал) нет и в помине :
    C:\Documents and Settings\<Имя пользователя>\Application Data\Microsoft\Excel\XLSTART ... Начиная с Application и далее я потерялась ....

    ХЕЛП МИ
    А у вас включена опция показывать, скрыты и системные файлы?
    И вы захотите в папку именно под своим пользователем?
    Прост ов 2007 оффисе все расположено точно также.
    Последний раз редактировалось ReeP; 18.02.2008 в 10:05.

  11. Вверх #11
    Постоялец форума Аватар для kon-stantin
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    39
    Сообщений
    1,786
    Репутация
    537
    Цитата Сообщение от minchanka Посмотреть сообщение
    Подскажите,плиз,как объединить 2-3 ячейки без потери данных??? Или это не возможно???
    ........... колонка колонка колонка колонка
    строка F .. G .. H .. I

    193 .. привет .. как.. дела .. !

    нужно объединить все ячейки чтобы в одной было вся фраза целиком, т.е. привет как дела !
    В нужной ячейке вводим =F193&" "&G193&" "&H193&" "&I193

  12. Вверх #12
    Живёт на форуме Аватар для minchanka
    Пол
    Женский
    Адрес
    USSR/// МИНСК-ОДЕССА
    Сообщений
    3,697
    Репутация
    4886
    Записей в дневнике
    2
    kon-stantin, А если я хочу не только строку но и чтобы во всех столбцах было объединено... Напр:
    ...привет...как..дела_________________ привет как дела
    ...нормал...все...хорошо..._____________нормал все хорошо
    ...привет...как...дела...________________привет как дела

    Вот примерно так. Чтобы во всех столбцах(во всех строках) разом все объединилось: от 1 до 700...
    Никогда не сдавайся!!!

  13. Вверх #13
    Модератор
    Мистер Одесский Форум
    Аватар для maxx™
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    38
    Сообщений
    23,354
    Репутация
    6088
    Цитата Сообщение от minchanka Посмотреть сообщение
    kon-stantin, А если я хочу не только строку но и чтобы во всех столбцах было объединено... Напр:
    ...привет...как..дела_________________ привет как дела
    ...нормал...все...хорошо..._____________нормал все хорошо
    ...привет...как...дела...________________привет как дела

    Вот примерно так. Чтобы во всех столбцах(во всех строках) разом все объединилось: от 1 до 700...
    Когда ты это сделаешь на одной строке, веделяешь эту ячейку. В правм нижнем углу ячейки будет маленький квадратик. Нажимаешь на него и тянешь вниз на все твои 700 строк. В 700-й строке отпускаешь клавишу мышки.

  14. Вверх #14
    Живёт на форуме Аватар для minchanka
    Пол
    Женский
    Адрес
    USSR/// МИНСК-ОДЕССА
    Сообщений
    3,697
    Репутация
    4886
    Записей в дневнике
    2
    У меня стоит Офис 2007 и никаких B C D там нет,колонки номируются 1,2,3,... Допустим если первая колонка и первая строчка,то отображается:R1C1. Не знаю,при чем здесь R и С?
    Никогда не сдавайся!!!

  15. Вверх #15
    Цитата Сообщение от minchanka Посмотреть сообщение
    У меня стоит Офис 2007 и никаких B C D там нет,колонки номируются 1,2,3,... Допустим если первая колонка и первая строчка,то отображается:R1C1. Не знаю,при чем здесь R и С?
    R - стандарт для обозначения строки
    С - для обозначения колонки
    можете поэксперементировать.
    И кстати у вас получилось с макросом, там уже как бы все сделано и проверено, работает.

  16. Вверх #16
    Не покидает форум Аватар для leshiy_odessa
    Пол
    Мужской
    Адрес
    Одесса
    Сообщений
    5,631
    Репутация
    911
    Какие макросы. Есть такая формула - СЦЕПИТЬ

    Смотри скрины

    http://forum.od.ua/attachment.php?at...7&d=1203419651

    http://forum.od.ua/attachment.php?attachmentid=129048&d=1203419660

    http://forum.od.ua/attachment.php?attachmentid=129049&d=1203419665
    Изображения
    • Тип файла: gif 01.gif (8.6 Кб, Просмотров: 27)
    • Тип файла: gif 02.gif (12.8 Кб, Просмотров: 25)
    • Тип файла: jpg 03.jpg (25.6 Кб, Просмотров: 18)
    Последний раз редактировалось leshiy_odessa; 19.02.2008 в 13:43.

  17. Вверх #17
    Постоялец форума Аватар для kon-stantin
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    39
    Сообщений
    1,786
    Репутация
    537
    Цитата Сообщение от minchanka Посмотреть сообщение
    У меня стоит Офис 2007 и никаких B C D там нет,колонки номируются 1,2,3,... Допустим если первая колонка и первая строчка,то отображается:R1C1. Не знаю,при чем здесь R и С?
    У меня тоже 2007, в настройках есть такая настройка стиль ссылок R1C1, нужно снять галочку..

  18. Вверх #18
    Модератор
    Мистер Одесский Форум
    Аватар для maxx™
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    38
    Сообщений
    23,354
    Репутация
    6088
    Цитата Сообщение от leshiy_odessa Посмотреть сообщение
    Какие макросы. Есть такая формула - СЦЕПИТЬ
    У сцепить и макросов разные назначения. Сцепить позволяет добавить новую колонку с требуемым значение. Макрос позволяет объединить значения ячеек почти не меняя внешнего вида ячеек..

  19. Вверх #19
    Не покидает форум Аватар для leshiy_odessa
    Пол
    Мужской
    Адрес
    Одесса
    Сообщений
    5,631
    Репутация
    911
    Цитата Сообщение от maxx™ Посмотреть сообщение
    У сцепить и макросов разные назначения. Сцепить позволяет добавить новую колонку с требуемым значение. Макрос позволяет объединить значения ячеек почти не меняя внешнего вида ячеек..
    Я понимаю что мой вариант немного длиннее на пару кликов мышки, но не надо сравнивать написание макроса с заложенной командой EXEL.

    Достаточно просто полученную колонку перенести куда надо.

  20. Вверх #20
    Модератор
    Мистер Одесский Форум
    Аватар для maxx™
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    38
    Сообщений
    23,354
    Репутация
    6088
    Цитата Сообщение от leshiy_odessa Посмотреть сообщение
    Я понимаю что мой вариант немного длиннее на пару кликов мышки, но не надо сравнивать написание макроса с заложенной командой EXEL.

    Достаточно просто полученную колонку перенести куда надо.
    Но при этом исходные ячейки нужно оставлять. В конче концов можно дописать немножко макрос чтоб спрашивал - вам сцеплять или заменять на месте...

    Макрос V2 - объединяет построчно строки в выделеном диапазоне и помещает результат в крайнюю левую ячейку каждой строки. Если левая колонка выделения пустая, то в ней мы получим строку из всех значений ячеек которые правее нее. Этот макрос для тех, кому необходимо от лишник колонок избавиться и поэтому СЦЕПИТЬ не подходит.
    Sub test()
    Dim Rw As Range
    Dim str
    For Each Rw In Selection.Rows
    str = ""
    For n = 1 To Rw.Columns.Count
    str = str + Rw.Cells(1, n).Formula
    Next n
    Rw.Cells(1, 1).Value = str
    Next Rw
    'Selection.Merge
    'Selection.FormulaR1C1 = str
    End Sub
    Последний раз редактировалось maxx™; 20.02.2008 в 09:43.


Ответить в теме
Страница 1 из 2 1 2 ПоследняяПоследняя

Похожие темы

  1. Вопрос по Excel
    от Melafon в разделе Программное обеспечение
    Ответов: 2
    Последнее сообщение: 24.01.2007, 09:55
  2. Проблема с Excel 2003
    от nickmorgan в разделе Программное обеспечение
    Ответов: 3
    Последнее сообщение: 11.12.2006, 12:48
  3. Константы EXCEL
    от Panda в разделе 1С
    Ответов: 3
    Последнее сообщение: 09.05.2006, 18:19
  4. Пример использованимя VBA для Excel
    от Broken Sword в разделе Программирование
    Ответов: 5
    Последнее сообщение: 06.02.2006, 21:17
  5. Excel в *.pdf
    от VIP в разделе Программное обеспечение
    Ответов: 3
    Последнее сообщение: 27.09.2005, 23:52

Социальные закладки

Социальные закладки

Ваши права

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