< návrat zpět

MS Excel

Téma: Promena v oblasti Range rss

Zaslal/a Merlin99 30.6.2021 19:36

Merlin99Zdravim 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 7 8

Zaslat odpověď >
Milan-158(30.6.2021 21:33)#050915
avatar
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
Merlin99
*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.
7citovat
elninoslov(1.7.2021 12:32)#050917
elninoslov
??? 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: zip50917_range-array.zip (17kB, staženo 12x)
citovat
Merlin99(1.7.2021 15:04)#050918
Merlin99
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 5 5 5 5 5 9citovat
elninoslov(1.7.2021 16:26)#050920
elninoslov
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
Merlin99
Naprostá pravda, super nápad na zjednodušení
DĚKUJI MOC 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje