Код VBA для форматирования времени в выбранном случае
Я установил пользовательский числовой формат ГГГГММДД ЧЧ:ММ:СС для двух столбцов, но он не работает с моим кодом VBA. Может кто-нибудь помочь мне с моим кодом, чтобы отформатировать его с помощью VBA.
For i = startRow To lastRow
Select Case Range("O" & i).Value
Case "A", "C", "D", "E", "L", "AI", "CI", "DI", "EI", "LI", "AP", "CP", "DP", "EP", "LP"
Range("N" & i).Value = "19000101" & " " & Range("L" & i).Value
Case "B", "BI", "BP", "N", "NI", "NP"
Range("N" & i).Value = "19000102" & " " & Range("L" & i).Value
Case Else
Range("N" & i).Value = ""
End Select
Next i
Заранее спасибо :)
Преобразование HTML-таблицы в профессиональный документ Excel
Это самый простой способ создания Excel из HTML-таблицы.
Импорт excel в laravel в базу данных
Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...
1
1
50
2
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 2
Ответ принят как подходящий
Вам нужно использовать что-то вроде этого;
Range("N" & i) = "19000101 " & Format(Range("L" & i), "hh:mm")
Поскольку дата/время хранятся в Excel как десятичные числа, попробуйте использовать свойство Text ячеек, содержащих значения времени.
For i = startRow To lastRow
Select Case Range("O" & i).Value
Case "A", "C", "D", "E", "L", "AI", "CI", "DI", "EI", "LI", "AP", "CP", "DP", "EP", "LP"
Range("N" & i).Value = "19000101" & " " & Range("L" & i).Text
Case "B", "BI", "BP", "N", "NI", "NP"
Range("N" & i).Value = "19000102" & " " & Range("L" & i).Text
Case Else
Range("N" & i).Value = ""
End Select
Next i
Другие вопросы по теме
Подсчитайте количество разбиений внутри ячейки
VBA сталкивается с проблемой с функцией НАЙТИ с помощью Word
Перезаписать файлы msgbox в цикле с помощью Solidworks vba
Временно заменить значения в строке
В VBA: открывайте, читайте, заменяйте символы и закрывайте текстовый файл максимально быстро
Невозможно поймать ошибку с помощью оператора ошибки
Как создать динамический именованный диапазон – репликация A1:INDEX(range, COUNT()) в VBA?
Заключение переменной строки значений скобками в более крупную строку, содержащуюся в одной ячейке
Макрос для запуска строительного блока для определенного текста в документах MS Word
Как вызвать формулу ТОЧНО из VBA
Похожие вопросы
Как создать формулу Excel для преобразования значения ячейки в шестнадцатеричное число?
Как перечислить все комбинации значений из двух столбцов, разделенных точкой с запятой, в Excel/Sheets?
Невозможно использовать динамический именованный диапазон в качестве ряда данных. Что я делаю не так?
Подсчитайте количество разбиений внутри ячейки
VBA сталкивается с проблемой с функцией НАЙТИ с помощью Word
Ошибка при преобразовании данных из Excel в CSV с использованием библиотеки SheetJS и скрипта Google Apps
Python: объединение нескольких листов в один
Строки, отфильтрованные Power Query на основе значения
В VBA: открывайте, читайте, заменяйте символы и закрывайте текстовый файл максимально быстро
Невозможно поймать ошибку с помощью оператора ошибки
Вам нужна дата/время в виде строки или «числа», отформатированного в вашем пользовательском числовом формате? Где фиксация даты?