A caixa de listagem pode permitir aos usuários selecionar dados de uma lista para a entrada em uma célula particular. Por exemplo, para inserir dados sobre contas bancárias em uma planilha , um usuário pode selecionar uma opção de "pessoais" ou de contas de "negócios" . Listboxes geralmente são criados por uma série de menus na fita ( barra superior ) . Microsoft Office Visual Basic for Applications permite que você crie uma caixa de listagem usando um pequeno pedaço de código em vez de clicar em menus. Instruções
1
Abra o Editor do Visual Basic (VBE ) pressionando "Alt" e " F11 " da planilha do Excel.
2
Abra um novo módulo ( um página em branco ) , clicando em " Inserir" e depois escolhendo "Módulo ".
3
Digite o seguinte no módulo :
Sub listbox () ' listbox MacroActiveSheet . ListBoxes.Add ( 229,2 , 52,2 , 72, 69,6 ) SelectWith Selection.ListFillRange = . " $ A $ 2: $ A $ 4" LinkedCell = . . " $ A $ 2: $ A $ 4" MultiSelect = xlNone.Display3DShading = FalseEnd WithRange ( " E3 " ) . SelectEnd Sub
4
Execute a rotina , pressionando a tecla" F5 " .