Простейший макрос EXEL

@powerking11 · Регистрация: 28.04.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте, Уважаемые знатоки непонятных иероглифов!

Я не являюсь программистом, а то чем вы занимаетесь для меня всегда было сложным.
Работаю инженером по стандартизации на заводе, работы много но не всё успеваю.
Хотелось бы сделать макрос по вводу данных в таблицу.
На скринах : форма которую я создал, с кодом. И таблица в которую должны вноситься данные.
Просветите профана в этой области, это для вас наверное очень простая задача

@КостяФедореев · 27.07.2020, 12:09

powerking11, мой код вам не подходит? Там вроде все реализованно

Добавлено через 5 минут
powerking11,
после четвертой строки кода вставьте

Visual Basic

1	a = .Cells(LastRow, 1) + 1

это для нумерации

Добавлено через 2 минуты
и если вам нужно несколько "+" ставить, то тогда нужно использовать Checkbox

Добавлено через 2 минуты
а эту вместо пятой

Visual Basic

1	.Cells(LastRow + 1, 1) = a

@Kubuntovod · 27.07.2020, 13:48

Сообщение от powerking11

Например? Не нашел в гугле ни одной подобной формы с маркерами, везде обычный ввод текста

Маркеры - это что? Если OptionButton, то так и надо гуглить - VBA optionbutton.

Сообщение от powerking11

И не знаю как реализовать ввод сегоднешней даты и следующего номера пункта автоматически

Я же Вашу табличку поправил, специально показав ввод сегодняшней даты и инкремент порядкового номера

Запускаете форму, пишите номер, жмакаете кнопку и пожалста.

@powerking11 · 27.07.2020, 14:45 **[ТС]**

КостяФедореев
Огромное спасибо, немного колдовал над вашим кодом и он заработал))
Теперь интересно, можно ли вообще сделать так, что бы при запуске файла exel, запускался только макрос, без таблицы)

@КостяФедореев · 27.07.2020, 14:57

powerking11, можно просто запускать форму при открытии файла. Возможно и свернуть окно можно. Буду у компа напишу код

@powerking11 · 27.07.2020, 15:34 **[ТС]**

КостяФедореев
О круто)
А еще можно авто сортировку сделать от большего к меньшему, я имею ввиду номер пункта
То есть я отсортировал сверху например 85, снизу 1.. Но когда нажимаю добавить инфу через макрос, добавляется пункт 86 в самом низу под пунктом 1.
Вот как сделать что бы вся свежая инфа автоматом вверх закидывалась
Функцию =НАИБОЛЬШИЙ пробовал дублирует строку

@КостяФедореев · 27.07.2020, 17:11

powerking11,
В модуль формы:

Visual Basic

Private Sub CommandButton1_Click()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Лист1")
a = .Cells(2, 1)
    .Cells(LastRow + 1, 1) = a + 1
    .Cells(LastRow + 1, 2) = Date
    .Cells(LastRow + 1, 3) = TextBox1.Value
   If OptionButton1.Value = True Then
   .Cells(LastRow + 1, 4) = "+"
   End If
    If OptionButton2.Value = True Then
   .Cells(LastRow + 1, 5) = "+"
   End If
   If OptionButton3.Value = True Then
   .Cells(LastRow + 1, 6) = "+"
   End If
   If OptionButton4.Value = True Then
   .Cells(LastRow + 1, 7) = "+"
   End If
   .Cells(LastRow + 1, 8) = TextBox2.Value
   .[a:a].Sort .[a1], xlDescending
End With
End Sub

А это в модуль ЭтаКнига

Visual Basic

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show 0
End Sub

Добавлено через 54 минуты
powerking11, что то поспешил и не учел, что остальные столбцы то тоже нужно сортировать, поэтому замените 22 строку на:

Visual Basic

.Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A2:H" & LastRow)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

@powerking11 · 28.07.2020, 09:35 **[ТС]**

КостяФедореев ,
Я немного изменил, добавил две кнопки, одна скрывает таблицу другая открывает.
Заменил плюсы на "принято" и сделал правила цветов
Всё бы хорошо, но..
Изменил код на ваш, но по итогу при нажимании первая строка появляется внизу, потом вверху и потом опять номер дублирует вверху.
Сами проверьте

@КостяФедореев · 28.07.2020, 10:22

powerking11,
эту строчку замените

Visual Basic

1	.SetRange Range("A2:H" & LastRow + 1)

не весь диапазон выделяло.

@powerking11 · 28.07.2020, 12:17 **[ТС]**

Спасибо, лучший + rep

Добавлено через 1 час 6 минут
КостяФедореев
Для удобства еще добавил цикл очистки полей, теперь всё шикарно работает))

PureBasic

Dim c As Control
For Each c In Controls
  Select Case TypeName(c)
  Case "TextBox", "ComboBox", "CheckBox", "OptionButton":   c = ""
  End Select
Next

@powerking11 1 / 1 / 0 Регистрация: 28.04.2016 Сообщений: 103
	27.07.2020, 14:45 [ТС]	23
	КостяФедореев Огромное спасибо, немного колдовал над вашим кодом и он заработал)) Теперь интересно, можно ли вообще сделать так, что бы при запуске файла exel, запускался только макрос, без таблицы) 0

@powerking11 1 / 1 / 0 Регистрация: 28.04.2016 Сообщений: 103
	27.07.2020, 15:34 [ТС]	25
	КостяФедореев О круто) А еще можно авто сортировку сделать от большего к меньшему, я имею ввиду номер пункта То есть я отсортировал сверху например 85, снизу 1.. Но когда нажимаю добавить инфу через макрос, добавляется пункт 86 в самом низу под пунктом 1. Вот как сделать что бы вся свежая инфа автоматом вверх закидывалась Функцию =НАИБОЛЬШИЙ пробовал дублирует строку 0

Простейший макрос EXEL

Решение

Решение

@powerking11 1 / 1 / 0 Регистрация: 28.04.2016 Сообщений: 103
		1
	Простейший макрос EXEL 23.07.2020, 14:38. Показов 3050. Ответов 28 Метки vba excel, макросы excel, vba excel макрос (Все метки) Здравствуйте, Уважаемые знатоки непонятных иероглифов! Я не являюсь программистом, а то чем вы занимаетесь для меня всегда было сложным. Работаю инженером по стандартизации на заводе, работы много но не всё успеваю. Хотелось бы сделать макрос по вводу данных в таблицу. На скринах : форма которую я создал, с кодом. И таблица в которую должны вноситься данные. Просветите профана в этой области, это для вас наверное очень простая задача 0

@Kubuntovod 3195 / 850 / 194 Регистрация: 14.01.2013 Сообщений: 4,068
	27.07.2020, 13:48	22
	Сообщение от powerking11 Например? Не нашел в гугле ни одной подобной формы с маркерами, везде обычный ввод текста Маркеры - это что? Если OptionButton, то так и надо гуглить - VBA optionbutton. Сообщение от powerking11 И не знаю как реализовать ввод сегоднешней даты и следующего номера пункта автоматически Я же Вашу табличку поправил, специально показав ввод сегодняшней даты и инкремент порядкового номера Запускаете форму, пишите номер, жмакаете кнопку и пожалста. 0

@КостяФедореев Часто онлайн 864 / 579 / 263 Регистрация: 09.01.2017 Сообщений: 1,951
	27.07.2020, 14:57	24
	powerking11, можно просто запускать форму при открытии файла. Возможно и свернуть окно можно. Буду у компа напишу код 0

	28.07.2020, 12:17