Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как оформлять сообщения? - Страница 3 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Мир MS Excel » Работа форума и сайта » Объявления администрации » Как оформлять сообщения?
Как оформлять сообщения?
krosav4ig Дата: Среда, 06.03.2019, 00:58 | Сообщение № 41
Группа: Друзья
Ранг: Старожил
Сообщений: 2053
Репутация: 854 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Да я и так все, что нужно разглядел :) Сформировать код таблицы из буфера обмена не составляет сложности (собственно, это ужо сделано), но вот сайт его не принимает, видимо те посты писались через wysiwyg-редактор или нужны привилегии.


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 06.03.2019, 23:46
 
Ответить
СообщениеДа я и так все, что нужно разглядел :) Сформировать код таблицы из буфера обмена не составляет сложности (собственно, это ужо сделано), но вот сайт его не принимает, видимо те посты писались через wysiwyg-редактор или нужны привилегии.

Автор - krosav4ig
Дата добавления - 06.03.2019 в 00:58
sasha1982161082 Дата: Четверг, 18.04.2019, 18:43 | Сообщение № 42
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 1 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Хочу спросить, это правильное оформление кода? (см ниже)
[Sub tt()
Dim n As String
Dim m As String
n = ActiveWorkbook.Sheets.Count
For i = 1 To n
Sheets(i).Activate
For Each pt In ActiveSheet.PivotTables
pt.ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"C:\Users\Ïîëüçîâàòåëü ÌÑ\Desktop\[Èñòî÷íèê2.xlsx]Ëèñò1!A1:C13", Version _
:=xlPivotTableVersion12)
Next pt
Next
End Sub]

Если нет, подскажите, пожалуйста насчет тегов
 
Ответить
СообщениеДобрый день! Хочу спросить, это правильное оформление кода? (см ниже)
[Sub tt()
Dim n As String
Dim m As String
n = ActiveWorkbook.Sheets.Count
For i = 1 To n
Sheets(i).Activate
For Each pt In ActiveSheet.PivotTables
pt.ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"C:\Users\Ïîëüçîâàòåëü ÌÑ\Desktop\[Èñòî÷íèê2.xlsx]Ëèñò1!A1:C13", Version _
:=xlPivotTableVersion12)
Next pt
Next
End Sub]

Если нет, подскажите, пожалуйста насчет тегов

Автор - sasha1982161082
Дата добавления - 18.04.2019 в 18:43
Pelena Дата: Четверг, 18.04.2019, 20:16 | Сообщение № 43
Группа: Админы
Ранг: Местный житель
Сообщений: 14009
Репутация: 3066 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Нет, не правильное.
Надо в режиме редактирования поста выделить код в сообщении и нажать кнопку # на панели инструментов


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНет, не правильное.
Надо в режиме редактирования поста выделить код в сообщении и нажать кнопку # на панели инструментов

Автор - Pelena
Дата добавления - 18.04.2019 в 20:16
sasha1982161082 Дата: Суббота, 27.04.2019, 07:26 | Сообщение № 44
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 1 ±
Замечаний: 0% ±

Excel 2016
Pelena, спасибо за помощь! Получилось))

[vba]
Код
Sub tt()
    Dim n As String
    Dim m As String
    n = ActiveWorkbook.Sheets.Count
    For i = 1 To n
        Sheets(i).Activate
        For Each pt In ActiveSheet.PivotTables
            pt.ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Пользователь МС\Desktop\[Источник2.xlsx]Лист1!A1:C13", Version _
        :=xlPivotTableVersion12)
        Next pt
    Next
End Sub
[/vba]
 
Ответить
СообщениеPelena, спасибо за помощь! Получилось))

[vba]
Код
Sub tt()
    Dim n As String
    Dim m As String
    n = ActiveWorkbook.Sheets.Count
    For i = 1 To n
        Sheets(i).Activate
        For Each pt In ActiveSheet.PivotTables
            pt.ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Пользователь МС\Desktop\[Источник2.xlsx]Лист1!A1:C13", Version _
        :=xlPivotTableVersion12)
        Next pt
    Next
End Sub
[/vba]

Автор - sasha1982161082
Дата добавления - 27.04.2019 в 07:26
Мир MS Excel » Работа форума и сайта » Объявления администрации » Как оформлять сообщения?
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!