Ето това са изписаните инструкции Sub FormatBorder() ' ' FormatBorder Macro ' Слага рамка на таблицата ' ' Range("J3:M9").Select ' Selection.Borders(xlDiagonalDown).LineStyle = xlNone ' Selection.Borders(xlDiagonalUp).LineStyle = xlNone ' With Selection.Borders(xlEdgeLeft) ' .LineStyle = xlContinuous ' .ColorIndex = 0 ' .TintAndShade = 0 ' .Weight = xlThin ' End With ' With Selection.Borders(xlEdgeTop) ' .LineStyle = xlContinuous ' .ColorIndex = 0 ' .TintAndShade = 0 ' .Weight = xlThin ' End With ' With Selection.Borders(xlEdgeBottom) ' .LineStyle = xlContinuous ' .ColorIndex = 0 ' .TintAndShade = 0 ' .Weight = xlThin ' End With ' With Selection.Borders(xlEdgeRight) ' .LineStyle = xlContinuous ' .ColorIndex = 0 ' .TintAndShade = 0 ' .Weight = xlThin ' End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Range("G7").Select End Sub

Благодря, че сте го разгадала Юлияна! Аз доста се взирах да разбера къде е грешката и благодарение на вас открих :-)

Как да добавяме нови инструкции в записания макрос – редактиране на макроса

Q: Къде се намира иконата?

В редактора на VBA, лентата с икони. Ако не се вижда, трябва да се активира:от контекстното меню (с десен бутон на мишката върху лентата с икони) изберете Edit.

Q: Къде се записват макросите?

Георги, винаги можеш да ми пишеш и на лично съобщение. Средствата за комуникация в платформата на Аула са много функционални и предоставят различни възможности. Ето и отговора на твоя въпрос: Има такава възможност и това става, когато запишеш макросите или процедурите в Personal Macro Workbook (personal.xlsb). Подробно тази възможност разглеждам в уроците на модул 6. Надявам се, че отговорих на твоя въпрос, но ако нещо не е ясно, пиши ми.

Q: Защо първата задача не се изпълнява в Sheet2, а се връща в 1?

Здравейте, Валентин. В инструкцията (реда) Sheets("Sheet1").Range("D3:G9") = "=Randbetween(800,1700)" пред Range("D3:G9") е включен листа Sheets("Sheet1"), където се въвежда формулата. В Excel избираме клетка, диапазон или лист, за да се изпълни команда. Във VBA е достатъчно точно да се дефинира обекта, не е необходимо да се избира, за се изпълни команда. В конкретния пример, Sheets("Sheet1").Range("D3:G9") формулата ще се въвежда винаги в Range("D3:G9") на лист Sheet1. Всеки лист има Range("D3:G9"), но когато се добави отпред Sheets("Sheet1").Range("D3:G9"), тогава формулата се копира само и единствено в диапазона Range("D3:G9"), който се намира на лист Sheet1, без значение кой е активния лист. Как се дефинират и управляват различни обекти във VBA разглеждам в следващите модули и уроци и се надявам скоро да намерите сам отговор на въпроса си. Но въпреки това, ако имате въпроси или нещо не е ясно, моля пишете ме. Ще се радвам да бъда полезна!

Q: Как да се попълни чрез формула ?

Има различни решения, едно от тях е да напишете процедура. Но решението, което предлагам е с инструмента GoTo Special. Ето стъпките: 1. Маркирайте цялата колона, в която трябва да се попълнят празните клетки. ![](https://upload.aula.bg/screenshot5e45f98-22ae720a8.jpg) 2. Команда Home --> Editing --> Find&Select --> Go To. Може да използвате клавишната комбинация Ctrl+G или F5, за да се отвори прозореца ![](upload.aula.bg/screenshot3339d35-12183a17e.jpg) Бутон Special 3. Избирате да се маркират всички празни клетки - Blanks ![](upload.aula.bg/screenshot51e2da-17f2f4c12.jpg) Избрани са само празните клетки. 4. В първата празна клетка въвеждате формулата =В3, т.е адресът на горната клетка, чиято стойност трябва да се попълни. И внимание, много важно!!! Завършете формулата с CTRL+Enter, за да се попълни във всички избрани клетки!