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

Страницы: 1
некорректная работа суммеслимн в форме с условием по дате
 
#
02.06.2022 15:33:09
Добрый день, подскажите пожалуйста, на листе есть формула СУММЕСЛИМН(G:G;K:K;">="&A1;K:K;"<="&A2), где в А1 стоит начальная дата в А2 конечная. По формуле все считает отлично, но попробовала перенести ее в форму и ничего не получается. На форме есть 2 DTPicker соответственно с датами и я не понимаю что в формуле на форме не так? Ставит в текстбокс 0 при вычислении. Помогите пожалуйста разобраться
Код
Dim a As Date, b As Date
a = Me.datas
b = Me.datapo
summ.Value = WorksheetFunction.SumIfs(Sheets("Íà÷èñëåíèÿ").Range("g:g"), Sheets("Íà÷èñëåíèÿ").Range("k:k"), ">=" & a, Sheets("Íà÷èñëåíèÿ").Range("k:k"), "<=" & b)

 
Перейти    
Некорректное отображение 20-значных чисел
 
#
19.05.2022 20:45:52
Добрый вечер, подскажите пожалуйста, как корректно прописать код, чтобы функция VLookup корректно вставляла 20-значные числа? Макрос запускается при активации листа, на листе откуда берутся значения «Начисления» данные числа имеют текстовый формат. На лист «Оплата» данные вставляются примерно так  1,88Е+19 Часть кода:
Код
If Sheets("Оплата").Range("e" & i).Value = "р/с" Then
 Range("e" & i).Value = Application.IfError(Application.VLookup(Sheets("Оплата").Range("F" & i), Sheets("Начисления").Range("H:N"), 7, 0), "р/с")
 End If
 
Перейти    
использование VLookup при условии if, Добрый вечер, подскажите пожалуйста, имеется код, который запускается при активации листа. По данному коду пересчитывается весь диапазон на листе Оплата, как изменить код, чтобы расчет шел только по тем строкам, где в листе «Оплата» в столбце «Е» условие
 
#
14.05.2022 01:07:46
Код
Private Sub worksheet_activate ()
Dim LastRow As Long, i As Long
LastRow = Ceels(Rows.Count, 2).End(x1Up).Row
For i = 3 to LastRow
Range(“N” & i).value = Application.IfError(Application.VLookup(
Sheets(“Оплата”).Range(“F” & i), Sheets(“Начисления”).Range(“H:N”), 7, 0), “”)
Next
End Sab
Изменено: Kcuxa_xa - 14.05.2022 01:09:48
 
Перейти    
Вставить формулу массива через vba
 
#
20.02.2019 08:58:49
Доброго утра всем) помогите пожалуйста с возникшей проблемой, у меня имеется отчет который считается формулами массива типа : = ЕСЛИОШИБКА(ВПР(Е6;ЕСЛИ('ЛИСТ 1'!В3:В100=С12;'ЛИСТ 1'!А3:Z100;"");5;0);"-") таких формул порядка 500 в отчете, что очень тормозит работу когда работаю с другими листами книги (постоянно пересчитывает) решила запускать отчет по кнопке "сформировать" написала макрос, но на этих формулах выдает ошибку type mismatch. Может я не правильно пытаюсь вписать эту формулу в код?
Код
Private Sub sformirovat_click()
sheets ("Отчет 1").Select
Range ("C8").FormulaArray = "=ЕСЛИОШИБКА(ВПР(Е6;ЕСЛИ('ЛИСТ 1'!В3:В100=С12;'ЛИСТ 1'!А3:Z100;"");5;0);"-")"
'дальше идут остальные формулы
end sub
 
Перейти    
Удаление строк по условию через форму
 
#
11.02.2019 14:42:06
День добрый! Помогите с коррекцией кода пожалуйста. Создала пример, потому что мой файл слишком большой. Имеется лист "списание " в котором есть форма с комбобокс.  Данные в комбобокс берутся с листа "склад". Задача такая: при нажатии на кнопку в форме данные заносятся на лист "списание" и удаляются с листа "склад"  
 
Перейти    
Увеличение дат в TextBox
 
#
23.01.2019 15:27:58
Доброго дня всем, прошу помощи в доработке кода. Имеется  код, который к начальной дате (TextBox1) прибавляет заданное количество лет( TextBox2) и автоматически вставляет полученную дату в TextBox3. Все работает хорошо. Но вопрос доработки заключается в том, что в TextBox3 могут вводится не целые числа (например 2,5 года) возможно ли доработать код так, что бы он к начальной дате прибавлял 2 года и 6 месяцев? Или лучше искать другой выход отдельно заносить данные в TextBoxмесяц и TextBoxгод например?
 
Перейти    
Сообщение при закрытии формы пользователя
 
#
13.01.2019 20:27:34
Здравствуйте. Помогите, пожалуйста. Хотела, что бы при закрытии формы выскакивало окно с подтверждением "Вы действительно хотите выйти из формы?"
Повесила на кнопку код, но он выдает ошибку "run-time error '424' object required" на 4 строчке (DoCmd.Close acForm, Me.Name)
Код
Private Sub CommandButton1_Click()
Dim Ответ As Integer
Ответ = MsgBox("Вы действительно хотите выйти из формы?", vbYesNo)
If Ответ = vbYes Then DoCmd.Close acForm, Me.Name
End Sub
 
Перейти    
Ввод дат в таблицу через форму
 
#
09.01.2019 23:16:35
Добрый вечер) Помогите исправить код в форме пожалуйста. Добавила контрол Microsoft Date and Time Picker Control 6.0 (SP4) с вводом даты. При срабатывании команды на кнопке ОК выдает ошибку на эти данные. И еще сопутствующий вопрос как можно редактировать данные занесенные в таблицу через форму? Файл с формой прилагаю.
 
Перейти    
Сравнить значение с данными в диапазоне
 
#
30.12.2018 15:15:38
Помогите пожалуйста разобраться, мне нужно сравнить значение ячейки G7 с диапазоном B2:B21 на листе 2 и если значения совпадают, то в ячейку С6 поставить значение из той же строки диапазона  Е2:Е21. Пробую через функцию Если, но результата нет( Спасибо большое за помощь)
Изменено: Kcuxa_xa - 30.12.2018 15:23:50
 
Перейти    
Страницы: 1
Наверх