Я думаю, тебе просто нужен более чистый цикл ... это работает ...?
Sub AddBlankRows()
'
Dim iRow As Integer, iCol As Integer, oRng As Range
Set oRng = Range("a1")
iRow = oRng.Row
iCol = oRng.Column
'Need to find last row....
Dim theEND As Long
theEND = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Do While Cells(iRow, iCol).Text <> "" Or iRow <= theEND
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
iRow = iRow + 2
Else
iRow = iRow + 1
End If
Loop
End Sub
Можно также устранить моделирование Windows XP кнопок (и любая версия Windows) путем установки background-color
и/или border-color
на Ваших кнопках.
Попробуйте следующие стили:
background-color: black;
color: white;
border-color: red green blue yellow;
Можно, конечно, сделать это намного более приятным к глазам. Но Вы понимаете мою мысль :)
Переполнение стека использует этот подход.
Как обходное решение, можно удалить пробелы на каждом конце кнопки, которая имеет эффект уменьшения зубчатых краев. Это выполняется со следующей CSS и небольшим количеством jQuery:
input.button {
padding: 0 .25em;
width: 0; /* for IE only */
overflow: visible;
}
input.button[class] { /* IE ignores [class] */
width: auto;
}
$(function(){
$('input[type=button]').addClass('button');
});
JQuery для добавления класса кнопки. Больше подробно описывают, может быть найден здесь.
Установка overflow: visible;
на кнопке исправит проблему в IE 6 и 7.
(См. http://jehiah.cz/archive/button-width-in-ie),
В IE 6, если display:block;
также применяется к кнопке, фиксация вышеупомянутого не будет работать.
Установка кнопки к display:inline;
в IE 6 заставит фиксацию работать.
Если у Вас будет кнопка как это в рамках ячейки таблицы, то ячейка таблицы не сократится к новой, меньшей ширине кнопки.
Можно зафиксировать это в IE 6 путем установки width: 0;
на кнопке. Однако в IE 7 это заставит все кроме текста кнопки исчезнуть.
(См. http://latrine.dgx.cz/the-stretched-buttons-problem-in-ie),
Можно изменить стиль границ кнопки с CSS, как это:
/**************************************************************************
Nav Button format settings
**************************************************************************/
.navButtons
{
font-size: 9px;
font-family: Verdana, sans-serif;
width: 80;
height: 20;
position: relative;
border-style: solid;
border-width: 1;
}
Не слишком много можно делать с этим, но хорошие новости - то, что это фиксируется в IE8
http://webbugtrack.blogspot.com/2007/08/bug-101-buttons-render-stretched-and.html