Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » sku144
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сбиваются настройки разрешения защиты листа, Макрос VBA
 
#
01.02.2015 03:25:51
Цитата
shylo пишет: чекбоксы устанавливаются в две верхних позиции
Я извиняюсь, а сколько у чекбоксов позиций вообще бывает?
 
Перейти    
Поиск двух одинаковых значений в двух разных столбцах, найти и подставить нужную цену по этому значению
 
#
01.02.2015 03:22:47
Цитата
juk2000 пишет: так вот мне нужно чтоб автоматом в столбец В подставилась цена со столбца D
Отсортируйте столбец С по названию товаров (с расширением выделенного диапазона). В столбце С получится сортировка как в столбце А с ценами из столбца D.
 
Перейти    
Как получить доступ к шрифтам VBE через VBA
 
#
31.01.2015 02:22:01
Сделать правку в реестре.. гениально!

Владимир, спасибо Вам огромное!
 
Перейти    
Как получить доступ к шрифтам VBE через VBA
 
#
31.01.2015 00:25:34
У нас эксель не русифицированный. А шрифт очень даже сохраняется, но беда в том, что это надо провернуть на каждом компьютере потенциального пользователя, что возможным не представляется.
 
Перейти    
Как получить доступ к шрифтам VBE через VBA
 
#
30.01.2015 23:52:06
Юрий М, у меня много кода с достаточно хорошими комментариями на кириллице. Дефолтная настройка VBE имеет шрифт, который кириллицу представляет крокозябрами. Появилась необходимость выдать макросы в массы, а масса хочет читать кириллические комментарии. Вместо того, чтобы объяснять массе простую последовательность действий по смене шрифта, заморочился подменой шрифтов VBE при старте автоматом.
 
Перейти    
Как получить доступ к шрифтам VBE через VBA
 
#
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
 
Перейти    
Команда: End(xlDown) выдает ошибку! Причины?
 
#
30.01.2015 17:22:04
Na vkladke "Zakaz" kuda dolzhny byt' vstavleny skopirovannye dannye? Tak ne prokatit?
Код
Sub SPD32_Zakaz()
Selection.Copy
Sheets("Заказ").Select
Cells(1,1).Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1,0).Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
End Sub
Изменено: sku144 - 30.01.2015 21:10:44
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 17:38:52
Alexander88, да, вот оно решение, СПАСИБО!
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 17:21:04
The_Prist, да, такой вариант я предлагал уже выше, и, видимо, это единственно возможный вариант с этим грешным способом, спасибо.
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 17:17:41
Alexander88, а в чем смысл извращения, когда мы говорим ищи во всях ячейках на листе, а потом ограничиваем поиск? А диапазона точного, я кстати, не знаю, да и не хочу лишним кодом утруждать эксель выискивать нужный диапазон, когда надо всего лишь понять, как правильно прописать значение аргументов для Cells.Find
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 16:56:40
Имеем три единицы на листе - на А1, на B2 и на C1

Alexander88, почему-то находит на C1 игнорируя А1. То же самое, как если бы мы не указывали где искать. Майкрософт говорит про аргумент After:
If you do no specify this argument, the search starts after the cell in the upper-left corner of the range.

Юрий М, все мы знаем про TMTOWTDI, и то что вы предложили - безусловно хорошая альтернатива. можно даже забить на первую ячейку, и перед поиском тупо проверить ее IFом на наличие искомого значения. Но почему, черт побери, почему Cells.Find, который нам так любезно предлагает макрорекордер, не может захватывать первую ячейку из диапазона?
Изменено: sku144 - 20.01.2015 17:58:40
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 16:44:34
Юрий М, Если поставить курсор в ячейку А1, то будет выделена другая ячейка со значением 1, в то время, как нам надо подсветить первое встреченное, а не второе.

Максим Зеленский, мы ищем по всем ячейкам на листе. когда курсор находится на А1, Cells.Find показывает второе найденное знчение в какой-то другой ячейке
Изменено: sku144 - 20.01.2015 16:48:35
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 16:17:52
аа,  "Rng.Select", я его вставлял после "Range("A1" ;)  .Find(what:=1, LookIn:=xlValues, lookAt:=xlWhole)"
Юрий М, спасибо, но, как бы то ни было, вопрос про Cells.Find актулаен.
Изменено: sku144 - 20.01.2015 16:30:27
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
20.01.2015 15:43:52
Код
Set Rng = Range("A1".Find(what:=1, LookIn:=xlValues, lookAt:=xlWhole)

Спасибо, Юрий М, а как предложенной конструкцией выделить найденное? .Select или .Activate не работает

И можно ли решить поставленную задачу через Cells.Find
 
Перейти    
Поиск значения в ячейке А1 через Cells.Find
 
#
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
 
#
20.01.2015 10:11:48
на самом деле отрываемые файлы - csv
 
Перейти    
Как в xlam копировать sheets из других документов через vba
 
#
19.01.2015 16:40:52
Да, перед началом макроса добавить такую штуку надо Workbooks.Add. Leanna, спасибо!
 
Перейти    
Как в xlam копировать sheets из других документов через vba
 
#
19.01.2015 16:40:07
Leanna, tstr - рудимент, оставшийся после экстракции кода для вопроса, не обращайте внимания.

Сделал изменения согласно Вашей рекомендации. Стало выдавать ошибку
Run-time error '91'
Object variable or With block variable not set
XLAM-файлы вообще по-моему запускаются без какой-либо книги или она там скрытая висит.
 
Перейти    
Как в xlam копировать sheets из других документов через vba
 
#
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
 
Перейти    
Страницы: 1
Наверх