Alterar a fonte e o tamanho de letra dentro de uma combobox

[Guest id13601]

Olá bom dia, será que alguem me podia ajudar ou ensinar a alterar o tamanho da letra dentro de uma combobox.Obrigado

[joseA]

Em Propriedades>Font

[Guest id13601]

Olá, e isso é aonde?É clicar com o botão do rato em cima da combobox? ?

[HIT_Braga]

Quando colocas uma combobox activex, a resposta é sim, pressionas o direito do rato>propriedades

[Guest id13601]

...a combobox não é activeX

[joseA]

Em um formulário seria o mesmo. Clicar com o botão do rato em cima da combobox>Propriedades>Font e clique no botão ...

[Guest id13601]

Desculpa lá mas a mim não me aparece nada disso ?

http://alojaimagens.com/images/jg32265yc87rm4oepe4.jpg

[FreiNando]

Os controlos de formulário, como o nome indica, devem ser utilizados nos formulários.

Os formulários a que me refiro não são os forms criados pelo Editor de VBA, mas aqueles criados em folha do Excel, apenas presentes para compatibilidade com as versões antigas(muito antigas - office 3.1).

Nesses controlos não é possivel mudar as propriedades relativas à formatação do texto, excepto o botão de comando (sendo no formulário não é possivel).

Os controlos dos forms criados no Editor VBA são diferentes e possuem mais propriedades, são os Controlos Activex.

Usa esses são melhores. Tem ligação a muitos Events, os outros apenas usam uma.

Para os modificares tens colocar em modo estrutura.

[Guest id13601]

Olá, agora já percebi essa parte vou passar a usar as activex mas agora não sei como fazer para aparecer uma lista dentro destas combobox. Com as outras combobox  de formulário associava a seguinte macro

Sub Dropdown1_Alteração()
Select Case Folha1.Shapes("Drop Down 1").ControlFormat.ListIndex
Case 1
MsgBox "Macro1"
Case 2
MsgBox "Macro2"
Case 3
MsgBox "Macro3"
Case Else
End Select
End Sub

com estas não sei como fazer.

[FreiNando]

Olá, agora já percebi essa parte vou passar a usar as activex mas agora não sei como fazer para aparecer uma lista dentro destas combobox.

Vais às propriedades, colocas a lista em ListFillRange, e a célula que vai receber o valor selecionado em LinkedCell.

[Guest id13601]

..eu fiz agora isso e não aparece nada e aparece-me isto na barra de formulas "=INCORPORAR("Forms.ComboBox.1";"")" não sei o que é nem consigo apagar ? desculpa mas eu ainda estou numa fase inicial do excel.

http://alojaimagens.com/images/q2mxeccj57xww1k1nd6.jpg

[FreiNando]

Esse texto está correcto. indica que foi criado um objecto.

O nome da combo está na propriedade '(name)', e serve para em vba acederes a essa combo.

Por defeito deve estar 'ComboBox1'

Mas para te aparecer na combo a lista de valores tens de colocar na propriedade ListFillRange "A2:A4" em vez de "dd"

Depois muda para modo execução clicando no botão Modo de Estrutura da barra de ferramentas programador, de modo a ficar desligado.

Seguindo o teu código acima mencionado, deves escolher o evento Change() e trocar a instrução:

Select Case Folha1.Shapes("Drop Down 1").ControlFormat.ListIndex

por:

Select Case ComboBox1.Value

Atenção: Este código deves estar na Folha1, se estiver num modulo diferente não irá funcionar.

[Guest id13601]

Já perbecebi obrigadooooooo 😁 a partir de agora só vou usar estas combox 😄 .

se não for pedir muito tenho outra questão relacionada com as combobox que é a seguinte: A lista que eu quero que apareça na combobox  está na coluna A e que vai aumentando diariamente e que contem muitos valores repetidos o que eu gostaria de fazer era que só me aparecesse  na combo valores unicos, existe alguma maneira de fazer isto?

[Guest id13601]

Olá, encontrei este código na net que me vai acrescentando valores a combobox conforme a lista que está na coluna [A] vai crescendo agora só queria que alguem me ajudasse a modificar o código para os valores repetidos só aparecerem uma unica vez na combobox.

Private Sub ComboBox1_GotFocus()
Dim List    As Worksheet
Dim ostA    As Long

Set List = ThisWorkbook.Worksheets("List")
ostA = List.Range("A1").End(xlDown).Row
Me.OLEObjects("ComboBox1").ListFillRange = "List!A1:A" & ostA
Set List = Nothing

End Sub

[FreiNando]

Nunca fiz uma filtragem dessas, porque prefiro usar o Access para esse tipo de trabalhos.

Mas podes através de formulas criar noutro local da folha ou noutra folha, uma lista baseada nessa, à qual retiras os items repetidos.

Vê neste ARTIGO como podes fazer isso.

[joseA]

Uma única vez e ordenados:

Private Sub ComboBox1_GotFocus()
CargarCombo
End Sub

Sub CargarCombo()
    Dim Fila As Long, i As Long
    Folha1.ComboBox1.Clear
    Fila = 2
    Do While Len(Folha1.Cells(Fila, 1))
        CargarList Folha1.ComboBox1, Folha1.Cells(Fila, 1).Value
        Fila = Fila + 1
    Loop
End Sub
Private Function CargarList(ByVal List As Variant, ByVal Dato As String)
Dim i As Integer
    For i = 0 To List.ListCount - 1
        If List.List(i) = Dato Then Exit Function
        If List.List(i) > Dato Then Exit For
    Next
    List.AddItem Dato, i
End Function

[Guest id13601]

😁 Obrigado a todos que me ajudaram era mesmo isto que procurava. 👍

[joseA]

😁 Abraços.  ?