EXCEL понять, где жирный шрифт, а где нет. #708934

Из 1с. В одной ячейке часть текста жирным, часть обычным. Надо выделить жирную. Есть мысли? Спасибо.

msdn. на здоровье

Послал в библиотеку...

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

Как сделал из 1С в Excel, часть жирным, а часть не жирным?

если бы он, то вряд-ли у него возник вопрос из

читает готовый.. а в самом Excel"е с помощью макросов не определяется?

Картой, картой можно будет воспользоваться!!!

:) заламинирована

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

Под "выделить", что подразумевается?

Да, загрузка прайса, где жирным - название, простым - описание. Макросом не пробовал, но каких-то доп.действий лучше не делать, все-таки пользователю обработка. Ссылка на телефон гуглмапса ))

- жирным в одну переменную, обычным - в другую.

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

а и не делай. просто проследи за мужиком с топором и картой и сделай так же

сравнить программирование с сёром - это очень сильно. Практически одно и то же понятие

Мужика, который ходит в туалет с топором, лучше ни о чем не спрашивать.

смотря на какой платформе

проверяй: workSheets.Cells(x,y).Font.Bold = true|false

это с первого по пятый символ?

Лист.Cells(НомерСтроки,НомерКолонки).Font.Bold = 1

, = null (value - есть)

этото не то? Msg: String; ...     Msg := ' Человек собаке друг J';

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

Просящие перед тем, как попросить прошерстил форум и немножко яндекс. И шерстит до сих пор. Но просящий - тупой 1с-ник, поэтому высшие языки ему сложны.

Вот еще первая ссылка в гугле Sub Форматирование     Dim ra As Range, cell As Range: Application.ScreenUpdating = False     Set ra = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)     ' диапазон ra - все заполненные ячейки активного листа     For Each cell In ra.Cells         ' разбиваем текст в строке за отдельные строки (разделителем является символ Chr)         arr = Split(cell.Value, Chr)    ' получаем массив, количество элементов в котором равно числу строк в ячейке         ' каждый элемент массива arr - текст очередной строки         If UBound(arr) >= 2 Then    ' UBound(arr) - верхняя граница полученного массива             ' эта граница на 1 меньше, чем количество элементов в нём (строк в ячейке)             ' (поскольку элементы в массиве нумеруются с нуля)             ' Обрабатывать текст ячейки будем только в том случае, если UBound(arr) >= 2             ' т.е. если количество строк в ячейке не меньше трёх             ' вычисляем позицию первого символа для форматирования:             pos = Len(arr) + Len(arr) + 3            ' длина первой строки + длина второй строки             ' + 2 символа перевода строки + 1             lenght = Len(arr)    ' длина третьей строки             With cell.Characters(pos, lenght)    ' в качестве параметров указываем pos - позицию                 ' первого обрабатываемого символа, и lenght - количество символов для обработки             ' а теперь покрасим первую строку в ячейке:             With cell.Characters(1, Len(arr))    ' в качестве параметров указываем 1 - позицию                 ' первого обрабатываемого символа, и Len(arr) - количество символов в первой строке

все робит в true и false

помогло через Characters. Спасибо всем.