Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/объединение ячеек диапозона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединение ячеек диапозона (Макросы/Sub)
объединение ячеек диапозона
hunn Дата: Вторник, 15.12.2015, 17:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Добрый день.

Помогите если сможете. Почему не прокатывает вот такая конструкция:
[vba]
Код
For i = 1 To 10
a = "c" + Str(i) + ":k" + Str(i)
Range(a).Select
Selection.Merge
Next i
[/vba]

Спасибо.
[moder]Оформляйте коды тегами (кнопка #).
Поправила за Вас.[/moder]


Сообщение отредактировал Manyasha - Вторник, 15.12.2015, 18:39
 
Ответить
СообщениеДобрый день.

Помогите если сможете. Почему не прокатывает вот такая конструкция:
[vba]
Код
For i = 1 To 10
a = "c" + Str(i) + ":k" + Str(i)
Range(a).Select
Selection.Merge
Next i
[/vba]

Спасибо.
[moder]Оформляйте коды тегами (кнопка #).
Поправила за Вас.[/moder]
Автор - hunn
Дата добавления - 15.12.2015 в 17:36
abtextime Дата: Вторник, 15.12.2015, 17:52 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Не очень понял, чего этим кодом хотите.

Str() не резервирует ли первый знак под пробел или "-"?
 
Ответить
СообщениеНе очень понял, чего этим кодом хотите.

Str() не резервирует ли первый знак под пробел или "-"?
Автор - abtextime
Дата добавления - 15.12.2015 в 17:52
hunn Дата: Вторник, 15.12.2015, 17:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Да я хочу на каждой строчке выделить определенный диапазон в несколько столбцов и объединить их. Месадбоксом смотрю переменную а вроде правильно строку формирует, например "с1:k1". А дальше код выдает ошибку. В чем причина не пойму.
 
Ответить
СообщениеДа я хочу на каждой строчке выделить определенный диапазон в несколько столбцов и объединить их. Месадбоксом смотрю переменную а вроде правильно строку формирует, например "с1:k1". А дальше код выдает ошибку. В чем причина не пойму.
Автор - hunn
Дата добавления - 15.12.2015 в 17:57
abtextime Дата: Вторник, 15.12.2015, 18:07 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
перед 1 пробел вставляется, синтаксическая ошибка


Сообщение отредактировал abtextime - Вторник, 15.12.2015, 18:08
 
Ответить
Сообщениеперед 1 пробел вставляется, синтаксическая ошибка
Автор - abtextime
Дата добавления - 15.12.2015 в 18:07
abtextime Дата: Вторник, 15.12.2015, 18:15 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
замените Str(i) на Trim(Str(i))
 
Ответить
Сообщениезамените Str(i) на Trim(Str(i))
Автор - abtextime
Дата добавления - 15.12.2015 в 18:15
hunn Дата: Вторник, 15.12.2015, 18:30 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Спасибо! На самом деле был пробел! Помогла вставка в третью строку:
a = Replace(a, " ", "")
 
Ответить
СообщениеСпасибо! На самом деле был пробел! Помогла вставка в третью строку:
a = Replace(a, " ", "")
Автор - hunn
Дата добавления - 15.12.2015 в 18:30
abtextime Дата: Вторник, 15.12.2015, 18:36 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Можно и так )
 
Ответить
СообщениеМожно и так )
Автор - abtextime
Дата добавления - 15.12.2015 в 18:36
RAN Дата: Вторник, 15.12.2015, 18:54 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И зачем огород?
[vba]
Код
Cells(i,"c").Resize(,9).Merge
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИ зачем огород?
[vba]
Код
Cells(i,"c").Resize(,9).Merge
[/vba]
Автор - RAN
Дата добавления - 15.12.2015 в 18:54
Wasilich Дата: Вторник, 15.12.2015, 20:10 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
А так не катит?
[vba]
Код
a = "c" & i & ":k" & i
[/vba]
И одним действием
[vba]
Код
Range("c" & i & ":k" & i).Merge
[/vba]


Сообщение отредактировал Wasilic - Вторник, 15.12.2015, 20:19
 
Ответить
СообщениеА так не катит?
[vba]
Код
a = "c" & i & ":k" & i
[/vba]
И одним действием
[vba]
Код
Range("c" & i & ":k" & i).Merge
[/vba]
Автор - Wasilich
Дата добавления - 15.12.2015 в 20:10
abtextime Дата: Вторник, 15.12.2015, 22:05 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Wasilic, не учите плохому человека )))
 
Ответить
СообщениеWasilic, не учите плохому человека )))
Автор - abtextime
Дата добавления - 15.12.2015 в 22:05
Wasilich Дата: Среда, 16.12.2015, 01:02 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата abtextime, 15.12.2015 в 22:05, в сообщении № 10
Wasilic, не учите плохому человека )))
Я чего то не понял? Что не так?
 
Ответить
Сообщение
Цитата abtextime, 15.12.2015 в 22:05, в сообщении № 10
Wasilic, не учите плохому человека )))
Я чего то не понял? Что не так?
Автор - Wasilich
Дата добавления - 16.12.2015 в 01:02
abtextime Дата: Среда, 16.12.2015, 13:09 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Да всё так, просто неявное преобразование типов не отвечает высоким стандартам "правильного" программирования. Не принимайте мою реплику всерьез ))
 
Ответить
СообщениеДа всё так, просто неявное преобразование типов не отвечает высоким стандартам "правильного" программирования. Не принимайте мою реплику всерьез ))
Автор - abtextime
Дата добавления - 16.12.2015 в 13:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединение ячеек диапозона (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!