Люди, как из VB поменять формат ячеек конкретного столбца?

Запускаешь Excel.
В новой книге выполняешь команду "Сервис — Макрос — Начать запись".
Выполняешь все предполагаемые действия по форматированию.
Останавливаешь запись.
Входишь в редактор кода и разбираешься с тем, что записал.
Редактируешь под свои нужды и вставляешь в приложение.

Будут вопросы, пиши [email protected]. Удачки!

Расположить по центру,текст жирный

Код

' Format A1:D1 as bold, vertical alignment = center.     With oSheet.Range("A1", "D1")        .Font.Bold = True        .VerticalAlignment = xlVAlignCenter     End With

Он спросил

Цитата

как из VB поменять формат ячеек

А вы ему про VBA толкуете

Вот так будет лучше без обьявления переменной oSheet.Создаешь столбцы и форматируешь

Код

Private Sub CommandButton1_Click()     Range("A1").Value = "Первый"     Range("B1").Value = "Второй"   ' Format A1:B1 as bold, vertical alignment = center.      With Range("A1", "B1")         .Font.Bold = True         .VerticalAlignment = xlVAlignCenter      End With End Sub

Это работает ,из vb ,если книгу новую создавать

Код

Option Explicit Private Sub CommandButton1_Click() Dim oXL As Excel.Application      Dim oWB As Excel.Workbook      Dim oSheet As Excel.Worksheet      Dim oRng As Excel.Range            'On Error GoTo Err_Handler         ' Start Excel and get Application object.      Set oXL = CreateObject("Excel.Application")      oXL.Visible = True         ' Get a new workbook.      Set oWB = oXL.Workbooks.Add      Set oSheet = oWB.ActiveSheet         ' Add table headers going cell by cell.      oSheet.Cells(1, 1).Value = "First Name"      oSheet.Cells(1, 2).Value = "Last Name"      oSheet.Cells(1, 3).Value = "Full Name"      oSheet.Cells(1, 4).Value = "Salary"         ' Format A1:D1 as bold, vertical alignment = center.      With oSheet.Range("A1", "D1")         .Font.Bold = True         .VerticalAlignment = xlVAlignCenter      End With End Sub

Видимо, я не так выразился.... Хотя эти ответы мне тоже будут очень полезны и за них спасибо!

Я имел в виду, что когда я пишу данные на лист Excel они по умолчанию пишутся в формате General, а если я например пишу дату, то получиться нечто, на первый взгляд несуразное в виде количества дней с начала 20-ого века. Человек, открывший этот лист будет несколько в растерянности от увиденного. Дак вот, как мне поменять формат ячеек при записи в них данных скажем на Number с 5 decimal разрядами или на дату mm/dd/yy? Желательно узнать как поменять формат ячеек всего столбца целиком.

СпасибО!

Вот работает

Код

With oSheet.Range("A1", "A10000")         .NumberFormat = "dd/mm/yy"         .VerticalAlignment = xlVAlignCenter      End With

Старуха

Надо еще библиотеку подключить меню Project-References-Microsoft Excel 10.0 Object Library

Цитата(Guest @ 5.10.2004, 15:02)

With oSheet.Range("A")     .NumberFormat = "dd/mm/yy"     .VerticalAlignment = xlVAlignCenter   End With

Принято
Старуха

P:S
Кардинал ,второй день не могу зайти как Старуха.Не пускаешь что ли?

Код

With oSheet.Range("A1", "A10000")    .NumberFormat = "dd/mm/yy"    .VerticalAlignment = xlVAlignCenter  End With

Интересно, а если у меня не десять тысяч записей, а 15? Оставшиеся 5 будут непонятного формата? Неужели нельзя отформатировать ВСЕ ячейки в определенном столбце? Ведь в самом Excel'e это можно сделать... И еще не знаете случайно как поставить автоширину столбца из VB? В самом Excel'e этот эффект происходит при двойном щелчке по границе столбца.

Код

Columns("B").Select     Selection.Columns.AutoFit

А вообще то есть такое свойство AutoSize

Код

With oSheet.Columns("A") .NumberFormat = "dd/mm/yy" .VerticalAlignment = xlVAlignCenter End With

На vba работает ,а на VB только дома могу проверить .Но 90 процентов будет работать.


Старуха

СПАСИБО!!!

Твой вопрос мне тоже помог больше узнать.Всего хорошего!

Цитата(Guest @ 6.10.2004, 10:05)

Кардинал ,второй день не могу зайти как Старуха.Не пускаешь что ли?

Я ни причем

Это опять я. Сразу прошу прощенья за развитвление темы - очень не хочеться засорять форум о VB одними вопросами про интеграцию с excel'ем и Access'ом. У меня небольшой вопрос: например я из VB создаю в базе Access новый запрос или макрос или таблицу - есть ли какая нибудь функция, которая по имени этого запроса, макроса или таблицы возвращала истину или ложь в зависимости от того существует ли объект с таким именем в базе уже или еще нет??? Очень нужно - заранее спасибо!

ЕНД("D1") - Возвращает ИСТИНА ,если D1 = #Н/Д

Да нет, я не про ячейки екселя толковал! Я имею в виду, вот я создаю из VB таблицу в Access'e а таблица с таким именем уже есть и возникает конфликт! Как мне проверить есть ли таблица или запрос с таким именем или нет???

GetLastError по моему так
on error resume next и вперед