Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2009, 15:55   #1
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию Если ячейка пуста, то залить.....

Есть вордовский шаблон (в виде .doc), в нем есть текст и таблицы. В таблицу из екселя вставляются цыфры путем: из экселя скопировано -> в ворд "специальной вставкой" вставлено (со связью)...в экселе путем гиперссылки открывается этот вордовский шаблон, ворд говорит, что есть связи и предлагает их обновить , я обновляю (жму окей) , нужные цыфры из экселя переходят в ворд....вот собственно схема.....

нужно: некоторые ячейки могут быть пусты, а могут быть и заполнены. ...так вот если ячека после последнего обновления оказывается пуста, то она должна заливаться серым (ну или как-нибудь затемняться)...в ворде это можно сделать????? или заливать в екселе и потом как-то передать в ворд???
Verbludov вне форума Ответить с цитированием
Старый 20.10.2009, 16:39   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Цитата:
или заливать в екселе и потом как-то передать в ворд???
Именно так.
В Excel есть условное форматирование - вот им и воспользуйтесь для затемнения пустых ячеек.
В Word попадёт уже раскрашенная таблица.
EducatedFool вне форума Ответить с цитированием
Старый 20.10.2009, 18:06   #3
БуреВестник
Пользователь
 
Регистрация: 19.09.2009
Сообщений: 69
По умолчанию

Wordовский вариант:
Код:
Sub ColorOfEmptyCells()
Dim oTable As Table
Dim oCell As Cell
For Each oTable In ActiveDocument.Tables
    For Each oCell In oTable.Range.Cells
        If oCell.Range.Characters.Count = 1 Then
             oCell.Shading.BackgroundPatternColor = wdColorGray50
        End If
    Next
Next
End Sub
БуреВестник вне форума Ответить с цитированием
Старый 21.10.2009, 09:12   #4
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
В Word попадёт уже раскрашенная таблица.
неа. не раскрашенная таблшица, а что-то типа выделенного текста, полностью ячейка не заливается
Verbludov вне форума Ответить с цитированием
Старый 21.10.2009, 09:20   #5
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию

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

Цитата:
Сообщение от БуреВестник Посмотреть сообщение
Wordовский вариант:
прошу прощения, В ворде с макросами и ВБ опыта не имею....это код сюда?:
Изображения
Тип файла: gif kod.GIF (38.1 Кб, 150 просмотров)
Verbludov вне форума Ответить с цитированием
Старый 21.10.2009, 10:38   #6
БуреВестник
Пользователь
 
Регистрация: 19.09.2009
Сообщений: 69
По умолчанию

Да сюда. Щ. пр. кн. мыши по слову Normal, затем Insert - Module - 2 щ. л. кн. мыши по этому модулю, в правую область вставляете мой код.
Чтобы проверить работу: ставите курсор на любое место кода и на Панели инструментов кнопка Run (в виде треугольника).
Если макрос подходит, то делаете для него кнопку на Панели инструментов в самом Word.

Ваше условие непонятно до сих пор: какие ячейки должны быть выделены серым цветом?
БуреВестник вне форума Ответить с цитированием
Старый 21.10.2009, 11:24   #7
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию

Цитата:
Сообщение от БуреВестник Посмотреть сообщение
Ваше условие непонятно до сих пор: какие ячейки должны быть выделены серым цветом?
кароче вот оно....зеленым залито вручную сейчас для ясности - что требуется, надо, чтоб когда этот файл открывался, обновлялся, ....программа сама определяла, какие из этих ячеек пусты и заливала их

Последний раз редактировалось Verbludov; 22.10.2009 в 09:17.
Verbludov вне форума Ответить с цитированием
Старый 21.10.2009, 11:55   #8
БуреВестник
Пользователь
 
Регистрация: 19.09.2009
Сообщений: 69
По умолчанию

А вот эти таблицы, помеченные зелёным, они полностью одинаковы: количество строк, столбцов.
Тогда я сделаю макрос, который будет выделять ячейки в таблицах с определённым количеством строк или столбцов.
Но в этих таблицах не должны быть пустые ячейки, которые не нужно выделять. Если такая необходимость есть, то поместите в эти ячейки по одному пробелу.
БуреВестник вне форума Ответить с цитированием
Старый 21.10.2009, 12:04   #9
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию

Цитата:
Сообщение от БуреВестник Посмотреть сообщение
А вот эти таблицы, помеченные зелёным, они полностью одинаковы: количество строк, столбцов.
Тогда я сделаю макрос, который будет выделять ячейки в таблицах с определённым количеством строк или столбцов.
да. они одинаковы. кроме того, если заметил, то вот то, что нужно заливать - это таблица в таблице
Цитата:
Сообщение от БуреВестник Посмотреть сообщение
Но в этих таблицах не должны быть пустые ячейки, которые не нужно выделять. Если такая необходимость есть, то поместите в эти ячейки по одному пробелу.
окэй.. мысль ясна-> использовать этот код, только во все пустые не задейстованные ячейки пробел???так
Verbludov вне форума Ответить с цитированием
Старый 21.10.2009, 12:06   #10
Verbludov
Пользователь
 
Регистрация: 20.10.2009
Сообщений: 30
По умолчанию

а ...блин - забыл.....ёмае....ячейки как раз не пусты, там и есть пробел...подставляются либо цыфры либо пробел
Verbludov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ячейка с текстом, ячейка без текста. segail Microsoft Office Excel 5 16.09.2009 21:55
как по сети залить на компы винду? RockForr Компьютерное железо 0 11.09.2009 11:08
Как залить сектора окружности? ai\ekcah^p Помощь студентам 1 05.05.2009 16:49
ЗАлить файл на ФТП russian-stalker Работа с сетью в Delphi 8 25.09.2008 11:46
Проверить пуста ли строка? Slim Microsoft Office Excel 2 09.04.2007 15:55