Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как сделать проверку: выходит картинка (объект shape) за границы ячейки?, объект shape
 
Заранее благодарю за ответ.
Выделить имя листа из адреса ясейки/диапазона VBA
 
есть текстовая переменная , где хранится данное значение ('Лист3!'$A$1:$H$142 ). Как выделить корректное имя листа из этого адреса или из переменной Range.?

если есть иной способ, подскажите.

Заранее благодарю за ответ.
Application.InputBox - работа не только по листам но и по книгам.
 
Application.InputBox("test", Type:=8)

Уважаемые специалисты, добрый день!

Есть ли способ заставить Application.InputBox работать не только по листам откуда запускается сам макрос. но и с другими книгами?
Или какой нибудь другой способ, но с возможностью выбора пользовательского  диапазона с листов и других книг.

Заранее благодарю за ответы.
создание динамической диаграммы в excel по данным с разных листов
 
Уважаемые специалисты, добрый день!

ни как не могу сделать следующее.

Нужно выбрать имя листа из выпадающего списка и тем самым шло построения графики из выбранного листа

пробовал  следующее СМЕЩ(ДВССЫЛ(ДВССЫЛ("Лист1!"&"L12") &"!A1");1;1;;12) в разных вариациях, через именованные диапазоны, но пишет ошибку и всё.

Есть ли способ как то сделать построение графика через выпадающий список, он же имя листа, где расположены данные для графика

Заранее благодарю
ошибка при формировании двухмерного динамического массива
 
Выдает ошибку при заполнение массива    
Код
For i = 1 To 6 'перебираю строки на листе
        ReDim Preserve aMas(1 To i, 1 To 2)

        aMas(i, 1) = Cells(i, 1) ' запись в первую колонку
        aMas(i, 2) = Cells(i, 1).Row  ' запись во вторую колорку   
Next i

в чем может быть проблема?
не выводится на лист содержимое динамического массива vba
 
Добрый день, уважаемые специалисты!

У меня проблема  с выводом в нужный диапазон содержимого динамического массива .
Массив заполнен нужными данными, но выводит только 1 элемент массива
Код
 Range(Cells(30, 1), Cells(30 + UBound(bMas), 1)).Value = bMas()

Массив динамический
Код
                        ReDim Preserve bMas(0 To z)
                        bMas(z) = Cells(c.Row, c.Column + 5)
                        z = z + 1

в чем может быть проблема?
UserForm - переход между рабочими книгами, когда данное окно открыто/активно
 
Уважаемые специалисты, добрый день!

Подскажите , пожалуйста, как при активном окне UserForm , можно переходить на другие рабочие книги или листы?
Как вывести на экран 2 окна одновременно и более типа inputbox , "как в окне "мастер функци"
 
хотелось бы получить окно что то вроде "мастера функций" чтобы выводилась на экран одновременно несколько полей для ввода  

А то вывод по 1 окну inpubox на экран как то неудобно.

Если есть иные способы, то подскажите, пожалуйста.
перенос значений в ячейку из "Поле" объект управления Актив Х
 
Добрый день, уважаемые специалисты!

Как перенести значение из поля Актив Х в ячейку.
Заранее благодарю.
Как сделать так, чтобы при frame1.Enabled.False, всем подчиненным объектам присваивался статус .False,?
 
Как сделать так, чтобы при frame1.Enabled.False, всем подчиненным объектам присваивался статус .False,?
Заранее благодарю.
Групповая блокировка/ снятие блокировки ListBox1 и OptionButton3 при нажатии ToggleButton1
 
Добрый день, уважаемые специалисты!

Есть ли способ  блокировать разнородные объекты :  ListBox1, OptionButton3 и тд, например, на Frame1 при активации кнопки ToggleButton?
Если нет, то предложите, пожалуйста, свой вариант. А то по одному блокировать, получится большой код.

Заранее благодарю.
Специальная вставка (приобразование текстовых значений в числовые) через умножения на "1" VBA
 
Уважаемые специалисты, добрый день!

у меня есть вот такой блок.
Вопрос: можно ли как то обойтись без создания значения Cells(1, 25) = 1,  Cells(1, 25).Copy что бы потом перемножить?
выражение Range(Cells(1, k2), Cells(lLastrow, k2)).value= Range(Cells(1, k2), Cells(lLastrow, k2)).value  не всегда преобразовывает текстовые значения в числовые. а через спецставку всегда.  

Код
If Workbooks(oBookVBA).Sheets(shSheets).Cells(rFindTT.Row, 9) <> "нет" Then 'преобразовать данные в числовые значения

k2 = Range(Workbooks(oBookVBA).Sheets(shSheets).Cells(rFindTT.Row, 9)).Column
    Cells(1, 25) = 1
    Cells(1, 25).Copy
    Range(Cells(1, k2), Cells(lLastrow, k2)).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
    Cells(1, 25) = ""
End If


Заранее благодарю.
Просуммировать больщое кол-во столбцов
 
Добрый день , уважаемые формучани!
Мне  необходимо  просуммировать большое количество столбцов.  
Данных имеют следующий формат: кол-во и руб. и так по 96 магазинам по столбцу.
Есть ли способ быстро и правильно все сложить ( кол-во* руб+ кол-во* руб+ следующий магазин и тд.)

заранее благодарю за ответ.
как вытащить текс из ВНЕДРИТЬ("Word.Document.12";"") с помощью VBA
 
Есть данные в вордовском документе, но вся информация разбита по "рамкам" и из за этого не удается скопировать данные в ексель в том виде в котором они в источнике (вордовском документе). можно скопировать через специальную вставку, но всё равно скопировать нормально не получается. Пример прилагаю.
Заранее благодарю за решение вопроса или за совет.
Получения настройки сводной таблицы с помощью VBA
 
Вопрос: возможно ли определить с помощью VBA как расположены поля в сводной таблице и их свойства (настройки. например: в поле данные отображать сумму чисел или показывать подитоги).
Заранее благодарю за ответ.
Условное форматирование по нескольким условиям макросом, упростить код VBA
 
Уважаемые специалисты Екселя, добрый день/вечер !

Есть ли способ как-нибудь упростить код или как нить иначе написать, а то он очень большой. Файл прилагаю.
Заранее спасибо за ответ.
Страницы: 1
Наверх