imho.ws
IMHO.WS  

Вернуться   IMHO.WS > Компьютеры > Программирование
Опции темы
Старый 28.11.2002, 19:10     # 1
AlexZh
Guest
 
Сообщения: n/a

VBA Excel

Всем привет!
В Excel-е при промощи Мастера записаал следующий макрос:
Range("A1:B1").Select
With Selection
.HorizontalAlignment = xlCenter
End With

т.е отцентрировал положение текста в ячейке.

А теперь хочу сделать тоже самое, используя Excel, как OLE сервер.
Проблема в том, что нужно вместо xlCenter подставить число, которое этой переменной соответствует.
Какое число подставить и где можно посмотреть значения переменных типа xlCenter, xlLeft и т.д
Спасибо.
 
Старый 01.12.2002, 20:28     # 2
corgi
Newbie
 
Аватар для corgi
 
Регистрация: 06.04.2002
Сообщения: 20

corgi Путь к славе только начался
Const xlCenter = -4108 (&HFFFFEFF4)
Const xlLeft = -4131 (&HFFFFEFDD)
Const xlRight = -4152 (&HFFFFEFC8)
В Excele запускаешь редактор Visual basic и там нажимаешь f2 или зпускаешь object browser
В разделе constants бедет то что тебе надо
corgi вне форума  
Старый 20.12.2004, 14:45     # 3
YFred
Guest
 
Сообщения: n/a

Question Люди

Пишу макрос в Excel задача следующая:
Есть база данных в Excel и есть обновление базы в *.txt необходимо добавить строки из txt в Excel, но не все а только те которых нет в базе.
(сравнение ведется по 2-м столбцам).
Я начал делать, так
1) открыл txt - Workbooks.OpenText Filename:="....и т.д.
2) привел к нужному виду (как в базе)
3) теперь необходимо осуществить проверку и вставить данные в базу , но я не пойму как работать одновременно с 2-мя книгами в Excel

например Rows(1).delete обращение по умолчанию, а как обратиться например Книга2.Rows(1).delete

Надеюсь не сильно запутал. Помогите пожалуйста кто может
 
Старый 21.12.2004, 15:26     # 4
EvroStandart
Full Member
 
Аватар для EvroStandart
 
Регистрация: 20.01.2004
Адрес: Таллинн
Пол: Male
Сообщения: 623

EvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собойEvroStandart Имеются все основания чтобы гордиться собой
Цитата:
YFred:
а как обратиться например Книга2.Rows(1).delete
Sheets("Sheet1").Range("C9").Value
типа такого.
EvroStandart вне форума  
Старый 21.12.2004, 16:33     # 5
YFred
Guest
 
Сообщения: n/a

Всем спасибо разобрался сам.
 
Старый 23.03.2005, 08:27     # 6
Browin
Junior Member
 
Регистрация: 28.07.2004
Сообщения: 148

Browin Путь к славе только начался
Не могу решить следующую проблему:
Имеется диаграмма. Необходимо удалить все ряды данных, т.е. SeriesCollection. Но у меня никак не получается узнать количество этих рядов без активации (выделения) текущего Листа и Диаграммы, т.е. нижеследующее работает

ActiveSheet.ChartObjects(5).Activate
c = ActiveChart.SeriesCollection.Count

а это нет:

c = ActiveSheet.ChartObjects(5).SeriesCollection.Count

Если обращаться напрямую:

c = Sheets(ndiag).ChartObjects(5).SeriesCollection.Count

получаю следующую ошибку:

http://dziman.nm.ru/files/Pic15.png

Почему? Может нужно приведение типов сделать?
Browin вне форума  
Старый 26.03.2005, 09:12     # 7
LightImage
Junior Member
 
Регистрация: 16.10.2002
Адрес: Россия-матушка
Пол: Male
Сообщения: 96

LightImage Нимб уже пробиваетсяLightImage Нимб уже пробивается
а если c = Sheets(ndiag).Charts(5).SeriesCollection.Count ?
__________________
1 миллибайт = 1/1024 байта
LightImage вне форума  
Старый 04.04.2005, 12:26     # 8
fresh wind
Guest
 
Сообщения: n/a

Visual Basic для Excel - с чего начать?

Visual Basic для Excel - с чего начать? То есть нужно разобраться в самых азах. Подкиньте ссылки на литературу.
Спасибо
 
Старый 05.04.2005, 12:13     # 9
LightImage
Junior Member
 
Регистрация: 16.10.2002
Адрес: Россия-матушка
Пол: Male
Сообщения: 96

LightImage Нимб уже пробиваетсяLightImage Нимб уже пробивается
fresh wind
Хелп стандартный, очень неплохо написано Рекомендую, сам только хелп пользую
__________________
1 миллибайт = 1/1024 байта
LightImage вне форума  
Старый 08.04.2005, 12:42     # 10
fedalal
Guest
 
Сообщения: n/a

удобнее "учиться" с помощью записанных макросов. Там есть кнопочка записать макрос. Записываешь, делаешь что нибудь в excel а потом смотришь, какой он код на VB сгенерил. Очень удобно для обучения (сам в свое время так делал, правда давно это было)
 


Ваши права в разделе
Вы НЕ можете создавать новые темы
Вы не можете отвечать в темах.
Вы НЕ можете прикреплять вложения
Вы НЕ можете редактировать свои сообщения

BB код Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +4, время: 01:01.




Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.