Pergunta : O MS alcança ADP 2003 using 2 caixas combinados dependentes mas erro da obtenção

Olá!, o

I tentou o código de acesso padrão para usar uma caixa combinado dependente. mas não começ alguma alegria com o adp a um DB da Senhora sql. O projeto do adp relata um erro com utilização [formulários]! [formexample]! [combo2] ajuda do

Please? class= do

Resposta : O MS alcança ADP 2003 using 2 caixas combinados dependentes mas erro da obtenção

Olá! Bruj,

Eu estudei o problema e descobri a coisa nova e surpreendente para mim. Nunca antes que eu encontrar uma tarefa onde houvesse necessário para usar Activecell.
Eu encontrei que quando nós atribuímos a fórmula à condição do formato, está traduzida como se sendo aplicado ao Activecell. Assim se nós compor uma fórmula para a pilha esquerda superior da escala dos CF (que supor que tem referências relativas/absolutas apropriadas a ser expandidas sobre a escala) nós devemos ajustar Activecell à pilha esquerda superior da escala dos CF. A maneira a mais fácil de fazer isto é selecionar a escala dos CF. Assim você era direito geralmente sobre a seleção.

Eu espero que este macro é apropriado para você.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Workbook_Open secundário confidencial ()
lastRow não ofuscante como por muito tempo
Com folhas (“Sheet1”)
    . SUPRESSÃO  de Cells.FormatConditions.Delete 'TODO O FORMATO de COND
    lastRow =. Rows.Count
    Com. Escala (“A3: O” & o lastRow)   'AJUSTARAM o objeto do defeito, todas as expressões que começam com
                                    '“.” referir-lhe-á. Anotar aninhado “com”
        . Selecionar                     'para ajustar ActiveCell ao canto esquerdo superior da escala
        tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E3, $E3) >1 "
        .FormatConditions (1). Interior.ColorIndex = 44
        .FormatConditions (1) .StopIfTrue = retificam
        tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =COUNTIF ($E$3: $E$ " & lastRow & “, $E3) >1”
        .FormatConditions (2). Interior.ColorIndex = 37
        tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =UPPER ($K2) = do "" """ SIM
        .FormatConditions (3). Interior.Color = '    vermelho vbRed
    Extremidade com
Extremidade com
Submarino da extremidade
Outras soluções  
 
programming4us programming4us