sku144 (Автор тем)

Как получить доступ к шрифтам VBE через VBA

Пользователь

Сообщений: 19 Регистрация: 03.12.2014

30.01.2015 17:29:42

Как в VBE с помощью VBA поменять шрифт на кириллический при открытии документа?
Ручками это делается так: Alt+F11 > Tools > Options... > Editor Format > Font: Courier New (Cyrillic)

Пока что дошел только до того, как вызывать VBE при открытии документа

Код
Private Sub Workbook_Open() Application.VBE.MainWindow.Visible = True End Sub

А вот как дальше обратиться к шрифтам - идей нет.

Изменено: sku144 - 30.01.2015 21:12:19

Перейти

Поиск значения в ячейке А1 через Cells.Find

sku144

Пользователь

Сообщений: 19 Регистрация: 03.12.2014

20.01.2015 14:51:01

Привет. Никак не могу понять, как через Cells.Find найти значение в ячейке А1. Какой параметр надо указать в Cells.Find(After:=), чтобы поиск находил значнеие в А1 независимо от выделенной ячейки. Попробовал три возможных известных мне варианта, ни один не помогает.

Вот для примера макрос (лучше запускать пошагово через F8), который не может найти единицу в левом верхнем углу

Код

Sub TST () 
 
Range("A1") = 1
Range("B1") = 2
Range("C1") = 1
Range("A2") = 2
Range("B2") = 1
Range("C2") = 2

Range("A2").Select
Cells.Find(What:=1, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.Find(What:=1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.Find(What:=1, After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

End Sub

Перейти

Как в xlam копировать sheets из других документов через vba

sku144

Пользователь

Сообщений: 19 Регистрация: 03.12.2014

19.01.2015 15:23:08

Привет. Есть макрос (вот отсюда http://www.planetaexcel.ru/techniques/12/49/), который копирует содержимое двух эксель документов на текущую/активную/открытую (не знаю как правильно сказать) книгу.
Макрос в файле с расширением xlsm работает преотлично. Вот его код:

Код

Sub Opener(tStr)
FilesToOpen = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", MultiSelect:=True, Title:="Please choose donor's matrice"    
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No files chosen": End: End If
Set importWB = Workbooks.Open(Filename:=FilesToOpen(1))
Sheets().Copy Before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
importWB.Close savechanges:=False

FilesToOpen = Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", MultiSelect:=True, Title:="Please choose acceptor's matrice"    
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No files chosen": Exit Function: End If
Set importWB = Workbooks.Open(Filename:=FilesToOpen(1))
Sheets().Copy Before:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
importWB.Close savechanges:=False
End Sub

Когда я сохраняю этот документ в xlam, макрос перестает работать, и ругается, что
Method 'Copy' of object 'Sheets' failed
Судя по всему это из-за того, что сам XLAM не имеет активной книги.
Подскажите пожалуйста как заставить его работать в документе с XLAM.

Изменено: sku144 - 19.01.2015 16:13:40

Перейти