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

Вход

Регистрация

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

 

= Мир MS Excel/Помогите написать VBA код для инсерта в таблицу (Excel 2010) - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Помогите написать VBA код для инсерта в таблицу (Excel 2010)
Помогите написать VBA код для инсерта в таблицу (Excel 2010)
Гость Дата: Суббота, 08.09.2012, 21:55 | Сообщение № 1
Группа: Гости
Привет Всем
Помогите написать VBA код для инсерта в таблицу (Excel 2010) из другого таблиц в цикле
На листе имеется три таблицы Sale Kino Journal
и два ячейка там будет указано сумма и дата

когда нажимает на фигуру Кинотеатр то добавился все строки и его значачение из таблицы Kino
в таблицу Journal
Заранее благодарен за помощь
Или подскажите как получит значение
как взят количество строк узнал но теперь не могу брать значение
http://rghost.ru/40256944
 
Ответить
СообщениеПривет Всем
Помогите написать VBA код для инсерта в таблицу (Excel 2010) из другого таблиц в цикле
На листе имеется три таблицы Sale Kino Journal
и два ячейка там будет указано сумма и дата

когда нажимает на фигуру Кинотеатр то добавился все строки и его значачение из таблицы Kino
в таблицу Journal
Заранее благодарен за помощь
Или подскажите как получит значение
как взят количество строк узнал но теперь не могу брать значение
http://rghost.ru/40256944
Автор - Гость
Дата добавления - 08.09.2012 в 21:55
light26 Дата: Суббота, 08.09.2012, 22:08 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Гражданин, читаем правила

Я не волшебник. Я только учусь
 
Ответить
СообщениеГражданин, читаем правила
Автор - light26
Дата добавления - 08.09.2012 в 22:08
Hugo Дата: Суббота, 08.09.2012, 22:09 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Непонятная задача. Вы бы показали, какой результат нужен.
Ведь не такой ведь?
К сообщению приложен файл: table.xlsm (18.2 Kb)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНепонятная задача. Вы бы показали, какой результат нужен.
Ведь не такой ведь?
Автор - Hugo
Дата добавления - 08.09.2012 в 22:09
Гость Дата: Суббота, 08.09.2012, 22:22 | Сообщение № 4
Группа: Гости
Извиняюсь захожу через прокси zendproxy.com по этому не работает не который функции сайта
Спасибо HUGO
Там Journal не должна очищаться просто идет добавление
в journal где колонка Партнеры должна заполнятся из таблицы kino проценты тоже ..
Из инета узнал как брать количестсво строк
[vba]
Код
Sub test()
Dim table As ListObject
Dim index As Long
Dim rows As Long
Dim column As Long
Dim value As String
Set table = Workbooks("Âîïðîñ2.xlsm").Worksheets("Ëèñò1").ListObjects("kino")
Application.ScreenUpdating = False
rows = table.ListRows.Count
For index = 1 To rows
' вот здеь брать значение колонки кинотеатр и процент
добавить в таблицу Jurnal колонке Партнеры итд
MsgBox "Row " & value
Next index
Application.ScreenUpdating = True
[/vba]
 
Ответить
СообщениеИзвиняюсь захожу через прокси zendproxy.com по этому не работает не который функции сайта
Спасибо HUGO
Там Journal не должна очищаться просто идет добавление
в journal где колонка Партнеры должна заполнятся из таблицы kino проценты тоже ..
Из инета узнал как брать количестсво строк
[vba]
Код
Sub test()
Dim table As ListObject
Dim index As Long
Dim rows As Long
Dim column As Long
Dim value As String
Set table = Workbooks("Âîïðîñ2.xlsm").Worksheets("Ëèñò1").ListObjects("kino")
Application.ScreenUpdating = False
rows = table.ListRows.Count
For index = 1 To rows
' вот здеь брать значение колонки кинотеатр и процент
добавить в таблицу Jurnal колонке Партнеры итд
MsgBox "Row " & value
Next index
Application.ScreenUpdating = True
[/vba]
Автор - Гость
Дата добавления - 08.09.2012 в 22:22
Гость Дата: Суббота, 08.09.2012, 22:29 | Сообщение № 5
Группа: Гости
Вот таком должен быть
http://rghost.ru/40257627
 
Ответить
СообщениеВот таком должен быть
http://rghost.ru/40257627
Автор - Гость
Дата добавления - 08.09.2012 в 22:29
Hugo Дата: Суббота, 08.09.2012, 22:47 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
См. такой вариант:
К сообщению приложен файл: 1734560.xlsm (19.5 Kb)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеСм. такой вариант:
Автор - Hugo
Дата добавления - 08.09.2012 в 22:47
Гость Дата: Суббота, 08.09.2012, 22:57 | Сообщение № 7
Группа: Гости
Спасибо то что я хотел
 
Ответить
СообщениеСпасибо то что я хотел
Автор - Гость
Дата добавления - 08.09.2012 в 22:57
Гость Дата: Суббота, 08.09.2012, 23:05 | Сообщение № 8
Группа: Гости
Как CTRL-Z вернуть перестает работать после макроса
 
Ответить
СообщениеКак CTRL-Z вернуть перестает работать после макроса
Автор - Гость
Дата добавления - 08.09.2012 в 23:05
light26 Дата: Суббота, 08.09.2012, 23:12 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Гость)
Как CTRL-Z вернуть перестает работать после макроса

Действия макроса отменить нельзя.
Единственный вариант - закрыть файл без сохранения, затем снова открыть и выполнить другие действия.
Или вручную исправлять ошибки работы макроса

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Суббота, 08.09.2012, 23:14
 
Ответить
Сообщение
Quote (Гость)
Как CTRL-Z вернуть перестает работать после макроса

Действия макроса отменить нельзя.
Единственный вариант - закрыть файл без сохранения, затем снова открыть и выполнить другие действия.
Или вручную исправлять ошибки работы макроса
Автор - light26
Дата добавления - 08.09.2012 в 23:12
Serge_007 Дата: Суббота, 08.09.2012, 23:16 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (light26)
Единственный вариант - закрыть файл без сохранения

Это не единственный вариант

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (light26)
Единственный вариант - закрыть файл без сохранения

Это не единственный вариант
Автор - Serge_007
Дата добавления - 08.09.2012 в 23:16
Гость Дата: Суббота, 08.09.2012, 23:20 | Сообщение № 11
Группа: Гости
Какие варианты есть?
 
Ответить
СообщениеКакие варианты есть?
Автор - Гость
Дата добавления - 08.09.2012 в 23:20
Serge_007 Дата: Суббота, 08.09.2012, 23:26 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Например делать копию листа в начале макроса и возвращать эту копию если результат работы макроса неудовлетворителен

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНапример делать копию листа в начале макроса и возвращать эту копию если результат работы макроса неудовлетворителен
Автор - Serge_007
Дата добавления - 08.09.2012 в 23:26
light26 Дата: Суббота, 08.09.2012, 23:28 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Serge_007)
Например делать копию листа в начале макроса и возвращать эту копию

Ну, почти то же самое. К тому же из-за добавленного листа макрос может начать ругаться

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Serge_007)
Например делать копию листа в начале макроса и возвращать эту копию

Ну, почти то же самое. К тому же из-за добавленного листа макрос может начать ругаться
Автор - light26
Дата добавления - 08.09.2012 в 23:28
Serge_007 Дата: Суббота, 08.09.2012, 23:31 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (light26)
почти то же самое
Тоже самое как и что?
Quote (light26)
из-за добавленного листа макрос может начать ругаться
Что ты имеешь ввиду?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (light26)
почти то же самое
Тоже самое как и что?
Quote (light26)
из-за добавленного листа макрос может начать ругаться
Что ты имеешь ввиду?
Автор - Serge_007
Дата добавления - 08.09.2012 в 23:31
light26 Дата: Суббота, 08.09.2012, 23:45 | Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Serge_007)
Тоже самое как и что?
Почти то же самое, что закрыть без сохранения
Quote (Serge_007)
Что ты имеешь ввиду?

Я сталкивался с такими проблемами. Правда мои макросы писались макрорекордером, но если я добавлял лист и запускал макрос, то либо макрос выдавал ошибку, либо выполнялся не на том листе, для которого писался.

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Суббота, 08.09.2012, 23:45
 
Ответить
Сообщение
Quote (Serge_007)
Тоже самое как и что?
Почти то же самое, что закрыть без сохранения
Quote (Serge_007)
Что ты имеешь ввиду?

Я сталкивался с такими проблемами. Правда мои макросы писались макрорекордером, но если я добавлял лист и запускал макрос, то либо макрос выдавал ошибку, либо выполнялся не на том листе, для которого писался.
Автор - light26
Дата добавления - 08.09.2012 в 23:45
Гость Дата: Суббота, 08.09.2012, 23:56 | Сообщение № 16
Группа: Гости
Пример можете дать или исправить то что выложил HUGO
 
Ответить
СообщениеПример можете дать или исправить то что выложил HUGO
Автор - Гость
Дата добавления - 08.09.2012 в 23:56
Serge_007 Дата: Воскресенье, 09.09.2012, 00:23 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (light26)
Почти то же самое, что закрыть без сохранения
Я так не считаю

Quote (light26)
если я добавлял лист и запускал макрос, то либо макрос выдавал ошибку, либо выполнялся не на том листе, для которого писался
Ну дык это легко исправляется smile

Quote (Гость)
Пример можете дать

Вот накатал smile

[vba]
Code

Sub Undo_Macro()
Dim Msg, Style, Response
Msg = "Макрос справился с задачей?"
Style = 4
Application.DisplayAlerts = False
         Sheets("Лист1").Copy Before:=Sheets(1)
         Sheets("Лист1").Range("C4").ClearContents
         Sheets("Лист1 (2)").Visible = False
         Response = MsgBox(Msg, Style)
         If Response = vbYes Then
         Sheets("Лист1 (2)").Delete
Else
Sheets("Лист1 (2)").Visible = True
        Sheets("Лист1").Delete
         Sheets("Лист1 (2)").Name = "Лист1"
End If
Application.DisplayAlerts = True
End Sub
[/vba]
К сообщению приложен файл: Undo_Macro.xls (32.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (light26)
Почти то же самое, что закрыть без сохранения
Я так не считаю

Quote (light26)
если я добавлял лист и запускал макрос, то либо макрос выдавал ошибку, либо выполнялся не на том листе, для которого писался
Ну дык это легко исправляется smile

Quote (Гость)
Пример можете дать

Вот накатал smile

[vba]
Code

Sub Undo_Macro()
Dim Msg, Style, Response
Msg = "Макрос справился с задачей?"
Style = 4
Application.DisplayAlerts = False
         Sheets("Лист1").Copy Before:=Sheets(1)
         Sheets("Лист1").Range("C4").ClearContents
         Sheets("Лист1 (2)").Visible = False
         Response = MsgBox(Msg, Style)
         If Response = vbYes Then
         Sheets("Лист1 (2)").Delete
Else
Sheets("Лист1 (2)").Visible = True
        Sheets("Лист1").Delete
         Sheets("Лист1 (2)").Name = "Лист1"
End If
Application.DisplayAlerts = True
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 09.09.2012 в 00:23
light26 Дата: Воскресенье, 09.09.2012, 00:57 | Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Serge_007)
Ну дык это легко исправляется

Ага, если знаешь как )))

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Serge_007)
Ну дык это легко исправляется

Ага, если знаешь как )))
Автор - light26
Дата добавления - 09.09.2012 в 00:57
Serge_007 Дата: Воскресенье, 09.09.2012, 01:01 | Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Вадим, смотри, вот строка кода:
[vba]
Code
Sheets("Лист1").Range("C4").ClearContents
[/vba]
Независимо от того какой лист у тебя сейчас активный, она очистит ячейку С4 именно на листе "Лист1", потому что он явно указан в макросе.
А если ты пишешь без явного указания листа, то макрос будет работать на активном в данный момент листе

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВадим, смотри, вот строка кода:
[vba]
Code
Sheets("Лист1").Range("C4").ClearContents
[/vba]
Независимо от того какой лист у тебя сейчас активный, она очистит ячейку С4 именно на листе "Лист1", потому что он явно указан в макросе.
А если ты пишешь без явного указания листа, то макрос будет работать на активном в данный момент листе
Автор - Serge_007
Дата добавления - 09.09.2012 в 01:01
light26 Дата: Воскресенье, 09.09.2012, 01:08 | Сообщение № 20
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Serge_007)
Независимо от того какой лист у тебя сейчас активный

Согласен. И если на активном в данный момент листе невозможно выполнить команду, макрос будет ругаться. Что у меня и происходило.
Но это я щас понимаю, а тогда-то я этого не знал smile

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Serge_007)
Независимо от того какой лист у тебя сейчас активный

Согласен. И если на активном в данный момент листе невозможно выполнить команду, макрос будет ругаться. Что у меня и происходило.
Но это я щас понимаю, а тогда-то я этого не знал smile
Автор - light26
Дата добавления - 09.09.2012 в 01:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Помогите написать VBA код для инсерта в таблицу (Excel 2010)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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