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

Страницы: 1 2 След.
Как сделать проверку: выходит картинка (объект shape) за границы ячейки?, объект shape
 
Заранее благодарю за ответ.
Выделить имя листа из адреса ясейки/диапазона VBA
 
Цитата
Пытливый написал: 1Range("A1").Parent.Name
Помогло, спасибо.
Parent - забыл , что есть такое.
Выделить имя листа из адреса ясейки/диапазона VBA
 
Не всегда имени листа бывают одинарные кавычки, поэтому этот способ не подходит
пример:
Код
'Лист1 (2)'!$A$1 и Лист3!$A$1:$H$142
Выделить имя листа из адреса ясейки/диапазона 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
 
спасибо, так все работает
не выводится на лист содержимое динамического массива vba
 
Результат тот же
не выводится на лист содержимое динамического массива 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.
помогает только если я завершаю процесс экселя.
В чем может быть причина?
UserForm - переход между рабочими книгами, когда данное окно открыто/активно
 
Уважаемые специалисты, добрый день!

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

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

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

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

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

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

Заранее благодарю.
Специальная вставка (приобразование текстовых значений в числовые) через умножения на "1" VBA
 
The_Prist,подскажите , пожалуйста, какой есть гарантированный способ преобразование текстовых значений в числовые?
Заранее благодарю.
Специальная вставка (приобразование текстовых значений в числовые) через умножения на "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


Заранее благодарю.
Просуммировать больщое кол-во столбцов
 
Спасибо, работает. Если не сложно, то можете пояснить: почему диапазоны смещены?
я не знал, что данная функция так может работать
Просуммировать больщое кол-во столбцов
 
вот файл
Просуммировать больщое кол-во столбцов
 
Магазин1 Магазин2 Магазин3 Магазин4 Магазин5
ИТОГкол-воср-ценацена поставкикол-воср-ценацена поставкикол-воср-ценацена поставкикол-воср-ценацена поставкикол-воср-ценацена поставки
Поставщики 549211922101084161
Поставщик1 29111471119951127
Поставщик2 10241031118117111292
Поставщик3 42439468111105611
Поставщик4 6972689310522234
Поставщик5 105153979421041023
Поставщик6 5143521141154957
Просуммировать больщое кол-во столбцов
 
Добрый день , уважаемые формучани!
Мне  необходимо  просуммировать большое количество столбцов.  
Данных имеют следующий формат: кол-во и руб. и так по 96 магазинам по столбцу.
Есть ли способ быстро и правильно все сложить ( кол-во* руб+ кол-во* руб+ следующий магазин и тд.)

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