Помогите с VBA

Discussion in 'Болталка' started by zloyDekan, 1 Mar 2013.

  1. zloyDekan

    zloyDekan Member

    Joined:
    5 May 2010
    Messages:
    72
    Likes Received:
    68
    Reputations:
    48
    пацантрэ, помогите.
    задали тут в VBA сделать.
    помогите с кодом, кому не сложно.

    вот что написал я, но это не катит..

    Private Sub proizvchisla_Click()

    Dim A As Integer, B As Integer, C As Integer
    Dim D As Integer, E As String, N As String
    Dim x As Integer, y As Integer, z As Integer
    Dim k As String, l As String, m As String
    A = Range("C1")
    B = Range("C2")
    C = Range("C3")

    If A<0 then
    x=0
    else
    if A>=0 then
    x=1
    else
    If B<0 then
    y=0
    else
    if B>=0 then
    y=1
    else
    If C<0 then
    z=0
    else
    if C>=0 then
    z=1
    end if
    end if
    end if
    end if
    end if
    end if
    D=x+y+z


    if A>=0 then
    A=k
    else
    if B>=0 then
    B=l
    else
    if C>=0 then
    c=m
    end if
    end if
    end if
    E=k+l+m
    F=k*l*m


    Range("D1") = D
    Range("D2") = E
    Range("D3") = N

    End Sub
     
  2. Atomikdddsss

    Atomikdddsss Banned

    Joined:
    8 Dec 2011
    Messages:
    210
    Likes Received:
    13
    Reputations:
    2
    Чувак только не говори что у тебя специальность IT.
     
  3. ^NSA^

    ^NSA^ Elder - Старейшина

    Joined:
    3 Jul 2012
    Messages:
    66
    Likes Received:
    29
    Reputations:
    32
    ты бы код в коде забыл бы , школьник что ль?
     
Loading...