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

Страницы: 1 2 След.
Перевести дату из формата 05.09.2017 04:00:01.000 в формат 05.09.2017
 
#
07.04.2024 19:56:07
Господа профи, скажите пжл, а можно без формул обойтись? Когда я меняю формат ячейки на: 14.03.2001, данные обновляются только после входа в ячейку и нажатия enter
 
Перейти    
Переменные в коде макроса, Внесение нескольких переменных в одной строке кода
 
#
26.04.2022 14:20:33
Цитата
написал:
melnik542, правильно, если в одну строку:  Dim A As Long, B As Long, C As Long, D As Long  или короче  Dim A&, B&, C&, D&
Подробно и понятным языком:  ЧТО ТАКОЕ ПЕРЕМЕННАЯ И КАК ПРАВИЛЬНО ЕЁ ОБЪЯВИТЬ?
Спасибо
 
Перейти    
Переменные в коде макроса, Внесение нескольких переменных в одной строке кода
 
#
26.04.2022 14:20:19
Цитата
написал:
Можно использовать спец символы в именах переменных, тогда as что-то не надо писать.
Например:
Код
    [URL=#]?[/URL]       1  2  3      Dim   A&, B%, C$    'это эквивалент    Dim   A as   Long  , B as   Integer  , C as   String  
 
Спасибо
 
Перейти    
Переменные в коде макроса, Внесение нескольких переменных в одной строке кода
 
#
26.04.2022 13:47:52
Цитата
написал:
Код
    [URL=#]?[/URL]       1      Dim   A   As   Long  , B   As   Long  , C   As   Long  , D   As   Long  
 
Тогда нет никакой разницы, в столбик, или в строку...
Я просто увидел код, в котором перечислялось несколько переменных через запятую и в конце стоял признак. Возможно это был String...Не помню. Но судя по Вашему объяснению-так и было
 
Перейти    
Переменные в коде макроса, Внесение нескольких переменных в одной строке кода
 
#
26.04.2022 13:41:42
Цитата
написал:
Во втором случае вы не объявляете явно тип переменных A, B, C.
При следующем обращении тип определяется автоматически как String.
А как правильно нужно было прописать эту строку?
 
Перейти    
Переменные в коде макроса, Внесение нескольких переменных в одной строке кода
 
#
26.04.2022 13:28:19
Здравствуйте. Подскажите пожалуйста:
Если ввожу переменные отдельно:

Код
Sub test3()
   

   Dim A As Long
   Dim B As Long
   Dim C As Long
   Dim D As Long
   
   
   A = InputBox("Введи значение")
   B = InputBox("Введи значение")
   C = InputBox("Введи значение")
   D = InputBox("Введи значение")
   MsgBox A + B + C + D
   End Sub


ТАК РАБОТАЕТ
Но если ввести значение переменных через "," как ниже - не работает. Так нельзя вводить, или нужно дополнительно какое-то условие прописать, что переменные в куче?
Я ввожу данные, но результат суммирования какой-то непонятный...

Dim A, B, C, D As Long
 
Перейти    
Подсчет ячеек с временем, которое больше/меньше текущего, время зафиксировано в ячейке через ТДАТА()
 
#
16.09.2021 11:04:48
andylu, Спасибо!
БМВ, Спасибо Вам!  
 
Перейти    
Подсчет ячеек с временем, которое больше/меньше текущего, время зафиксировано в ячейке через ТДАТА()
 
#
16.09.2021 10:34:06
Всем добрый день.
Есть ячейка, в которой формула показывает текущее время. Есть диапазон ячеек, в которые вводится разное время (перезвонить клиенту в 19:00/15:00)
Когда начинается просрочка, формула показывает 1 или 10. В зависимости от того, сколько ячеек с просрочкой.
Писал в смежной теме, там мне ответили:
У Вас в Е4 дата с временем, т.к. в представлении Excel это число, где дата целая часть, а время дробная, то Естественно больше всех остальных ячеек с которыми сравнивается. И Ваша формула считает правильно.
Уберите в формуле у Е4 целую часть и все заработает.
Я не понимаю, как убрать у формулы. Если вбить как значения, понятно, что просто дату отсечь. А как в ТДАТА это сделать, не понимаю. Поменял формат ячеек-не помогло.
+ Еще excel не обновляет автоматом текущее время, приходится войти в ячейку и нажать enter/ Можно как-нибудь сделать, чтобы время обновлялось в реальном времени?
 
Перейти    
Не работает мульти ВПР. Формула вытягивает не все данные
 
#
28.04.2021 17:08:04
Всем добрый день.
На листе Табло формула, которая вытягивает из листов Кубышка и 1С данные по условию ( она в А5 и В5 на листе Табло). Если ее протянуть вниз, почему-то не подтягиваются некоторые данные. Например 487577 из листа Кубышка, и 480738Д из листа 1С. Подскажите пожалуйста, в чем проблема?
 
Перейти    
Макрос для копирования и переноса данных в другой лист, при изменении значения определенной ячейки, копировать данные из определенных ячеек строки, по заданному условию
 
#
07.12.2020 17:39:32
vikttur, уточните пожалуйста, почему цитирование так вас задело? При цитировании происходят сбои, или что?
 
Перейти    
Макрос для копирования и переноса данных в другой лист, при изменении значения определенной ячейки, копировать данные из определенных ячеек строки, по заданному условию
 
#
07.12.2020 15:27:37
Цитата
Ігор Гончаренко написал:
Private Sub Worksheet_Change(ByVal Target As Range)  Dim R As Long  If Target.Column <> 8 Then Exit Sub  If Target.Row = 1 Then Exit Sub  If Target.Value <> "Готов" Then Exit Sub Else R = Target.Row  With Worksheets("печать опт")    .[a2].Resize(4, 1) = WorksheetFunction.Transpose(Cells(R, 3).Resize(1, 4))    .[a6] = Cells(R, 7)  End WithEnd Sub
Космос. Спасибо большое. Скажите, где найти качественную информацию, чтобы научится самому писать такие вещи? Это же стандартные алгоритмы.
Изменено: melnik542 - 07.12.2020 17:35:55
 
Перейти    
Макрос для копирования и переноса данных в другой лист, при изменении значения определенной ячейки, копировать данные из определенных ячеек строки, по заданному условию
 
#
07.12.2020 14:55:07
Всем доброго дня.
Есть таблица материалов. в листе "опт", в столбце "H", отражается готовность отреза (вводится фраза "Готов")
Как только эта фраза введена, срабатывает макрос, который копирует данные из ячеек той же строки. Например, я ввожу слово "Готов" в ячейку Н2, после этого копируются данные из ячеек B2, C2, D2, E2, G2, и вставляются (депонирование, либо копировать поочередно...) в лист "печать опт" в ячейки A2, A3, A4, A5, A6. Далее нужно причесать для последующего вывода на печать, а затем очистить данные в листе "Печать опт". Но это я потом редактором запишу.
Я написал вот такой макрос (рукожоп), ориентируясь на данные с разных сайтов.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lR As Long
 
If Target.Column = 8 Then
If Target.Row > 1 Then
If Target.Value = "Готов" Then
Range(Cells(lR, 2), Cells(lR, 5)).copy
Range(Cells(lR, 7)).copy
........Что-то типа того...
А дальше нужно что-то, что пойдет влево от ячейки и скопирует там данные))
И вставит данные в лист "печать опт"
End If
End If
End If
End Sub

Заранее душевно благодарю
 
Перейти    
Запуск макроса при помощи выпадающего списка
 
#
19.12.2019 22:06:51
Igor67,Спасибо)  
 
Перейти    
Запуск макроса при помощи выпадающего списка
 
#
19.12.2019 17:49:41
Igor67, Где этому учат и сколько это стоит?
 
Перейти    
Запуск макроса при помощи выпадающего списка
 
#
18.12.2019 22:44:51
Igor67, Космос. Спасибо огромное!
Скажите, а в чем смысл:If Target.Column = 15 ThenIf Target.Row > 1 Then
lR = Target.Row
  Range(Cells(lR, 1), Cells(lR, 15)).Value = Range(Cells(lR, 1), Cells(lR, 15)).Value?
 
Перейти    
Запуск макроса при помощи выпадающего списка
 
#
18.12.2019 20:23:56
Всем знатокам добрый вечер.
Просьба помочь.
В столбце О выпадающий список со статусом заказа.
В столбцах I, J и N формулы. Необходимо реализовать так, чтобы при выборе статуса "Отгружен", данные по всей строке до статуса преобразовывались в значения.
Чтобы при смене стоимости в марте, не менялась стоимость заказа в феврале (образно)
Благодарю за помощь!
 
Перейти    
Функция "если" с несколькими условиями совпадений, Поиск и проверка совпадений в нескольких ячейках одной строки
 
#
04.08.2018 17:32:36
Добрый день.
Есть 2 одинаковых списка клиентов, в одном из которых (Таблица 1) периодически меняются условия поставки.
Я написал формулу, которая выявляет несоответствия в списках (формула какая-то "горбатая" получилась).
1. Как проверять соответствия способов поставки для клиентов по 2м (или еще больше) условиям?
2. Если в таблице 1 появится новый клиент, как это отобразить в таблице 2?

Заранее спасибо!
 
Перейти    
Поиск разных значений с одинаковым корнем
 
#
27.07.2018 14:03:11
Понял. Спасибо вам большое.Большущее
 
Перейти    
Поиск разных значений с одинаковым корнем
 
#
27.07.2018 13:54:51
Я попробовал ввести в ячейку "sp///////", почему формула все равно считает правильно.
Получается же "sp///////"+"/", а ячейке искомого значения будет "sp"+"/"..т.е. по идее формула не должна находить совпадения
 
Перейти    
Поиск разных значений с одинаковым корнем
 
#
27.07.2018 13:28:50
Мама мия, вроде работает)))
ОГРОМНЕЙШЕЕ вам спасибо!!!!
Буду очень благодарен, если объясните как влияет сцепка с "/" на поиск..
Мы как бы принудительно не оставляем выбора поиску?
 
Перейти    
Поиск разных значений с одинаковым корнем
 
#
27.07.2018 11:38:45
Всем доброго дня. Прошу помощи.

В примере есть основной маршрут и доп. офисы. Необходимо посчитать затраты каждого офиса отдельно.
Функция поиск не помогает (или лыжи не едут). Есть значение spk, а есть sp. Функция видит "spk" как "sp" и считает его.
 
Перейти    
Поиск значений в тексте ячейки, Доработка или модернизация формулы
 
#
27.07.2018 11:25:54
Всем доброго дня. Прошу помощи.
В примере есть основной маршрут и доп. офисы
Необходимо посчитать затраты каждого офиса отдельно.
Функция поиск не помогает (или лыжи не едут)
Есть значение spk, а есть sp. Функция видит "spk" как "sp" и считает его.
 
Перейти    
Не отображается результат вычислений формулы
 
#
15.05.2018 15:20:38
Цитата
V написал:
MergeIfs отсутствует в файле.
Разве она должна быть обязательно в файле?
Я же выбираю функцию из определенных пользователем. А сама функция находится в модуле Visual Basic
 
Перейти    
Не отображается результат вычислений формулы
 
#
15.05.2018 15:19:05

C:\Users\spf6\AppData\Roaming\Microsoft\Excel\XLSTART

Она находится здесь на обоих компах
 
Перейти    
Не отображается результат вычислений формулы
 
#
15.05.2018 14:51:28
С книгой все ок.
Файл находится в общей папке на общем диске.
Что мешает показать формулу, не понимаю..
 
Перейти    
Не отображается результат вычислений формулы
 
#
15.05.2018 11:17:02
Да я уже обчитался про эту безопасность)) Не могу найти, где галку снять/поставить. Может есть мысли какие-нибудь?
 
Перейти    
Не отображается результат вычислений формулы
 
#
15.05.2018 10:35:36
Всем доброго дня.
Формула в столбцах "L" и "O"подтягивает данные с листа "Парковка".
Если открыть этот файл с другого компа, подключенного к этой же сети, формулу или результат в ячейках не видно (видно только в строке формул)
Помогите пожалуйста разобраться.
 
Перейти    
Расчет стоимости доставки в зависимости от нескольких условий
 
#
15.06.2017 11:33:37
=ДОСТАВКА(AH11:AH38;AI11:AI38)  это очень интересно, пошел читать, что это и с чем едят
 
Перейти    
Расчет стоимости доставки в зависимости от нескольких условий
 
#
15.06.2017 11:05:51
Цитата
Sanja написал:
С Вашим не совпадает   . Видимо что то не так понял.
Если свыше 100 км, (101 например) считаем весь пробег + стоимость доставки по 0 зоне
Если розница или инет, 101*22+600
если ТДД_розница или ТДД_инет, 101*17+200

Проблема у меня в том, что мне этот хвост не вставить в модуль (весь текст выделяется красным)
Пробовал вбивать в стиле R1C1 (=IF([бла-бла]...=IFS...
Я записывал макрос через редактор, получалось типа  
ActiveCell.FormulaR1C1 = _
       "=COUNTIFS(R[-1]C[5]:R[3]C[5],""инет"",R[-1]C[6]:R[3]C[6],2)"

а затем, открыв его в  visual basic, изменял =
ActiveCell.FormulaR1C1 =
       "МОЯ ФОРМУЛА"

Так вот при вставке данных между двумя "", формула выделяется красным.
 
Перейти    
Расчет стоимости доставки в зависимости от нескольких условий
 
#
12.06.2017 19:39:02
Цитата
Sanja написал:
Первая зона отсутствует как класс или только в данном примере?
как класс
Бывает 0 (первая формула выдает, бывает пустая ячейка
 
Перейти    
Страницы: 1 2 След.
Наверх