Линия по горизонтальным координатам таблицы - в которой числа могут быть как введены, так и образованы формулой

@ВасилисаЛкн · Регистрация: 24.12.2017

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

Помогите с макросом.

Имеющийся макрос - расставляет узлы полилинии - так как они представлены в таблице - по порядку.
Но тут есть нюанс - макрос чувствителен к способу ввода исходных данных.

В настоящий момент макрос использует только числа в ячейках - которые образованы формулой.
Если макрос встретит в исходных данных числа, которые образованы простым вводом - то выдаст ошибку.

Сейчас в коде макроса - стоит отметка: xlCellTypeFormulas
А чтобы макрос воспринимал ячейки - где числа просто введены - нужно заменить эту отметку на xlCellTypeConstants

Вопрос - как научить макрос воспринимать оба вида ввода значения - как простым вводом, так и формульным вводом ?
(Чтобы не открывать каждый раз vba-браузер меняя вручную тип исходных данных.)

toiai · 15.04.2018, 09:14

В 2013 работает

@ВасилисаЛкн · 15.04.2018, 11:05 **[ТС]**

toiai, не работает.
Просто те ячейки, где стоят числа введенные вручную - игнорируются.
И в итоге - или полилиния строится неполностью, либо же вообще не строится - пропускается.

В частности сейчас у меня часть ячеек - заполнена вручную - и одна полилиния вообще не строится.

(У меня эксель2013.)

toiai · 16.04.2018, 17:46

Да, почему-то не работает, предложу по другому:

Visual Basic

Sub Вариант_2()
    Dim i&, k&, j&
    k = 1
    b = ActiveSheet.UsedRange.Rows("2:3")
Nach:
    For j = k To UBound(b, 2)
        If Not IsEmpty(b(1, j)) And IsNumeric(b(1, j)) Then k = j: Exit For
    Next
    If Not IsEmpty(b(1, k + 1)) And IsNumeric(b(1, k + 1)) Then
        With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, b(1, k), b(2, k))
            For i = k + 1 To UBound(b, 2)
                .AddNodes msoSegmentLine, msoEditingAuto, b(1, i), b(2, i)
                If i = UBound(b, 2) Then k = i: Exit For
                If IsEmpty(b(1, i + 1)) Then k = i + 1: Exit For
            Next
            .ConvertToShape
            If k < UBound(b, 2) Then GoTo Nach
        End With
    End If
End Sub

@ВасилисаЛкн · 18.04.2018, 01:06 **[ТС]**

Теперь все нормально.
Большое спасибо.

@ВасилисаЛкн 1 / 1 / 0 Регистрация: 24.12.2017 Сообщений: 108
	18.04.2018, 01:06 [ТС]	5
	Теперь все нормально. Большое спасибо. 0

Линия по горизонтальным координатам таблицы - в которой числа могут быть как введены, так и образованы формулой

Решение