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

Страницы: 1
Сообщение 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
Наверх