Главная » 2014 » Сентябрь » 10 » Заработали отступы в коде VBA
10:26
Заработали отступы в коде VBA

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

Sub Handle_Cells_1(parRange As Range)
For i = 1 To parRange.Count
parRange(i, 5) = parRange(i).Address & " = " & parRange(i) 
Next 
End Sub
и до меня только что дошло, как сделать так:
 
Sub Handle_Cells_1(parRange As Range) 
  For i = 1 To parRange.Count 
    parRange(i, 5) = parRange(i).Address & " = " & parRange(i) 
  Next 
End Sub 
Я просто заменяю символы табуляции в коде на нужное мне количество неразрывных пробелов HTML. Так просто, но почему-то раньше мне это в голову не приходило...

Категория: Сайт | Просмотров: 514 | Добавил: dsb75 | Теги: Site | Рейтинг: 0.0/0
Всего комментариев: 3
1 bozhan   (19.09.2014 08:53)
Код
Public Sub ALV_CUS_Exit()
   Dim objs As ChartObjects
   Dim obj As ChartObject
   Dim sheet As Worksheet
   Dim r As Range
   For Each sheet In Sheets
     Set objs = sheet.ChartObjects
     For Each obj In objs
       Set r = Sheets("RawData").UsedRange
       obj.Chart.SetSourceData Source:=r
     Next obj
   Next sheet
End Sub


2 bozhan   (19.09.2014 08:58)
Есть же BB код, в редакторе выглядит как <> (Код) - вставляет код As Is

в HTML есть управляющий символ, используемый внутри тегов <pre> и <textarea>


Код

3 bozhan   (19.09.2014 09:00)
кхы... код HTML обработался в комментариях как табуляция smile

& # 9 ; - все четыре символа без пробелов равны табуляции

пример использования кода

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]