Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Объединение нескольких макросов в один, Есть три макроса, которые нужно объединить в один, без потери функций и дубляжа.
 
#1
06.03.2026 09:44:58

Добрый день.

Помогите  объединить 3 макроса одного файла так, чтобы действия не повторялись и был один макрос, потому что сейчас при регистрации пациента заносятся данные, потом на листе пациента снова эти данные заносятся.

Я не программист, но очень хочется упростить работу коллеге на ноуте с маленьким экраном.

Прошу направлять конструктивную критику и предложения, так как даже не продвинутый пользователь Excel/

Благодарю за понимание.
 
 
 
#2
06.03.2026 10:53:49
Добавил значения по умолчанию в InputBox-ы по активной строке.
Код
Public Function AC(What As String) As Variant
    Dim cf As Range
    On Error Resume Next
    Set cf = ActiveSheet.Cells.Find(What:=What, LookAt:=xlPart)
    On Error GoTo 0
    If Not cf Is Nothing Then
        AC = Intersect(ActiveCell.EntireRow, cf.EntireColumn)
    End If
End Function
 
 
 
#3
06.03.2026 12:32:49
Если ввод выполнять через лист, то первый макрос можно заменить одной строкой.
Код
Sub RegisterPatient()
    Range("A1:I1").Copy Cells(Rows.Count, 1).End(xlUp).Cells(2, 1)
End Sub
 
 
 
#4
10.03.2026 06:45:13
Попробую! Благодарю!  
 
 
 
#5
10.03.2026 07:15:58
Цитата
PolaBandy написал: так как даже не продвинутый пользователь Excel
Так а зачем Вы подписались под это?
Сейчас получается не ПОМОЩЬ, а полное решение за Вас
Любые хотелки, под ключ, делают в разделе Работа, правда платно
Это первое.
2. Если хотите что бы Вам помогли, то начинайте делать что-то сами и задавайте тут КОНКРЕТНЫЕ вопросы.
3. Ознакомьтесь с Првилами этой ветки
В частности
Цитата
2.6. Один вопрос - одна тема. Не следует в открываемой теме обозначать и задавать сразу несколько вопросов.
Ваш последний вопрос никак не соответствует заявленой теме (скрыт)
Философия данного форума не в том, что-бы помочь кому ту одному с его проблемным файлом, а помочь как можно большему количеству людей у которых может возникнуть похожий, но КОНКРЕТНЫЙ вопрос
Спасибо
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
12.03.2026 09:56:38
Поняла Вас.
Спасибо за разъяснение. Решила самостоятельно. Совершенно бесплатно делюсь.
 
 
 
#7
12.03.2026 10:39:15
Цитата
PolaBandy написал: Совершенно бесплатно делюсь
За это спасибо, возможно кому-то пригодится
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Читают тему
Наверх