Задачка на указание ячейки - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д