Здравствуйте!  
Есть сводная таблица (пример во вложенном файле). В ней высчитывается процент выполнения плана продаж. Но как в эту таблицу вставить прогноз выполнения плана, который высчитывается, как процент выполнения плана, умноженный на общее количество дней в рабочем месяце и разделенный на количество прошедших рабочих дней (т.е. по идее в вычисляемом поле нужно было поставить 'Процент выполнения плана'*B3/B4). Но Excel не дает этого сделать, можно только вручную ввести число. Как правильно добавит поле 'Прогноз выполнения продаж'?

Здравствуйте!  
Как сделать счетчик столбцов на листе (WS as Excel.Worksheet) и поместить его в переменную СК (СК As Long)? Набираю CK = WS.Range("A" & Columns.Count).End(xlUp).Column и в переменную записывается 1 (столбцов на самом деле 20). Подскажите, как правильно?  
В конечном итоге мне нужно удалить первый столбец ("A"), и начиная с третьего ("С") до предпоследнего.

Здравствуйте!  
Есть переменная X c типом Single. Как сделать так, чтобы она возвращала значения с точностью только до сотых?

Здравствуйте!  
Есть некая переменная CR as Long, равная количеству строк. Как с помощью нее задать диапазон, начинающиеся с A1 и заканчивающийся ячейкой, у которой адрес столбца A, адрес строки содержится в этой переменной. Т.е. если написать Range ("A1:ACR") выскочит ошибка, а как правильно?

Здравствуйте!  
Недавно чуть изменил стандартную ВПР. Но как научить функцию , чтобы она возвращала не значение в ячейке, а ее адрес? Подскажите, как изменить следующий код:  
 
Public Function VLOOKUP3(Table As Range, SearchText As String, N As Integer, R As Integer)  
 
Dim i As Integer  
 
For i = 1 To Table.Rows.Count  
   If Table.Cells(i, N) = SearchText Then  
   VLOOKUP3 = Table.Cells(i, R)  
  End If  
 
Next i

Здравствуйте!  
Как правильно объявлять текстовый массив в VBA?  
Ввожу следующий код, а VBA пишет после объявления блока Compile Error:Invalid Outside    
Procedure  
 
Public Block(1 To 3) As String  
Block(1) = Блок 02  
Block(2) = Блок 08  
Block(3) = Блок 10  
Dim T As Integer  
Dim X As Integer  
 
Public Sub ProbaVPR()  
For T = 1 To 3  
X = VLOOKUP3([A1:B18], Block(T), 1, 2)
AcniveSheet.Cells(T, 7) = X  
Next T  
End Sub  
 
Public Function VLOOKUP3(Table As Range, SearchText As String, N As Integer, R As Integer)  
 
Dim i As Integer  
 
For i = 1 To Table.Rows.Count  
   If Table.Cells(i, N) = SearchText Then  
   VLOOKUP3 = Table.Cells(i, R)  
   End If  
 
Next i  
 
End Function

Привет, всем.  
Хотелось бы поблагодарить за столь интересный сайт.  
Как удалить строки, первые столбцы, которых не содержат определенный текст?  
Мне удалось отыскать в Инете код, с помощью которого можно удалить строки, если текст только один (например, "апельсин"). А что делать, если нужно проверить на несколько текстов (например, удалить все строки, не содержащие "апельсин" и "мандарин")? Вот код, помогите его улучшить на проверку нескольких условий (до 12):  
Public Sub DeleteRow ()  
Dim sStr As String,  
Dim lLastRow As Long, Dim li As Long  
Dim lMet As Integer, Dim lCol As Integer  
lCol = 1  
lMet = 1  
lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count  
Application.ScreenUpdating = 0  
   For li = lLastRow To 1 Step -1  
       If InStr(Cells(li, lCol), sStr) = lMet Then Rows(li).Delete  
   Next li  
   Application.ScreenUpdating = 1  
End Sub