в xl всё понятно: ИСТИНА=1 а ЛОЖЬ=0
а в vba TRUE=-1 ???
попробовал:

или

почему так? где про это можно почитать?

Здравствуйте.

У меня 2010. Я создал новую вкладку, в ней новую группу, и поместил туда 4 команды (см. скрин)

 1) Как сделать так, чтобы эти команды распологались на ленте не в одном ряду, а как бы ввиде «+» (как клавиши джойстика), или друг над другом, или в два ряда, и т.д. и т.п.

     Осуществимо ли это средствами Excel’я и VBA?

 2) Как видите, две стрелки одинакового вида, а две другие другого вида.
В готовом наборе рисунок (Настройка ленты --> Встать на команду --> Переименовать --> (выскочет набор рисунок)
Нету 4-х одинаковых стрелок, указывающих на 4 стороны.

      Можно ли добавить в этот набор рисунок свои рисунки или можно ли к своим добавленным командам прикрепить свои рисунки? (Опять же с помощью Excel’я и VBA)

Здравствуйте.
Вопрос в примере.
Можно ли написать формулу короче чем моя?

Помогите пожалуйста,
Создаю новый файл .txt
Пишу в нём текст на кириллице и текст на латинице.
Копирую текст с .txt и вставляю в Excel ---> всё нормально

Копирую текст с .txt и вставляю в модуль ---> латиница нормально, а вся кириллица вставляется как ?????? ???? ????

Или с сайта чё-то копирую и вставляю в модуль ---> те же проблемы

Application.OnKey "^%{PLUS}" и Application.OnKey "^%{+}" не работают
???

в приложенном примере часть сообщения можно отобразить/скрыть кнопкой +/-

как можно скрыть часть сообщения?

Здравствуйте,
Помогите пожалуйста, нужен макрос закрашивания:
Я выделяю диапазон и запускаю макрос
Через Application.Inputbox я показываю на нужный столбец
Теперь, внутри выделенного диапазона строчки одна за другой должны быть закрашены в два цвета: желтый и зелёный

Принцип закрашивания:
Пока не меняется значение сверху вниз в нужном столбце, строчки закрашиваются в один цвет.
Как значение поменялось, строки закрашиваются в другой цвет
И так до следующего случая, когда значение поменяется.

Как пример того, что мне нужно: В приложенном файле 2 листа: «что есть» и «что надо» - там нужный столбец значений – это столбец «F»
В реале мне не надо 2 листа, таблица должна быть закрашена на месте (2 листа в примере – это для наглядности)
Диапазон может находиться где угодно и может быть любых размеров

До запуска макроса я сам выделяю нужный диапазон и после начала работы макроса подсказываю ему нужный столбец значений

Я остановился здесь:

Sub fff()
Dim q As Range, r As Range
Set q = Application.InputBox("prompt", , , , , , ,  8)
Set r = Intersect(Selection, q.EntireColumn)
r.Columns(1).Interior.Color = 13434879
For s = 2 To Selection.Rows.Count
If r.Cells(s).Value = r.Cells(s).Offset(-1).Value Then Selection.Rows(s).Interior.Color = Selection.Rows(s).Offset(-1).Interior.Color
...
...
Не додумаюсь как менять цвет с желтого на зелёный (Как-то через переменную типа Boolean что-ли…)

Здравствуйте,
Имеется большая книга с данными на 120 000 строк Х 15 столбцов
В ней 3-м диапазонам я присвоил имена:
I5:I120000 Код
F5:F120000 МФО
K5:K120000 Сумма

В другой маленькой книге, в диапазоне на 36 строк Х 6 столбцов, на 216 ячееек, я написал формулу:
=СУММПРОИЗВ(--('D:\A\01-10111.xlsb'!МФО=$A15);--('D:\A\01-10111.xlsb'!Код=E$3);'D:\A\01-10111.xlsb'!Сумма)

Обе книги находятся на D диске в папке А, и оба имеют формат .xlsb
Теперь, при попытке сохранить маленькую книгу с формулами (при этом другая (большая) книга закрыта) выдаёт сообщение (смотрите прилагаемый скрин)

Я нажимаю ДА и закрываю книгу.
Вроде всё нормально работает, правильно считает, но надоело это сообщение.

Как от неё избавиться?

FileCopy "D:\Д.xls", "D:\Ж.xls" не спрашивает подтверждения замены файла, даже когда на D диске есть другой файл Ж.xls?
1) как сделать чтобы спрашивало?
2) какая команда вырезает файл и вставляет в другое место?

Здравствуйте.

в папке есть много файлов EXCEL:

акт Ярославль.xls
акт Москва.xls
акт Ленинград.xls
акт Уфа.xls
...
...
акт Урал.xls
___________________________________________

Надо чтобы их имена стали:

заключение по акту Ярославль.xls
заключение по акту Москва.xls
заключение по акту Ленинград.xls
заключение по акту Уфа.xls
...
...
заключение по акту Урал.xls
___________________________________________

Нужен макрос, который бы выполнил задачу не открывая эти книги.

ЭКСЕЛЬ 2010-й.

Файл --> Параметры --> Дополнительно --> Ставлю галочку на "Плавная вставка и удаление ячеек"
Работает.

Закрываю и заново открываю ЭКСЕЛЬ
Не работает. (Поставленная галочка куда-то самоудалилась)

Раньше такой проблемы не было. Сегодня мне поставили интернет, урезали разные права (например пропал доступ к некоторым системным папкам). Зачем-то переустановили Офис. (И до и после у меня был и есть 2010)

А теперь появилась такая проблема. помогите пожалуйста.(с другими командами всё нормально например "Звуковое сопровождение событий" или "Запрашивать об обновлении автом.связей"

Здравствуйте.
При помощи Msgbox’а я хочу вывести на окно сообщения данные с активного листа, в виде таблицы вот таким кодом:

Sub ffff()
q = ActiveSheet.UsedRange.Value
For C = 1 To UBound(q, 1)
For R = 1 To UBound(q, 2)
ww = ww & vbTab & q(C, R)
Next R
ee = ee & vbCr & ww
ww = ""
Next C
MsgBox ee, vbMsgBoxRight
End Sub

Но, в окне данные выровнены по левому краю (хотя я написал vbMsgBoxRight)
Скрин окна прилагаю

Можно ли выровнить данные по правому краю? Или по центру?

Здравствуйте.
В диске D в папке «FR» есть несколько книг Excel (книги могут называться по-разному и количество книг тоже меняется время от времени)
Вкаждой из них имеется строго по одному листу (листы могут называться по-разному)
В каждом из этих листов в столбце C имеются данные разной величины (может C1:C10 а может C1:C80 может даже C1:C1)

На рабочем столе создаём новую пустую книгу «БАЗА.xls» с одним листом

Как сделать так, чтобы все данные со столбцов C книг, указанных выше, записались один за другим на столбец A вновь созданной книги «БАЗА.xls» ?

То есть:
в диске D в папке «FR»1-я книга имеет данные в С1:C10 ----->>> они должны записаться в A1:A10 книги «БАЗА.xls»
в диске D в папке «FR» 2-я книга имеет данные в С1:C80 ----->>> они должны записаться в A11:A90 книги «БАЗА.xls»
в диске D в папке «FR» 3-я книга имеет данные в С1:C1 ----->>> они должны записаться в A91:A91 книги «БАЗА.xls»
и так далее

При этом не имеет разницы каким образом макрос будет перебирать книги папки «FR», главное просто тупо собрать данные

ЗЫ-на всякий случай прилагаю - примерно так выглядят книги папки «FR»

Здравствуйте.  
У меня 2010.  
Имеется книга, в которой есть формулы со ссылками на другие книги.  
 
Как программно разорвать все эти связи, и чтобы на ячейках с формулами оказались их значения?

Здравствуйте,  
 
в D диске есть папка W, а в ней файлы: Форма.xls, 01.07.2012.xls, 02.07.2012.xls, 03.07.2012.xls, ... и так до 31.07.2012.xls  
 
на ячейке A1 листа "ФФ" книги "Форма.xls" должна стоять формула ='D:\W\[01.07.2012.xls]xx'!D4
на ячейке A2 листа "ФФ" книги "Форма.xls" должна стоять формула ='D:\W\[02.07.2012.xls]xx'!D4
на ячейке A3 листа "ФФ" книги "Форма.xls" должна стоять формула ='D:\W\[03.07.2012.xls]xx'!D4
...  
на ячейке A31 листа "ФФ" книги "Форма.xls" должна стоять формула ='D:\W\[31.07.2012.xls]xx'!D4
 
сейчас во все 31 ячейки диапазона A1:A31 формулы пишутся вручную.  
 
Можно ли написать формулу один раз для одной ячейки, и протянуть её на весь диапазон? (через ДВССЫЛ или как?)

Есть некий диапазон Х, как узнать входит ли активная ячейка в этот диапазон?  
 
Например, при запуске макроса, если активная ячейка находится за пределами диапазона Х, макрос должен остановить работу (Exit Sub), а если активная ячейка находится внутри диапазона Х, то он должен работать дальше.

Здравствуйте,  
как узнать столбец активной ячейки (ввиде буквы)?  
 
то есть нужен такой макрос:  
 
стоим на определенной ячейке  
запускаем макрос  
в результате нам даётся сообщение: "Столбец активной ячейки - W"  
 
заранее спасибо

чё-то никак не получается...  
 
У меня 2010 русифицированная  
 
Допустим скопирован какой-то диапазон.  
 
Как через SENDKEYS осуществить команду "Специальная вставка-Вставка значений"

хотел написать код, который должен:  
 
если на листе нету защиты ---->> он должен поставить защиту  
если на листе стоит защита ---->> он должен снять защиту  
 
типа так:  
 
if "на листе стоит защита" then activesheet.unprotect else activesheet.Protect DrawingObjects:=True, Contents:=True  
 
 
А как узнать стоит ли на листе защита?

У меня 2010  
 
В ЭтаКнига есть такой код:  
Private Sub Workbook_Open()  
Application.OnKey "%{p}", "qqq"  
End Sub  
 
А в стандартном модуле такой:  
Sub qqq()  
MsgBox 1  
End Sub  
 
Открываю книгу, нажимаю [ALT]+[P]
макрос не работает  
 
поменял на Application.OnKey "%{r}", заработало.  
 
Подумал, что макросы можно вешать через OnKey на [ALT] + [Любая буква], только за исключением Ф,Я,С,З,Л,Ы,Р,О,Ч,Н (то есть латинские A,Z,C,P,K,S,H,J,X,Y)
 
Так как, эти буквы зарезервированы для доступа на ленту через клавиатуру.  
 
Скажите пожалуйста, правильно ли моё предположение?

Здравствуйте, в другой теме SVA помог составить формулу.  
 
А элесь условия задачи отличаются от той.  
 
Вопрос в примере, желательно чтобы формула работала с данными из другой ЗАКРЫТОЙ книги, без макросов и доплнительных ячеек  
 
Спасибо заранее

Здравствуйте, помогите написать формулу.  
 
Желательно чтобы формула умела тянуть данные из другой ЗАКРЫТОЙ книги.  
 
Если можно без макросов и без дополнительных столбцов/строк/ячеек.  
 
P.S.Вопрос в примере

если в книге есть имена (константы или формулы или диапазоны), то их можно скрыть/отобразить с помощью макроса  
 
вопрос: можно ли скрыть/отобразить имена стандартными средсвами (без макросов)?

Задумайте число от 1 до 1 000 000  
В приложении книга XL, которая задаст Вам 20 вопросов.  
Если ответите на вопросы правильно, после 20-ответа он угадает задуманное Вами число  
 
Попробуйте пожалуйста и напишите если обнаружите ошибки в его работе

Вопрос собственно в примере.  
 
P.S.Без макросов, без макрофункций и без дополнительных столбцов пожалуйста.  
 
P.P.S.Формула должна быть протягиваема сверху вниз.

есть макрос сохранения активной книги на рабочий стол  
 
ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\Admin\Рабочий стол\Книга1.xls", FileFormat:= xlNormal  
 
он не будет работать в другом компе если там наименование пользователья не Admin  
 
как надо писать чтобы работало во всех компах?

Такая хотелка:  :-)  
 
В диске D будет файл МФО.xls  
Он двухстолбный, а строк у него больше 1000  
Время от времени добавляются ещё строки  
Столбец №1 - код клиента  
Столбец №2 - наименование клиента  
 
Хочется:  
UDF МФО(клиент)  
Когда я в любой книге в какую-нибудь ячейку пишу =МФО(W5)  
 
То:  
XL должен взять из ячейки W5 код  
Посмотреть в книгу МФО.xls, которая лежит себе в диске D  
Найти там в Столбце №1 этот код  
Взять рядом со Столбца №2 - Наименование клиента  
 
И:  
Дать мне результат  
 
То есть нужен типа такой код:  
function мфо(клиент)  
мфо=worksheetfunction.vlookup(клиент, range("D:\[МФО.xls]Лист1!A1").currentregion, 2, false)
end function  
 
Я знаю, что этот код напичкан неправильностями, :-)  
написал её тут исключительно для того, чтобы мой вопрос был более понятен.  
 
Вопроc: Можно ли написать такую UDF?  
 
P.S. Сейчас я пользуюсь кодом, где в теле UDF перечислены все элементы массива (больше тысячи). Неудобность в том, что при добавлении нового клиента каждый раз приходится менять код UDF.  
А так, если можно осуществить задуманное, я добавлял бы клиентов в книгу D:\МФО.xls и она служила бы как бы базой данных для UDF МФО(клиент)  
 
Ведь добавлять код и наименование клиента в книгу XL гораздо удобнее, чем в код UDF

В Word’е имеется такая возможность:  
 
Когда меняешь шрифт текста, в списке сначала стоят 10 последних использованных шрифтов, а потом уже по алфавиту все шрифты. (скрин прилагаю)  
 
А в Excel’е не так, там только все шрифты по алфавиту.  
 
Можно ли сделать такое в 2010-м EXCELе?  
А в 2003-м?

Здравствуйте,  
На стандартной панели Excel'я есть команды:  
"Увеличить разрядность"  
"Уменьшить разрядность"  
(скрин прилагаю)  
 
какой код надо написать, чтобы VBA выполнил эти команды?  
 
P.S. У меня 2010  
 
P.P.S. Пробовал типа:  
Application.Commandbars("cell").controls......execute  
не получается

Здравствуйте, можно ли осуществить такое?  
 
Есть лист, в нём:  
 
Столбец А Столбец В  
Строка 1  
Строка 2 4141  
Строка 3 Парта  
Строка 4  
Строка 5 9977  
Строка 6  
Строка 7 Сигареты = ‘Здесь нужна формула, которая должна дать номер строки 3-й пустой ячейки в столбце А  
(6)  
 
 
Какую формулу надо написать в ячейку B7, чтобы получить номер строки 3-й пустой ячейки в столбце А ?  
 
При правильном решении формула должна дать результат 6   (номер строки ячейки A6)  
 
P.S. Можно ли написать такую формулу, не пользуясь макросами и UDF?