1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[solved]Erro a obter o valor minimo em vba 7

Discussão em 'Programação' iniciada por jorge17, 5 de Junho de 2012. (Respostas: 2; Visualizações: 664)

  1. jorge17

    jorge17 Power Member

    Boas, é o seguinte, tenho que escrever um codigo que pede ao user para escrever 10numeros e obter o valor minimo
    eu fiz o seguinte:
    Código:
    Sub putnumber()
        Dim rngMyRange As Range, rngCell As Range
        Dim number As Integer
        Dim minimum As Integer
        Set rngMyRange = ActiveSheet.Range("A1:C1")
            For Each rngCell In rngMyRange.Cells
           number = InputBox("Please enter a number")
           rngCell.Value = number
        Next rngCell
           Mininum = Application.WorksheetFunction.min(rngMyRange)
           MsgBox "The Minimum Value is: " & minimum
    End Sub
    PS:tenho a cell do range em c1 em vez de j1 para facilitar o teste do codigo visto que assim so preciso de por 3 numeros.

    portanto o seguinte é que no final do codigo isto da-me sempre como valor minimo 0 :S
     
    Última edição: 5 de Junho de 2012
  2. rocksparty

    rocksparty Power Member

    Não sei se foi erro ao copiares para aqui, mas estas a atribuir o valor da função
    Application.WorksheetFunction.min(rngMyRange) à variável Mininum.

    Deveria ser atribuído à variável que tens declarada anteriormente,
    minimum.

    Cumps
     
    Última edição: 5 de Junho de 2012
  3. jorge17

    jorge17 Power Member

    omg omg omg loool
    OBRIGADO!! que falhanço lool
     

Partilhar esta Página