Версия для печати темы (https://pro1c.org.ua/index.php?s=03947f0713f6a2f0b0a42c04509198ce&showtopic=44491)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ Обєднані ячейки в Ексель

Автор: l2d808 03.03.18, 18:03

Доброго часу Вам шановне панство.
1с77
Ексель 2003
Друге пришестя...
Як програмно встановити належність ячейки до області?
Задача: У мене є обєднана область в ексель. А також є окрема ячейка. Чи можливо вичислити чи данна ячейка належить області?

Автор: l2d808 03.03.18, 21:46

Добавлю к вопросу.

Лист.Range(Лист.Cells(1,1),Лист.Cells(10,1)).Merge();

вопрос:
Как незная Лист.Range(Лист.Cells(1,1),Лист.Cells(10,1)) узнать, входит ли ячейка: Лист.Cells(10,1) в какой либо диапазон объедененный функцией (Объединить ячейки) .Merge(). И если входит тогда
массив = Лист.Range(Лист.Cells(1,1),Лист.Cells(10,1)) попросту, нужны координаты этого .Range(х1,у1;х2,у2)...
Уже голову сломал... 09000000.gif Помогите пожалуйста...

Автор: l2d808 05.03.18, 9:11

Шановні добродії. Прошу Вас допомогти... За вихідні в голову мені так нічого й не прийшло. Можливо у Вас вийде вирішити цю задачу?

Автор: sava1 05.03.18, 10:28

гугл дает такое

For Each n In ActiveWorkbook.Names
    If n.RefersToRange.Parent.Name = ActiveSheet.Name Then
     If Not Intersect(n.RefersToRange, ActiveCell) Is Nothing Then
        Debug.Print "active cell is inside " & n.Name
     End If
    End If
Next

Автор: l2d808 07.03.18, 15:36

С огромным удовлетворением сообщаю уважаемому сообществу! Задача обрела решение.
Для 1с77 мы можем использовать такой коД:

Сообщить(Лист.Cells(Строка_,Колонка).Address); //Сообщает адрес ячейки
Сообщить(Лист.Cells(Строка_,Колонка).MergeCells); //Сообщает, являэться ли ячейка в объединенном диапазоне (-1 True)
Сообщить(Лист.Cells(Строка_,Колонка).MergeArea.Address);//Сообщает, область в которуювходит ячейка в объединенном диапазоне

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua