Как определить объединены ли ячеки в Excelе / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить объединены ли ячеки в Excelе

6 сообщений из 6, страница 1 из 1

Как определить объединены ли ячеки в Excelе

#36274244

Олег Мигутин

Гость

Добрый день. Возник вопрос, помогите пож-та.
Есть шаблон Excel. Скрипт vb идёт по конкретной строке и последовательно вставляет данные в ячейки. Мне нужно перед вставкой проверять, не объединена ли текущая ячейка со следующей(ими). Если да, то следующее значение выводить в ячеку, следующую за ячеками, которые входят в это объединение...

...

Рейтинг:

0 / 0

27.10.2009, 10:53

| Ответить | Цитировать | Написать

Как определить объединены ли ячеки в Excelе

#36274272

Hugo121

Гость

Нашёл такой код, можно использовать наверное cc.MergeArea.Rows.Count :

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Sub UnMergeMine()
Dim cc As Range, cm As Range, ccm As Range
For Each cc In Selection
If cc.MergeCells Then
   If cc.MergeArea.Columns.Count >  5  Then
   Set cm = Range(cc.MergeArea.Address)
   cc.UnMerge
   End If
End If
Next cc

End Sub

...

Рейтинг:

0 / 0

27.10.2009, 11:01

| Ответить | Цитировать | Написать

Как определить объединены ли ячеки в Excelе

#36274500

Олег Мигутин

Гость

Hugo121,

Спасибо большое. Вот что получилось.
Ещё мне не нравится этот цикл...помогите от него избавиться...
(сразу говорю: только начал работать с Excel-ем и VB, так что не ругайтесь...)

'функция принимает ячейку; возвращает следующую ячейку, не входящую в объединение
Function NextUnMergeCL(rw, cl) As Integer
Dim cc As Range
ActiveSheet.Range(Cells(rw, cl), Cells(rw, cl)).Select

For Each cc In Selection
If cc.MergeCells Then NextUnMergeCL = cl + cc.MergeArea.Columns.Count
Else NextUnMergeCL = cl + 1;
Exit Function
Next cc

End Function

...

Рейтинг:

0 / 0

27.10.2009, 12:29

| Ответить | Цитировать | Написать

Как определить объединены ли ячеки в Excelе

#36274568

MaximuS_G

Участник

Сообщения: 1 178

Рейтинг: 0 / 0

Олег Мигутинстроке и последовательно вставляет данные в ячейки. Мне нужно перед вставкой проверять, не объединена ли текущая ячейка со следующей

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Sub UseObjectExplorer()
Dim myrange As Range
Dim iData As Integer

iData =  5 
Set myrange = Cells( 4 ,  3 )

If myrange.MergeArea.Address = myrange.Address Then ' ячейка не входит в объеденение
    myrange.Value = iData
Else ' ячейка не входит в объеденение
    myrange.MergeArea.Offset( 1 ,  0 ).Value = iData
End If

End Sub

Здесь:

Код: plaintext

Function NextUnMergeCL(rw, cl) As Integer

NextUnMergeCL(rw, cl) = NextUnMergeCL(rw as variant, cl as variant) - очень ресурсозатратно.
Лучше так

Код: plaintext

NextUnMergeCL(rw as integer, cl as byte)

ТСсразу говорю: только начал работать с Excel-ем и VB
Совет: научитесь пользоваться Object Explorer'ом

...

Рейтинг:

0 / 0

27.10.2009, 12:52

| Ответить | Цитировать | Написать

Как определить объединены ли ячеки в Excelе

#36274575

MaximuS_G

Участник

Сообщения: 1 178

Рейтинг: 0 / 0

Правильные комменты...

Код: plaintext

1.
2.
3.
4.

If myrange.MergeArea.Address = myrange.Address Then ' ячейка не входит в объеденение
    myrange.Value = iData
Else ' ячейка входит в объеденение
    myrange.MergeArea.Offset( 1 ,  0 ).Value = iData
End If

...

Рейтинг:

0 / 0

27.10.2009, 12:55

| Ответить | Цитировать | Написать

Как определить объединены ли ячеки в Excelе

#36274628

Олег Мигутин

Гость

MaximuS_G,

=)))) Спасибо большое

...

Рейтинг:

0 / 0

27.10.2009, 13:13

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как определить объединены ли ячеки в Excelе

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tid=2178923]:	0ms
get settings:	5ms
get forum list:	12ms
check forum access:	2ms
check topic access:	2ms
track hit:	16ms
get topic data:	6ms
get forum data:	2ms
get page messages:	24ms
get tp. blocked users:	1ms
others:	192ms

total:	262ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы