✔ Programação GLOBAL®: VBA Excel - Movendo-se para a célula

VBA Excel - Movendo-se para a célula - Move to Cell

| Blog Office VBA | Blog Excel | Blog Access |

Pense: Demonstrar como mover-se para uma determinada célula específica pode parecer simples para alguém que já programa com o VBA a muito tempo no MS Excel. Mas pode ser um verdadeiro desafio encontrar uma explicação simplificada de como fazê-lo.

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.

Segue a minha tentativa de explanar sobre esse assunto o mais amplamente possível através de um código. Este algoritmo localiza e seleciona a célula.

Sub MoveToCellExcelVBA()

   Dim MaxVal As Integer

   Dim theRow As Integer

   Dim theCol As Integer



   Range("A1").Select

   Let ActiveCell.FormulaR1C1 = "1"



   Range("B1").Select
   Let ActiveCell.FormulaR1C1 = "2"

   Range("A1:B1").Select

   Selection.AutoFill Destination:=Range("A1:H1"), Type:=xlFillDefault

   Range("A1:H1").Select

   Range("A2").Select

   Let ActiveCell.FormulaR1C1 = "3"

   Range("A1:A2").Select

   Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault

   Range("A1:A20").Select

   Range("B2").Select

   Let ActiveCell.FormulaR1C1 = "=R1C*RC1"

   Range("B2").Select

   Selection.AutoFill Destination:=Range("B2:H2"), Type:=xlFillDefault

   Range("B2:H2").Select

   Selection.AutoFill Destination:=Range("B2:H20"), Type:=xlFillDefault



   Range("B2:H20").Select

   Range("E11").Select

   Let ActiveCell.FormulaR1C1 = "1000"



   Range("A1").Select



   ' The code from here finds and selects the cell

   Range("A1:H20").Select

   Let MaxVal = -32768



   ActiveCell.SpecialCells(xlLastCell).Select



   For intRow = 1 To ActiveCell.Row

   For intCol = 1 To ActiveCell.Column

   If Cells(intRow, intCol).Value > MaxVal Then

   Let MaxVal = Cells(intRow, intCol).Value

   Let theRow = intRow

   Let theCol = intCol

   End If

   Next

   Next

   Cells(theRow, theCol).Select

End Sub