|
|
|
из VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Пожалуйста помогите перевести код из VBA в VBS, а то уже не хватает времени до конца разобраться..... Sub test() Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False With Application .UseSystemSeparators = True End With Dim LastCell As Range: Set LastCell = Range("B65536").End(xlUp).Offset(1) LastCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)" LastCell.AutoFill LastCell.Resize(, 2) LastCell.EntireRow.Cells(1) = "Èòîã:" End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:23:49 |
|
||
|
|
start [/forum/topic.php?fid=22&tid=1449592]: |
0ms |
get settings: |
8ms |
get forum list: |
20ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
37ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
| others: | 192ms |
| total: | 327ms |
| 0 / 0 |
