Excel VBA - Selectarea următoarei celule goale într-un rând

Visual Basic Application sau VBA, atunci când este folosit în Microsoft Excel, este un instrument eficient, deoarece lucrările repetitive pot fi automatizate cu ajutorul acestei aplicații. Utilizatorii pot scrie cod VBA personalizat pentru a satisface nevoile lor de programare. Prin proprietăți interesante , cum ar fi offset, se poate opera în diferite celule din Excel. Operațiile precum selectarea următoarei celule goale într-un rând pot fi efectuate automat, dar numai atunci când această proprietate este aleasă în VBA.

Problema

Eu folosesc Excel 2002

Codul de mai jos funcționează bine, cu excepția faptului că vreau să selectez următoarea celulă goală spre dreapta în rândul de fiecare dată când este înscris scorul aceluiași jucător.

După cum citește acum, doar suprascrie intrarea anterioară.

 (Selectați Do Until ActiveCell.Value = Player.Value ActiveCell.Offset (1, 0) .Selectați Loop ActiveCell.Value = Player.Value Activecell.offset (("B1")) 0, 4) .value = Score.value ActiveSheet.Protect GameNumber.Value = "" Player.Value = "" Score.Value = ""

Soluţie

INCEARCA ASTA:

 ActiveCell.Value = Player.Value Activecell.offset (0, 4) .value = Score.value 'găsiți ultima celulă folosită pe rândul din dreapta la ActiveCell.End (xlToRight) .Selectați' mutați o celulă spre dreapta din ultimul utilizate celula ActiveCell.Offset (0, 1) .Selectați