Sugerir valores para os atributos de uma função.

Question

Bom dia amigos,

estou com uma dúvida que parece ser simples, mas não estou conseguindo encontrar em nenhuma literatura para este problema.

O negócio é o seguinte. Criei uma função do excel onde o usuário deve indicar algumas células para alimentar com valores os argumentos da função. Pois bem, tudo funciona perfeitamente, porém eu gostaria que, quando o usúario chamasse a função e a tela para que os argumentos sejam informados for exibida, gostaria que já viessem exibidos alguns valores por mim definidos dentro da função, porém o usuário pode alterar selecionado uma célula ou conjunto de células da planilha e os valores dos argumentos assumiriam o que o usuário escolhesse, caso não houver escolha de nenhuma célula pelo usuário, os valores internos da função seriam assumidos.

Alguém tem alguma idéia sobre?

Obrigado pessoal.

 

 

Answer 1

Ubirajara,

Cara da sim para definir um parametro bem atraves de VBA da para fazer muita coisa.

Segue um exemplo para sua adaptação:

Function Exemplo(rangeParam)

' Exemplo Passa parametro

rangeParam= "A1:A7" 'Inicializando com valor default   

     Sheets("Sheet1").Select
    Sheets.Add
    ActiveCell.FormulaR1C1 = "Janeiro"
    Range(rangeParam).Select
    Selection.AutoFill Destination:=Range  (rangeParam),Type:=xlFillDefault
    Range(rangeParam).Select
End Function

 

Espero ter ajudado e no mais retorna.

Answer 2

Daniel,

muito obrigado pela atenção e o interesse em ajudar. Talvez eu não tenha me expressado corretamente, mas vou tentar explicar pra ver se vc me ajuda.

No caso do seu código, a função atribuirá aos argumentos o range "padrão" do código, isso eu sei que consigo fazer, agora o que eu realmente quero é que, quando o usuário chame a função ele visualize no campo do argumento este range, ou seja, quando ele chamar a função, dentro da janela dos argumentos ele visualizará que existe um range pré-definido. No nosso caso o range está definido porém não pode ser visualizado pelo usuário.

 

Muitíssimo obrigado.