Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макросы для раскрытия промежуточного расчета в виде цифр - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросы для раскрытия промежуточного расчета в виде цифр (Макросы/Sub)
Макросы для раскрытия промежуточного расчета в виде цифр
Vlad24 Дата: Четверг, 25.02.2016, 19:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте. В программировании я слаб, хотя изучал язык Visual Basic (калькулятор создавал). С макросами, не имел опыта. Есть код, который раскрывает промежуточный расчет формулы не буквами (например при нажатии Ctrl+`), а вместо букв ставит цифры, которые были использованы при расчет. Есть одно "но", действует только для двух функций Excel (произведение, и сумма). При этом при изменении какой либо цифры, в этой раскрытой формуле, цифра так же обновляется. Опять же, это для функций (произведение, и сумма), и все, деление "/" макрос не распознает. Как дописать для всех математических функций, не имею понятия.
Есть другой код, который действует для всех функций, "но", обновлять цифры использованные при расчете он не умеет. Кто понимает в макросах, помогите дописать один из кодов, чтоб все функции мог распознать, при этом обновлял значения при изменении цифр, при расчете.

Код 1: Распознает две функции (произведение, и сумма), обновляет цифры и полученной развернутой формуле промежуточного расчета:
Visual Basic
[vba]
Код

Option Compare Text

Function ParseFormula(ByRef cell As Range, Optional SubItem As Boolean = False)
    On Error Resume Next
    fo = cell.Formula: fu = Split(Split(fo, "=")(1), "(")(0)
    Dim cel As Range, ra As Range: Set ra = Range(Split(Split(fo, "(")(1), ")")(0))

    Select Case fu
        Case "PRODUCT": s = "*"
        Case "SUM": s = " + "
        Case Else: s = " ??? ": fu = ""
    End Select
    If fu = "" Then ParseFormula = cell.Value: Exit Function

    For Each cel In ra.Cells
        ParseFormula = ParseFormula & s & IIf(fu = "", cel.Value, ParseFormula(cel, True))
    Next cel
    ParseFormula = Mid(ParseFormula, Len(s) + 1)
    If Not SubItem Then ParseFormula = "" & ParseFormula & " = " & cell.Value
End Function

Sub ПримерИспользованияParseFormula()
    ' выводим промежуточные результаты вычисления для формулы из активной ячейки
    РезультатВычислений = ParseFormula(ActiveCell)
    Debug.Print РезультатВычислений
End Sub


[/vba]
Ссылка, где был взят материал: Макросы в Excel. Парсеры сайтов.

Код 2: распознает все функции, при этом поменяв любую из цифр использованную при расчете, полученная развернутая формула промежуточного расчета не изменится:
Visual Basic
[vba]
Код

Option Explicit
Dim wsParentSheet As Worksheet, bCell As Boolean
Sub Get_Val_of_Formula()
    Dim rRange As Range, rCell As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    On Error Resume Next
    'определяем диапазон ячеек с формулами
    If Selection.Count = 1 Then
        If ActiveCell.HasFormula Then Set rRange = ActiveCell
    Else
        Set rRange = Selection.SpecialCells(xlFormulas)
    End If
    If rRange Is Nothing Then MsgBox "В выделенном диапазоне отсутствуют ячейки с формулами", vbCritical, "Get_Val_of_Formula": Exit Sub
    bCell = (MsgBox("Отобразить переведенную формулу в примечании к ячейке?", vbYesNo, "Определение метода отображения") = vbNo)
    
    'запоминаем лист с формулами - это пригодится для записи значений
    Set wsParentSheet = ActiveSheet

    Application.ScreenUpdating = False: Application.EnableEvents = False
    ActiveSheet.Copy
    'выставляем для новой книги "Точность как на экране" - для вставки значений в таком же виде, в каком они видны пользователю на листе
    ActiveWorkbook.PrecisionAsDisplayed = True
    'определяем значения ссылок на ячейки для каждой формулы
    For Each rCell In rRange
        Call Val_Of_Formula(Range(rCell.Address))
    Next rCell
    ActiveWorkbook.Close False
    wsParentSheet.Activate
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

Function Val_Of_Formula(ByVal rCell As Range)
    Const sArrSepRows = ":", sArrSepCols = ";", sArgSep = ";"
    Dim sFormLocalStr As String, sTmpAddr As String, sExternalRng As String, sTmpStr As String, sRes As String
    Dim rSel As Object, oVal, objRegEx As Object, objMatshes As Object
    Dim avArr, avTmp, oCmnt
    Dim iRefMatch_Cnt As Long, lPresedCnt As Long, iSelCnt As Long, iR_Cnt As Long, iC_Cnt As Long, iLen As Long
    Dim iTmpLen As Long, iAddrBeginPos As Long, iAddrLen As Long
    Dim sTmpFormStr As String, sPattern As String
    Dim li As Long
'   //получаем формулы на локализованном языке
    sFormLocalStr = rCell.FormulaLocal
    
    ReDim avArr(10000, 4)
    Dim i As Long, ir As Long, ic As Long
    lPresedCnt = 1
    Set objRegEx = CreateObject("VBScript.Regexp")
    objRegEx.IgnoreCase = True
    objRegEx.MultiLine = True
    objRegEx.Global = True

    sPattern = "(('?\[[^\\\/\:\*\?""\<\>\|]+?\]([^\:\\\/\?\*\[\]']{1,31}'!|" & _
        "[^\:\\\/\?\*\[\]'!\@\#\$\%\^\&\(\)\+\-\=\|""\<\>\{\},`~\; ]{1,31}!)" & _
        "(" & "([\:]?\$?[a-z]{1,3}\$?\d{1,7}){1,2}(?=[\+\-\=\*\^\/\\;,\)\s])|" & _
        "\$?[a-z]{1,3}\:\$?[a-z]{1,3}(?=[\+\-\=\*\^\/\\;,\)\s])|(\$?\d{1,7}\:\$?\d{1,7})(?=[\+\-\=\*\^\/\\;,\)\s])))|(" & _
        "(('[^\:\\\/\?\*\[\]']{1,31}'|" & "[^\:\\\/\?\*\[\]'!\@\#\$\%\^\&\(\)\+\-\=\|""\<\>\{\},`~\; ]{1,31})!)(([\:]?\$?[a-z]{1,3}\$?\d{1,7}){1,2}" & _
        "(?=[\+\-\=\*\^\/\\;,\)\s])|\$?[a-z]{1,3}\:\$?[a-z]{1,3}(?=[\+\-\=\*\^\/\\;,\)\s])" & _
        "|(\$?\d{1,7}\:\$?\d{1,7})(?=[\+\-\=\*\^\/\\;,\)\s])))|(" & _
        "([\:]?\$?[a-z]{1,3}\$?\d{1,7}){1,2}(?=[\+\-\=\*\^\/\\;,\)\s])|\$?[a-z]{1,3}\:\$?[a-z]{1,3}" & _
        "(?=[\+\-\=\*\^\/\\;,\)\s])|(\$?\d{1,7}\:\$?\d{1,7})(?=[\+\-\=\*\^\/\\;,\)\s])))"
    objRegEx.Pattern = sPattern
    Set objMatshes = objRegEx.Execute(sFormLocalStr & "+")
    iRefMatch_Cnt = objMatshes.Count
'   //Перебираем все разбитые ссылки
    For i = iRefMatch_Cnt - 1 To 0 Step -1
        sTmpAddr = objMatshes.Item(i).Value
        If IsRange(sTmpAddr) Then
            sExternalRng = Range(sTmpAddr).Address(, , , True)
            Set rSel = Range(sExternalRng)
            sTmpAddr = rSel.Address(, , , True)
            iSelCnt = rSel.Count
            If iSelCnt > 1 Then
                avTmp = rSel.Value
                iR_Cnt = UBound(avTmp, 1)
                iC_Cnt = UBound(avTmp, 2)
                For ir = 1 To iR_Cnt
                    For ic = 1 To iC_Cnt
                        oVal = avTmp(ir, ic)
                        If (oVal = "") Then oVal = 0
                        If IsNumeric(oVal) = False Then
                            oVal = Chr(34) & oVal & Chr(34)
                        End If
                        avArr(lPresedCnt - 1, 0) = avArr(lPresedCnt - 1, 0) & oVal & sArrSepCols
                    Next ic
                    sTmpStr = avArr(lPresedCnt - 1, 0)
                    If Right(sTmpStr, Len(sArrSepCols)) = sArrSepCols Then
                        avArr(lPresedCnt - 1, 0) = Mid(sTmpStr, 1, Len(sTmpStr) - 1)
                    End If
                    sTmpStr = avArr(lPresedCnt - 1, 0)
                    If Right(sTmpStr, Len(sArrSepRows)) <> sArrSepRows Then
                        avArr(lPresedCnt - 1, 0) = sTmpStr & sArrSepRows
                    End If
                Next ir
                sTmpStr = avArr(lPresedCnt - 1, 0)
                If Right(sTmpStr, Len(sArrSepCols)) = sArrSepCols Or Right(sTmpStr, Len(sArrSepRows)) = sArrSepRows Then
                    sTmpStr = Mid(sTmpStr, 1, Len(sTmpStr) - 1)
                    avArr(lPresedCnt - 1, 0) = "{" & sTmpStr & "}"
                End If
            Else
                avArr(lPresedCnt - 1, 0) = rSel.Value
'                //если значение ячейки текст(и это не массив) - обрамляем в кавычки
                If IsNumeric(avArr(lPresedCnt - 1, 0)) = False Then
                    avArr(lPresedCnt - 1, 0) = Chr(34) & avArr(lPresedCnt - 1, 0) & Chr(34)
                End If
            End If 'If iSelCnt > 1 Then
            avArr(lPresedCnt - 1, 1) = objMatshes(i)
        Else
            avArr(lPresedCnt - 1, 0) = "[Значение недоступно]"
            avArr(lPresedCnt - 1, 1) = objMatshes(i)
        End If
        avArr(lPresedCnt - 1, 2) = objMatshes(i).FirstIndex
        avArr(lPresedCnt - 1, 3) = objMatshes(i).Length
        lPresedCnt = lPresedCnt + 1
    Next i
    'если ссылки на другие ячейки есть
    If lPresedCnt > 1 Then
        For li = 0 To lPresedCnt - 1
            iLen = Len(sFormLocalStr)
            iAddrBeginPos = Val(avArr(li, 2))
            iAddrLen = Val(avArr(li, 3))
            If iAddrBeginPos + iAddrLen >= iLen Then
                sTmpFormStr = ""
            Else
                sTmpFormStr = Mid(sFormLocalStr, iAddrBeginPos + iAddrLen + 1, iLen - (iAddrBeginPos + iAddrLen))
            End If
            sFormLocalStr = Mid(sFormLocalStr, 1, iAddrBeginPos) & avArr(li, 0) & sTmpFormStr
        Next li
        sRes = "'" & sFormLocalStr
    Else
        sRes = "'" & sFormLocalStr & " [ссылок на другие ячейки нет]"
    End If
    'записываем значение формулы в ячейку или создаем для неё примечание
    If bCell Then
        wsParentSheet.Range(rCell.Address).Offset(, 1).Value = sRes
    Else
        Set oCmnt = wsParentSheet.Range(rCell.Address).Comment
        If Not oCmnt Is Nothing Then
            wsParentSheet.Range(rCell.Address).Comment.Delete
        End If
        wsParentSheet.Range(rCell.Address).AddComment Mid(sRes, 2)
    End If
End Function
Function IsRange(s As String)
    Dim rr As Range
    On Error Resume Next
    Set rr = Range(s)
    IsRange = Not rr Is Nothing
End Function

[/vba]


Сообщение отредактировал Vlad24 - Четверг, 25.02.2016, 21:37
 
Ответить
СообщениеЗдравствуйте. В программировании я слаб, хотя изучал язык Visual Basic (калькулятор создавал). С макросами, не имел опыта. Есть код, который раскрывает промежуточный расчет формулы не буквами (например при нажатии Ctrl+`), а вместо букв ставит цифры, которые были использованы при расчет. Есть одно "но", действует только для двух функций Excel (произведение, и сумма). При этом при изменении какой либо цифры, в этой раскрытой формуле, цифра так же обновляется. Опять же, это для функций (произведение, и сумма), и все, деление "/" макрос не распознает. Как дописать для всех математических функций, не имею понятия.
Есть другой код, который действует для всех функций, "но", обновлять цифры использованные при расчете он не умеет. Кто понимает в макросах, помогите дописать один из кодов, чтоб все функции мог распознать, при этом обновлял значения при изменении цифр, при расчете.

Код 1: Распознает две функции (произведение, и сумма), обновляет цифры и полученной развернутой формуле промежуточного расчета:
Visual Basic
[vba]
Код

Option Compare Text

Function ParseFormula(ByRef cell As Range, Optional SubItem As Boolean = False)
    On Error Resume Next
    fo = cell.Formula: fu = Split(Split(fo, "=")(1), "(")(0)
    Dim cel As Range, ra As Range: Set ra = Range(Split(Split(fo, "(")(1), ")")(0))

    Select Case fu
        Case "PRODUCT": s = "*"
        Case "SUM": s = " + "
        Case Else: s = " ??? ": fu = ""
    End Select
    If fu = "" Then ParseFormula = cell.Value: Exit Function

    For Each cel In ra.Cells
        ParseFormula = ParseFormula & s & IIf(fu = "", cel.Value, ParseFormula(cel, True))
    Next cel
    ParseFormula = Mid(ParseFormula, Len(s) + 1)
    If Not SubItem Then ParseFormula = "" & ParseFormula & " = " & cell.Value
End Function

Sub ПримерИспользованияParseFormula()
    ' выводим промежуточные результаты вычисления для формулы из активной ячейки
    РезультатВычислений = ParseFormula(ActiveCell)
    Debug.Print РезультатВычислений
End Sub


[/vba]
Ссылка, где был взят материал: Макросы в Excel. Парсеры сайтов.

Код 2: распознает все функции, при этом поменяв любую из цифр использованную при расчете, полученная развернутая формула промежуточного расчета не изменится:
Visual Basic
[vba]
Код

Option Explicit
Dim wsParentSheet As Worksheet, bCell As Boolean
Sub Get_Val_of_Formula()
    Dim rRange As Range, rCell As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    On Error Resume Next
    'определяем диапазон ячеек с формулами
    If Selection.Count = 1 Then
        If ActiveCell.HasFormula Then Set rRange = ActiveCell
    Else
        Set rRange = Selection.SpecialCells(xlFormulas)
    End If
    If rRange Is Nothing Then MsgBox "В выделенном диапазоне отсутствуют ячейки с формулами", vbCritical, "Get_Val_of_Formula": Exit Sub
    bCell = (MsgBox("Отобразить переведенную формулу в примечании к ячейке?", vbYesNo, "Определение метода отображения") = vbNo)
    
    'запоминаем лист с формулами - это пригодится для записи значений
    Set wsParentSheet = ActiveSheet

    Application.ScreenUpdating = False: Application.EnableEvents = False
    ActiveSheet.Copy
    'выставляем для новой книги "Точность как на экране" - для вставки значений в таком же виде, в каком они видны пользователю на листе
    ActiveWorkbook.PrecisionAsDisplayed = True
    'определяем значения ссылок на ячейки для каждой формулы
    For Each rCell In rRange
        Call Val_Of_Formula(Range(rCell.Address))
    Next rCell
    ActiveWorkbook.Close False
    wsParentSheet.Activate
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

Function Val_Of_Formula(ByVal rCell As Range)
    Const sArrSepRows = ":", sArrSepCols = ";", sArgSep = ";"
    Dim sFormLocalStr As String, sTmpAddr As String, sExternalRng As String, sTmpStr As String, sRes As String
    Dim rSel As Object, oVal, objRegEx As Object, objMatshes As Object
    Dim avArr, avTmp, oCmnt
    Dim iRefMatch_Cnt As Long, lPresedCnt As Long, iSelCnt As Long, iR_Cnt As Long, iC_Cnt As Long, iLen As Long
    Dim iTmpLen As Long, iAddrBeginPos As Long, iAddrLen As Long
    Dim sTmpFormStr As String, sPattern As String
    Dim li As Long
'   //получаем формулы на локализованном языке
    sFormLocalStr = rCell.FormulaLocal
    
    ReDim avArr(10000, 4)
    Dim i As Long, ir As Long, ic As Long
    lPresedCnt = 1
    Set objRegEx = CreateObject("VBScript.Regexp")
    objRegEx.IgnoreCase = True
    objRegEx.MultiLine = True
    objRegEx.Global = True

    sPattern = "(('?\[[^\\\/\:\*\?""\<\>\|]+?\]([^\:\\\/\?\*\[\]']{1,31}'!|" & _
        "[^\:\\\/\?\*\[\]'!\@\#\$\%\^\&\(\)\+\-\=\|""\<\>\{\},`~\; ]{1,31}!)" & _
        "(" & "([\:]?\$?[a-z]{1,3}\$?\d{1,7}){1,2}(?=[\+\-\=\*\^\/\\;,\)\s])|" & _
        "\$?[a-z]{1,3}\:\$?[a-z]{1,3}(?=[\+\-\=\*\^\/\\;,\)\s])|(\$?\d{1,7}\:\$?\d{1,7})(?=[\+\-\=\*\^\/\\;,\)\s])))|(" & _
        "(('[^\:\\\/\?\*\[\]']{1,31}'|" & "[^\:\\\/\?\*\[\]'!\@\#\$\%\^\&\(\)\+\-\=\|""\<\>\{\},`~\; ]{1,31})!)(([\:]?\$?[a-z]{1,3}\$?\d{1,7}){1,2}" & _
        "(?=[\+\-\=\*\^\/\\;,\)\s])|\$?[a-z]{1,3}\:\$?[a-z]{1,3}(?=[\+\-\=\*\^\/\\;,\)\s])" & _
        "|(\$?\d{1,7}\:\$?\d{1,7})(?=[\+\-\=\*\^\/\\;,\)\s])))|(" & _
        "([\:]?\$?[a-z]{1,3}\$?\d{1,7}){1,2}(?=[\+\-\=\*\^\/\\;,\)\s])|\$?[a-z]{1,3}\:\$?[a-z]{1,3}" & _
        "(?=[\+\-\=\*\^\/\\;,\)\s])|(\$?\d{1,7}\:\$?\d{1,7})(?=[\+\-\=\*\^\/\\;,\)\s])))"
    objRegEx.Pattern = sPattern
    Set objMatshes = objRegEx.Execute(sFormLocalStr & "+")
    iRefMatch_Cnt = objMatshes.Count
'   //Перебираем все разбитые ссылки
    For i = iRefMatch_Cnt - 1 To 0 Step -1
        sTmpAddr = objMatshes.Item(i).Value
        If IsRange(sTmpAddr) Then
            sExternalRng = Range(sTmpAddr).Address(, , , True)
            Set rSel = Range(sExternalRng)
            sTmpAddr = rSel.Address(, , , True)
            iSelCnt = rSel.Count
            If iSelCnt > 1 Then
                avTmp = rSel.Value
                iR_Cnt = UBound(avTmp, 1)
                iC_Cnt = UBound(avTmp, 2)
                For ir = 1 To iR_Cnt
                    For ic = 1 To iC_Cnt
                        oVal = avTmp(ir, ic)
                        If (oVal = "") Then oVal = 0
                        If IsNumeric(oVal) = False Then
                            oVal = Chr(34) & oVal & Chr(34)
                        End If
                        avArr(lPresedCnt - 1, 0) = avArr(lPresedCnt - 1, 0) & oVal & sArrSepCols
                    Next ic
                    sTmpStr = avArr(lPresedCnt - 1, 0)
                    If Right(sTmpStr, Len(sArrSepCols)) = sArrSepCols Then
                        avArr(lPresedCnt - 1, 0) = Mid(sTmpStr, 1, Len(sTmpStr) - 1)
                    End If
                    sTmpStr = avArr(lPresedCnt - 1, 0)
                    If Right(sTmpStr, Len(sArrSepRows)) <> sArrSepRows Then
                        avArr(lPresedCnt - 1, 0) = sTmpStr & sArrSepRows
                    End If
                Next ir
                sTmpStr = avArr(lPresedCnt - 1, 0)
                If Right(sTmpStr, Len(sArrSepCols)) = sArrSepCols Or Right(sTmpStr, Len(sArrSepRows)) = sArrSepRows Then
                    sTmpStr = Mid(sTmpStr, 1, Len(sTmpStr) - 1)
                    avArr(lPresedCnt - 1, 0) = "{" & sTmpStr & "}"
                End If
            Else
                avArr(lPresedCnt - 1, 0) = rSel.Value
'                //если значение ячейки текст(и это не массив) - обрамляем в кавычки
                If IsNumeric(avArr(lPresedCnt - 1, 0)) = False Then
                    avArr(lPresedCnt - 1, 0) = Chr(34) & avArr(lPresedCnt - 1, 0) & Chr(34)
                End If
            End If 'If iSelCnt > 1 Then
            avArr(lPresedCnt - 1, 1) = objMatshes(i)
        Else
            avArr(lPresedCnt - 1, 0) = "[Значение недоступно]"
            avArr(lPresedCnt - 1, 1) = objMatshes(i)
        End If
        avArr(lPresedCnt - 1, 2) = objMatshes(i).FirstIndex
        avArr(lPresedCnt - 1, 3) = objMatshes(i).Length
        lPresedCnt = lPresedCnt + 1
    Next i
    'если ссылки на другие ячейки есть
    If lPresedCnt > 1 Then
        For li = 0 To lPresedCnt - 1
            iLen = Len(sFormLocalStr)
            iAddrBeginPos = Val(avArr(li, 2))
            iAddrLen = Val(avArr(li, 3))
            If iAddrBeginPos + iAddrLen >= iLen Then
                sTmpFormStr = ""
            Else
                sTmpFormStr = Mid(sFormLocalStr, iAddrBeginPos + iAddrLen + 1, iLen - (iAddrBeginPos + iAddrLen))
            End If
            sFormLocalStr = Mid(sFormLocalStr, 1, iAddrBeginPos) & avArr(li, 0) & sTmpFormStr
        Next li
        sRes = "'" & sFormLocalStr
    Else
        sRes = "'" & sFormLocalStr & " [ссылок на другие ячейки нет]"
    End If
    'записываем значение формулы в ячейку или создаем для неё примечание
    If bCell Then
        wsParentSheet.Range(rCell.Address).Offset(, 1).Value = sRes
    Else
        Set oCmnt = wsParentSheet.Range(rCell.Address).Comment
        If Not oCmnt Is Nothing Then
            wsParentSheet.Range(rCell.Address).Comment.Delete
        End If
        wsParentSheet.Range(rCell.Address).AddComment Mid(sRes, 2)
    End If
End Function
Function IsRange(s As String)
    Dim rr As Range
    On Error Resume Next
    Set rr = Range(s)
    IsRange = Not rr Is Nothing
End Function

[/vba]

Автор - Vlad24
Дата добавления - 25.02.2016 в 19:29
Serge_007 Дата: Четверг, 25.02.2016, 21:49 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13121
Репутация: ±
Замечаний: ±

Excel 2010
изучал язык Visual Basic. С макросами, не имел опыта
Так да или нет?


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
изучал язык Visual Basic. С макросами, не имел опыта
Так да или нет?

Автор - Serge_007
Дата добавления - 25.02.2016 в 21:49
Vlad24 Дата: Четверг, 25.02.2016, 21:55 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Serge_007, Здравствуйте. Изучал, в учебных целя: сортировка; выпадания случайных чисел; простейший калькулятор. Я учусь не на программиста, а на инженера в автомобильной отрасли.


Сообщение отредактировал Vlad24 - Четверг, 25.02.2016, 21:55
 
Ответить
СообщениеSerge_007, Здравствуйте. Изучал, в учебных целя: сортировка; выпадания случайных чисел; простейший калькулятор. Я учусь не на программиста, а на инженера в автомобильной отрасли.

Автор - Vlad24
Дата добавления - 25.02.2016 в 21:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросы для раскрытия промежуточного расчета в виде цифр (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!