Выдает ошибку Run-time error 1004

@Novichek =) · Регистрация: 25.04.2011

Author24 — интернет-сервис помощи студентам

Visual Basic

Sub Макрос5()
             
      '
          Dim Sht As Worksheet
          Dim a As Long, b As Long, c As Long, i As Long
          
    Set Sht = ThisWorkbook.Worksheets("1")
    Application.ScreenUpdating = False 'отключить обновление экрана
    Range("M1:N3000").Select 'очистить диапазон
    Selection.ClearContents
       a = Trim(Sht.Range("F1").Value) 'интервал определения
       b = Trim(Sht.Range("H1").Value)
       c = Trim(Sht.Range("J1").Value) 'шаг определения
      For i = a To b Step c
            Sht.Range("В4").Value = i 'подстановка константы
            Sht.Range("B4").Copy Sht.Cells((i - a) \ c, 13)  'копирование и вставка значений решения в столбец М
            Sht.Range("B15").Copy Sht.Cells((i - a) \ c, 14)  'копирование и вставка значений решения в столбец N
       Next
       Application.ScreenUpdating = True
     Set Sht = Nothing
End Sub

Доброго всем времени суток. Прошу помочь код выдает ошибку Run-time 1004, не могу найти причину...

@аналитика · 18.10.2011, 17:21

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

@Казанский · 18.10.2011, 18:01

Хотя бы написал, на какой строке ошибка.

Сообщение от Novichek =)

Sht.Cells((i - a) \ c, 13)

При i = a происходит обращение к нулевой строке.

@Novichek =) · 18.10.2011, 18:26 **[ТС]**

Сообщение от Казанский

Хотя бы написал, на какой строке ошибка.

Ни на какую строку он не ругается

Сообщение от Казанский

При i = a происходит обращение к нулевой строке.

исправил:

Sht.Cells(1+(i - a) \ c, 13)

Результат та же ошибка (

@Novichek =) · 18.10.2011, 18:28 **[ТС]**

Файл с примером

@Novichek =) · 18.10.2011, 18:37 **[ТС]**

Сообщение от аналитика

нужна среда, над которой выполняется этот код

Был не прав исправлюсь

@Novichek =) · 18.10.2011, 18:40 **[ТС]**

Сообщение от аналитика

в 15 строке:

Visual Basic

1	Range("В4")

русская буква "В" - Витёк
ексель не понял твоей шутки и попытался найти имя "В4"

Спасибо!

Я уж думал там ОГО-го, а там "В" - Витёк

@Ципихович Эндрю · 18.10.2011, 20:45

Сообщение от Novichek =)

ОГО-го

по моему это и есть ого-го - можно неделю смотреть на это В4 и не понять в чём причина, ладно если бы слово с смешаными буквами, в Ворд копирнуть и он бы нашёл, а то В4

@аналитика здесь больше нет... 3374 / 1672 / 184 Регистрация: 03.02.2010 Сообщений: 1,219
	18.10.2011, 17:21	2
	почему же мы так ленимся подумать-то чутка? чтобы просто получить твою ошибку, нужна среда, над которой выполняется этот код, т.е. книга с листом "1", запоненными ячейками и т.п. 2

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	18.10.2011, 18:01	3
	Хотя бы написал, на какой строке ошибка. Сообщение от Novichek =) Sht.Cells((i - a) \ c, 13) При i = a происходит обращение к нулевой строке. 1

@Novichek =) 537 / 28 / 4 Регистрация: 25.04.2011 Сообщений: 238
	18.10.2011, 18:26 [ТС]	4
	Сообщение от Казанский Хотя бы написал, на какой строке ошибка. Ни на какую строку он не ругается Сообщение от Казанский При i = a происходит обращение к нулевой строке. исправил: Sht.Cells(1+(i - a) \ c, 13) Результат та же ошибка ( 0

@Novichek =) 537 / 28 / 4 Регистрация: 25.04.2011 Сообщений: 238
	18.10.2011, 18:37 [ТС]	6
	Сообщение от аналитика нужна среда, над которой выполняется этот код Был не прав исправлюсь 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	18.10.2011, 20:45	8
	Сообщение от Novichek =) ОГО-го по моему это и есть ого-го - можно неделю смотреть на это В4 и не понять в чём причина, ладно если бы слово с смешаными буквами, в Ворд копирнуть и он бы нашёл, а то В4 2