Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

...

Views

29 de março de 2013

VBA Excel - Capturando todas as planilhas de um diretorio

Capturando o nº de arquivos em um diretório.

Eis a solução:

sub diretorio ()

Dim nFile As String
Dim nAddress As String

Let nFile = ActiveWorkbook.Name
Let nAddress = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) – Len(nFile))
Let qtdeBases = nAddress + "bases"
Let nFile = Dir(qtdeBases & "*.xls*")

Do While Len (nomePlanilha) > 0
Let nFile = Dir()
Loop

end sub

Tags: VBA, excel, files


VBA Access - Oculto - Criando um banco de dados novo



Durante o processamento de dados, ou mesmo para podermos ter uma base para para popular momentaneamente com dados base para relatórios, dashboards, scorecards, etc.

Quando estamos simulando cenários, talvez não desejemos guardar estes dados para depois, mas queiramos dar agilidade, por manter os dados numa base temporária.

Eis a solução:

Sub CreateObject()
Dim nAddress as String
Dim nApplication as String

Let nAddress = ThisWorkbook.Path + ""

' Poderíamos usar para o Excel: Excel.Application

Set nApplication = CreateObject("Access.Application") 

Let nApplication.Visible = False

nApplication.OpenCurrentDatabase (nAddress + "tmpRPT.accdb")

Caso fosse Excel:  a.Workbooks.Open (nAddress + "tmpRPT.xlsb")

nApplication.CloseCurrentDatabase

nApplication.Quit

Set nApplication = Nothing
End Sub


Tags: VBA, Access, application, database



Excel Tips - Funções de Engenharia - Engineering functions

Inline image 1

Para utilizarmos bem as funções do MS Excel precisamos ao menos saber que existem e conhecermos onde as podemos aplicar.

O que segue são algumas destas que podemos utilizar extensivamente, agora com um pouco mais de conhecimento.

Tenham em mente que elas estão expressas em inglês, escolhi assim para que pudéssemos ter proveito delas tanto funcionalmente no MS Excel quanto na programação VBA. Sei que na maioria das empresas a instalação está em português, o que pessoalmente acho péssimo, nestes casos poderá procurar pela referência de como escrevê-la em Português.

Ahh e não reclamem, aproveitem para usar o Google Translate se precisarem.

Funções de Engenharia

BESSELI
Returns the modified Bessel function In(x)

BESSELJ
Returns the Bessel function Jn(x)

BESSELK
Returns the modified Bessel function Kn(x)

BESSELY
Returns the Bessel function Yn(x)

BIN2DEC
Converts a binary number to decimal

BIN2HEX
Converts a binary number to hexadecimal

BIN2OCT
Converts a binary number to octal

COMPLEX
Converts real and imaginary coefficients into a complex number

CONVERT
Converts a number from one measurement system to another

DEC2BIN
Converts a decimal number to binary

DEC2HEX
Converts a decimal number to hexadecimal

DEC2OCT
Converts a decimal number to octal

DELTA
Tests whether two values are equal

ERF
Returns the error function

ERFC
Returns the complementary error function

GESTEP
Tests whether a number is greater than a threshold value

HEX2BIN
Converts a hexadecimal number to binary

HEX2DEC
Converts a hexadecimal number to decimal

HEX2OCT
Converts a hexadecimal number to octal

IMABS
Returns the absolute value (modulus) of a complex number

IMAGINARY
Returns the imaginary coefficient of a complex number

IMARGUMENT
Returns the argument theta, an angle expressed in radians

IMCONJUGATE
Returns the complex conjugate of a complex number

IMCOS
Returns the cosine of a complex number

IMDIV
Returns the quotient of two complex numbers

IMEXP
Returns the exponential of a complex number

IMLN
Returns the natural logarithm of a complex number

IMLOG10
Returns the base-10 logarithm of a complex number

IMLOG2
Returns the base-2 logarithm of a complex number

IMPOWER
Returns a complex number raised to an integer power

IMPRODUCT
Returns the product of complex numbers

IMREAL
Returns the real coefficient of a complex number

IMSIN
Returns the sine of a complex number

IMSQRT
Returns the square root of a complex number

IMSUB
Returns the difference between two complex numbers

IMSUM
Returns the sum of complex numbers

OCT2BIN
Converts an octal number to binary

OCT2DEC
Converts an octal number to decimal

OCT2HEX
Converts an octal number to hexadecimal


Tags: Function, Excel, Tips, functions, Engineering




Excel Tips - Funções de Data e Tempo - Date and time functions

Inline image 1

Para utilizarmos bem as funções do MS Excel precisamos ao menos saber que existem e conhecermos onde as podemos aplicar.

O que segue são algumas destas que podemos utilizar extensivamente, agora com um pouco mais de conhecimento.

Tenham em mente que elas estão expressas em inglês, escolhi assim para que pudéssemos ter proveito delas tanto funcionalmente no MS Excel quanto na programação VBA. Sei que na maioria das empresas a instalação está em português, o que pessoalmente acho péssimo, nestes casos poderá procurar pela referência de como escrevê-la em Português.

Ahh e não reclamem, aproveitem para usar o Google Translate se precisarem.

Funções de Data e Tempo

DATE
Returns the serial number of a particular date

DATEVALUE
Converts a date in the form of text to a serial number

DAY
Converts a serial number to a day of the month

DAYS360
Calculates the number of days between two dates based on a 360-day year

EDATE
Returns the serial number of the date that is the indicated number of months before or after the start date

EOMONTH
Returns the serial number of the last day of the month before or after a specified number of months

HOUR
Converts a serial number to an hour

MINUTE
Converts a serial number to a minute

MONTH
Converts a serial number to a month

NETWORKDAYS
Returns the number of whole workdays between two dates

NOW
Returns the serial number of the current date and time

SECOND
Converts a serial number to a second

TIME
Returns the serial number of a particular time

TIMEVALUE
Converts a time in the form of text to a serial number

TODAY
Returns the serial number of today's date

WEEKDAY
Converts a serial number to a day of the week

WEEKNUM
Converts a serial number to a number representing where the week falls numerically with a year

WORKDAY
Returns the serial number of the date before or after a specified number of workdays

YEAR
Converts a serial number to a year

YEARFRAC
Returns the year fraction representing the number of whole days between start_date and end_date



Tags: Function, Excel, Tips, functions, Date, Time




27 de março de 2013

Tips - As formiguinhas e a dona barata.



Achei este texto muito interessante e elucidativo, talvez ajude-nos a refletir quão importante é dar atenção aos detalhes.


Inline image 2 O texto é de Elazier Barbosaelazierbarbosa@hotmail.com.


As formiguinhas e a Dona barata...

Imagine você no seu café da manhã, com o uma fatia de pão em uma mão, faca na outra pronto para pegar um pouco da sua geleia preferida e vê 3 forminhas passeando alegremente  na sua geleia!

Você exclama: Puxa! São minúsculas e quase que você as vias, mas não deixam de ser formigas!

Decisão: jogar fora o seu vidro de geleia preferida  recém-inaugurado!

Ou usar uma colher e tirar as ditas formiguinhas juntas com um parte da geleia, pressupondo que somente em volta de cada formiguinha deveria estar sujo, contaminando a sua querida geleia.

Pressupondo a vontade de comer sua geleia o que você faria?

A maioria, acho que com certeza aplicaria a segunda alternativa. É uma formiga mas é  uma formiguinha pequenininha e se for tirada  junto comum pouco de geleia, está tudo beleza!

Vamos ao  segundo ato.

Repetindo a primeira cena, você leva a faca à gelia e, quem está deitadona na geleia? É a dona barata! Com a barriguinha cheia de geleia! Êta vida doce!

E agora, qual das alternativas você aplicaria? Tiraria cuidadosamente a dona barata da geléia (segurando pelas suas perninhas ?) e com um pouco de geléia junto e negócio fechado? 

Eu acho que não, Acho que você horrorizado e com muita raiva jogaria tudo no lixo. Não iria nem quer aproveitar o vidro pra guardar parafusos, porquinhas e outras cositas mas que a gente guarda e nunca usa.

Como o nosso tema é administração, vamos então  sequenciando  para essa  área 

Você já percebeu quanta vezes relevou alguns funcionários que:

 - Escreverem o nome de maneira errada do cliente,

 - Chamam de Maria quando era Mário;

 - Mandam um e-mail cheio de erros de português,

 - Tratam o  cliente de maneira excessivamente informal como se fosse colega de faculdade;

 - Enviam a mercadoria à tarde quando era para ser enviada na parte da manhã;

 - Deixam o cliente dependurado no telefone e acabam até esquecendo que o coitado estava  aguardando, aguardando...

 - Quando ligam para o cliente e se é atendido por uma voz feminina fazem gracejos impróprios  e fazem perguntas pessoais que nada tem a ver com o negocio da companhia e por aí vai. 

Ou seja você acha esses comportamentos aceitáveis pois acha que ninguém é perfeito e que isso também não vai criar maiores problemas pra a empresa

Mas convenhamos no mês, passado quando o seu funcionário tirou um pedido e errou pra cima no zero e você produziu 10 vezes mais e só pode entregar 10%, aí então você ficou uma fera e botou ele olho da rua!

Vamos  voltar as formiguinhas. Mate um barata e deixe ela no chão da cozinha. Logo de manhã vai verificar como está a defunta. Você irá ver que ela está toda decorada por um batalhão de formiguinhas em ação. 

Espere até a noite e as formiguinhas terão levado em partes, toda a barata pro formigueiro. Perfeito trabalho em equipe, umas cortando em pedacinhos a defunta e as outras levando os pedacinhos pra a formigueiro 

Moral da história: você tem nojo de comer barata diretamente mas é relevante com as formiguinhas que comem barata, logo, você come e não acha que é problema comer barata por tabela. 

Agora talvez nem precisasse continuar escrevendo. Aqueles funcionários que fazem "pequenas faltas" com o clientes são as formiguinhas que você está engolindo no dia-a-dia

Aquele que você mandou embora no mês passado era uma baratona!

Meu Amigo se você na sua cozinha continuar numa boa com as formiguinhas vai comer muitas baratas por tabela! 

Lembre-se: Erros pequenos são como tijolos quando empilhados podem fazer um grande muro. O muro que irá manter sua empresa fora o mercado.

Tags: Corporativo, Dica, comportamento, fábula, aprendizado, formiga, barata

25 de março de 2013

Excel Tips - Funções de Banco de Dados - Database functions

Inline image 1

Para utilizarmos bem as funções do MS Excel precisamos ao menos saber que existem e conhecermos onde as podemos aplicar.

O que segue são algumas destas que podemos utilizar extensivamente, agora com um pouco mais de conhecimento.

Tenham em mente que elas estão expressas em inglês, escolhi assim para que pudéssemos ter proveito delas tanto funcionalmente no MS Excel quanto na programação VBA. Sei que na maioria das empresas a instalação está em português, o que pessoalmente acho péssimo, nestes casos poderá procurar pela referência de como escrevê-la em Português.

Ahh e não reclamem, aproveitem para usar o Google Translate se precisarem.

Funções de Banco de Dados

DAVERAGE
Returns the average of selected database entries

DCOUNT
Counts the cells that contain numbers in a database

DCOUNTA
Counts nonblank cells in a database

DGET
Extracts from a database a single record that matches the specified criteria

DMAX
Returns the maximum value from selected database entries

DMIN
Returns the minimum value from selected database entries

DPRODUCT
Multiplies the values in a particular field of records that match the criteria in a database

DSTDEV
Estimates the standard deviation based on a sample of selected database entries

DSTDEVP
Calculates the standard deviation based on the entire population of selected database entries

DSUM
Adds the numbers in the field column of records in the database that match the criteria

DVAR
Estimates variance based on a sample from selected database entries

DVARP
Calculates variance based on the entire population of selected database entries


Tags: Function, Excel, Tips, functions, database




Excel Tips - Funções para uso com Cubo - Cube functions

Inline image 1

Para utilizarmos bem as funções do MS Excel precisamos ao menos saber que existem e conhecermos onde as podemos aplicar.

O que segue são algumas destas que podemos utilizar extensivamente, agora com um pouco mais de conhecimento.

Tenham em mente que elas estão expressas em inglês, escolhi assim para que pudéssemos ter proveito delas tanto funcionalmente no MS Excel quanto na programação VBA. Sei que na maioria das empresas a instalação está em português, o que pessoalmente acho péssimo, nestes casos poderá procurar pela referência de como escrevê-la em Português.

Ahh e não reclamem, aproveitem para usar o Google Translate se precisarem.

Funções para uso com Cubo

CUBEKPIMEMBER
Returns a key performance indicator (KPI) name, property, and measure, and displays the name and property in the cell. A KPI is a quantifiable measurement, such as monthly gross profit or quarterly employee turnover, used to monitor an organization's performance.

CUBEMEMBER
Returns a member or tuple in a cube hierarchy. Use to validate that the member or tuple exists in the cube.

CUBEMEMBERPROPERTY
Returns the value of a member property in the cube. Use to validate that a member name exists within the cube and to return the specified property for this member.

CUBERANKEDMEMBER
Returns the nth, or ranked, member in a set. Use to return one or more elements in a set, such as the top sales performer or top 10 students.

CUBESET
Defines a calculated set of members or tuples by sending a set expression to the cube on the server, which creates the set, and then returns that set to Microsoft Office Excel.

CUBESETCOUNT
Returns the number of items in a set.

CUBEVALUE
Returns an aggregated value from a cube.


Tags: Function, Excel, Tips, cube, functions,




LinkWithin

Related Posts Plugin for WordPress, Blogger...

Vitrine