Код VBA не находит дату с помощью функции DateSerial () для одного компьютера, но находит для другого - PullRequest
0 голосов
/ 31 октября 2019

У меня два компьютера с одним листом. Мой код может найти ожидаемую дату на одном из компьютеров, но не на другом

Я пытался изменить формат даты на ПК, который не работал, и это решило мою проблему, но мне нужен код, которыйвыполняется всегда, независимо от формата даты Windows

Workbook2.Activate
Sheets("Sheet1").Select
firstYear = Year(Cells(376, 2))
firstMonth = Month(Cells(376, 2))
firstDate = DateSerial(firstYear, firstMonth, 1)

Workbook1.Activate
Sheets("Sheet1").Select

Set oldforecast = Range("A9:A296").Find(firstDate)

Последняя строка должна найти дату в Workbook1.xlsm для каждого компьютера, на котором выполняется этот код, несмотря на его формат даты.

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