„Excel VBA“ - kito tuščio langelio pasirinkimas iš eilės

„Visual Basic Application“ arba „VBA“, kai naudojama „ Microsoft Excel“, yra veiksminga priemonė, nes pasikartojantys darbai gali būti automatizuoti naudojant šią programą. Vartotojai gali rašyti pasirinktinį VBA kodą, kad patenkintų jų programavimo poreikius. Per įdomias savybes, tokias kaip kompensavimas, galima dirbti skirtingose „Excel“ ląstelėse. Operacijos, pavyzdžiui, kito tuščio langelio išrinkimas iš eilės, gali būti atliekamos automatiškai, bet tik tada, kai ši funkcija yra pasirinkta VBA.

Problema

Naudoju „Excel 2002“

Toliau nurodytas kodas puikiai veikia, išskyrus atvejus, kai noriu įvesti kitą tuščią langelį dešinėje eilutėje kiekvieną kartą, kai įvedamas tas pats žaidėjas.

Kaip jis dabar skaito, jis tiesiog perrašo ankstesnį įrašą.

 „ActiveSheet.Unprotect Range“ („B1“). „Do Until ActiveCell.Value = Player.Value ActiveCell.Offset“ (1, 0). Pasirinkite „Loop ActiveCell.Value = Player.Value Activecell.offset“ 0, 4) .value = Score.value ActiveSheet.Protect GameNumber.Value = "" Player.Value = "" Score.Value = ""

Sprendimas

IŠBANDYTI ŠĮ:

 ActiveCell.Value = Player.Value Activecell.offset (0, 4) .value = Score.value 'rasti paskutinį naudotą langelį eilutėje dešinėje ActiveCell.End (xlToRight) .Pasirinkite' perkelti vieną langelį į dešinę nuo paskutinio naudojama ląstelė ActiveCell.Offset (0, 1) .Pasirinkite