Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Identificar um núme...
 
Notifications
Clear all

Identificar um número próximo e arredondar.

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
960 Visualizações
RSS
 mateus0203
(@mateus0203)
Posts: 53
Trusted Member
Topic starter
 

Bom dia pessoal!

Em uma planilha tenho números variados, dentre eles alguns em especial que eu gostaria de arredondar, que são os que são próximos do número 1.

Exemplo:

Na planilha tenho:
7,8
2,0
0,0004
1,005
1,5
3,0008

E gostaria de um comando que arredonde apenas aqueles que são próximos de 1, então nesse exemplo ficaria:

7,8
2,0
0,0004
1,0
1,5
3,0008

Pra ser mais preciso queria arredondar aqueles que têm a primeira casa decimal igual a zero e um número após a primeira casa decimal (à direita).

 
Postado : 28/10/2015 7:29 am
 vbah
(@vbah)
Posts: 12
Active Member
 

use: 

=SE(E(C3-1<0,09;C3>1);ARRED(C3;0);C3)
 
Postado : 28/10/2015 7:39 am
 mateus0203
(@mateus0203)
Posts: 53
Trusted Member
Topic starter
 

Você saberia colocar este comando em VBA? Quero fazer isto em uma macro que desenvolvi.

 
Postado : 28/10/2015 7:42 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Poderia ser algo +/- assim

Sub arred()
Dim x As Integer, y As Double
For x = 2 To 7
y = Cells(x, 3).Value
    MsgBox Int(y)
    If y - 1 < 0.09 And y > 1 Then
        Cells(x, 3).Value = Int(y)
    End If
Next
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2015 8:26 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mateus

Você se esqueceu de clicar na mãozinha para agradecer ao Reinaldo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2015 10:09 am
Forum Jump:
  Tópico Anterior
Próximo Tópico