[es] - Macro resize na levo

jakov1
Jakov Jakov
Beograd

Član broj: 36144
Poruke: 286
*.dynamic.isp.telekom.rs.

Sajt: https://www.yakonorent.co..

+2 Profil

Macro resize na levo

^{01.11.2014. u 18:46 - pre 115 meseci}

Imam više šitova čije podatke želim da spojim u jedan šit i posle ih pivotujem. Napravio sam macro koji delimično obavlja tu funkciju ali stao sam kod resize-a, tj kako prilikom resize-a da obuhvati 4 leve a ne desne kolone.
resize (, 4)

Rent a car Beograd https://www.yakonorent.com

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Macro resize na levo

^{03.11.2014. u 08:33 - pre 115 meseci}

Resize standardno počinje od gornjeg levog ugla opsega, tj, uzima kolone sa leve strane opsega. Ako treba uzeti sa desne pomeriš početak opsega (gornji levi ugao) sa offset za pogodan broj kolona i onda uzmeš sledeće 4

Code:
Sub TestResize()
' Primer za Resize
' Nakon sto se izabere opseg formira novi
' opseg na tri nacina
' 1- uzima cetiri kolone sa levestrane opsega
' 2- uzima cetiri kolone sa desne strane opsega
' 3- uzima cetiri kolone na levo od pocetka  opsega
'
' JPeca za elitesecurity.org

Dim rng  As Range, rngR As Range ' pocetni i opseg posle resize
Const N As Integer = 4  ' Broj kolona koji se uzima iz opsega
' Zadavanje opsega
Set rng = Application.InputBox(prompt:="Izaberi opseg", Type:=8)
Set rngR = rng.Resize(ColumnSize:=N)  ' Resize sa leva
MsgBox "Oblast posle Resize sa leve " & rngR.Address
' Resize sa desne strane
Set rngR = rng.Offset(ColumnOffset:=rng.Columns.Count - N).Resize(ColumnSize:=N) ' Resize sa desna
MsgBox "Oblast posle Resize sa desna " & rngR.Address
' Resize na levo od
  If rng.Column < 5 Then
    MsgBox "Neisparvan opsega za resize nalevo"
  Else
     Set rngR = rng.Offset(ColumnOffset:=-N).Resize(ColumnSize:=N) ' Resize nalevo
      MsgBox "Oblast posle Resize nalevo " & rngR.Address
  End If
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu