Uh-Yeah...

Uha, yep.

Friday, July 13, 2018

 

Our Excel StringDecompress routine.

Well, here's what we're usin'.

____________________________________________________________________________________________________

Function StringDecompress(str As String, n As Integer) As String

  On Error GoTo exitfunction

  Dim temp As String
  Dim c, i, j, strlen As Integer
  Dim nums() As Long: ReDim nums(n)

  strlen = Len(Mid(str, 2))

  temp = ""
  For i = 0 To strlen - 1
    temp = temp & Mid(str, strlen - i + 1, 1)
  Next i

  strlen = Application.WorksheetFunction.RoundUp(strlen / 2, 0)

  If (n < 2) Or (n < strlen) Then GoTo exitfunction

  For i = 0 To strlen - 1
    nums(n - 1 - i) = Val(Mid(temp, 2 * i + 2, 1) & Mid(temp, 2 * i + 1, 1))
  Next i

  c = 0
  i = 0
  For j = (n - strlen) To (n - 1)
    If c < (n - strlen) Then
      If nums(j) <= 9 Then
        nums(i) = nums(j)
        i = i + 1
      Else
        nums(i) = Int(nums(j) / 10)
        nums(i + 1) = nums(j) - (10 * nums(i))
        i = i + 2
        c = c + 1
      End If
    End If
  Next j

  temp = ""
  For i = 0 To n - 1
    temp = temp & Format(nums(i), "00 ")
  Next i

  StringDecompress = temp

Exit Function

exitfunction:

  StringDecompress = "Error"

End Function

____________________________________________________________________________________________________

 

The data pasted into Excel must be of a format that has a single non-numeric character at the beginning of each set of compressed numbers.

In this case, we used the middot '·' character, but it can be anything other than '-', '+' or a natural space hex code 20 or escape code \x20.

This causes Excel to treat the string of numbers as a string and prevents Excel from trying to convert the string of numbers into an actual number in Excel.

The usage is =StringDecpompress(str, n), where str is the cell containing the compressed string of numbers and n is the pick size of the desired separated number set.

Below is an example where n = 5:

 

Month Day Year Compressed #s Decompressed #s
·07 ·12 ·2018 ·318192425 03 18 19 24 25 
·07 ·11 ·2018 ·311162230 03 11 16 22 30 
·07 ·10 ·2018 ·613141531 06 13 14 15 31 
·07 ·09 ·2018 ·315282931 03 15 28 29 31 
·07 ·08 ·2018 ·35161721 03 05 16 17 21 
·07 ·07 ·2018 ·68223031 06 08 22 30 31 
·07 ·06 ·2018 ·37151631 03 07 15 16 31 
·07 ·05 ·2018 ·1416232930 14 16 23 29 30 
·07 ·04 ·2018 ·3582022 03 05 08 20 22 
·07 ·03 ·2018 ·1391427 01 03 09 14 27 
·07 ·02 ·2018 ·611202629 06 11 20 26 29 
·07 ·01 ·2018 ·27102129 02 07 10 21 29 
·06 ·30 ·2018 ·356927 03 05 06 09 27 
·06 ·29 ·2018 ·5671724 05 06 07 17 24 
·06 ·28 ·2018 ·110131531 01 10 13 15 31 
·06 ·27 ·2018 ·516192829 05 16 19 28 29 
·06 ·26 ·2018 ·14142328 01 04 14 23 28 
·06 ·25 ·2018 ·810132629 08 10 13 26 29 
·06 ·24 ·2018 ·26122430 02 06 12 24 30 
·06 ·23 ·2018 ·27161723 02 07 16 17 23 
·06 ·22 ·2018 ·914171826 09 14 17 18 26 
·06 ·21 ·2018 ·45272831 04 05 27 28 31 
·06 ·20 ·2018 ·1521242629 15 21 24 26 29 
·06 ·19 ·2018 ·720222426 07 20 22 24 26 
·06 ·18 ·2018 ·615202325 06 15 20 23 25 
·06 ·17 ·2018 ·1672227 01 06 07 22 27 

Comments:
Nice!
Can you post it?
Post it?

What it?
If you mean it by an Excel file, the code above can be copied and pasted into Excel.

Select and Copy the code between the horizontal lines.

Open Excel with a new file.

Next, press Alt + F11 to open the code editor.

Now, menu select Insert then Module.

This will create a module code page.

Finally, select anywhere on the module page and Paste the code you just copied from the blog.

Tada, you now have the function available to use.

Close the code editor and try typing the =StringDecompress( , ) function into the Excel sheet.

It should automagically popup with a selection for that function as you type.

Keep in mind when you save the file, it is now a Macro enabled Excel file with the file extension '.xlsm' .
Post a Comment

<< Home

Archives

April 2026   March 2026   February 2026   January 2026   December 2025   October 2025   September 2025   August 2025   July 2025   June 2025   May 2025   April 2025   March 2025   October 2024   May 2024   April 2024   March 2024   February 2024   January 2024   December 2023   November 2023   August 2023   May 2023   April 2023   March 2023   March 2021   February 2021   January 2021   December 2020   November 2020   October 2020   September 2020   August 2020   July 2020   June 2020   May 2020   April 2020   March 2020   January 2020   December 2019   November 2019   October 2019   September 2019   August 2019   July 2019   June 2019   May 2019   April 2019   March 2019   February 2019   January 2019   December 2018   November 2018   October 2018   September 2018   August 2018   July 2018   June 2018   May 2018   April 2018   March 2018   February 2018   January 2018   December 2017   November 2017   October 2017   September 2017   August 2017   July 2017   June 2017   May 2017   April 2017   March 2017   February 2017   January 2017   December 2016   November 2016   October 2016   September 2016   August 2016   July 2016   June 2016   May 2016   April 2016   March 2016   February 2016   January 2016   December 2015   November 2015   October 2015   September 2015   August 2015   July 2015   June 2015   May 2015   April 2015   March 2015   February 2015   January 2015   December 2014   November 2014   October 2014   September 2014   August 2014   July 2014   June 2014   May 2014   April 2014   March 2014   February 2014   January 2014   December 2013   November 2013   October 2013   September 2013   August 2013   July 2013   June 2013   May 2013   April 2013   March 2013   February 2013   January 2013   December 2012   November 2012   October 2012   September 2012   August 2012   July 2012   June 2012   May 2012   April 2012   March 2012   February 2012   January 2012   December 2011   November 2011   October 2011   September 2011   August 2011   July 2011   June 2011   May 2011   April 2011   March 2011   February 2011   January 2011   December 2010   November 2010   October 2010   September 2010   August 2010   July 2010   June 2010   May 2010   April 2010   March 2010   February 2010   January 2010   December 2009   November 2009   October 2009   September 2009   August 2009   July 2009   June 2009   May 2009   April 2009   March 2009   February 2009   January 2009   December 2008   November 2008   October 2008   September 2008   August 2008   July 2008   June 2008   May 2008   April 2008   March 2008   February 2008   January 2008   December 2007   November 2007   October 2007   September 2007   August 2007   July 2007   June 2007   May 2007   April 2007   March 2007   February 2007   January 2007   December 2006   November 2006   January 2006   November 2005   August 2005   July 2005   June 2005   April 2005   March 2005   February 2005   January 2005   December 2004  

Powered by Lottery PostSyndicated RSS FeedSubscribe