Excel VBA - nākamās tukšās šūnas atlasīšana pēc kārtas

Visual Basic Application vai VBA, ja to izmanto Microsoft Excel, ir efektīvs instruments, jo atkārtotas darbavietas var automatizēt, izmantojot šo programmu. Lietotāji var rakstīt pielāgotu VBA kodu, lai apmierinātu savas programmēšanas vajadzības. Izmantojot interesantas īpašības, piemēram, kompensāciju, var darboties dažādās Excel šūnās. Darbības, piemēram, izvēloties nākamo tukšo šūnu pēc kārtas, var automātiski veikt, bet tikai tad, kad šis īpašums tiek izvēlēts VBA.

Izdevums

Es izmantoju programmu Excel 2002

Turpmāk norādītais kods darbojas labi, izņemot, ja es gribu izvēlēties nākamo tukšo šūnu rindā pa labi, katru reizi, kad tiek ievadīts viens un tas pats spēlētāja rezultāts.

Kā tas ir tagad, tas tikai pārraksta iepriekšējo ierakstu.

 Lapas ("Classic") Atlasiet ActiveSheet.Unprotect Range ("B1") Atlasiet Vai līdz ActiveCell.Value = Player.Value ActiveCell.Offset (1, 0) .Izvēlieties Loop ActiveCell.Value = Player.Value Activecell.offset ( 0, 4) .value = Score.value ActiveSheet.Protect GameNumber.Value = "" Player.Value = "" Score.Value = ""

Risinājums

TRY THIS:

 ActiveCell.Value = Player.Value Activecell.offset (0, 4) .value = Score.value 'atrast pēdējo izmantoto šūnu rindā pa labi ActiveCell.End (xlToRight) .Izvēlieties' pārvietot vienu šūnu pa labi no pēdējās izmanto šūnu ActiveCell.Offset (0, 1) .Izvēlieties