EXCELer: setembro 2007

2007-09-25

Expression European Designer Tour

8:06 da tarde |

Publicada por JRod - PORTUGAL |

Editar mensagem

Clicar no banner para aceder ao link

Data: 24 de Outubro (15h00-18h30)
Local: Auditório dos Oceanos, Casino de Lisboa - Parque das Nações
Produtos: Microsoft Expression, Silverlight
Destinatários: Designers

2007-09-14

204: VBA: - Evento WorkSheet_Change, Método Intersect

3:45 da tarde |

Publicada por JRod - PORTUGAL |

Editar mensagem

Por mail, formularam a seguinte questão (adaptada): "Tenho uma folha em excel e gostaria de, quando eu digitasse o código de um trabalhador numa coluna de outra folha, fosse efectuada uma verificação na primeira folha, e, se a coluna com o nome "BAIXA", correspondente ao código digitado fosse diferente de "S", o código fosse guardado, mas, se fosse igual a "S" , aparecesse uma mensagem e apagasse esse mesmo código."

Vejamos o exemplo:

Na folha1:

Na folha 2:

O Código (inserido do seguinte modo na folha 2):

Private Sub Worksheet_Change(ByVal Target As Range)
'JRod - Microsoft [MVP] - Excel
'blog: http://EXCELer.blogspot.com
'site: http://www.exceler.org
'email1: mail@exceler.org
'email2: blog.exceler@netcabo.pt
'
    Const WS_RANGE As String = "A2:A10"

    Dim c As Range, myRange As Range

    On Error GoTo ws_exit

    Application.EnableEvents = False

    If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
        With Target
            Set myRange = Sheets(1).Range("A2:A10")
            For Each c In myRange
                If c.Value = ActiveCell.Offset(-1, 0).Value Then

                    If c.Offset(0, 1).Value = "S" Then
                        MsgBox "O trabalhador encontra-se de Baixa." & Chr(10) & "Inserção Impossível!", Buttons:=vbInformation
                        ActiveCell.Offset(-1, 0).Activate
                        ActiveCell.Value = ""
                    End If

                End If
            Next
        End With
    End If

ws_exit:
    Application.EnableEvents = True

End Sub

Tópicos relacionados:

Events and Event Procedures in Excel

Intersect Method

Excel VBA Intersect Method

Working with Union & Intersect

2007-09-06

203: Excel - SUMPRODUCT(), SUM() ou SUMIF()?

5:03 da tarde |

Publicada por JRod - PORTUGAL |

Editar mensagem

Num newsgroup, colocaram a seguinte questão (adaptada):

"Tenho uma folha em que na coluna A, tenho datas no seguinte formato"06-09-2007", na coluna B e na coluna C tenho valores. Não estou a conseguir, mediante a utilização da formula=SUMIF(A1:A1000;MONTH(6);B1:B1000), somar todos os valores da coluna B correspondentes ao mês 6" .

Rodrigo Ferreira [Brasil - gostaria de saber mais sobre este "adicto" do Excel...], apresentou a seguinte possível solução:

=SUMPRODUCT((MÊS(A1:A1000)=6)*B1:B1000)

Eu, resolvi apresentar a seguinte alternativa:

{=SUM((MONTH(A1:A1000)=6)*(B1:B1000))}'como um array, ou seja com CTRL+SHIFT+ENTER para obter {}

KL (MVP Kiril Lapin) mostrou, entre outras, uma terceira possível solução:

=SUMIF(A1:A1000;">="&DATE(2007;6;1);B1:B1000)-SUMIF(A1:A1000;">"&DATE(2007;6;30);B1:B1000)

Bom, a escolha é vossa!!!

Tópicos relacionados: