MyTetra Share
Делитесь знаниями!
Время создания: 31.07.2019 23:22
Раздел: Разные закладки - VBA - Меню VB-справка - Словарь VBA
Запись: xintrea/mytetra_db_adgaver_new/master/base/1512831095a7ynr1747t/text.html на raw.githubusercontent.com

Вкладка "Главная"

Буфер обмена

Object.Copy - копируем выделенный объект - строку, столбец, диапазон или ячейку.

ActiveSheet.Paste - вставляем данные из буфера обмена в активную ячейку на активном листе (не забудьте активировать нужную ячейку: Cells(i,j).Activate).

 

Специальная вставка

Selection.PasteSpecial Paste:=xlPasteFormats  - вставка формата в выделенный диапазон, оно же формат по образцу (не забудьте скопировать формат: Cells(i,j).Copy)

Selection.PasteSpecial Paste:=xlPasteFormulas  - вставка формулы

Selection.PasteSpecial Paste:=xlPasteValues  - вставка значений

Selection.PasteSpecial Transpose:=True  - транспонировать при вставке. Возможно также сочетания всех вариантов вставки с транспонированием, например:

Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True


Шрифт

При большом количестве изменений полезно использовать конструкцию With ("c")

With Selection.Font     ' то есть "со шрифтом выделенного объекта(ячейка/диапазон)"

      .Name="Times New Romans"     ' устанавливаем тип шрифта

      .Size=14                                   ' устанавливаем размер шрифта

      .Color=-16776961                      ' устанавливаем цвет шрифта (тут красный)

      .Bold=True                               ' делаем шрифт жирным

      .Italic=True                              ' делаем шрифт курсивным

      .Underline=xlUnderlineStyleSingle    ' простое подчеркивание

      .Underline=xlUnderlineStyleDouble    ' двойное подчеркивание текста

      .Strikethrough = True                       ' перечеркнутый текст

      .Superscript = True                         ' делаем шрифт надстрочным

      .Subscript = True                           ' делаем шрифт подстрочным

End With

Для назначения одного свойства легче использовать запись

Selection.Font.Size=14

 

Границы

With Selection.Borders                          ' устанавливаем границы всех выделенных ячеек

      .LineStyle = xlContinuous                ' устанавливаем тип линии границы

      .Color = 255                                   ' устанавливаем цвет границы

      .Weight = xlThin                             ' устанавливаем толщину границы

End With

 

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

Selection.Borders(xlEdgeLeft).Color=255

Индексы бывают:

xlEdgeLeft - граница левого края выделенного диапазона

xlEdgeRight - граница правого края диапазона

xlEdgeTop - верхняя граница диапазона

xlEdgeBottom - нижняя граница диапазона

xlInsideHorizontal - внутренние горизонтальные границы

xlInsideVertical - внутренние вертикальные границы

 

Возможны такие варианты типа линии:

xlNone - нет линии

xlContinuous - сплошная линия

xlDot - точками

xlDash - черточками

xlDouble - двойная линия

xlDashDotDot - черточка, две точки

xlSlantDashDot - "закрученная"

 

Толщина линии может быть такой:

xlHairline - самая тонкая

xlThin - тонкая, обычная

xlMedium - средняя

xlThick - толстая

 
MyTetra Share v.0.65
Яндекс индекс цитирования