EXCELer Tudo sobre EXCEL em Português

Sabendo como funciona o Operador de Divisão Inteiro (), então, podemos construir uma UDF, que mais não é do que a Função do Excel denominada QUOTIENT(). Vejamos o exemplo no seguinte screenshot: O Código da Função IntDiv(): Function IntDiv(ByVal vStr As Double, vStr1 As Double) As Double     Dim oStr As String     oStr = vStr vStr1     IntDiv = oStr End Function …

Podemos utilizar o comando Goal Seek (Tools|Goal Seek) para resolvermos, por exemplo, equações. Tomemos a seguinte equação: x+x+x/4+1=100 => 4x+4x+x=396 => 9x=396 => x=396/9 => x=44. Utilizando o Excel: A célula A1 será a incógnita (x). Digitamos o valor 0 (zero) Em B1: =A1+A1+A1/4+1 Utilizando o comando Goal Seek: O valor colocado no campo "To value" faz parte da equação …

Consideremos o seguinte sistema de equações: x + y =8 e x – y = 2 Assim, na 2ª equação, teriamos: x= y+2. Então, na 1ª equação teríamos com a substituição de x: y + 2 + y = 8 ou seja: 2y = 6 ou seja: y = 6/2 ou seja: y = 3 Então, na 2ª equação teríamos …

A Microsoft está adicionando uma nova série de funções de segurança voltadas para proteger o Word e o Excel.

Se pretendermos utilizar um ficheiro texto (ex: teste.txt) como um ficheiro com conteúdo numérico sequenciador para uma célula de uma worksheet (ex: A1), então, podemos criar o ficheiro, digitar 0 (zero) e salvá-lo no directório escolhido. Depois, um pouco de VBA adicionado a um Command Button, faz o resto. O Código: Private Sub CommandButton1_Click()    Dim strTemp As String     On Error GoTo …

Se numa tabela de nomes pretendermos filtrar um determinado nome (ex: António), o qual pode ser nome próprio, nome do meio ou apelido, podemos utilizar um pouco de VBA: O Código: Private Sub CommandButton1_Click()Dim myName     Range("A1:A700").Select    myName = InputBox(Prompt:="Digite o nome para filtro ou carregue em OK para remover filtro", Title:="Filtra por nome")     If myName = "" Then        Selection.AutoFilter        Range("A1").Select    Else        Selection.AutoFilter Field:=1, Criteria1:="*" & …

Se pretendermos inserir uma imagem numa folha de cálculo e dentro de uma "Image box control", como no exemplo: podemos utilizar um pouco de Código: Option Explicit Private Sub CommandButton1_Click()     Dim myPictName As Variant    Dim Image1 As Image     myPictName = Application.GetOpenFilename _                    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")    If myPictName = False Then        Exit Sub    End If    Me.Image1.Picture = LoadPicture(myPictName) End Sub