[Oake]

W #vba #excel potrzebuję w kodzie Range zrobić tak, żeby jedna z cyferek określała wiersz aktywnej komórki, a jedna z literek określała kolumnę aktywnej komórki. Przykład jak myślę, że będzie to wyglądać:
Dim x as niewiemco
Dim y as niewiemtez

Set x = ActiveCell.EntireColumn
Set y = ActiveCell.EntireRow

Range("A1:xy").Select

Prawdopodobnie staram się to zrobić w zły sposób, ale jako co w ogóle dimować takie parametry, żeby później móc wsadzić je do takiego range'a?

#pytanie #pytaniedoeksperta

[severh]

@Oake: konkretna komórka to będzie Cells

https://docs.microsoft.com/en-us/office/vba/api/excel.range.cells

[Oake]

@severh: Z tym, że właśnie nie chodzi mi o konkretne komórki, tylko o taki range:
Range("M:M,13:13").Select

Z tym, że chciałbym, żeby był elastyczny i zależny od aktywnej komórki.

[Oake]

@Oake: Wtedy kod wyglądałby tak: Range("x:x, y:y").Select
Z tym, że nie wiem jako co zdimować i nie wiem co wyciągnąć z ActiveCella. Po prostu ActiveCell.EntireColumn. ActiveCell.EntireColumn. Adress?

[brak_nicku]

@Oake: mętnie to opisujesz, ale chyba Union powinno pomóc. Union(x,y).Select

[Morsol]

@Oake: Range startuje zawsze od komórki A1
Sub abc()

Dim x, y As Integer

x = ActiveCell.Row
y = ActiveCell.Column

ActiveSheet.Range(Cells(1, 1), Cells(x, y)).Select

End Sub

[Oake]

@Morsol: Pisałem, że nie chodzi mi o komórki w Rangu tylko o coś takiego: Range("M:M,13:13").Select
Zrobiłem w ten sposób co pokazałeś, z tym rangem co podałem i wyskoczył mi taki błąd:

[Oake]

przy takim kodzie:

[DwaNiedzwiedzie]

@Oake: Nie zrobiłeś tak, jak pisał @Morsol, tylko napisałeś swój kod, który nie ma prawa działać. Załóżmy, że aktywną komórką jest M20 - jaki zakres chcesz zaznaczyć makrem?

[Oake]

taki

[DwaNiedzwiedzie]

@Oake: No to teraz przeczytaj, co napisał @brak_nicku.

[Oake]

@DwaNiedzwiedzie: przeczytałem i działa, ale takim kodem tylko mi się udało jak na obrazku. A czy da się zrobić tym sposobem, o którym wcześniej pisałem? Możesz wyjaśnić czemu mój wcześniejszy kody "nie miał prawa działać", skoro zwykłe "Range("M:M,13:13").Select" daje taki efekt jaki chce?

[DwaNiedzwiedzie]

czemu mój wcześniejszy kody "nie miał prawa działać"

@Oake: Po pierwsze masz nadmiarowy dwukropek po drugim iksie i to on powoduje błąd. Po drugie taki zapis excel zrozumie literalnie jako polecenie zaznaczenia kolumn X i Y; żeby przekazać do zakresu liczby przechowywane w zmiennych, musisz dołączyć je poza nawiasami operatorem "&". Po trzecie do zmiennej y zostanie przekazany numer kolumny, co obiekt Range potraktuje jako wiersz, musiałbyś zatem najpierw przerobić liczbę

[Oake]

@DwaNiedzwiedzie: ok dzieki