• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Promena v oblasti Range

Zaslal/a Merlin99 30.6.2021 19:36

Zdravim vsechny,
mam problem ze se mi nedari zadefinovat promenou v oblasti range

Dim OBLAST1_paste1 As Range
Set OBLAST1_paste1 = List16.Range("C8:C19")

Zde potrebuju vlozit promenou X ale zaboha se mi to nijak nedari...
OBLAST & X & _paste1.Value

Poradi nekdo prosim..
Děkuji

Zaslat odpověď >

---

Milan-158(30.6.2021 21:33)#050915

Dim OBLAST1_paste1 As Range
Dim x As Integer

Set OBLAST1_paste1 = Worksheets("List16").Range("C8:C19")
x = 15
OBLAST1_paste1.Value = xcitovat

Merlin99(1.7.2021 10:23)#050916

*Milan-158
ja potrubuji neco jineho potrebuji dostat promenou do te oblasti OBLAST1_paste1.Value:

Potreboval bych to udelat nejak takto ale nefunguje to...
OBLAST & X & _paste1.Value

X je ma promena kde budu podhazovat cisla ve smicce a potrebuji vzdy odkazat na jinou oblast.
citovat

elninoslov(1.7.2021 12:32)#050917

??? Pole oblastí ??? Alebo o čo ide ?
Sub Kopiruj_do_oblasti_X()
Dim OBLAST() As Range
Dim X As Integer

ReDim OBLAST(1 To 3)
With List16
Set OBLAST(1) = .Range("D8:D19") 'naplnenie poľa oblastí, pri väčšom množstve cyklom
Set OBLAST(2) = .Range("E8:E19")
Set OBLAST(3) = .Range("F8:F19")

X = .Range("D4").Value 'index oblasti X

If IsNumeric(X) Then 'zápis zdroju do oblasti X
If X >= LBound(OBLAST) And X <= UBound(OBLAST) Then OBLAST(X).Value = .Range("C8:C19").Value
End If
End With

'Ak ide len o priradenie zdroju C9:C19 do premennej Range podľa X, a nie o kopírovanie hodnôt potom stačí:
'Set OBLAST(X) = List16.Range("C8:C19")
'ale tu nepoznáme presné použitie, o čo ide ...
End Sub

Příloha: 50917_range-array.zip (17kB, staženo 11x)

citovat

Merlin99(1.7.2021 15:04)#050918

elninoslov
omlouvam se ze jsem nedodal lepsi priklad, ale vy jste to pochopil uplne presne. Z vaseho prikladu jsem si uz vse odvodil a vse funguje jak ma.
DĚKUJI MNOHOKRÁÁÁT citovat

elninoslov(1.7.2021 16:26)#050920

Evidentne sa jedná o rovnako veľké oblasti a sú len posunuté. Ak sú posúvané rovnomerne, tak stačí jednoduchý Offset.
Niečo na spôsob:
PRVÁ_CIEĽOVÁ_OBLASŤ.Offset(0, X - 1).Value = ZDROJOVÁ_OBLASŤ.Value
a nie je treba pole...citovat

Merlin99(2.7.2021 18:00)#050921

Naprostá pravda, super nápad na zjednodušení
DĚKUJI MOC citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse