|
|
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
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, 13:46 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Это приказ? И чему помогать? Попыток автора и вопросов по теме не наблюдается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 13:51 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Shocker.Pro, это просьба <Script language="VBscript"> Function summ Application.UseSystemSeparators = True Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Summa As Range: Set Summa = Range("B65536").End(xlUp).Offset(1) Summa.FormulaR1C1 = "=SUM(R1C:R[-1]C)" Summa.EntireRow.Cells(1) = "Итог:" end Function </Script> ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 13:59 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
1) То есть все, что вы сделали - написали тэги вокруг кода. 2) если речь идет об html? может лучше сюда? HTML, JavaScript, VBScript, CSS ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:17 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Shocker.Pro, спасибо за совет. если бы я знал как переделать, то я бы не обратился за помощью! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:25 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Ну для начала надо наверное понять, что приведенный фрагмент программы выполняется в контексте какой-то книги. Если вы пишете отдельный скрипт, наверное надо как-то открыть эксель, открыть определенную книгу, подключиться к ней и т.п., а потом уже работать с ячейками? нет? все это надо за вас подумать? ЗЫ: я точно не знаю, а позволит ли html-vbscript в принципе делать подобные небезопасные действия. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:28 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Shocker.Pro, <script language="javascript"> function test() { var xls = new ActiveXObject ( 'Excel.Application' ); xls.visible = true; var newBook = xls.Workbooks.Add; var oSheet = newBook.ActiveSheet; newBook.Worksheets.Add; newBook.Worksheets(1).Activate; newBook.Worksheets(1).Cells(1,2).value='1.25'; newBook.Worksheets(1).Cells(2,2).value='2.1'; newBook.Worksheets(1).Cells(1,3).value='1'; newBook.Worksheets(1).Cells(2,3).value='10'; newBook.Worksheets(1).Name='WorkSheet from Javascript'; } </script> </head> <body> <input type='button' value='Excel' onClick="test()"> </body> </html> ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:31 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Shocker.Pro, у меня не возникает проблем с открытием Excel и созданием книги. Я подключил готовую книгу с этим макросом, но в связи с тем что у удаленного пользователя мог возникнуть проблемы с этим, мне пришлось думать как бы этот макрос переделать в VBS.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:34 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
это будет только локально работать (скорее всего в HTC) и при условии ,что страничка не на webserver расположена. + куча ограничений по безопасности (требуются настройки) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:36 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
Konst_One, Мне как раз для локального пользования это тербуется. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:39 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
смысл такого чуда локально не понятен. чеп не устраивает обычный vbs? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:40 |
|
||
|
Помогите переделать VBA в VBS
|
|||
|---|---|---|---|
|
#18+
*чем ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2012, 14:41 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=37874851&tid=2157602]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
45ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 17ms |
| total: | 159ms |
| 0 / 0 |
