![]() |
![]() |
Products | Download | Order | Forum | Contact us |
WorkBook.ActiveSheet.Selection.Offset[2, 3].Font.Underline := xlDouble;
With WorkBook.Sheets[1].Range['B5','G7'] do begin Offset[Rows.Count, 0].Insert(xlShiftDown); Copy(Offset[Rows.Count, 0], xlPasteAll); end;
| Copyright © NikaSoft 2004-2012 |