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

Страницы: 1
Выбор макс значения, Выбор максимального значения справа, по выбору одинаковых значений слева!
 
СПАСИБО))) Что-то совсем мозг на ерунде потёк! ))
Выбор макс значения, Выбор максимального значения справа, по выбору одинаковых значений слева!
 
Здравствуйте друзья! Помогите пожалуйста! Не могу сделать формулу((
Вот есть таблица. Учёт тренировок.
Слева в (С3:С9) - вес снаряда.
В (W3:W9) - сумма.
Нужно написать формулу в (W13) , что бы по значению (С13) в ячейке выдавало максимальное значение из верхней таблицы)
Буду дальше искать как сделать. Заранее спасибо, если кто поможет.  
Изменено: STASONSMOL - 31.08.2025 12:44:27
Сообщение MsgBox, Сообщение MsgBox
 
Sanja, Спасибо большое  8)  
Сообщение MsgBox, Сообщение MsgBox
 
Sanja, Да. разобрался. А можно добавить, что бы после появления MsgBox, и нажатия на ОК, та ячейка, в которой написали NG, становилась пустой?
Сообщение MsgBox, Сообщение MsgBox
 
Цитата
написал:
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rr As Range
   On Error Resume Next
   Set rr = Intersect(Target, Range("B33:B500"))
   On Error GoTo 0
   If rr Is Nothing Then Exit Sub
   
   Dim cl As Range
   For Each cl In rr.Cells
       If cl.Value = "NG" Then
           Ошибка
           Exit For
       End If
   Next
End Sub
Ошибку выдает что-бы теперь в этом столбце писал или удалял
Изменено: STASONSMOL - 08.02.2024 17:24:45
Сообщение MsgBox, Сообщение MsgBox
 
Здравствуйте! Помогите чуть. Что-то не получается.  :cry:  
Смысл такой. В столбце B:B (ну даже наверное нужно в B33:B500) Уже есть написанные "NG". Но дальше хочу, в случае набора в новых строках (в столбце "В33:В500") фразы "NG" что бы вылезало MsgBox сообщение. Сообщение вроде сделал, работает. А вот привязать MsgBox к тому, что бы при написании NG в ячейки, оно появлялось, не могу  :excl:  Понимаю, это скорее всего легкотня. Но пол дня ищу в интернете, как правильно прописать. Заранее спасибо :idea:  Мир вам всем
Код
Sub Ошибка()
    If .Range("B9:B500") = "NG" Then MsgBox Space((10 - Len(msg) / 2)) & "$T@$on! КАКОЙ ШАВРИК? КАКОЙ ГАЗ? ТЫ ИДИОТ?" & Space((10 - Len(msg) / 2)) _
    & Chr(13) & "" _
    & Chr(13) & """ОСТАНОВИСЬ! ИНАЧЕ СЕР ГОН ТЕБЯ ЗАСТЫДИТ, И НАЙДЁТ ТО САМОЕ СООБЩЕНИЕ!""" _
    & Chr(13) & "" _
    & Chr(13) & vbCr & "                                                  Сегодня:  " & Format(Date, "d mmmm yyyy") & " года;" & vbCr & "                                                  Сейчас:  " & Time & " по МСК." _
    & Chr(13) & "" _
    & Chr(13) & vbCr & "ДЕРЖИСЬ И НЕ ЛЕЗЬ!!!!", vbOKCancel + 16, "ПРЕДУПРЕЖДЕНИЕ!"
End Sub
Изменено: STASONSMOL - 08.02.2024 16:51:49
Замена формулы на текст, Замена формулы на текст
 
tutochkin, Спасибо большое за помощь :)  
Замена формулы на текст, Замена формулы на текст
 
tutochkin, А если писать в столбце "О", а формула в "S", то так будет:???

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("M:M, O:O")) Is Nothing Then
       Target.Offset(0, -1).Value = Target.Offset(0, 4).Value
   End If
End Sub

Что-то не работает так :-/



СИНИЙ: "+" = пишешь; "-" = формула меняется на число
потом ЧЕРНЫЙ: так же смысл
Изменено: STASONSMOL - 06.02.2024 21:34:03
Замена формулы на текст, Замена формулы на текст
 
Здравствуйте! Помогите профану. Как можно сделать (макрос наверное), что бы при вводе данных в столбце (в ячейке) М5, в столбце (в ячейке) L5 формула изменялась на число? И так далее, по этим столбцам. В столбце М пишешь, в столбце L формула превращается в число. И в столбцах P (пишешь)  и S (изменяется на число).
Изменено: STASONSMOL - 06.02.2024 21:11:28
Печать одним нажатием, Как напечатать несколько листов одним нажатием?
 
Здравствуйте. Подскажите, как сделать так что бы при нажатии на кнопку "Печать" распечатывались все выбранные данные, где стоит "*". А то каждый раз ставить "*" накладно, при условии что таких ФИО может быть сотни.
Там где ставится "*", по формуле переходит на другой лист. Лист 2 распечатали, затем ставим "*" напротив другой ФИО, распечатали др. ФИО. И т.д.
Вот нужно выбрать все ФИО, поставить напротив "*", нажать на "Печать", и что бы поочереди, по порядку все начали печататься)
Файл примера прилагаю.
Изменено: STASONSMOL - 03.06.2020 00:17:57
Разрыв связи с другой книгой, Не разрывается связь которой нету
 
А если и в условном форматировании нет ни чего?((((
Код VBA. Всплывающее MsgBox, что дата наступила или прошла!
 
Доброй ночи. Помогите пожалуйста (
Есть определенная таблица. В ней допустим много столбцов. В одном (7 по счету) ФИО, во втором (8 по счету) дата увольнения.
Как написать код, что бы при открытии файла появлялось сообщение, допустим: "Иванов Иван Иванович (из 7 столбца): 13.02.2019 г. (из 8 столбца) Уволить!" И следующее сообщение после закрытия первого, если не убрал из списка человека, а дата уже прошла (чтобы человека убрать из таблицы): "Иванов Иван Иванович: 12.02.2019 г. Уволен!"
Периодичность присвоения званий
 
За три годика, как-то улучшился результат с таблицей?
Макрос-склонение по падежам
 
Вот эта надстройка

Рисунки удалены: превышение допустимого размера вложения [МОДЕРАТОР]
Изменено: STASONSMOL - 05.01.2019 01:18:36
Макрос-склонение по падежам
 
Всем доброго времени суток! Я конечно извиняюсь, но может у кого нибудь есть макрос для склонения текста, а также ФИО? Очень нужно для работы. Сидеть, под тысячу с лишним (должностей) менять с именительного на родительный падеж. (местами на дательный) Христа ради прошу. Отзовитесь добрые люди, помогите кодом. Создал свою маленькую надстройку. Хотел бы туда добавить макрос этот.
Заранее спасибо всем!
Макрос - скрыть/отобразить пустые строки, помогите сделать макрос
 
Есть таблица, в которую вписываются данные (автоматически) из другой таблицы. Некоторые строги всегда пустые, и они могут меняться. Помогите написать макрос что бы можно было скрыть пустые строки и также отобразить их. За основу наверное можно взять столбец (А) там отображается "х" если строка пустая. Заранее спасибо!!
Изменено: STASonSmol - 10.09.2017 01:26:17
Примечания в ячейка, Можно ли работать с примечаниями в ячейках,
 
Цитата
Юрий М написал:
Название темы плохое. Предложите новое - модераторы поменяют.
Подскажите))
Примечания в ячейка, Можно ли работать с примечаниями в ячейках,
 
Возможно ли такое чудо? есть два листа. на ЛИСТЕ 1 сотрудники. На ЛИСТЕ 2 отсутствующие. На пример отпуск и больничный. Допустим вписали Липкин Н.З. (ЛИСТ 2, ячейка D6) И нужно что бы в ЛИСТЕ 1 в ячейке H5 появилась (1 - единичка). В последствии, при добавлении фамилий в ЛИСТ 2, они отображались в ЛИСТЕ 1. Данные нужно как-то извлекать из примечаний ЛИСТА 1.
Данный пример с небольшим количеством фамилий. Но в жизни численность человек примерно 500., а то бывает и больше.
Если с примечаниями так работать не возможно,видимо придется делать отдельные ЛИСТ, и в каждом отделе прописывать все фамилии? Или как, подскажите пожалуйста!
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Цитата
SAS888 написал: Можно использовать Padeg.Declension.
ФИОРодительный
Иванов Иван Иванович#ЗНАЧ!
Ивановский Василий Макарович#ЗНАЧ!
Петренко Петр Петрович#ЗНАЧ!
Сидорова Мария Ивановна#ЗНАЧ!
Шойгу Сергей Кужугетович#ЗНАЧ!
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Цитата
copper-top написал: ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК(" ";A1));" ";"А ")&ПОДСТАВИТЬ(ПРОПНАЧ(ПСТР(A1;ПОИСК(" ";A1);99));" ";"а ";2)&"а"
ИВАНОВА Алексейа Сергеевича
Блин, мало опыта, так бы наверное разобрался как подправить формулу(
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Цитата
Юрий М написал:
P.S. Название темы немного изменил.
Я не против. Спасибо)) Видимо так понятнее для любителей excel))
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Цитата
Bema написал:
А вот со склонением сложнее.
Спасибо. Так проще поменять окончания, чем полностью Имя и Отчество переписывать :)  
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Смысл, из ИМЕНИТЕЛЬНОГО перевести в РОДИТЕЛЬНЫЙ падеж ) в формате ИВАНОВА Ивана Ивановича)  
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Да мне хоть с этими разобраться))) У меня мало которые заканчиваются на "о", "к", "ч", "ш"...))
Работа с ФИО - преобразовать часть текста из прописных в строчные и поменять падеж.
 
Помогите пожалуйста не опытному!
Имеется в ячейке А1: ВАСИЛЬЕВ ОЛЕГ ЮРЬЕВИЧ.
Нужно отобразить в другой ячейке: ВАСИЛЬЕВ Олег Юрьевич.
А если возможно, то в идеале: ВАСИЛЬЕВА Олега Юрьевича. Учитывая, что фамилии которые кончаются на "КИЙ" должны оканчиваться на "КОГО"
Дело в том, что большой список ФИО в таком формате. И нужно изменить. А в ручную долго.
Заранее спасибо)
Изменено: STASonSmol - 16.07.2017 21:13:48
Страницы: 1
Наверх