Как избежать использования Select в Excel VBA

Question

Как избежать использования Select в Excel VBA

Да. Связующее устройство по умолчанию может связывать «идентификаторы» с любым ICollection. Но вы должны представить несколько параметров с тем же именем. Это устраняет использование вспомогательного метода «ActionLink». Вы можете использовать действие помощника url и добавить идентификаторы к ссылке, например:

?ids=2&ids=1&ids=3">Test link

Вот ссылка из блока Хаака.

488

vba excel

задан PGSystemTester 13 December 2018 в 03:33

1 ответ

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

vba excel

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

score 0 · Answer 1

Работа с.Parent функцией. Этот пример показывает, как установка только одной myRng ссылки включает динамический доступ ко всей среде без.Select.Activate.Activecell.ActiveWorkbook.ActiveSheet и так далее. (Нет никакого genereic.Child функции)

Sub ShowParents()
    Dim myRng As Range
    Set myRng = ActiveCell
    Debug.Print myRng.Address                    ' an address of the selected cell
    Debug.Print myRng.Parent.name                ' the name of sheet, where MyRng is in
    Debug.Print myRng.Parent.Parent.name         ' the name of workbook, where MyRng is in
    Debug.Print myRng.Parent.Parent.Parent.name  ' the name of application, where MyRng is in

    ' You may use this feature to set reference to these objects
    Dim mySh    As Worksheet
    Dim myWbk   As Workbook
    Dim myApp   As Application

    Set mySh = myRng.Parent
    Set myWbk = myRng.Parent.Parent
    Set myApp = myRng.Parent.Parent.Parent
    Debug.Print mySh.name, mySh.Cells(10, 1).Value
    Debug.Print myWbk.name, myWbk.Sheets.Count
    Debug.Print myApp.name, myApp.Workbooks.Count

    ' You may use dynamically addressing
    With myRng
        .Copy

       ' pastes in D1 on sheet 2 in the same workbook, where copied cell is
        .Parent.Parent.Sheets(2).Range("D1").PasteSpecial xlValues
    ' or myWbk.Sheets(2).Range("D1").PasteSpecial xlValues

       ' we may dynamically call active application too
        .Parent.Parent.Parent.CutCopyMode = False
    ' or myApp.CutCopyMode = False
    End With
End Sub