Run-Time error '1004' Примечание нельзя добавить ...

Программирование на Visual Basic for Applications
AlVer
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 06.10.2006 (Пт) 6:12

Run-Time error '1004' Примечание нельзя добавить ...

Сообщение AlVer » 06.10.2006 (Пт) 6:17

написал макрос под эксел и при выполнении выдает такую ошибку
Run-Time error '1004' Примечание нельзя добавить в режиме совместного доступа.

как только этот режим снимаю все работает нормально,

если надо могу выложить код макроса, я совсем неопытен в програмировании на VB, поэтому не пинайте

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 06.10.2006 (Пт) 10:43

Вопрос в тексте поста отсутствует.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 06.10.2006 (Пт) 11:06

Добавлю еще, что если Эксель говорит тебе, что что-то сделать нельзя, скорее всего, так и есть. Т. е. если ты пытаешься добавить примечание в режиме совместного доступа, как бы ты ни менял свою программу, ты этого не сделаешь. :)
Быть... или не быть. Вот. В чём вопрос?

KL
Microsoft MVP
 
Сообщения: 483
Зарегистрирован: 30.10.2005 (Вс) 0:31
Откуда: Madrid

Сообщение KL » 06.10.2006 (Пт) 11:09

Привет,

Пункт 7 нижеследующего списка недоступных операций в режиме совместного доступа - это ответ на незаданный вопрос:

Unavailable features

1. Insert or delete blocks of cells
Alternative: You can insert entire rows and columns.

2. Delete worksheets
Alternative: None

3. Merge cells or split merged cells
Alternative: None

4. Add or change conditional formats
Alternative: Existing conditional formats continue to appear as cell values change, but you can't change these formats or redefine the conditions.

5. Add or change data validation
Alternative: Cells continue to be validated when you type new values, but you can't change existing data validation settings.

6. Create or change charts or PivotChart reports
Alternative: You can view existing charts and reports.

7. Insert or change pictures or other objects
Alternative: You can view existing pictures and objects.

8. Insert or change hyperlinks
Alternative: Existing hyperlinks continue to work.

9. Use drawing tools
Alternative: You can view existing drawings and graphics.

10. Assign, change, or remove passwords
Alternative: Existing passwords remain in effect.

11. Protect or unprotect worksheets or the workbook
Alternative: Existing protection remains in effect.

12. Create, change, or view scenarios
Alternative: None

13. Group or outline data
Alternative: You can continue to use existing outlines.

14. Insert automatic subtotals
Alternative: You can view existing subtotals.

15. Create data tables
Alternative: You can view existing data tables.

16. Create or change PivotTable reports
Alternative: You can view existing reports.

17. Write, record, change, view, or assign macros
Alternative: You can run existing macros that don't access unavailable features. You can record shared workbook operations into a macro stored in another non-shared workbook.

18. Add or change Microsoft Excel 4 dialog sheets
Alternative: None

19. Change or delete array formulas
Alternative: Existing array formulas continue to calculate correctly.
Привет,
KL

AlVer
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 06.10.2006 (Пт) 6:12

Сообщение AlVer » 16.10.2006 (Пн) 10:16

Вот код макроса на котором выдается ошибка
...
For J = 1 To 64
Sheets("Neighbours").Activate
Range("B1").Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[60000]C," & """" & sysname & """" & ")"
If ActiveCell = 1 Then
Cells.Find(What:=sysname, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
If ActiveCell.Offset(0, 1) <> "" Then
nn = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(0, 1).Delete Shift:=xlToLeft
Range("B1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[60000]C," & """" & nn & """" & ")"
If ActiveCell = 1 Then
Cells.Find(What:=nn, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 67).FormulaR1C1 = "=COUNTIF(RC[-65]:RC[-2]," & """" & sysname & """" & ")"

If ActiveCell.Offset(0, 67) = 1 Then
Cells.Find(What:=sysname, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Delete Shift:=xlToLeft
End If
End If
Else: Exit For
End If
Else
Range("A1").Select
Range("A" & Application.CountA(ActiveSheet.Columns(1)) + 1).Select
ActiveCell.Offset(0, 0).FormulaR1C1 = Bsc
ActiveCell.Offset(0, 1).FormulaR1C1 = sysname
Exit For
End If
Next
...

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

AlVer
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 06.10.2006 (Пт) 6:12

Сообщение AlVer » 16.10.2006 (Пн) 10:32

скорее всего ругается вот на эту строчку

ActiveCell.Offset(0, 1).Delete Shift:=xlToLeft

подскажите чем можно ее заменить?

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 16.10.2006 (Пн) 11:15

AlVer, ты читаешь ответы, которые тебе дают, или нет?..
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

KL
Microsoft MVP
 
Сообщения: 483
Зарегистрирован: 30.10.2005 (Вс) 0:31
Откуда: Madrid

Сообщение KL » 16.10.2006 (Пн) 14:00

2AlVer
См. пункт 1 списка в моем сообщении выше - там тебе и разъяснение и решение.
Привет,
KL


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 0

    TopList