ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ошибка Can't Assign to Array
19 сообщений из 19, страница 1 из 1
ошибка Can't Assign to Array
    #36868430
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Помогите ламеру...
Код: plaintext
1.
Dim aMonth( 12 ) As Variant
aMonth = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")


Не понимаю в чем проблема? почему-то выводит ошибку "Can't Assign to Array".
...
Рейтинг: 0 / 0
27.09.2010, 17:23
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868439
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
fedoamx,

ой блин....
решение ошибки:

Код: plaintext
1.
aMonth(i) = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
...
Рейтинг: 0 / 0
27.09.2010, 17:27
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868440
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
Dim aMonth() As Variant
aMonth = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
...
Рейтинг: 0 / 0
27.09.2010, 17:27
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868446
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamxfedoamx,

ой блин....
решение ошибки:

Код: plaintext
1.
aMonth(i) = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")


Смотря что вы хотели. Сейчас вы i=тому элементу одного массива присвоили другой массив, то есть он получился типа двумерным
...
Рейтинг: 0 / 0
27.09.2010, 17:28
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868472
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Shocker.Pro,

Вообще хочу сделать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Application.DisplayAlerts = False
aMonth(i) = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
NumElm = Chr(Asc("B")) ' вот сейчас на этом застопорился :)

For k =  2009  To  2010 
    For i =  1  To  12 
        Worksheets("temp").Range(NumElm + i + "1").Value = aMonth(i) + " " + CStr(k)
    Next i
Next k
Собсно, чтоб он мне в в поле B1:Z1 добавил значения с января 2009 по декабрь 2010
...
Рейтинг: 0 / 0
27.09.2010, 17:37
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868482
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamx
Собсно, чтоб он мне в в поле B1:Z1 добавил значения с января 2009 по декабрь 2010

Код: plaintext
1.
2.
    Range("B1").FormulaR1C1 = "1/1/2009"
    Range("C1").FormulaR1C1 = "2/1/2009"
    Range("B1:C1").AutoFill Destination:=Range("B1:Z1"), Type:=xlFillDefault
...
Рейтинг: 0 / 0
27.09.2010, 17:41
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868508
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Shocker.Profedoamx
Собсно, чтоб он мне в в поле B1:Z1 добавил значения с января 2009 по декабрь 2010

Код: plaintext
1.
2.
    Range("B1").FormulaR1C1 = "1/1/2009"
    Range("C1").FormulaR1C1 = "2/1/2009"
    Range("B1:C1").AutoFill Destination:=Range("B1:Z1"), Type:=xlFillDefault




Блин... А если взять мой случай. то,что написал, конечно круто, скорее всего буду использовать это,но я хочу разобраться со своей темой. И если бы Вас не затруднила помощь, то я бы был благодарен!
...
Рейтинг: 0 / 0
27.09.2010, 17:46
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868513
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamxБлин... А если взять мой случай. то,что написал, конечно круто, скорее всего буду использовать это,но я хочу разобраться со своей темой. И если бы Вас не затруднила помощь, то я бы был благодарен!

Тогда перейду на ты, если не возражаешь.

чтобы обратиться к конкретной ячейке есть фукция Cells(Row, Col), не извращайся с Range
...
Рейтинг: 0 / 0
27.09.2010, 17:49
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868525
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: fedoamx
> Не понимаю в чем проблема? почему-то выводит ошибку "Can't Assign to Array".

Код: plaintext
1.
2.
3.
4.
5.
Dim >>aMonth()<< As Variant, i As Long
aMonth = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", 
"декабрь")
For i = LBound(aMonth) To UBound(aMonth)
Debug.Print aMonth(i)
Next i
Обрати внимание на объявление переменной-масива. Я не указываю размерность массива и тогда такой переменной можно
присваивать результаты-массивы таких функций как Array, Split. А когда ты явно задаешь размерность будущего массива, то
должен явно и переопределять его с помощью инструкции ReDim.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
27.09.2010, 17:51
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868527
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Shocker.Pro,

Конечно не возражаю.

Чем Cells(Row, Col) лучше Range?
...
Рейтинг: 0 / 0
27.09.2010, 17:51
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36868544
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamxЧем Cells(Row, Col) лучше Range?
Тем, что параметры функции - числа, не надо со всякими ASCII возиться
...
Рейтинг: 0 / 0
27.09.2010, 17:54
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869485
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Код: plaintext
1.
2.
3.
Dim aMonth As Variant

aMonth = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
...
Рейтинг: 0 / 0
28.09.2010, 11:21
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869498
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamx,

и?
я это написал в первом сообщении. Скобки - да, не обязательно...
...
Рейтинг: 0 / 0
28.09.2010, 11:25
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869813
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Shocker.Pro,

Ну значит я не понял :)
Кстати, сделал с помощью Cells,реально меньше заморочек.
...
Рейтинг: 0 / 0
28.09.2010, 13:23
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869846
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Shocker.Pro,

Кстати, скажите как обновить UserForm и на каком промежутке программы?
...
Рейтинг: 0 / 0
28.09.2010, 13:34
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869853
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamxКстати, скажите как обновить UserForm и на каком промежутке программы?
Вопрос не очень понятен. Ну вот есть, к примеру, метод .Repaint у формы.

А на каком участке - так откуда ж я знаю, что за программа и зачем обновлять форму.
...
Рейтинг: 0 / 0
28.09.2010, 13:37
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869868
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
fedoamx,
...
Рейтинг: 0 / 0
28.09.2010, 13:43
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869875
fedoamx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedoamx
Участник
Shocker.Pro,

метод repaint не подходит почему то
собсно код для проверки чекбоксов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Sub VerCheck() 

   Dim i As Integer
For i =  1  To  24 
    UserForm1.Controls("CheckBox" + CStr(i)).Visible = UserForm1.Controls("CheckBox" + CStr(i)).Enabled
Next i
UserForm1.Repaint
End Sub

таким образом происходит закрытие окошка "добавить лист"
Код: plaintext
1.
2.
3.
4.
wb2.Worksheets(strNameSh).Columns.AutoFit
Columns("A:A").ColumnWidth =  12 
figgery.VerCheck
Unload Me
End Sub
...
Рейтинг: 0 / 0
28.09.2010, 13:46
| Ответить | Цитировать | Написать  
ошибка Can't Assign to Array
    #36869878
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fedoamx,

по-моему ты свои топики спутал
перекинь лучше туда и там продолжим
...
Рейтинг: 0 / 0
28.09.2010, 13:46
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ошибка Can't Assign to Array
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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