|
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. Спасибо всем.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |