Как выравнять ячейки в Excel? - VB

Формулировка задачи:

Опять возник вопрос по ходу работы... Делаю импорт из таблицы в Excel. Текстовые и числовые поля выравниваются по разному - влево и вправо соответственно. Как их выравнять вправо? Есть какое-нить свойство у ячейки, а еще лучше у столбца целиком? заранее благодарю за помощь...

Решение задачи: «Как выравнять ячейки в Excel?»

textual
                            Листинг программы 
                        

                            JornPost.Sheets(4).Rows.RowHeight = 14.25  '-- Задать высоту
JornPost.Sheets(4).Cells.WrapText = True
JornPost.Sheets(4).Columns('A:A').ColumnWidth = 4
JornPost.Sheets(4).Columns('B:B').ColumnWidth = 24
JornPost.Sheets(4).Columns('C:D').ColumnWidth = 13.71
JornPost.Sheets(4).Columns('E:E').ColumnWidth = 7
JornPost.Sheets(4).Columns('F:F').ColumnWidth = 13
JornPost.Sheets(4).Columns('G:G').ColumnWidth = 7
JornPost.Sheets(4).Columns('H:H').ColumnWidth = 13
JornPost.Sheets(4).Columns('I:I').ColumnWidth = 10
JornPost.Sheets(4).Columns('J:K').ColumnWidth = 13.71
 
JornPost.Sheets(4).Range('A1:K4').HorizontalAlignment = 3
 
JornPost.Sheets(4).Range('A1:K1').Merge
JornPost.Sheets(4).Rows('1:1').RowHeight = 22
JornPost.Sheets(4).Cells(1, 1).Font.Name = 'Arial Cyr'
JornPost.Sheets(4).Cells(1, 1).Font.Size = 12
JornPost.Sheets(4).Cells(1, 1).Font.Bold = True
JornPost.Sheets(4).Cells(1, 1).Value = trt
 
JornPost.Sheets(4).Range('A2:A4').Merge
JornPost.Sheets(4).Range('A2:A4').Font.Bold = True
JornPost.Sheets(4).Range('A2:A4').Value = '№пп'
 
JornPost.Sheets(4).Range('B2:B4').Merge
JornPost.Sheets(4).Range('B2:B4').Font.Bold = True
JornPost.Sheets(4).Range('B2:B4').Font.Size = 12
JornPost.Sheets(4).Range('B2:B4').Value = 'Название организации'
                        