Помогите плииззз, работа со строками

[Павел_В]

Вот такая проблема

Dim Str As String
Str = (Worksheets(1).Range("C1").Value
ActiveSheet.Range(Str ).Locked = False

В C1 на 1-ом листе такие данные ($A$1, $A$2, и т.д.)
вот когда там значение меньше 255 символов, то работает все, а когда больше к примеру 1000 то выдает ошибку и в дебагере при просмотре значения Str выдает тольео 255 символов
Плииз, помогите !!!!!!

[GSerg]

Помочь в чём?

[Павел_В]

как сделать чтобы в переменную Str передать строку любой длины и чтобы свойство Locked заработало .....

[GSerg]

Не знаю, всё присваивается.

activecell.Value = string(1000,"a")
msgbox activecell.Value
msgbox len(activecell.Value)

[uzer_@]

Попробуй набор Cells(номер строки, номер столбца), в твоем варианте Cells(k, 1) 1 -для "А", по моему так проще чем в С1 все забивать

[Павел_В]

Выводить та в MsgBox-е выводит, а вот в Range похоже больше 255 символов обработать не может ..... таков вывод ...

[uzer_@]

все работает

[Павел_В]

ты что конкретно делал, и что у тебя работает ???

[uzer_@]

activecell.Value = string(1000,"a")

[uzer_@]

возможно раз у тебя адреса ячеек лежат, в exel 256 столбцов, может ты это ограничение хочешь исправить

[Павел_В]

Да ты наверное не понял, я имел ввиду совсем другое
попробуй сделать следующее

ActiveSheet.Range(Str).Locked = false
а перед эти Str задать значения в таком духе
Str = "$A$1, $A$2, $A$3" и т.д., вот если у тебя Str будет содержать больше 255 символов то не будет это работать, а вот если меньше то все работает .....
Я думал проблема именно в переменной, а оказалось в Range(str)

[uzer_@]

Это ограничение на имя, оно не может быть больше 255 символов (если не ошибаюсь)

[GSerg]

А ты вообще понимаешь, что в принципе нельзя задавать адрес так, как это делаешь ты?..

[uzer_@]

видимо он уже понял

[Павел_В]

почему нельзя, это же диапазон, в чем проблема, объясни почему нельзя так задавать ???

[uzer_@]

если тебе говорит GSerg "нельзя задавать адрес так" значит нельзя, меняй код так чтобы обойти этот момент

[Павел_В]

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

[uzer_@]

перечислением всех адресов каждой ячейки
набор Cells(i,j)
считывай i,j запоминая и потом вытаскивай

[GSerg]

Кто-то из нас тупит...
Да, правильно, я. Запятая - оператор объединения диапазонов.

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

Откуда записываются и зачем писать их адреса на лист?

[uzer_@]