Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом / 13 сообщений из 13, страница 1 из 1
13.03.2006, 12:49:18
    #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, 13:07:03
    #33596356
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
Cells(1*, 1*), Cells(3*, 10*)
Неправильно задан диапазон. Звездочки в данном случае воспринимаются как "умножить". Наверно их нужно убрать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2006, 13:55:33
    #33596611
Lenus
Lenus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
AntonariyCells(1*, 1*), Cells(3*, 10*)
Неправильно задан диапазон. Звездочки в данном случае воспринимаются как "умножить". Наверно их нужно убрать.

убирала но не работает...что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2006, 14:15:28
    #33596698
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
Какая ошибка выходит и на какой строке кода
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2006, 14:18:30
    #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:38:44
    #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:57:24
    #33596929
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
Antonariyсинтаксических ошибок нет. Текст ошибки в судию.
А что такое RC?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2006, 15:54:39
    #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, 16:06:34
    #33597197
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
Lenusне знаю
Тогда
TIKOКакая ошибка выходит и на какой строке кода
AntonariyТекст ошибки в судию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.03.2006, 18:33:56
    #33597767
Lenus
Lenus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
k-nike Lenusне знаю
Тогда
TIKOКакая ошибка выходит и на какой строке кода
AntonariyТекст ошибки в судию.
запустите и увидите сами. у меня офис не русский боюсь Вы не разберетесь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2006, 12:14:55
    #33607644
Pro-a
Pro-a
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
Не совсем корректно переопределять переменную "аа" не объявляя её...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2006, 16:55:01
    #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
| Ответить | Цитировать | Написать  
22.03.2006, 16:23:23
    #33617813
Lenus
Lenus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с макросом
[quot HandKot][quot Lenus ] спасибо отлично работает.!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с макросом / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 500ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166187]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 192ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 63ms
get tp. blocked users:
 1ms
others: 202ms
total:  500ms
x
x
Закрыть


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