Excel VBA - Избиране на следващата празна клетка подред

Visual Basic Application или VBA, когато се използват в Microsoft Excel, е ефективен инструмент, тъй като повтарящите се задачи могат да бъдат автоматизирани с помощта на това приложение. Потребителите могат да пишат потребителски VBA код, за да посрещнат нуждите от програмиране. Чрез интересни свойства като офсет, човек може да работи в различни клетки в Excel. Операции като избиране на следващата празна клетка в един ред могат да се извършват автоматично, но само когато това свойство е избрано в VBA.

Проблем

Използвам Excel 2002

Кодът по-долу работи добре, с изключение на това, че искам да избера следващата празна клетка отдясно в реда всеки път, когато се вкара един и същ резултат на играча.

Както се чете сега, той просто презаписва предишния запис.

 Листове ("Класически") Изберете ActiveSheet.Unprotect Range ("B1") Изберете Do Do ActiveCell.Value = Player.Value ActiveCell.Offset (1, 0). 0, 4) .value = Score.value ActiveSheet.Protect GameNumber.Value = "" Player.Value = "" Score.Value = ""

Решение

ОПИТАЙТЕ ТАЗИ:

 ActiveCell.Value = Player.Value Activecell.offset (0, 4) .value = Score.value 'намира последната използвана клетка в реда отдясно ActiveCell.End (xlToRight) .Изберете' преместване на една клетка надясно използвана клетка ActiveCell.Offset (0, 1) .Изберете