Къде греша?

Question

<

p>Здравейте! Тествайки макроса FormatBorder, не получих очаквания резултат. Когато маркирам като коментар всички блок-оператори без последния, както е в урока, получавам като резултат очертани само вътрешни хоризонтални линии.

Димитринка Вълкова · Accepted Answer

Здравейте, Юлияна! Поздравления сама сте се справили! Макросите са като забавни ребуси - един малък детайл понякога може да обърка нещата, но пък става интересно. Успех!

Юлияна Борисова · Answer

Благодаря ! Изключително интересен курс. Водите ни стъпка по стъпка към ново ниво на знание, което открива нови хоризонти...

Elvira · Answer

Здравейте, аз имам същия проблем с външните линии, но при мен В последния блок- оператор '(xlInsideHorizontal) НЕ е маркиран като коментар и въпреки това макроса не работи правилно.Къде може да е проблема.

Elvira · Answer

Ето това са изписаните инструкции
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

Elvira · Answer

Здравейте, справих се с макроса.Очевидно трябва да има коментар пред  '(xlInsideHorizontal)  :)
Бих искала да попитам защо не ми разрешава да поставя коментар по средата на реда( като го правя така ми маркира кото коментар целия ред, а не само след него) Наложи се да преместя  '(xlInsideHorizontal) на нов ред и да поставя коментар само на него. Как да слагам коментари по средата на реда както е в урока?

Димитринка Вълкова · Answer

Когато използвате иконата за коментар, автоматично знакът за коментар (апостроф ' или единична кавичка се поставя в началото на инструкцията (реда).
Когато трябва да се постави вътре в инструкцията, тогава трябва ръчно да въведете знака за коментар (апостроф ') пред  операторите в коментар.
Надявам се, че успях да отговоря на въпроса.

Валентина · Answer

Здравейте Юлияна, и аз имам същия проблем и не мога да разбера каква е грешката ми. Бихте ли споделила решението?
п.п. а следвам всички стъпки, както е описано в урока
Благодаря предварително

Валентина · Answer

Здравейте и аз се справих с проблема, но трябва да се сравни кода, който ние сме записали с кода на преподавателката, забелязах, че там има още два коментара, които ако са пропуснати, пречат за правилното изпълнение на макроса.
Курса е страхотен и дава невероятни знания, както всички други в Аула!
Благодаря, че ни предоставяте това знание!

Къде греша?

Вашият отговор