same again in IE 9 [Archive] - Excel, Access, PowerPoint and Word VBA Macro Automation Help

DocAElstein

08-23-2014, 02:33 AM

Sub TestEvaluateVBA3_n1n2n3() Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range Set RangeH3H4 = Range("H3:H4") Set RangeB3B4 = Range("B3:B4") Set RangeC3C4 = Range("C3:C4") Set RangeD3D4 = Range("D3:D4") RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "") End Sub

Sub TestEvaluateVBA3_n1n2n3() Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range Set RangeH3H4 = Range("H3:H4") Set RangeB3B4 = Range("B3:B4") Set RangeC3C4 = Range("C3:C4") Set RangeD3D4 = Range("D3:D4") RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "") End Sub

DocAElstein

08-23-2014, 02:34 AM

OK . Think the might do for testing today.....

DocAElstein

08-23-2014, 02:37 AM

OK . Think the might do for testing today.....

last attempt with reply.....

Sub TestEvaluateVBA3_n1n2n3() Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range Set RangeH3H4 = Range("H3:H4") Set RangeB3B4 = Range("B3:B4") Set RangeC3C4 = Range("C3:C4") Set RangeD3D4 = Range("D3:D4") RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "") End Sub

Sub TestEvaluateVBA3_n1n2n3() Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range Set RangeH3H4 = Range("H3:H4") Set RangeB3B4 = Range("B3:B4") Set RangeC3C4 = Range("C3:C4") Set RangeD3D4 = Range("D3:D4") RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "") End Sub

DocAElstein

08-23-2014, 02:38 AM

last attempt with reply.....

Sub TestEvaluateVBA3_n1n2n3()
Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range
Set RangeH3H4 = Range("H3:H4")
Set RangeB3B4 = Range("B3:B4")
Set RangeC3C4 = Range("C3:C4")
Set RangeD3D4 = Range("D3:D4")
RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "")
End Sub

Sub TestEvaluateVBA3_n1n2n3()
Dim RangeH3H4**As Range, RangeB3B4 As Range, RangeC3C4 As Range, RangeD3D4 As Range
Set RangeH3H4 = Range("H3:H4")
Set RangeB3B4 = Range("B3:B4")
Set RangeC3C4 = Range("C3:C4")
Set RangeD3D4 = Range("D3:D4")
RangeH3H4 = Evaluate("**" & RangeB3B4.Address & "** " & "&""****""&" & "**** " & RangeC3C4.Address & "" & "&""****""&" & "" & RangeD3D4.Address & "")
End Sub

those F***ing *** again !!!

Excel Fox

08-29-2014, 08:29 AM

So what exactly are you testing?

DocAElstein

08-29-2014, 11:17 PM

Hi, Thanks for the Reply

. …………..…

So what exactly are you testing?

. As I was new to this Forum I just wanted to check out generally how to show Codes, Spreadsheet tables, etc. etc. I assumed these test are simply deleted after a few days: …..

……. now spend some time experimenting with the editor. I assume that is OK? – Presumably you delete these tests after a couple of days?. I do not wish to clutter your ………

. I simply wanted to get an overall view of everything including all the quirks / bugs etc. My aim was just to be able to give the clearest possible posts.
. As it came out the ExcelFox editor seems very similar to that in the MrExcel Forum where I have been for a couple of Months now – Similar quirks, Bugs etc. which I can usually get around. (The strange appearance of *** …
those F***ing *** again !!!….. is just one of many issues – These unwanted ****** come in when one edits a post and sometime also when replying. )

. I am generally happy and may just occasionally check a few things here. I am happy for you to delete my tests after a day or so.

Thanks again
Alan Elston

Admin

09-01-2014, 01:43 PM

DocAElstein

09-01-2014, 02:07 PM

Hi

To use the code tag, select the whole code and click on the # button or the tags are [code] your code [ /code] (obviously without space)

To show the table, we don't have the Excel jeanie or any other add-ins, however you can attach your workbook.

I haven't noticed the * are coming when you reply/edit a post.

Hi,
. Thanks for the reply.
. As I mentioned I think I am happy now with working with your editor. It appears similar or identical to the one In MrExcel.com
. Attaching a workbook is my favorite method anyway. (It is not such a favored method in MrExcel.) So nice that you suggested it! I will probably use that method often, in addition with CODE TAGS etc. with which I am familiar.
Alan Elston

DocAElstein

09-16-2015, 02:39 PM

Just testing colur formats, copying in iun different browsers etc.

. ...........One last useful observation here: One can of course do justVBA . Following on from that last code line, a classic example given is usingVBA to get the =Evaluate ( “ = A1 “ ) . The corresponding mainly orexclusively VBA Code Evaluate would be<o:p></o:p>
Excel Spreadsheet =A1 = Evaluate("=" &ws.Range("A1").Address& "")'Explicit Version
Excel Spreadsheet =A1 = Evaluate("" &ws.Range("A1").Address & "")'Implicit Default<o:p></o:p>
A characteristic of the VBA Evaluate Method, ( or rather The building of its String Argument ),which can be helpful in particular when trying to understand the tricky Themeof the different type of quotes in a long complicated string Argument, is thatthe pair of effectively empty VBA Evaluate quote pairsused in conjunction with an ampersand to linkThe Spreadsheet“world” to theVBA CodeWorld can have any amount of spaces betweenthem with no effect on the code line.
. So that last line May be rewritten
Let ws.Range("B2").Value = Evaluate("big empty light grey space" & ws.Range("A1").Address& "big empty white space") '
. As long as there is something in the total string that can be evaluated thiswill not error. The explanation would be that within the VBA Evaluate “ “pair nothing is being evaluated. It is a deadspace.<o:p></o:p>
There will be situations where thiscan help later to identify which quotes are which, or to which “world” theybelong**................ so further <o:p></o:p>
...................................

add spaces 1 to 2 to get rid of lost spaaces in original text

............One last useful observation here: One can of course do just VBA . Following on from that last code line, a classic example given is using VBA to get the =Evaluate ( “ = A1 “) . The corresponding mainly or exclusively VBA Code Evaluate would be<o:p></o:p>
Excel Spreadsheet =A1 = Evaluate("=" &ws.Range("A1").Address& "")'Explicit Version
Excel Spreadsheet =A1 = Evaluate("" &ws.Range("A1").Address & "")'Implicit Default<o:p></o:p>
A characteristic of the VBA Evaluate Method, ( or rather The building of its String Argument ), which can be helpful in particular when trying to understand the tricky Theme of the different type of quotes in a long complicated string Argument, is that the pair of effectively empty VBA Evaluate quote pairsused in conjunction with an ampersand to link The Spreadsheet“world” to theVBA CodeWorld can have any amount of spaces between them with no effect on the code line.
. So that last line May be rewritten
Let ws.Range("B2").Value = Evaluate("big empty space" & ws.Range("A1").Address& "big empty space") '
. As long as there is something in the total string that can be evaluated this will not error. The explanation would be that within the VBA Evaluate “ “pair nothing is being evaluated. It is a dead space.<o:p></o:p>
There will be situations where this can help later to identify which quotes are which, or to which “world” they belong**................ so further <o:p></o:p>
...................................<o:p></o:p>

Let ws.Range("B2").Value = Evaluate("big wmpty grey space" & ws.Range("A1").Address& "big empty white space") '

.................................................. ..........................
Very light GREY Text light GREY light GREY light GREY <o:p></o:p>
<o:p> </o:p>
WHITE Text WHITE WHITE WHITE WHITE WHITE<o:p></o:p>
<o:p> </o:p>
Grey White text GreyWhite GreyWhite GreyWhite <o:p></o:p>
<o:p> </o:p>
<o:p> </o:p>

Range("I1").Value = Evaluate(" " & Range("A1").Address & " ") '

Range("I1").Value = Evaluate(" " & Range("A1").Address & " ") ' Demo for spaces..

.... ) )