Loop Through Cells - Excel Tips

Richard píše:

Pokud se mohu tak směle zeptat, byl bych vděčný, kdybyste mě mohli poučit o odpovědi na tuto matoucí hádanku o syntatické integritě videlict:

Při odkazování na buňku pro externí použití ve VisualBasicu, například prostřednictvím „Range („ F3 “). Vyberte„ Předpokládejme, že místo sloupce 1 přeji nahradit proměnnou ze smyčky na následující konec:

For Scarab=3 To 15 Range("FScarab").Select ActiveCell.Value = Scarab * Scarab - 3 Next Scarab

například.

Je zřejmé, že nelze použít FScarab pouze tam, kde by dříve měl F3, ale možná existuje metoda, pomocí které lze dosáhnout požadovaného výsledku. To znamená, že existuje způsob, jak odkazovat na buňku ve sloupci F a řádku Scarab pro proměnnou Scarab, a pokud ano, můžete tuto informaci prozradit.

Existuje několik způsobů, jak toho dosáhnout. Pravděpodobně nejintuitivnější je tato metoda, která zahrnuje zřetězení písmene sloupce „F“ s číselným číslem řádku uvnitř reference Range ().

For Scarab=3 To 15 Range("F" & Scarab).Select ActiveCell.Value = Scarab * Scarab - 3 Next Scarab

Další metoda používá místo odkazu rozsahu funkci CELLS (řádek, sloupec). V tomto případě musí být řádek a sloupec číselné. Vaše proměnná čísla řádku je již číselná, takže jednoduše musíte převést písmeno „F“ na šestku v hlavě. Také si všimnete, že není nutné vybrat buňku, můžete jí jednoduše přiřadit hodnotu.

For Scarab=3 To 15 Cells(Scarab, 6).Value = Scarab * Scarab - 3 Next Scarab

Nakonec je možné jednoduše procházet každou buňkou v rozsahu:

For Each cell in Range("F3:F15") Cell.Value = Cell.Row * Cell.Row - 3 Next Cell