Форматирование ячеек

[Andr]

Помогите пожалуйста в 3х вопросах
1. Как программно вписать текст в ячейку вертикально?
2. Как программно менять размеры ячейки?
3. Как, опять же программно, выделять границы ячейки жирным?

[pashulka]

1.

Private Sub Test()
    Range("A1").Value = "Текст"
    Range("A1").Orientation = 90 '-90
 
    'Or
   
    Range("B1").Value = GetText("Текст")
End Sub
 
Private Function GetText$(iText$)
    For iCount& = 1 To Len(iText$)
        iTemp$ = iTemp$ & Mid(iText$, iCount&, 1) & vbLf
    Next
    GetText$ = Left(iTemp$, Len(iTemp$) - 1)
End Function

2.

Range("C3").RowHeight = 10
Range("C5").ColumnWidth = 25

3.

With Range("C3")
     .Borders(xlEdgeLeft).Weight = xlMedium
     .Borders(xlEdgeTop).Weight = xlMedium
     .Borders(xlEdgeBottom).Weight = xlMedium
     .Borders(xlEdgeRight).Weight = xlMedium
End With

P.S. Ответы на подобные вопросы можно найти самостоятельно, если воспользоваться макрорекордером (Сервис-Макрос-Начать запись- ...нужные действия ... -Остановить запись), а затем почистить полученный макрос от мусора, например, убрать ненужное выделение.

[Andr]

Большое спасибо!

[Andr]

Еще 1 вопрос: как объединить несколько ячеек в одну?

[Noor]

Range("B1:B2").Select
Selection.Merge

где:
Range("B1:B2").Select - выделенный диапазон ячеек для объединения
Selection.Merge - объединение

И не забывайте

P.S. Ответы на подобные вопросы можно найти самостоятельно, если воспользоваться макрорекордером (Сервис-Макрос-Начать запись- ...нужные действия ... -Остановить запись), а затем почистить полученный макрос от мусора, например, убрать ненужное выделение.

[Andr]

А чему равны xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight?
По ходу еще вопрос возник. Почему значение переменной типа string нельзя записать в ячейку?

[pashulka]

1. Об'единить несколько смежных ячеек можно ещё и так, причём, вне зависимости от способа - использовать выделение не нужно.

Range("B1:B5").MergeCells = True

2. Что касается констант, то их числовые представления можно посмотреть, например, в справке VBA, а можно воспользоваться и вполне банальным MsgBox xlEdgeLeft

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

Dim iText As String
iText = "Это строка, как ни крути"
ThisWorkbook.Worksheets(1).Range("A1").Value = iText

[Andr]

XlApp.ActiveWorkBook.WorkSheets[Edit5.Text].Range['E1'].Value := tmp;
tmp - string. Не работает ((

[pashulka]

Я подозревал, что Вы "мучаете" XL из Delphi, но, увы, это не моя епархия.

[Andr]

Согласен, что мучаю, но надо начинать с простого...