Имя: Пароль:
1C
1С v8
EXCEL понять, где жирный шрифт, а где нет.
0 DTrofimov
 
21.05.14
09:22
Из 1с. В одной ячейке часть текста жирным, часть обычным. Надо выделить жирную. Есть мысли? Спасибо.
1 Wobland
 
21.05.14
09:22
msdn. на здоровье
2 DTrofimov
 
21.05.14
09:34
(1) Послал в библиотеку...
3 BuHu
 
21.05.14
09:38
(2) сори за оффтоп , не сдержался .
сидишь ты значит такой в общественном туалете , сделал все свои дела и вдруг понимаешь , что бумаги то нету , но тут замечаешь что в соседней кабинке тоже кто то есть , ну и так вежливо его просишь отмотать тебе немного , а он тебе такой ,за  место ожидаемой туалетной бумаги , протягивает топор и карту местности на которой отмечен ближайший лесной массив )
4 kosts
 
21.05.14
09:40
(0) Как сделал из 1С в Excel, часть жирным, а часть не жирным?
5 butterbean
 
21.05.14
09:41
(4) если бы он, то вряд-ли у него возник вопрос из (0)
6 aka AMIGO
 
21.05.14
09:41
(4) читает готовый..

(0) а в самом Excel"е с помощью макросов не определяется?
7 User_Agronom
 
21.05.14
09:41
(3) Картой, картой можно будет воспользоваться!!!
8 BuHu
 
21.05.14
09:42
(7) :) заламинирована
9 kosts
 
21.05.14
09:43
(6) Если готовый и там в одной ячейке жирный и не жирный, то это уже не из 1С...
10 kosts
 
21.05.14
09:44
(0) Под "выделить", что подразумевается?
11 DTrofimov
 
21.05.14
09:44
(4) Да, загрузка прайса, где жирным - название, простым - описание.
(6) Макросом не пробовал, но каких-то доп.действий лучше не делать, все-таки пользователю обработка.
(7) Ссылка на телефон гуглмапса ))
12 DTrofimov
 
21.05.14
09:45
(10) - жирным в одну переменную, обычным - в другую.
13 butterbean
 
21.05.14
09:46
(11) запиши макрос с выделением части текста и изменением жирноты, посмотри код, воспроизведи у себя по аналогии
14 Wobland
 
21.05.14
09:46
(11) а и не делай. просто проследи за мужиком с топором и картой и сделай так же
15 1dvd
 
21.05.14
09:47
(3) сравнить программирование с сёром - это очень сильно. Практически одно и то же понятие
16 kosts
 
21.05.14
09:47
Мужика, который ходит в туалет с топором, лучше ни о чем не спрашивать.
17 Wobland
 
21.05.14
09:47
(15) смотря на какой платформе
18 manyak
 
21.05.14
09:48
проверяй:
workSheets(1).Cells(x,y).Font.Bold = true|false
19 Wobland
 
21.05.14
09:48
(18) это с первого по пятый символ?
20 Kandellaster
 
21.05.14
09:49
Лист.Cells(НомерСтроки,НомерКолонки).Font.Bold = 1
21 DTrofimov
 
21.05.14
09:51
(18), (20) = null
(value - есть)
22 kosts
 
21.05.14
09:51
этото не то?

Msg: String;
...
    Msg := ' Человек собаке друг J';
    // занесем тест в ячейку
    ASheet.Range['B3', EmptyParam].Formula := Msg;
    // займемся последним символом - изменим атрибуты шрифта
    ASheet.Range['B3', EmptyParam].Characters[Length(Msg), 1].Font.Name :=
      'Wingdings';
    ASheet.Range['B3', EmptyParam].Characters[Length(Msg), 1].Font.Size := 24;
    ASheet.Range['B3', EmptyParam].Characters[Length(Msg), 1].Font.Color := clBlue;
23 BuHu
 
21.05.14
09:51
(15) тут аналогия не в самом действие , а в том просящему дуют немного не то что он просит , но в то же время как бы не отказывают , просто не жуют за него и в рот не ложат , а предлагают самому приготовить и съесть .
24 DTrofimov
 
21.05.14
09:56
(23) Просящие перед тем, как попросить прошерстил форум и немножко яндекс. И шерстит до сих пор. Но просящий - тупой 1с-ник, поэтому высшие языки ему сложны.
25 kosts
 
21.05.14
09:59
(24) Вот еще первая ссылка в гугле

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(10))
        arr = Split(cell.Value, Chr(10))    ' получаем массив, количество элементов в котором равно числу строк в ячейке
        ' каждый элемент массива arr - текст очередной строки

        If UBound(arr) >= 2 Then    ' UBound(arr) - верхняя граница полученного массива
            ' эта граница на 1 меньше, чем количество элементов в нём (строк в ячейке)
            ' (поскольку элементы в массиве нумеруются с нуля)

            ' Обрабатывать текст ячейки будем только в том случае, если UBound(arr) >= 2
            ' т.е. если количество строк в ячейке не меньше трёх

            ' вычисляем позицию первого символа для форматирования:
            pos = Len(arr(0)) + Len(arr(1)) + 3            ' длина первой строки + длина второй строки
            ' + 2 символа перевода строки + 1

            lenght = Len(arr(2))    ' длина третьей строки

            With cell.Characters(pos, lenght)    ' в качестве параметров указываем pos - позицию
                ' первого обрабатываемого символа, и lenght - количество символов для обработки

                .Font.Color = vbBlue: .Font.Bold = True: .Font.Size = 10    ' собственно, само форматирование
            End With

            ' а теперь покрасим первую строку в ячейке:
            With cell.Characters(1, Len(arr(0)))    ' в качестве параметров указываем 1 - позицию
                ' первого обрабатываемого символа, и Len(arr(0)) - количество символов в первой строке

                .Font.Color = vbRed: .Font.Bold = True: .Font.Size = 12    ' собственно, само форматирование
            End With
        End If
    Next cell
End Sub
26 manyak
 
21.05.14
10:04
(21) все робит в (18) (20)
true(1) и false (0)
27 DTrofimov
 
21.05.14
10:11
(26) помогло через Characters. Спасибо всем.