Solved

Excel VBA: Nested Areas in a Range object ?

Posted on 2016-07-20
6
90 Views
Last Modified: 2016-07-21
I am fairly sure this is not possible but I wanted to 'bounce it off' my fellow Excel experts to be sure.

When you have a range object that includes multiple non-contiguous ranges they are represented as child 'Area' objects of a master Range object. If you have multiple ranges which each contain multiple areas and you combine those ranges will you only get one 'level' or area objects or can each area object include multiple areas in a nested fashion ?

It appears to me, and common sense. that when a new range is created out of a union of combined ranges their multi-area reference notation is simply combined together so it appears as if you had selected all the areas in one range object. In which case it is not possible that one of more areas in a range will itself contain multiple areas.

Am I right ?
0
Comment
Question by:AL_XResearch
  • 3
  • 2
6 Comments
 
LVL 12

Expert Comment

by:Jeff Darling
ID: 41721657
I think one way to test this is to look at some VBA with a union of some ranges that overlap.

Excel Range Union Test
Dim Area1Rng As Range
Dim Area2Rng As Range
Dim Area3Rng As Range
Dim Area4Rng As Range

Set Area1Rng = Range("Area1")
Set Area2Rng = Range("Area2")
Set Area3Rng = Range("Area3")
Set Area4Rng = Range("Area4")


For Each itm In Area1Rng
  lstRangesArea1.AddItem itm.Address
Next

For Each itm In Area2Rng
  lstRangesArea2.AddItem itm.Address
Next

For Each itm In Area3Rng
  lstRangesArea3.AddItem itm.Address
Next

For Each itm In Area4Rng
  lstRangesArea4.AddItem itm.Address
Next

Dim unionRng As Range
Set unionRng = Union(Area1Rng, Area2Rng, Area3Rng, Area4Rng)

For Each itm In unionRng
  lstRangesUnion.AddItem itm.Address
Next

Open in new window


I predefined the ranges.

predefined ranges.
0
 
LVL 3

Author Comment

by:AL_XResearch
ID: 41721693
So you're agreeing with me ?

To put another way; is there any way to create a range object where the areas within it themselves have areas ?
0
 
LVL 12

Assisted Solution

by:Jeff Darling
Jeff Darling earned 250 total points
ID: 41721820
I'm trying to understand what the question is.

Maybe an array of ranges like this?

Dim prog2Rng(3) As Range
Set prog2Rng(0) = Range("Area1")
Set prog2Rng(1) = Range("Area2")
Set prog2Rng(2) = Range("Area3")

Dim i

For i = 0 To UBound(prog2Rng) - 1
  For Each itm In prog2Rng(i)
   lstRangesTest.AddItem itm.Address
  Next
Next

Open in new window


Then if you process each range in the array, that will give you what you want?  

another screenshot.
notice that the duplicates are not removed when done this way.
0
Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

 
LVL 3

Author Comment

by:AL_XResearch
ID: 41721987
That doesn't really answer my question i am afraid.

What I am trying to determine is: Is it possible for the area object of a range to itself contain areas ?

I don't think so but I am looking for other's opinions.
0
 
LVL 49

Accepted Solution

by:
Rgonzo1971 earned 250 total points
ID: 41722189
Hi,

When you create a new range by Union of many Ranges, the new range has its own areas, it does not have the memory of past areas( or sub-areas) .

Regards
0
 
LVL 3

Author Comment

by:AL_XResearch
ID: 41722284
Rgonzo1971: That was the conformation I was looking for.
0

Featured Post

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many companies are making the switch from Microsoft to Google Apps (https://www.google.com/work/apps/business/). Use this article to learn more about what Google Apps has to offer and to help if you’re planning on migrating to Google Apps. It is …
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question