Midori

Se o objeto não tem uma função para testar se o nó existe, você pode usar a instrução On Error Resume Next para não interromper o código em caso de erro.

Remova o "file//" e deixe só o caminho da pasta.

A média aritmética é a soma dos valores dividido pela quantidade de dados. Esse loop tem 6 ciclos e cada um pega duas notas, por isso tem a divisão por 12 já que essa é a quantidade de notas. A divisão por 2 é para pegar a média de cada aluno. Como são duas notas por aluno, tem a divisão por 2 para testar se a média é maior que 7. E a divisão é por 6 porque é da soma da média e não do total. Se fosse do total a divisão seria por 12 como no código anterior.

@Eli Almeidaa Entendo que os nomes devem ser representativos para permitir a identificação do propósito. É como você fez p.ex ao declarar como "lugares", assim é melhor do que chamar de "vetor", "x" ou outro nome genérico fora de contexto. No caso dos contadores mais simples acho que pode ser com uma letra mesmo como fez em lugares[i], está claro que é para pegar o índice do vetor.

@Sarasiq Para operações de entrada e saída (scanf e printf por exemplo) você vai aplicar o especificador de acordo com o tipo. No caso do %c já sabe que é caractere (char), %d é inteiro (int). Além desses tem outros, se fizer uma busca por especificadores de tipo ou formatação vai encontrar a lista.

@Miguel Donizeti Mosca Veja se assim resolve, cole na primeira linha da tabela e arraste, Coluna F, =SE(E2<>E1;SOMASES(D:D;E:E;E2;A:A;A2);0) Coluna G, =SE(A2<>A1;SOMASE(A:A;A2;D:D);0)

@ruandiablo Para isso tem a fórmula TEXTO, =TEXTO(HOJE();"mmmm")

Basicamente é só copiar um dos procedimentos e deixar tudo no mesmo. Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Tratar Dim campoAlt As String Dim valorDig As String Dim linha As Long Dim nlin As Integer Dim wsRegistro As Worksheet Dim LinhaRegistro As Long linha = Sheets("Registro").Range("A" & Rows.Count).End(xlUp).Row + 1 valorDig = Target.Value campoAlt = Target.Address With Sheets("Registro") .Cells(linha, 1) = Now() .Cells(linha, 2) = Application.UserName .Cells(linha, 3) = valorDig .Cells(linha, 4) = ActiveSheet.Name .Cells(linha, 5) = campoAlt End With Set wsRegistro = ThisWorkbook.Sheets("Registro") LinhaRegistro = wsRegistro.Cells(wsRegistro.Rows.Count, "A").End(xlUp).Row + 1 nlin = Target.Row If Target.Item(1, 1).ID <> "" Then If Target.Rows.Count > 1 Then wsRegistro.Cells(LinhaRegistro, 1).Value = Now() wsRegistro.Cells(LinhaRegistro, 2).Value = "Linhas " & nlin & " à " & nlin + Target.Rows.Count & " excluída" Else wsRegistro.Cells(LinhaRegistro, 1).Value = Now() wsRegistro.Cells(LinhaRegistro, 2).Value = "Linha " & nlin & " excluída" End If Else If Target.Rows.Count > 1 Then wsRegistro.Cells(LinhaRegistro, 1).Value = Now() wsRegistro.Cells(LinhaRegistro, 2).Value = "Linhas " & nlin & " à " & nlin + Target.Rows.Count & " inserídas" Else wsRegistro.Cells(LinhaRegistro, 1).Value = Now() wsRegistro.Cells(LinhaRegistro, 2).Value = "Linha " & nlin & " inserídas" End If End If Target.Item(1, 1).ID = "" Cells(Target.Row + Target.Rows.Count, Target.Item(1, 1).Column).ID = Target.Address Tratar: End Sub

Com PROCX é possível passar diretamente o array de busca e retorno para a fórmula, =PROCX(F7;{"ITÁLIA BRASIL";"BRASIL ITALIA";"HOMEM MULHER";"MULHER HOMEM"};{"EUROPA";"AMÉRICA DO SUL";"ELE";"ELA"};"";0)

Nomear as variáveis como n1 e n2 não ajudam na leitura do código. Em vez disso você pode dar nomes mais sugestivos como mes e salario. Se essas forem referentes a salário e mês está certo.

@malanar Veja se é isto, =SOMASE(DESLOC(A:A;;CORRESP("Filtro";1:1;0)-1);"AAA";DESLOC(A:A;;CORRESP("Ref1";1:1;0)-1)) O retorno será a soma do critério da coluna Filtro igual a AAA dos valores da coluna Ref1.

@LendaNoLinux Em vez dos dias entre com os meses e multiplique por 1/12 do salário, p.ex, resultado = salario/12 * meses;

@LendaNoLinux O 13º é calculado com base na quantidade de meses que você deve multiplicar por 1/12 do salário mensal. Tem o enunciado? Lá pede para entrar com os dias em vez dos meses?

@malanar Se possível anexe a planilha com um exemplo de como deve ficar, pode ser com dados fictícios. Assim ficará mais fácil ajudar.

@Ileusis LUNA ARAUJO E SILV Nesse caso aplique a fórmula SE com OU, p.ex para o débito, =SE(OU(B2="FRETE";B2="EMPRESTIMO");D2*C2;0) No crédito é só trocar os argumentos (0 para D2*C2)

@Adão Malessa Fica assim, Private Sub UserForm_Initialize() Dim ctl As MSForms.Control For Each ctl In Me.Controls If UCase(Left(ctl.Name, 5)) = "LABEL" Then ctl.BackColor = &H8000000F End If Next End sub

@Adão Malessa Na linha do Set acontece um erro de compilação e tem alguns problemas aí. O primeiro é tentar atribuir uma constante a uma propriedade com Set que serve para atribuir uma referência de objeto a uma variável e além disso a variável TextGroup não recebeu nenhuma referência. Outro é que TextGroup foi declarada como TextBox e você quer pegar um Label. Já que ctl é Control e vai pegar um controle do Form, é só atribuir a cor a propriedade dessa variável na condição que testa o Label, If UCase(Left(ctl.Name, 5)) = "LABEL" Then ctl.BackColor = &H8000000F End If

@arfneto Compreender essa diferença que comentou é importante. Mas entendo que não mudei o contexto, se foi o que quis dizer... Aquela linha foi colocada ali indevidamente e me parece adequado mostrar um exemplo de onde podia ficar.

Para artibuição como ele colocou foi isso. Outra forma é como você demonstrou sobre inicializar. No exemplo eu poderia ter deixado as variáveis como membro da classe, mas isso não é relevante para o que eu quis comentar especificamente sobre o erro na forma como ele atribuiu.

Como eu disse, é na atribuição. O operador de atribuição em C# é o =, logo é na linha nome[0]...

@JRicardo1995 Os vistos com 133 dias dá 5 m 12 d e 19:59h, =TEXTO(B3;"m ""m"" d ""d e"" hh:mm"" h""")

O erro está na atribuição e não na declaração. Se preferir pode declarar fora do escopo.

@cimerio7 Faltou colocar a atribuição no escopo de uma função, p.ex, namespace aprendizado{ internal class Cedidos{ void teste(){ decimal principal; decimal pss; string[] nome = new string[20]; nome[0] = "HELTON EDI XAVIER"; } } }

@Caiomqc Acho mais simples com função. Você pode passar a quantidade e o tipo de operação como argumento e retornar o resultado, p.ex, Algoritmo "CALCULADORA C900" Var Operacao: Inteiro Quantidade: Inteiro Funcao Calculo(Quantidade: Inteiro; Operacao: Inteiro): Real Var Total: Real Contador: Inteiro Numero: Inteiro Inicio Leia(Total) Para Contador de 1 Ate Quantidade - 1 Faca Leia(Numero) Escolha Operacao Caso 1 Total <- Total + Numero Caso 2 Total <- Total - Numero Caso 3 Total <- Total * Numero Caso 4 Se(Numero <> 0) então Total <- Total / Numero FimSe FimEscolha FimPara Retorne Total FimFuncao Inicio LimpaTela Escreval(" --- CALCULADORA C900 ---") Escreval("===========================") Escreval(" --- MENU DE OPERAÇÕES ---") Escreval("[1] ==> | ADIÇÃO |") Escreval("[2] ==> | SUBTRAÇÃO |") Escreval("[3] ==> | MULTIPLICAÇÃO |") Escreval("[4] ==> | DIVISÃO |") Escreval("[5] ==> | SAIR... |") Leia(Operacao) Escreva("Quantidade: ") Leia(Quantidade) Escreval("Resultado = ", Calculo(Quantidade, Operacao)) FimAlgoritmo

@Caiomqc Nenhuma dessas operações está pegando duas parcelas, por exemplo a + b = c, etc. No caso soma só está incrementando por 1; Na subtração vai dar zero porque só está pegando a diferença da variável Subtraendo (que recebe o valor do Numero) por Numero...; Na multiplicação faltou as duas parcelas e na divisão o dividendo é o Numero e o divisor (chamado de Quociente aí) é 1? Talvez o motivo de ter feito dessa forma seja questão de contexto, então se puder postar o enunciado vai ajudar.