VPF::Получение ячеек, обведененных границей

Pawlic

Дата 6.2.2013, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 6.2.2013

Репутация: нет
Всего: нет

Здравствуйте Господа Форумчане.

Пишет Вам начинающий програмист из смежного отдела (1С) ;)

Предъистория такая:

Как известно бизнес-отношения покупатель-поставщик выстраиваются во многом благодая EXEL:
в этом формате поставщики отправляют по электронке счета, накладные, покупатели отправляют поставщикам заказы и т.д. ...

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

В процессе решения задачи возникла необходимость получения области ячеек, обведенной границей.

Короче вопрос:

Как програмно получить область ячеек, обведенных границей?
Можно ли впринципе это сделать?

Например в счете на оплату получить таблицу с товарами и ценами...

FINANSIST

Дата 6.2.2013, 11:20 (ссылка)

(голосов:1)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23

Цитата(Pawlic @ 6.2.2013, 09:10

)

програмист

программист

Цитата(Pawlic @ 6.2.2013, 09:10

)

Предъистория

Предыстория

Цитата(Pawlic @ 6.2.2013, 09:10

)

благодая

благодаря

Цитата(Pawlic @ 6.2.2013, 09:10

)

EXEL

Excel

Цитата(Pawlic @ 6.2.2013, 09:10

)

впринципе

в принципе

Цитата(Pawlic @ 6.2.2013, 09:10

)

Как известно бизнес-отношения покупатель-поставщик выстраиваются во многом благодая EXEL:

Нет, Excel вообще не является частью бизнес отношений.

Цитата(Pawlic @ 6.2.2013, 09:10

)

Как програмно получить область ячеек, обведенных границей?

Код


Sub Parser()
Dim MyMass() As String
Dim cll As Object
Dim x As Long
Dim y As Integer
For Each cll In ActiveSheet.Range("A1").Resize(65500, 255).SpecialCells(xlCellTypeFormulas).Cells
    Let y = 0
    If cll.Borders(xlEdgeLeft).LineStyle <> xlNone Then Let y = y + 1
    If cll.Borders(xlEdgeTop).LineStyle <> xlNone Then Let y = y + 1
    If cll.Borders(xlEdgeBottom).LineStyle <> xlNone Then Let y = y + 1
    If cll.Borders(xlEdgeRight).LineStyle <> xlNone Then Let y = y + 1
    If y = 4 Then
        Let x = x + 1
        ReDim Preserve MyMass(x - 1)
        Let MyMass(x - 1) = cll.Address
    End If
Next
For Each cll In ActiveSheet.Range("A1").Resize(65500, 255).SpecialCells(xlCellTypeConstants).Cells
    Let y = 0
    If cll.Borders(xlEdgeLeft).LineStyle <> xlNone Then Let y = y + 1
    If cll.Borders(xlEdgeTop).LineStyle <> xlNone Then Let y = y + 1
    If cll.Borders(xlEdgeBottom).LineStyle <> xlNone Then Let y = y + 1
    If cll.Borders(xlEdgeRight).LineStyle <> xlNone Then Let y = y + 1
    If y = 4 Then
        Let x = x + 1
        ReDim Preserve MyMass(x - 1)
        Let MyMass(x - 1) = cll.Address
    End If
Next
MsgBox "Адреса :" & Chr(10) & Join(MyMass(), ",")
End Sub

Это сообщение отредактировал(а) FINANSIST - 6.2.2013, 13:24

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

Akella

Дата 14.2.2013, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Цитата(Pawlic @ 6.2.2013, 09:10

)

Здравствуйте Господа Форумчане.

После "Здравствуйте" ставится запятая, т.к. потом идёт обращение.

"Господа Форумчане" - оба слова нужно писать с маленькой буквы. Это не имена собственные.

Добавлено @ 11:00
После

Цитата(Pawlic @ 6.2.2013, 09:10

)

Как известно

должна быть запятая.
Известно, как известно - это вводные слова и словосочетния smile

Почитай на тему: ПУНКТУАЦИЯ ПРИ ВВОДНЫХ СЛОВАХ И СОЧЕТАНИЯХ

diadiavova

Дата 16.2.2013, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: нет
Всего: 142

Цитата(Akella @ 16.3.2012, 14:25

)

Настоящий знаток языка - это как мастер кунг-фу - никогда не применяет его без надобности. Вот!

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

irinazanuda

Дата 16.2.2013, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 911
Регистрация: 23.6.2010

Репутация: нет
Всего: 18

Pawlic, ручками, ручками)))

Это сообщение отредактировал(а) irinazanuda - 16.2.2013, 21:40

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Работа с MS Office \| Следующая тема »