ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом
13 сообщений из 13, страница 1 из 1
помогите с макросом
    #33596266
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
при запуске пишет ошибку при компилироании посмотрите плиз что не так
заранее благодарю.

Sub Copy_From_Workbook()
Dim cell As Range
Set aa = Sheets("Mappe2").Range(Cells(1*, 1*), Cells(3*, 10*))
For Each cell In aa
cell.FormulaR1C1 = "='[Ausfahrten.xls]Maerz 05'!RC"
Next
End Sub
...
Рейтинг: 0 / 0
13.03.2006, 12:49:18
| Ответить | Цитировать | Написать  
помогите с макросом
    #33596356
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Cells(1*, 1*), Cells(3*, 10*)
Неправильно задан диапазон. Звездочки в данном случае воспринимаются как "умножить". Наверно их нужно убрать.
...
Рейтинг: 0 / 0
13.03.2006, 13:07:03
| Ответить | Цитировать | Написать  
помогите с макросом
    #33596611
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
AntonariyCells(1*, 1*), Cells(3*, 10*)
Неправильно задан диапазон. Звездочки в данном случае воспринимаются как "умножить". Наверно их нужно убрать.

убирала но не работает...что делать?
...
Рейтинг: 0 / 0
13.03.2006, 13:55:33
| Ответить | Цитировать | Написать  
помогите с макросом
    #33596698
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Какая ошибка выходит и на какой строке кода
...
Рейтинг: 0 / 0
13.03.2006, 14:15:28
| Ответить | Цитировать | Написать  
помогите с макросом
    #33596718
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
На будущее. Зайдите по ссылке http://www.natahaus.ru/category/learn/
Скачайте там любую книжку по экселю и вба. Изучите ее и будет умной-преумной.
Вы кажется уже в каком-то топике искали ее.

А по поводу данной проблемы, разберитесь в строке
Код: plaintext
cell.FormulaR1C1 = "='[Ausfahrten.xls]Maerz 05'!RC"
Что такое Ausfahrten.xls ?
Что такое Maerz 05 ?
И что такое RC ?
...
Рейтинг: 0 / 0
13.03.2006, 14:18:30
| Ответить | Цитировать | Написать  
помогите с макросом
    #33596828
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Ошибка компиляции должна была исчезнуть, появилась какая-то другая, потому что в таком коде
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Copy_From_Workbook()
Dim cell As Range
Set aa = Sheets("Mappe2").Range(Cells( 1 ,  1 ), Cells( 3 ,  10 ))
For Each cell In aa
cell.FormulaR1C1 = "='[Ausfahrten.xls]Maerz 05'!RC"
Next
End Sub
синтаксических ошибок нет. Текст ошибки в судию.
...
Рейтинг: 0 / 0
13.03.2006, 14:38:44
| Ответить | Цитировать | Написать  
помогите с макросом
    #33596929
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Antonariyсинтаксических ошибок нет. Текст ошибки в судию.
А что такое RC?
...
Рейтинг: 0 / 0
13.03.2006, 14:57:24
| Ответить | Цитировать | Написать  
помогите с макросом
    #33597157
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
k-nike спасибо вот ведь, я только коротко посмотрела страничку, мне очень понравилась она. на выходных будет что почитать. еще раз большое спасибо, сайт просто клад!
На будущее. Зайдите по ссылке http://www.natahaus.ru/category/learn/
Скачайте там любую книжку по экселю и вба. Изучите ее и будет умной-преумной.
Вы кажется уже в каком-то топике искали ее.

А по поводу данной проблемы, разберитесь в строке
Код: plaintext
cell.FormulaR1C1 = "='[Ausfahrten.xls]Maerz 05'!RC"
Что такое Ausfahrten.xls ?- на немецком- выезды *(книга xls)
Что такое Maerz 05 ? на немецком март 05 *(листxls)
И что такое RC ? не знаю
...
Рейтинг: 0 / 0
13.03.2006, 15:54:39
| Ответить | Цитировать | Написать  
помогите с макросом
    #33597197
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Lenusне знаю
Тогда
TIKOКакая ошибка выходит и на какой строке кода
AntonariyТекст ошибки в судию.
...
Рейтинг: 0 / 0
13.03.2006, 16:06:34
| Ответить | Цитировать | Написать  
помогите с макросом
    #33597767
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
k-nike Lenusне знаю
Тогда
TIKOКакая ошибка выходит и на какой строке кода
AntonariyТекст ошибки в судию.
запустите и увидите сами. у меня офис не русский боюсь Вы не разберетесь
...
Рейтинг: 0 / 0
13.03.2006, 18:33:56
| Ответить | Цитировать | Написать  
помогите с макросом
    #33607644
Pro-a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pro-a
Гость
Не совсем корректно переопределять переменную "аа" не объявляя её...
...
Рейтинг: 0 / 0
17.03.2006, 12:14:55
| Ответить | Цитировать | Написать  
помогите с макросом
    #33608768
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Lenus запустите и увидите сами. у меня офис не русский боюсь Вы не разберетесь

а вы нам переведите и мы разберемся
на крайний случай просто приведите, попробуем перевести

P.S. вот такой код работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Copy_From_Workbook()
    Dim cell As Range

    Set aa = Sheets("Mappe2").Range(Cells( 1 ,  1 ), Cells( 3 ,  10 ))
    For Each cell In aa
        cell.FormulaR1C1 = "='[Ausfahrten.xls]Maerz 05'!RC"
    Next
End Sub

а ошибка видать в том, что нет листа Maerz 05 в книге Ausfahrten.xls
да и символы "*" (звездочки), при определении области, не нужны
...
Рейтинг: 0 / 0
17.03.2006, 16:55:01
| Ответить | Цитировать | Написать  
помогите с макросом
    #33617813
Lenus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lenus
Участник
[quot HandKot][quot Lenus ] спасибо отлично работает.!
...
Рейтинг: 0 / 0
22.03.2006, 16:23:23
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33607644&tid=2166187]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 184ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 72ms
get tp. blocked users:
 1ms
others: 248ms
total:  551ms
созд. / загр.: 551ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]