VBA за Excel: Добавяне на сумарен ред под таблица

Q: Как се въвежда ръчно формула във VBA

Здравейте, Във връзка с изпълнението на макроси total и average: след като изпълня макроса за "total" и след това за "average" ми дава двоен average тъй като сумира два пъти тотала. По отделно процедурите се изпълняват коректно ако изпълня само едната или другата.Търсих си грешката но за сега не мога да я открия. Благодаря

Q: Как мога да дефинирам адреса на active cell?

Здравейте, при този запис: Range("B2").End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "=SUM(R[-29]C:R[-1]C)" ActiveCell.Select Selection.Copy ActiveCell.Offset(0, 2).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(0, -3).Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "sum" ActiveCell.Select макроса се изпълнява коректно независимо къде е кликнато с мишката като клетка в таблицата. Докато при този ако е кликнато на различно място от последен ред втора колона резултата не е коректен: With ActiveCell .Offset(1, 0) = "=SUM(R2C:R[-1]C)" .Offset(1, 2) = "=SUM(R2C:R[-1]C)" .Offset(1, -1) = "Suma" End With Къде бъркам във вторият запис?

Q: Какво дефинира Range("A1")?

Здравейте, Надежда. Точно така. Macro Recorder записва много "ненужни" инструкции, независимо от режима на запис - абсолютен или релативен. Както сама забелязахте, в релативен режим за отместването, например, винаги добавя Range("A1"). След като се запише макрос е добре да се редактира, да се опрости кода. Но преди да изтриете ненужната инструкция, сложете коментар и тествайте. ако макроса се изпълнява без грешка, смело може да изтриете инструкцията.

Q: Може ли да дефинираме activecell с функция vlookup?

Здравейте, правилно сте ме разбрали, искам да намира първата празна клетка и в нея да се запише резултата с функция vlookup, а стойността, която ще се търси ще бъде точно на 13 клетки отляво. Успях дефинирам първата празна клетка така: Activecell.end(xlright).Select Activecell.offset(0,1).Select Само, че не знам как да се опише тази клетка ActiveCell (това в моя случай е клетка, посочена със стрелка номер 1) с формулата vlookup.