Visual Basic Moving Average Function

Função média personalizada abaixo, analisaremos um programa no Excel VBA que cria uma função definida pelo usuário que calcula a média de um intervalo selecionado aleatoriamente, excluindo um ou mais valores que são outliers e não devem ser calculados em média. As funções definidas pelo usuário precisam ser colocadas em um módulo. 1. Abra o Editor do Visual Basic e clique em Inserir, Módulo. 2. Adicione a seguinte linha de código: Função CUSTOMAVERAGE (rng As Range, lower As Integer. Upper As Integer) O nome da nossa função é CUSTOMAVERAGE. A parte entre os colchetes significa que damos ao Excel VBA um intervalo e duas variáveis ​​Inteiras como entrada. Nós nomeamos nosso range rng, uma variável Integer que chamamos de menor, e uma variável Integer que chamamos superior, mas você pode usar qualquer nome. 3. Em seguida, declaramos um objeto Range e duas variáveis ​​do tipo Integer. Chamamos a célula do objeto Range. Uma variável Integer que chamamos de total e uma variável Integer que contamos contagem. Dim cell As Range, total como Integer. Count As Integer 4. Queremos verificar cada célula em um intervalo selecionado aleatoriamente (esse intervalo pode ser de qualquer tamanho). No Excel VBA, você pode usar o loop For Each Next para isso. Adicione as seguintes linhas de código: Para cada célula Em rng Nota: rng e célula são escolhidas aleatoriamente aqui, você pode usar qualquer nome. Lembre-se de se referir a esses nomes no resto do seu código. 5. Em seguida, verificamos cada valor nesse intervalo se cair entre os dois valores (inferior e superior). Se for verdade, incrementamos o total pelo valor da célula e incrementamos a contagem por 1. Adicione as seguintes linhas de código ao loop. Se cell. Value gt lower E cell. Value lt upper Then total total count. Value count count 1 End If 6. Para retornar o resultado desta função (a média desejada), adicione a seguinte linha de código fora do loop. Contagem total de CUSTOMAVERAGE 7. Não se esqueça de encerrar a função. Adicione a linha: 8. Agora você pode usar essa função como qualquer outra função do Excel para calcular a média dos números que se enquadram entre dois valores. Como um cheque, você pode excluir todos os valores inferiores a 10 e superiores a 30 e usar a função média padrão no Excel para ver se o Excel calcula a mesma média que nossa função média personalizada. Nossa função média personalizada funciona Nota: esta função está disponível apenas neste livro. Estou tentando calcular uma média usando o Visual Basic 2010 e exibir essa média em uma janela de mensagem. Enquanto a depuração (comentando o código e tentando diferentes variáveis ​​sendo enviadas para a caixa de mensagem como seqüência de caracteres), eu exibiria a janela da mensagem, mas sem dados retornados. Como eu tenho o código agora, não recebo nenhum erro, mas não consigo nem aparecer a caixa de mensagem. Basicamente, o programa tem o usuário inserir uma série de livros que leram, o que é usado para calcular um total de pontos com base na quantidade de livros lidos. O exercício pede para manter a média de todos os livros lidos. Perguntou 26 de fevereiro às 1:37