Descricao: |
Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Este macro do aplicativo Microsoft Excel VBA, gera uma letra aleatória de (A-Z), na célula ativa ou na Região Selecionada. '- - - - - - - - - - - - - - - - - Sub sbx_letras_aleatorias() Dim vCelulas As Range Dim Maximo_Letras As Long Randomize ' iniciar o gerador de aleatórios. Maximo_Letras = 26 'aqui voce poderá escolher de 1 a 26 letras. For Each vCelulas In Selection 'veja que é na seleção area ou célula ativa ' gerando letras aleatórias de 1 a até o número escolhido em Maximo_letras vCelulas.Value = Chr(Int((Maximo_Letras * Rnd) + 1) + 64) Next vCelulas End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
|