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

Страницы: 1 2 След.
Кнопка "Доступ к книге" неактивна.
 
Через макрос сделала книгу в общий доступ,  а обратно макросом никак(
К сожалению нету интернета и внешней связи на работе,  не могу файл-пример приложить.
Это совсем неизвестная проблема?  
Кнопка "Доступ к книге" неактивна.
 
Добрый день!
Не могу сделать общий доступ к книге,  так как кнопка рецензирование-доступ к книге серая=неактивна.
В других файлах,  такого сбоя нет.  
Как отобразить боковую панель "Запросы книги"?, панель справа
 
Нашла)
В 2016 это меню "Данные" - "Показать запросы".
Как отобразить боковую панель "Запросы книги"?, панель справа
 
Добрый день!
Подскажите пожалуйста как отобразить панель слева для запрсов (Power Query)?
Она обычно сама вылезает, когда я встаю на ячейку с таблицей, а я её скрыла (нажала на крестик) а как отобразить не знаю, а сама она больше не появляется.
VBA как проверить сколько строк отобразил фильтр?
 
Нет, фильтр по нескольким полям в рабочем файле.
VBA как проверить сколько строк отобразил фильтр?
 
А у меня на ноль записей и на одну запись ставит единицу. Вот пример прикрепила. Если будет ноль записей у меня другая обработка должна пойти, т.е. важно отличать.
VBA как проверить сколько строк отобразил фильтр?
 
Добрый день!

Есть автофильтр примененный к таблице. Макросом фильтрую данные.
Как мне узнать сколько значений (=строк) отобразилось автофильтром?
Может отобразилась одна-две а может ноль. Нужна цифра отображенных строк.
Применен фильтр или нет, как определить в VBA?, отфильтрован ли диапазон
 
Спасибо!!
Код
ActiveSheet.AutoFilter.FilterMode
делает именно то что надо!
Применен фильтр или нет, как определить в VBA?, отфильтрован ли диапазон
 
Есть ли возможность в VBA определить применен ли фильтр в столбце?
Именно не установлен, а отфильтрован ли диапазон или нет сейчас.
Т.е. хоть в одном столбце стоит фильтр.
Создание нового массива в цикле., пишет ошибку
 
Код
Sub test()
Dim arr() 'добавила
Set dic = CreateObject("Scripting.Dictionary")
For i = 2 To 9 'перебираем строки-клиентов
distr = Cells(i, 1).Value
    For j = 2 To 8 'перебираем столбцы-артикулы
    sku = Cells(1, j).Value
        If Cells(i, j).Value > 0 Then
        If dic.exists(distr) Then
            arr = dic.Item(distr)
            arr(0) = arr(0) & "|" & sku
            arr(1) = arr(1) & "+" & Cells(i, j)
            dic.Item(distr) = arr
        Else
            ReDim arr(0 To 1) ' добавила
            arr(0) = sku
            arr(1) = Cells(i, j)
            dic.Item(distr) = arr
        End If: End If
    Next
Next
End Sub
Я кажется нашла решение добавив
Dim arr() и
ReDim arr(0 To 1)
Создание нового массива в цикле., пишет ошибку
 
Здравствуйте,
Помогите найти правильно решение и ошибку
Мне надо на выходе получить словарь в котором был бы массив arr(0 to 1)
в arr(0) надо скопить все скю где есть цифра, в arr(1) - цифры для формулы, т.е. для клиент 1: arr(0) артикул1|артикул4|артикул 6 ; arr(1) 1+2+6

Я написала функцию, у меня загвоздка с объявлением массива в цикле - там выходит ошибка.
Т.е. когда появляется новый клиент значение в arr должно обнуляться - это уже новый массив.
Код
Sub test()
Set dic = CreateObject("Scripting.Dictionary")
For i = 2 To 9 'перебираем строки-клиентов
distr = Cells(i, 1).Value
    For j = 2 To 8 'перебираем столбцы-артикулы
    sku = Cells(1, j).Value
        If Cells(i, j).Value > 0 Then
        If dic.exists(distr) Then
            arr = dic.Item(distr)
            arr(0) = arr(0) & "|" & sku
            arr(1) = arr(1) & "+" & Cells(i, j)
            dic.Item(distr) = arr
        Else
            Dim arr(0 To 1)
            dic.Item(distr) = arr
        End If: End If
    Next
Next
End Sub
ДВССЫЛ не работает если лист содержит знак "-"
 
Сергей, Казанский,Спасибо вам большое!!!
ДВССЫЛ не работает если лист содержит знак "-"
 
Имеется лист "ЛИСТ-1"
Формула =ДВССЫЛ(A2&"!A1") не работает. (A2-в ячейке прописано название листа.)
Как правильно прописать формулу?
Пример прилагаю.
Как вызвать функцию имя которой в переменной?
 
я наверное не очень хорошо объясняла, извините
разобралась, мне нужен был application.run я только думала он только с sub работает
Код
Sub test()
func = [A1].Value
f = Application.Run(func, [A1])
End Sub
Изменено: Галина - 06.07.2016 11:53:13
Как вызвать функцию имя которой в переменной?
 
Здравствуйте!

Есть например две функции CellColor и CellFontColor, в зависимости от условия в главной Sub надо применить то одну то другую (в реальности функция выбирается в userform). То есть в переменной func оказывается то CellColor то CellFontColor. Как мне запустить функцию название которой находится в переменной?

файл прилагаю, но там ничего нет кроме CellColor и CellFontColor потому что решения не знаю.
Как передать результат расчета формулы минуя ячейку
 
Бахтиёр, очень здорово! А я думала что weekday тут не применить, потому что вс=0 не сконвертировать в семерку (по простому)
Как передать результат расчета формулы минуя ячейку
 
Слэн,вот такая картинка от этого кода
Как передать результат расчета формулы минуя ячейку
 
Слэн,этот вариант мне в d записывает текст формулы, а не значение 2. А так интересно было бы... если бы значение выдавало.
Как передать результат расчета формулы минуя ячейку
 
Catboyun, спасибо большое! мне это подходит! именно так и надо, что бы сразу в переменную записать
Как передать результат расчета формулы минуя ячейку
 
Юрий М, она будет в коде VBA
я же могу записать
Код
Sub test()
Range("A1").FormulaLocal = "=ДЕНЬНЕД(СЕГОДНЯ();2)"
End Sub
только я хочу не записывать в ячейку А1, а сразу в переменную и использовать дальше в коде саму переменную
Как передать результат расчета формулы минуя ячейку
 
Слэн,нет, мне нужно именно через VBA решение. О формулах в диспетчере имен слышала, но не осваивала.

арех, я не очень знаю как пример состряпать это должно происходить виртуалдьно в памяти компьютера, это равнозначно что я бы стросила как вычислить максимальное значение у 5, 8, 19 и ответом было бы application.max(5,8,19). Вот мне нужно аналогичное, только для формулы, я только max min и знаю пока
Как передать результат расчета формулы минуя ячейку
 
Извините я не сказала что это в VBA.
FormulaLocal мне запишет в ячейку, а мне надо в переменную
Как передать результат расчета формулы минуя ячейку
 
Здравствуйте!

Есть формула =ДЕНЬНЕД(СЕГОДНЯ();2), что бы получить её значение (для сегодня - вторник это = 2) мне надо записать её в ячейку и взять из ячейки значение.
Можно ли как то сразу в переменную получить значение этой этой формулы - не вставляя в ячейку?

Иногда идентичные задачи возникают и с другими формулами - ВПР и прочее.

Подскажите пожалуйста решение для кода VBA.
Изменено: Галина - 28.06.2016 15:31:09
Как использовать udf из другой книги?
 
Hugo,спасибо и вам, очень дельный совет, очень удобно так.
Как использовать udf из другой книги?
 
The_Prist,и снова вы меня спасаете!
Да, знаю про надстройки, нужно было именно так решить задачку.

Спасибо!
Изменено: Галина - 22.06.2016 11:24:30
Как использовать udf из другой книги?
 
Добрый день!

Как использовать udf из другой книги?
Предполагала что должно быть так:
Код
=fn.nomerlista(A1)
но мне пишет ошибку #ИМЯ
(функция по номеру листа должна выдать его имя)
VBA. Как найти адрес ячейки на пересечении двух выделений
 
The_Prist,Спасибо большое!!! Это то что надо! Пойду прикручивать)
VBA. Как найти адрес ячейки на пересечении двух выделений
 
Добрый день!
На момент запуска макроса имеется выделение, как например на картинке.
Каким кодом можно определить адрес ячейки на пересечении? Т.е. С5 - здесь на картинке.
нет Power Pivot в Excel 2013
 
Спасибо большое за подсказки.
Но, правда, мне не удалось подцепить скачанную по ссылке Андрей VG - Power Pivot, тоже самое пишет что и в том посте. Жаль. Хотя у меня 64х Excel.
нет Power Pivot в Excel 2013
 
Здравствуйте,

Я хочу попробовать надстройку Power Pivot. У меня Excel 2013 (версия для дома и бизнеса). Но в надстройках нет Power Pivot для установки. Power map есть, power pivot нет.

Подскажите пожалуйста что можно сделать что бы она появилась? И если скачать то откуда, смогла только на 2010 найти что-то но видимо не то.
Страницы: 1 2 След.
Наверх