Tests and Notes on Range objects in Excel Cell

[DocAElstein]

Sub RangeObjectsDefaultPropertiesCells()  '    https://www.excelfox.com/forum/showthread.php/2914-Tests-and-Notes-on-Range-objects-in-Excel-Cell?p=23181&viewfull=1#post23181
Rem 0 ' Test data range
Dim Ws12 As Worksheet: Set Ws12 = ThisWorkbook.Worksheets.Item("Sheet1 (2)")
 Ws12.Range("A80:D80").Clear  '  .Clear  to get rid of all valiues and any formats
 Ws12.Range("A69:B69").Clear
 Let Ws12.Range("A69").Value = Split("44") ' '         Gives  Number held as text thing 
 Let Ws12.Range("B69").Value = "42"    '      does not gives                            "
Rem 1
Dim Rng As Range
 Set Rng = Ws12.Range("A69:B69")      '  Watch : + : Rng :  : Range/Range : Sheet2.RangeObjectsDefaultPropertiesCells
'                                               + : Value2 :  : Variant/Variant(1 to 1, 1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
'                                                       + : Value2(1) :  : Variant(1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
'                                                                       : Value2(1,1) : "44" : Variant/String : Sheet2.RangeObjectsDefaultPropertiesCells
'                                                                       : Value2(1,2) : 42 : Variant/Double : Sheet2.RangeObjectsDefaultPropertiesCells
Debug.Print VarTyp(VarType(Rng))  '  Array of Variant type Elements
Dim vTemp As Variant, Str As String
 Let vTemp = Rng '                       Watch : + : vTemp :  : Variant/Variant(1 to 1, 1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
'                                             + : vTemp(1) :  : Variant(1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
'                                                      : vTemp(1,1) : "44" : Variant/String : Sheet2.RangeObjectsDefaultPropertiesCells
'                                                      : vTemp(1,2) : 42 : Variant/Double : Sheet2.RangeObjectsDefaultPropertiesCells
'  Let Str = Rng  '                 Runtime error  14    Type mismatch
Rem 2
 Let Ws12.Range("A80") = Rng: Ws12.Range("A80").Value = Rng  '  Nothing seems to have been done
Debug.Print VarType(Ws12.Range("A80"))                 '  0
Debug.Print VarType(Ws12.Range("A80").Value)           '  0
Debug.Print VarTyp(VarType(Ws12.Range("A80")))         '  Empty
Debug.Print VarTyp(VarType(Ws12.Range("A80").Value))   '  Empty
' Note that we see an empty space here :     https://i.postimg.cc/sgdHWZc7/Range-A69-B69.jpg                 https://i.postimg.cc/sgdHWZc7/Range-A69-B69.jpg
 
 Let Ws12.Range("A81") = Rng.Value      ' Watch : + : Ws12.Range("A81") : 44 : Object/Range : Sheet2.RangeObjectsDefaultPropertiesCells
 Ws12.Range("A81").Clear
 Ws12.Range("A81").Value = Rng.Value    ' Watch :   : Range("A81").Value : 44 : Variant/Double : Sheet2.RangeObjectsDefaultPropertiesCells
Debug.Print VarTyp(VarType(Ws12.Range("A81").Value))   '  Double-precision floating-point number
Debug.Print VarTyp(VarType(Rng.Value))                 '  Array of Variant type Elements

 Let Ws12.Range("A82").Value = Rng.Value(RangeValueDataType:=xlRangeValueDefault)
   ' Watch :   : Ws12.Range("A82").Value : 44 : Variant/Double : Sheet2.RangeObjectsDefaultPropertiesCells
   ' Watch : + :  Rng.Value(RangeValueDataType:=xlRangeValueDefault) :  : Variant/Variant(1 to 1, 1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
   '         + :  Rng.Value(RangeValueDataType:=xlRangeValueDefault)(1) :  : Variant(1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
   '           :  Rng.Value(RangeValueDataType:=xlRangeValueDefault)(1,1) : "44" : Variant/String : Sheet2.RangeObjectsDefaultPropertiesCells
   '           :  Rng.Value(RangeValueDataType:=xlRangeValueDefault)(1,2) : 42 : Variant/Double : Sheet2.RangeObjectsDefaultPropertiesCells
 
 Ws12.Range("A82").Clear: Ws12.Range("A82") = Rng.Value(RangeValueDataType:=xlRangeValueDefault)
                                        ' Watch : + : Ws12.Range("A82") : 44 : Object/Range : Sheet2.RangeObjectsDefaultPropertiesCells
 Let Ws12.Range("A83").Value = Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet)
'                               Watch :   : Ws12.Range("A83").Value : " : Varinat/String
'                                                                      
'                                                                      
'                                                                      xmlns: o = "urn:schemas-microsoft"
'                                                                                 ... etc.
                                                                                    Let Ws12.Range("A83").WrapText = False: Ws12.Range("A83").Clear
 Let Ws12.Range("A83") = Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet): Let Ws12.Range("A83").WrapText = False
'                               Watch : + : Ws12.Range("A83") : "  :  Variant/String
'                                                               
'                                                               
'                                                               xmlns: o = "urn:schemas-microsoft-com:o"
'
'
'  Watch :   : Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet) : "
'                                                                         
'                                                                         '  Strange its not showing an array
 Let Ws12.Range("A84:B84") = Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet):      Ws12.Range("A84:B84").WrapText = False
'  and not producing one either - It puts the same value in both cells
 Let Ws12.Range("A84:B84").Value = Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet) '  :      Ws12.Range("A84:B84").WrapText = False
'  (The behaviour of   Range2.Value =   or   Range2 =   making no difference is still apparant for  RangeValueDataType:=xlRangeValueXMLSpreadsheet )
                                                                                                                                                                                                                               
                                                                                                             Ws12.Range("A84:B84").WrapText = False
 Let vTemp = Rng.Value  '   Watch : - : vTemp :  : Variant/Variant(1 to 1, 1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
'                                + : vTemp(1) :  : Variant(1 to 2) : Sheet2.RangeObjectsDefaultPropertiesCells
'                                   : vTemp(1,1) : "44" : Variant/String : Sheet2.RangeObjectsDefaultPropertiesCells
'                                   : vTemp(1,2) : 42 : Variant/Double : Sheet2.RangeObjectsDefaultPropertiesCells
 Let vTemp = Rng.Value() '    Watch as above                             "
 Let vTemp = Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet) ' Watch :   : vTemp : "
'                                                                                            
'                                                                                            
'                                                                                            xmlns: o = "urn:schemas-microsoft-com:office:office"
'                                                                                              ....etc...
Debug.Print vTemp
'
'
'
'xmlns: o = "urn:schemas-microsoft-com:office:office"
'xmlns: x = "urn:schemas-microsoft-com:office:excel"
'xmlns: ss = "urn:schemas-microsoft-com:office:spreadsheet"
' xmlns:html="http://www.w3.org/TR/REC-html40">
' 
'  
'  
' 
' 
'  '   ss:DefaultColumnWidth="49.5">'   '   '   
'    44'    42'   
'  
' 
'
 Let Str = Rng.Value(RangeValueDataType:=xlRangeValueXMLSpreadsheet)
'  Let Str = Rng.Value()  '   Type mismatch
 Let Str = Rng.Value(RangeValueDataType:=xlRangeValueMSPersistXML)
Debug.Print Str
'
'xmlns: dt = "uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
'xmlns: s = "uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"
' xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema">
' 
'  1
'  
'   
'    
'    
'    
'   
'   
'    
'   
'   
'    
'   
'  
'  
'   
'  
' 
'

End Sub

.
.
.

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA