Sandrik

Попробуй так: Sub xxx() Dim rinda As Integer Dim no, lidz As Integer Dim i As Integer rinda = Worksheets("dati").Cells(2, 3).Value If rinda <> 0 Then no = Worksheets("dati").Cells(3, 3).Value lidz = Worksheets("dati").Cells(3, 3).Value If no <= lidz Then For i = no To lidz If (Cells(rinda, i).Value = "") Or (Cells(rinda, i) = 0) Then Columns(i).Hidden = True End If Next i End If End If MsgBox rinda End Sub Данные (в какой строке искать пустые и с какой по какую колонти скрывать) берутся из листа "Dati": rinda - в какой строке искать пустые no - с какой колонки скрывать lidz - по какую колонку проверять

Хочу узнать ширину окна браузера не зависимо от платформы. Не хватает FireFox. Помогите, как это сделать? Мой код: <script language="JavaScript"> function sirina() { // Определение браузера IE = (document.all); // Internet Explorer? NC = (document.layers); // Netscape? Opera = (document.getElementById); // Opera? // Получаем ширину рабочей области браузера if (IE || Opera) send = document.body.clientWidth; if (NC) send = window.innerWidth; x=Math.floor((send-800)/2); if (x < 0) x=0; table1.style.marginLeft=x; } </script> Спасибо.