Excel question

[Gintaras]

Adds 0 if cell text length is <3.
1 -> 001
2 -> 002

Macro

Code:

Copy      Help

;/exe 1
out
str sn="0000000000"
ARRAY(str) a
ExcelSheet es.Init
es.GetCells(a) ;;gets all cells. To get only selected cells, use this: es.GetCells(a "sel")
int r c
for r 0 a.len
,if(mes("Row %i" "" "OC" r+1) != 'O') break
,for c 0 a.len(1)
,,str& s=a[c r]
,,int x=3-s.len
,,if(x<=0) continue
,,s.fromn(sn x s s.len)
,,out s
,,es.SetCell(s c+1 r+1)