Задачка на указание ячейки - VBA

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Задачка на указание ячейки»

textual
Листинг программы
Private Sub Laba5_for_dummy_user2v2() 'Excel XP (and later)
    Dim rngSource As Range, intCount As Integer, dblSum As Double
    Dim varArray() As Variant, varItem As Variant
    
    Set rngSource = Range("A2:A8"): varArray = rngSource.Value
    
    For intCount = 1 To UBound(varArray)
        varItem = varArray(intCount, 1)
        If Not IsNumeric(varItem) Then
           Do
                varItem = Application.InputBox( _
                "Замена в ячейке " & rngSource(intCount).Address, Type:=1)
           Loop While VarType(varItem) = vbBoolean
           varArray(intCount, 1) = varItem
        End If
        dblSum = dblSum + varArray(intCount, 1)
    Next
    
    rngSource.Value = varArray: MsgBox "Сумма (с исправлениями) : " & dblSum
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы