Выбор строк и копирование в столбцы

Question

Выбор строк и копирование в столбцы

С версией mssql 2.1.2 от 2015-04-13:

удалить из DeviceAccountLinks, где DeviceAccountId = @deviceAccountId и DeviceType = @deviceType

оператор не выдаст результаты как «undefined»

Я изменил оператор на:

удалить из DeviceAccountLinks, где DeviceAccountId = @deviceAccountId и DeviceType = @deviceType; выберите @@ rowcount "rowCount"

, чтобы получить вывод: [{rowCount: 1}]

0

excel vba

задан Pᴇʜ 17 January 2019 в 07:45

1 ответ

Другие вопросы по тегам:

excel vba

Похожие вопросы:

score 0 · Answer 1

Вы почти на месте:

Вам необходимо .PasteSpecial Transpose:=True перенести свои данные.
Я вставил обработку ошибок, чтобы пользователь мог нажать кнопку отмены.
Я переименовал ваши переменные, поскольку range1 не является хорошим именем переменной. Использование значимых имен значительно облегчает чтение и поддержку вашего кода.

Итак, вы получите…

Option Explicit

Public Sub main()
    On Error Resume Next 'don't error on cancel button
    Dim rngSource As Range
    Set rngSource = Application.InputBox("Select src Range", "select src range", Type:=8) 'type 8 = range

    Dim rngDest As Range
    Set rngDest = Application.InputBox("select des range", "select des range", Type:=8)
    On Error GoTo 0 're-activate error reporting

    If Not rngSource Is Nothing And Not rngDest Is Nothing Then
        rngSource.Copy
        rngDest.PasteSpecial Transpose:=True
    End If
End Sub

Если вы хотите вставить только значения без форматирования, используйте…

rngDest.PasteSpecial Paste:=xlPasteValues, Transpose:=True

См. Range.PasteSpecial метод и Перечисление xlPasteType для получения дополнительной информации.