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

Страницы: 1
Кнопка "Доступ к книге" неактивна.
 
#
21.08.2019 12:19:56
Добрый день!
Не могу сделать общий доступ к книге,  так как кнопка рецензирование-доступ к книге серая=неактивна.
В других файлах,  такого сбоя нет.  
 
Перейти    
Как отобразить боковую панель "Запросы книги"?, панель справа
 
#
11.04.2017 13:17:52
Добрый день!
Подскажите пожалуйста как отобразить панель слева для запрсов (Power Query)?
Она обычно сама вылезает, когда я встаю на ячейку с таблицей, а я её скрыла (нажала на крестик) а как отобразить не знаю, а сама она больше не появляется.
 
Перейти    
VBA как проверить сколько строк отобразил фильтр?
 
#
24.03.2017 12:43:35
Добрый день!

Есть автофильтр примененный к таблице. Макросом фильтрую данные.
Как мне узнать сколько значений (=строк) отобразилось автофильтром?
Может отобразилась одна-две а может ноль. Нужна цифра отображенных строк.
 
Перейти    
Применен фильтр или нет, как определить в VBA?, отфильтрован ли диапазон
 
#
01.02.2017 16:08:11
Есть ли возможность в VBA определить применен ли фильтр в столбце?
Именно не установлен, а отфильтрован ли диапазон или нет сейчас.
Т.е. хоть в одном столбце стоит фильтр.
 
Перейти    
Создание нового массива в цикле., пишет ошибку
 
#
27.01.2017 11:38:24
Здравствуйте,
Помогите найти правильно решение и ошибку
Мне надо на выходе получить словарь в котором был бы массив 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
 
Перейти    
ДВССЫЛ не работает если лист содержит знак "-"
 
#
10.01.2017 12:05:00
Имеется лист "ЛИСТ-1"
Формула =ДВССЫЛ(A2&"!A1") не работает. (A2-в ячейке прописано название листа.)
Как правильно прописать формулу?
Пример прилагаю.
 
Перейти    
Как вызвать функцию имя которой в переменной?
 
#
06.07.2016 11:35:21
Здравствуйте!

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

файл прилагаю, но там ничего нет кроме CellColor и CellFontColor потому что решения не знаю.
 
Перейти    
Как передать результат расчета формулы минуя ячейку
 
#
28.06.2016 15:25:06
Здравствуйте!

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

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

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

Как использовать udf из другой книги?
Предполагала что должно быть так:
Код
=fn.nomerlista(A1)
но мне пишет ошибку #ИМЯ
(функция по номеру листа должна выдать его имя)
 
Перейти    
VBA. Как найти адрес ячейки на пересечении двух выделений
 
#
09.06.2016 11:33:44
Добрый день!
На момент запуска макроса имеется выделение, как например на картинке.
Каким кодом можно определить адрес ячейки на пересечении? Т.е. С5 - здесь на картинке.
 
Перейти    
нет Power Pivot в Excel 2013
 
#
26.05.2016 12:29:13
Здравствуйте,

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

Подскажите пожалуйста что можно сделать что бы она появилась? И если скачать то откуда, смогла только на 2010 найти что-то но видимо не то.
 
Перейти    
формула ГИПЕРССЫЛКА ссылающаяся на ячейку другого листа в этой же книге.
 
#
06.11.2015 13:45:26
Здравствуйте, есть формула  =ГИПЕРССЫЛКА("Лист1!A7";"text") пытающаяся создать гиперссылку на Ячейку А7 листа Лист1. Но она не работает!
Подскажите как правильно прописать эту формулу?

Спасибо!
 
Перейти    
Рассчитать прогнозируемое значение., степенная линия тренда
 
#
20.09.2015 17:18:45
Здравствуйте! Помогите пожалуйста найти решение!
У меня имеется ряд данных в файле. Каждому х соответствует у в табличке. Например при х= 88% y становится 600%, при х=51% у становится 100%.

Я построила степенную линию тренда на графике и она вполне описывает мою зависимость. Получилась формула y=6x^(-1) - эксель её вывел.
Но когда я её применяю, я и близко не выхожу на нужные данные по х. Помогите понять что я не так делаю.
В результате я хочу получить формулу, что бы подставив значение х - она бы мне выводила значение у согласно тренду.

Буду благодарна за любой совет!
Изменено: Галина - 20.09.2015 17:25:13 (корректировка темы)
 
Перейти    
Как определить нижнюю границу неравномерной таблицы?
 
#
18.03.2015 20:48:48
Всем здравствуйте!

У меня следующий вопрос, как определить диапазон таблицы на картинке? А точнее как определить нижнюю границу?
Имеются исходные данные что в B2 заголовок таблицы. Левую и правую границу можно определить циклом до первой пустой ячейки вправо и влево.
Как определить нижнюю границу таблицы? Что-то вроде CurrentRegion но он захватит и строчку над таблицей, а мне этого не надо.

Я пока вижу только один способ. Т.к. можно определить правую и левую границу таблицы (до первой пустой ячейки), идем циклом по строчкам в рамках этих границ и проверяем есть ли полностью пустая строка. Если есть, значит таблица закончилась строчку назад.
Можно ли без циклов? Каким-то другим способом?

Может как-то можно из [B2].CurrentRegion извлечь последнюю строчку? Может что-то ещё?
Спасибо!
 
Перейти    
Какое значение было до изменения ячейки (в worksheet_change)?
 
#
26.01.2015 23:18:21
Здравствуйте!
Наверное ответ на мой вопрос, что это невозможно, но все-таки спрошу.
На изменение ячейки реагирует событие worksheet_change. Текущее значение есть в Target.Value. Есть ли возможность узнать какое значение было до этого Target Value. Т.е. было в ячейке 111 стало 222. Сработало событие когда стало 222. То что было раньше - 111, откуда-то можно узнать из свойств?

Спасибо.
 
Перейти    
Как поставить "точку" в значении между двумя цифрами VBA?
 
#
25.01.2015 19:17:38
Здравствуйте!
Помогите пожалуйста решить вопрос.
Как можно вставить в ячейку значение - две цифры между ними точка т.е. 1.2
У меня вставляется 1,2 Понимаю почему, но как же быть если нужна именно точка?
Код
Sub test()
i = 1: j = 2
[A1] = i & Chr(46) & j
End Sub
 
Перейти    
Не работает Worksheet_Change., в чем может быть причина? может у вас работает?
 
#
21.01.2015 00:53:23
Здравствуйте!
У меня не работает Worksheet_Change. Сначала не работал только в этой книге, теперь уже и в других не работает. Проверяла на 2х домашних компьютерах. Подскажите пожалуйста в чем может быть причина? Прилагаю пример, может быть у вас работает событие в этой книге?
При вводе любого значения в ячейку должен выскакивать msgbox.
Тестировала на 2010 и 2003 office
Макросы включены
Изменено: Галина - 21.01.2015 01:04:32 (заменила файл)
 
Перейти    
Макрос останавливается на #Н\Д, как обработать ошибку?
 
#
03.01.2015 16:29:37
Есть макрос (ниже) если значение ноль или Н\Д, то надо выполнить действия.
Проблема в том что макросу не нравится Range("B" & i) когда это значение Н\Д, есть ли варианты помимо on error resume next, что бы обойти эту ошибку?
Вот так не работает:
Код
Sub test()
For i = 1 To 6
    If Range("B" & i).Value = 0 Or IsError(Range("B" & i)) Then
        MsgBox i
    End If
Next
End Sub
 
Перейти    
Как правильно увеличивать одномерный массив с Redim Preserve?
 
#
27.12.2014 20:05:40
Как правильно увеличивать одномерный массив с Redim Preserve?

Код
Sub тест()
Dim arr()
ReDim arr(1 To 1)

For i = 1 To Cells(Rows.Count, 1).End(xlUp)
    arr(i) = Cells(i, 1)
    ReDim Preserve arr(i + 1)
Next

End Sub
 
Перейти    
Как в excel 2010 подключить библиотеку Microsoft Word ## Object Library?
 
#
25.12.2014 15:50:24
Где искать какие библиотеки подключены? По поиску нашла только ответ Tools - references, но это видимо к 2003 относится.
 
Перейти    
Страницы: 1
Наверх