< návrat zpět

MS Excel


Téma: Promena v oblasti Range rss

Zaslal/a 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ěď >

#050915
avatar
Dim OBLAST1_paste1 As Range
Dim x As Integer

Set OBLAST1_paste1 = Worksheets("List16").Range("C8:C19")
x = 15
OBLAST1_paste1.Value = x
citovat
#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
#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 3x)
citovat
#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
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51