How do you get an Exell Spreadsheet to count up to 4,294,967,296

Joined
May 22, 2010
Messages
2,079
How do you get an Exell Spreadsheet to count up to 4,294,967,296 in Decimal without having to type each Formula into each cell if this is possible? I tried =IF(A2=INT(A2),0,LEN(MID(A2-INT(A2),FIND(".",A2,1),LEN(A2)-FIND(".",A2,1)))), but it didn't help much and I could only find three pages of relevant answers in my webpage search using Google Chrome. I'm using LibreOffice actually and not Microsoft Excel because I can't afford the subscription.
 
Special copy: copy formula. Should automatically change cell values as if you used the copy handle, although I'm not certain on that.
 
Special copy: copy formula. Should automatically change cell values as if you used the copy handle, although I'm not certain on that.
Thank and sorry I should have been more specific. By that I mean I'm trying to create a Non-Printable ASCII character chart and I want a formula or function that will automatically fills the rows in decimal up 4,294,967,296. Then I want it to count up to automatically fill the rows up to 4,296,967,296 in Octal, Hexidecimal, ASCII, and Binary. I don't think this is the right forum to ask, but where should I ask such a question if not here on hard forum. I did up to 255 so far, but it was all manuallly and very tedious, which if I actually knew what I was doing it would even be necessary to fill each cell manually in dot docx using libre writer.
 
I would think you would use a macro.

Example - this fills the rows 1 -> 10, of the A column, with it's row number.

Rich (BB code):
sub testFill

    dim document   as object
    dim dispatcher as object

    dim maxVal as integer
    maxVal = 10 '!! change this to what ever you want.
   
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   
    dim args1(0) as new com.sun.star.beans.PropertyValue
    dim args2(0) as new com.sun.star.beans.PropertyValue

    dim iCount as integer
   
    for iCount = 1 to maxVal
        args1(0).Name = "ToPoint"
        args1(0).Value = "$A$" + cstr(iCount)  '!! $A is the A column and it appends the row number to get the specific cell
        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
   
   
        args2(0).Name = "StringName"
        args2(0).Value = CStr(iCount)
        dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
    next iCount  
   

   msgbox "Completed!"
end sub
 
Last edited:
  • Like
Reactions: Nobu
like this
Back
Top