Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Рамка ячейки в Excel / 6 сообщений из 6, страница 1 из 1
29.03.2010, 10:10
    #36547532
azett
azett
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамка ячейки в Excel
Здравствуйте... подскажите пожалуйста...

Формирую отчет в Excel... нужно сделать чтобы ячейки куда выводятся данные были в рамке...
чтобы сетка получилась

сделал в файле Excell макрос, который делает границы ячейки в рамку

в программе такой код

m.olebook.Range("m.olebook.Cells(ii,1).address").select
m.olebook.Run("Mac1")

выдает ошибку Ole error code 0x800a03ec Unknown come status code

без первой строчки макрос выполняется, но соответственно в одной ячейке где курсор оставался при закрытии файла excel

в чем может быть проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2010, 17:44
    #36548790
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамка ячейки в Excel
azett, в прищепке файл, которому уже лет сто, и мне он не принадлежит, брал его я еще в конференции ФИДО. В нем есть примеры работы с границами ячеек, почти в конце..
Если чего здесь из констант нет, - то ищи в EXCEL.H
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2010, 03:49
    #36549560
azett
azett
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамка ячейки в Excel
Спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2010, 15:00
    #36553044
Koryuu
Koryuu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамка ячейки в Excel
А я в проге рамочки рисую ^__^
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
#define xlBottom - 4107 
#define xlTop - 4160 
#define xlNone - 4142 
#define xlDiagonalDown  5 
#define xlDiagonalUp  6 
#define xlEdgeLeft  7 
#define xlEdgeTop  8 
#define xlEdgeBottom  9 
#define xlEdgeRight  10 
#define xlInsideVertical  11 
#define xlInsideHorizontal  12 
#define xlContinuous  1 
#define xlThin  2  
#define xlAutomatic - 4105 
#define xlContext - 5002 

*********************

oRange=loexcel.range[loexcel.cells(a,b),loexcel.cells(c,d)]
oRange.select
oRange.VerticalAlignment = xlTop
loexcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
loexcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With loexcel.Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
With loexcel.Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
EndWith
_______________________________
Истинный оргазм можно испытать только после нескольких часов жесткой е*ли с кодом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2010, 16:16
    #36553338
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамка ячейки в Excel
> Автор: Koryuu

Последние две линии я пишу так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Try && наверное может быть ситуация, когда будет только одна строка
* И тогда не будет понятия "внутренние горизонтальные линии" и будет ошибки
* Вот её тихонько перехватим и будем работать дальше
 With .BorderS(xlInsideVertical)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .Colorindex = xlAutomatic
 Endwith
Catch To oErr
Endtry
Try && наверное может быть ситуация, когда будет только один столбец
* И тогда не будет понятия "внутренние вертикальные линии" и будет ошибки
* Вот её тихонько перехватим и будем работать дальше
 With .BorderS(xlInsideHorizontal)
  .LineStyle = xlContinuous
  .Weight = xlThin
  .Colorindex = xlAutomatic
 Endwith
Catch To oErr
Endtry


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2010, 09:55
    #36557044
Koryuu
Koryuu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рамка ячейки в Excel
Спасибо за поданную мысль. У меня, правда, ни разу не было отчета состоящего из одной строки или одного столбца, но ведь когда-нибудь это может случиться =^^=

__________________________________
Истинный оргазм можно испытать только после нескольких часов жесткой е*ли с кодом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Рамка ячейки в Excel / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 130ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1585450]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 15ms
total:  130ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]