excel VBA, как заставить код запускаться автоматически, когда пользователь открывает файл

У меня есть этот код, который проверяет дату и заполняет ячейки цветами в зависимости от даты.

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

что после того, как пользователь написал дату, ему нужно щелкнуть значок макроса, чтобы код принял меры.

код:

Sub test() Dim i As Integer Dim OfficerList(4) As String For i = Range("C5000").End(xlUp).Row To 2 Step -1 'Range upto 5000, chnge this as per your requirment' Select Case VBA.CDate(Cells(i, 3)) Case Is < VBA.Date() Cells(i, 3).Interior.Color = vbGreen Case Is = VBA.Date() Cells(i, 3).Interior.Color = vbYellow Case Is > VBA.Date() Cells(i, 3).Interior.Color = vbRed End Select Next End Sub 

Может кто-нибудь мне помочь ? или есть лучшая идея?

Этот код должен выполнить эту работу.

 'This function is called everytime a cell is edited in the worksheet 'NOTE: This macro should be placed in the same worksheet object of your VBA Project 'that has the same worksheet name as the worksheet with all the dates Private Sub Worksheet_Change(ByVal Target As Range) Dim DateCells As Range Set DateCells = Range("C2:C5000") 'If the user changed one of the date cell run the macro, else do nothing If (Not Application.Intersect(DateCells, Range(Target.Address)) Is Nothing) Then test 'Call your macro here End If End Sub 'This function is called everytime the workbook is opened 'NOTE: This macro should be placed in the 'ThisWorkbook' object of your VBA Project Private Sub Workbook_Open() test 'Call your macro here End Sub 
Interesting Posts

Функция LinEst

Как преобразовать данные из формата SQL Server в числовой формат в Excel?

Парный т-тест; как найти t-статистику для данного отношения

Скрипт VBA для перехода через определенный диапазон дат

Вытяните заголовок столбца и заголовок строки матрицы

VBA для сохранения вкладки excel для новой ошибки времени выполнения файла 1004

Ошибка Excel для Sharepoint MapNetworkDrive

Excel VBA с использованием переменной в рабочей книге Active не работает (динамическое имя активной книги)

Excel VBA автоматизации управления версиями создает Mysterious Saving Loop – Source?

Excel Macro Vlookup между двумя книгами

Таблица Расчетное поле на основе месяца

Как экспортировать определенные атрибуты из модели в Maatwebsite Excel в Laravel 5.1

VBA для открытия файла Excel

Возьмите гиперссылку Excel и вставьте в таблицу PowerPoint

python / excel: как добавить значения столбца B для всех одинаковых значений в столбце A

Давайте будем гением компьютера.