Squeak.ru - шаблоны программирования

Только значения вставки Excel игнорируют целевой формат

У меня есть довольно простой скрипт vba, который копирует перенесенные значения из диапазона на листе в другой, вот соответствующий код:

wb.ActiveSheet.Range("D2", "D32").Copy
cwb.ActiveSheet.Range("B10").PasteSpecial Paste:=xlPasteValues, Transpose:=True

Исходный диапазон представляет собой неформатированный текст (нет контроля над этим), но это время (xx:xx), в то время как место назначения соответствующим образом предварительно отформатировано как время (xx:xx).

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

Как я могу вызвать такое же поведение прямо при вставке диапазона в vba? От пользователя не требуется подтверждать каждую ячейку.

Я должен добавить, что это также приводит к сбою некоторых вычислений, потому что для превосходства это не числа.

excel vba excel-2016
30.03.2018

  • Могут помочь образцы данных и, возможно, изображение до и желаемого после? 30.03.2018

Ответы:


1

В вашем случае обычный Copy >> PasteSpecial не будет работать, вам нужно преобразовать время, введенное как String, в формат времени, который на самом деле представляет собой десятичное значение от 0 до 1. Вы можете добиться этого, используя TimeValue функция.

Таким образом, вам нужно Set объект CopyRng в диапазон, который вы хотите скопировать, и пройтись по нему, каждая ячейка использует TimeValue для преобразования строки в формат времени.

Код

Dim CopyRng As Range
Dim i As Long

Set CopyRng = wb.ActiveSheet.Range("D2", "D32") ' <-- I would try to avoid using Active Sheet

' loop through all cells in your range
For i = 1 To CopyRng.Cells.Count
    cwb.ActiveSheet.Range("B10").Offset(0, i - 1).Value = TimeValue(CopyRng.Cells(i, 1).Value)    
Next i
30.03.2018
  • Это отлично. Я подумаю над вашим замечанием об использовании ActiveSheet. 30.03.2018

    • 2

    Предыдущий ответ от Шай Радо работает, но имеет главный возврат, заключающийся в том, что в нем есть операции чтения + записи. Я также предлагаю использовать функцию TimeValue, но только с одним чтением/записью следующим образом:

    Function transposeAsTime(SourceRng As Range, TargetRng As Range)

Dim x As Variant
Dim y As Variant
x = SourceRng
ReDim y(1 To 1, 1 To UBound(x, 1))


For i = 1 To UBound(x, 1)
   y(1, i) = TimeValue(x(i, 1))
Next i

TargetRng.Resize(1, 1).Resize(1, UBound(y, 2)) = y

End Function

    Выполнить с помощью:

    Sub test()
transposeAsTime ThisWorkbook.Sheets(1).Range("D2:D32"), 
ThisWorkbook.Sheets(1).Range("D10")

End Sub
    30.03.2018
  • Спасибо за ваш ответ, однако код действительно продвинут для меня. Я бы предпочел использовать тот, что предлагает Шай Радо, поскольку я смогу с первого взгляда сказать, что он делает, если мне нужно будет что-то изменить в будущем. 30.03.2018
  • Без проблем. Если вам это интересно, я могу прокомментировать код, чтобы он был более понятным. 30.03.2018

    • 3

    Вы можете попробовать добавить код ниже (не проверено):

    cwb.ActiveSheet.Range("B10").PasteSpecial Paste:=xlPasteFormats, Transpose:=True
    30.03.2018
  • Разве это не скопирует исходный формат в целевой диапазон? Это не то, чего я хочу добиться. Вместо этого к новым данным следует применить целевой формат. 30.03.2018
    • Новые материалы
    Угловая структура архитектуры
    Обратите внимание, что эта статья устарела, я решил создать новую с лучшей структурой и с учетом автономных компонентов: https://medium.com/@marekpanti/angular-standalone-architecture-b645edd0d54a..
    «Данные, которые большинство людей используют для обучения своих моделей искусственного интеллекта, поставляются со встроенным…
    Первоначально опубликовано HalkTalks: https://hacktown.com.br/blog/blog/os-dados-que-a-maioria-das-pessoas-usa-para-treinar-seus-modelos-de-inteligencia-artificial- ja-vem-com-um-vies-embutido/..
    Сильный ИИ против слабого ИИ: различия парадигм искусственного интеллекта
    В последние годы изучению и развитию искусственного интеллекта (ИИ) уделяется большое внимание и прогресс. Сильный ИИ и Слабый ИИ — две основные парадигмы в области искусственного интеллекта...
    Правильный способ добавить Firebase в ваш проект React с помощью React Hooks
    React + Firebase - это мощная комбинация для быстрого и безопасного создания приложений, от проверки концепции до массового производства. Раньше (знаете, несколько месяцев назад) добавление..
    Создайте API с помощью Python FastAPI
    Создание API с помощью Python становится очень простым при использовании пакета FastAPI. После установки и импорта вы можете создать приложение FastAPI и указать несколько конечных точек. Каждой..
    Веселье с прокси-сервером JavaScript
    Прокси-серверы JavaScript — это чистый сахар, если вы хотите создать некоторую общую логику в своих приложениях, чтобы облегчить себе жизнь. Вот один пример: Связь клиент-сервер Мы..
    Получить бесплатный хостинг для разработчиков | Разместите свой сайт за несколько шагов 🔥
    Статические веб-сайты — это веб-страницы с фиксированным содержанием и его постоянным содержанием. Но теперь статические сайты также обрабатывают динамические данные с помощью API и запросов...