Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » kkep
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Конвертация в google app script, Конкретный скрипт
 
#
25.04.2018 14:14:55
тему можно закрывать.
 
Перейти    
Конвертация в google app script, Конкретный скрипт
 
#
25.04.2018 10:08:50
Цитата
Doober написал:
В течении часа могу взять в работу
Меня это больше устраивает
 
Перейти    
Конвертация в google app script, Конкретный скрипт
 
#
25.04.2018 10:01:15
Цитата
Все_просто написал:
При отсутствии возражений возьму в работу завтра.
Мне бы за сегодня закончить...
 
Перейти    
Конвертация в google app script, Конкретный скрипт
 
#
25.04.2018 09:42:39
Цитата
Все_просто написал:
Если интересно, пишите в ЛС.
ведем диалог
 
Перейти    
Конвертация в google app script, Конкретный скрипт
 
#
24.04.2018 19:59:12
Цитата
Doober написал:
На 10 умножите, тогда  можно и конвертировать в g
Да я как то впервый раз) не знаю цен на фриланс... может на 5, ни Вам, ни мне ? ;)
Цитата
Андрей VG написал:
Это что получается  - javascript дешевле, чем VBA?
Не знаю...

Цитата
Irregular Expression написал:
1) VBA (чтобы прочитать и понять представленный код)
Всё просто, есть таблица, в ней есть уникальные идентификаторы призентация, нужно чтоб при открытии файла проставлялась гиперссылка на файл, имя которого <уникальный идентификатор>.pdf. Все файлы расположены в одном каталоге на гугл диске, в том же где и таблица...
Цитата
Irregular Expression написал:
+ за оптимизацию, т.к. если код события на VBA требует отключения обновления экрана
в таблице всего 1000 +-500 строк... делал просто по наитию, разбираться и переводить на GS просто некогда...
Цитата
Irregular Expression написал:
вангую, он быстро выжрет лимит бесплатного серверного времени и вылетит с ошибкой.
Думаю обойдется...
 
Перейти    
Конвертация в google app script, Конкретный скрипт
 
#
24.04.2018 17:31:29
Доброго времени суток. Имеется скрипт на vba, нужно перекинуть в гугл докс.

Private Sub Workbook_Open()
Dim data_file As Object
Dim arch, path, file_path As String

Application.ScreenUpdating = False 'Отключаем обновление экрана
path = ThisWorkbook.path & "\Презентация"   'Вот тут нужно брать конкретную папку на гугл диске


'Вставляем гиперссылки
i = 2
With Application.Workbooks(1).Worksheets(1).Cells
   
LastRow = ThisWorkbook.Sheets("Лист1").Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
cikl:
If LastRow > i Then

ThisWorkbook.Sheets("Лист1").Range("L" & i).FormulaR1C1 = "=HYPERLINK(""" & path & "\""&RC14&"".pdf"","">>"")"

i = i + 1
GoTo cikl
Else

End If

End With





'ThisWorkbook.Sheets("Инфо").Select

Application.ScreenUpdating = True 'Включаем обновление экрана
End Sub






Готов пожертвовать рублей 100-150 руб. (Через СБОЛ)
 
Перейти    
Страницы: 1
Наверх