Получилось! Спасибо Вам огромное! А "+" - это я просто ставлю вместо нулевых процентов такое обозначение.

nerv, подскажи, пожалуйста, как ля моего массива тоже самое записать?  
 
If b = True Then  
   
 If vArr(j, 23) > 50 * 10 ^ 6 Then  
    If Abs(vArr(j, 31)) > 0.25 * (vArr(j, 13) - vArr(j, 14)) Then  
       
    vArr(j, 32) = "25%": r = 25  
    Else  
    vArr(j, 32) = "+": r = 0  
    End If  
Else  
   
 If Abs(vArr(j, 31)) > 0.25 * (vArr(j, 15) - vArr(j, 16)) Then  
    vArr(j, 32) = "25%": r = 25  
    Else  
    vArr(j, 32) = "+": r = 0  
    End If  
       
End If  
     
     
 Else  
     On Error Resume Next: w = Abs(CDbl(Replace(vArr(j, 31), ".", ","))): On Error GoTo 0  
       
     If w >= tt2(58) And w <= tt2(59) Then  
     vArr(j, 32) = "25%": r = 25  
     ElseIf w <= tt2(58) Then  
     vArr(j, 32) = "+": r = 0  
     End If  
 
End If  
   
При таком раскладе значение отличное от значения формулы. Как быть? что не так?  
Я когда пишу для одной строки, то все впорядке, для массива нет.

Всем привет, помогите написать на VBA формулу  
=ЕСЛИ(W5>50*10^6;ЕСЛИ(ABS(AE5)>0,25*(M5-N5);25%;0);ЕСЛИ(ABS(AE5)>0,25*(O5-P5);25%;0))  
 
что я делаю не так?  
 
If vArr(j, 23) > 50 * 10 ^ 6 Then  
     If Abs(vArr(j, 31)) > (0.25 * (vArr(j, 13) - vArr(j, 14))) Then  
       vArr(j, 32) = "25%": r = 25  
     Else  
       vArr(j, 32) = "+": r = 0  
     End If  
 
 Else  
     
 If Abs(vArr(j, 31)) > (0.25 * (vArr(j, 15) - vArr(j, 16))) Then  
       vArr(j, 32) = "25%": r = 25  
   Else  
       vArr(j, 32) = "+": r = 0  
   End If  
   
  End If  
 
 
где vArr(j, 23) - это значение ячеек столбов

Всем добрый вечер!  
Подскажите, пожалуйста, в чем ошибка?  
 
Мне нужно формулу записать в виде программы:  
 
Формула следующая:  
 
oS.Cells(x, 36) = "=IF(RC[-13]>50*10^6,IF(ABS(RC[-5])>0.25*(RC[-23]-RC[-22]),25%,0),IF(ABS(RC[-5])>0.25*(RC[-21]-RC[-20]),25%,0))"
 
 
где:  
RC[-13] - это по программе f
RC[-5] - это w
RC[-23]-RC[-22] - это (z - z1)
RC[-21]-RC[-20] - это (z2 - z3)
 
Код программы:  
 
     On Error Resume Next: w = Abs(CDbl(Replace(vArr(j, 31), ".", ","))): On Error GoTo 0    
     On Error Resume Next: f = Abs(CDbl(Replace(vArr(j, 23), ".", ","))): On Error GoTo 0    
     On Error Resume Next: z = Abs(CDbl(Replace(vArr(j, 13), ".", ","))): On Error GoTo 0    
    On Error Resume Next: z1 = Abs(CDbl(Replace(vArr(j, 14), ".", ","))): On Error GoTo 0  
    On Error Resume Next: z2 = Abs(CDbl(Replace(vArr(j, 15), ".", ","))): On Error GoTo 0  
    On Error Resume Next: z3 = Abs(CDbl(Replace(vArr(j, 16), ".", ","))): On Error GoTo 0  
       
     If f > 50 * 10 ^ 6 Then  
     If Abs(w) > 0.25 * (z - z1) Then  
        vArr(j, 32) = "25%": r = 25  
     ElseIf Abs(w) < 0.25 * (z - z1) Then  
        vArr(j, 32) = "+": r = 0  
     End If  
       
     Else  
     If Abs(w) > tt2(44) * (z2 - z3) Then  
        vArr(j, 32) = "25%": r = 25  
     ElseIf Abs(w) < tt2(44) * (z2 - z3) Then  
        vArr(j, 32) = "+": r = 0  
     End If  
       
     End If    
 
 
 
Но результат разный! Всё наоборот  
по формуле выдает 25%, по программе +  
 
если(229318162182,5>50*10^6;если(ABS(-1,92)>0.25*(79,9-73,76);25%;0);если(ABS(-1,92)>0.25*(82,59-73,76);25%;0)

Всем привет!  
Подскажите, пожалуйста!  
У меня есть длинный файл с данными, в котором неоднократно встречается строчка "Добрый день!", как автоматически на этой строчке проставить разрыв страницы?

Спасибо!  
 
Но всё равно не то!  
 
Мне нужно, чтобы он эти листы добавлял не в этот же файл с макросом, а к примеру в книгу 1.xls  
 
Как быть?

То есть, как вместо ThisWorkbook поставить вновь созданную новую книгу?

Всем добрый день!  
Подскажите, пожалуйста, как можно склеить из большого количества файлов, хранящихся в одной папке, первые листы в один файл?

СПаибо большое!

пароль знаю. он один на 800 файлов. КАк быть, чтобы одновременно во всех разорвать эти связи?

В Правке - Связи, кнопка "Запрос на обновление файлов" не активна. Файлы защищены паролем. Как быть?

В Excel 2003 убираешь галочку в параметрах обновить связи, а при открытии файла после сохранения, галочка всё равно появляется

Всем привет!  
Подскажите, пожалуйста, как во всех файлах Excel одновременно отключить обновление связей?

Спасибо большое за разъяснения! Всё поняла, всё получилось!

Вот исправила на твой макрос, но всё равно обрабатывается только активный первый лист. В Книге три листа  с неправильными данными.

так замена происходит только на активном листе, а нужно, чтобы во всех листа автоматически производилась замена.

А как сделать так, чтобы программа все листы в книге проверяла?  
 
Если напишу Cells.Select перед программой, то она обработает только первый лист книги, а нужно, чтобы все. Как быть?

нет, не подходит.  
Там всё должно быть четко, чтобы этот DBF файл можно было просматривать потом через access и загружать его в 1С.  
 
 
Как быть? Как автоматизировать процесс импорта и экспорта из Excel в DBF? Помогите, пожалуйста

Всем привет!  
Подскажите, пожалуйста!  
Можно ли как-нибудь программно таблицу с данными формата Excel переконвертировать в базу данных формата dbf IV без ручного импорта таблицы в access и последующего его экспорта?  
 
Помогите пожалуйста!

Если вот так написать, то программа заменит буквы только в том случае, если они идут подряд, то есть Мария - если первые три буквы латинские, если же в этом слове будут только первая и третья латинские, то не заменит. НЕ пойму, что нужно исправить, чтобы заменялись в любом случае?  
 
 
Option Explicit  
 
Sub ChangeEngRus()  
 
Dim c As Object  
Dim n As Integer, i As Integer, posChar As Integer  
Dim ToRusLang As Boolean  
Dim LineChars(1) As String * 72  
Dim Ch As String * 1  
Dim TempSelection As String  
LineChars(0) = "CcEeTOopPAaHKkXxBM"  
LineChars(1) = "СсЕеТОорРАаНКкХхВМ"  
For Each c In Selection.Cells  
TempSelection = c.Value  
ToRusLang = True  
For i = 1 To Len(TempSelection)  
Ch = Mid(TempSelection, i, 1)  
If ToRusLang Then n = 0 Else n = 1  
posChar = InStr(LineChars(n), Ch)  
If posChar = 0 Then  
n = Abs(n - 1)  
posChar = InStr(LineChars(n), Ch)  
End If  
If posChar <> 0 Then  
Select Case n  
Case 0  
ToRusLang = True  
Case 1  
ToRusLang = False  
End Select  
Mid(TempSelection, i, 1) = Mid(LineChars(Abs(n - 1)), posChar, 1)  
End If  
Next  
c.Value = TempSelection  
Next c  
End Sub

Что я не так пишу, что у меня не сортируются данные?  
 
 
ss = Sort(ss, Key1:=Range("AX"), Order1:=xlAscending, _  
       Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _  
       DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortTextAsNumbers)  
 
ss = Left(ss, Len(ss))  
Print #2, ss

Подскажите, пожалуйста, как теперь дописать сортировку по столбцу 5,после чего этот столбец удалить?  
 
While L < MyLastRow  
   L = L + 1  
   ss = Cells(L, 1) & ";" & Cells(L, 2) & ";" & Cells(L, 3) & ";" & Cells(L, 4) & ";" & Cells(L, 5)  
 
 
ss = Left(ss, Len(ss))  
 
Сортировка и удаление столбца 5  
 
Print #2, ss

Игорь, спасибо большое! Программа заменила запятую на точку, а вот если файл теперь открыть в блокноте, то седьмая строчка состоит из одних ;;;;;;;;;;;;;;;;  
 
как их убрать?

ребята, помогите, пожалуйста, вывести в отчет формата .csv числовые данные в формате с разделителем точка, а не запятая!

я из excel формирую отчет csv, и при написании кода  
 
With Application  
       .DecimalSeparator = "."  
       .ThousandsSeparator = " "  
       .UseSystemSeparators = False  
   End With  
 
перед выводом на экран данных в csv формат, программа всё равно осталяет запятую,а мне нужны точки в числах

я пишу в начале программы код, записанный макросом задания системного разделителя, но в итоге у меня всё равно вместо точки, запятая, что делать?

Всем привет!  
Подскажите, пожалуйста, как задать числовой формат?  
 
Я пишу Sheets(2).Cells(Count + 1, 15).NumberFormat = "#,##0.00"  
 
 
но у меня в ячейке сумма с запятыми 104,07  
А у меня не должно быть запятых 104.07  
 
То что указываю я, не работает  
Как быть?

Спасибо всем!  
Я догадалась!  
 
For Each vFile In .SelectedItems  
.............  
 
Fname = Left(vFile, Len(vFile) - 4) & "_" & Left(Str(Now), 2) & Mid(Str(Now), 4, 2) & Mid(Str(Now), 7, 4)  
fileSaveName = Application.GetSaveAsFilename(Fname, fileFilter:="CSV Files (*.csv), *.csv", Title:="Файл для сохранения")  
 
 
.................  
 
 
Next vFile  
 
 
В результате выведет имя файла_дата

Всем доброе утро!  
Подскажите, пожалуйста!  
 
Я полученный результат вывожу в файл, которому задаю имя:  
 
Fname = Left(Str(Now), 2) & Mid(Str(Now), 4, 2) & Mid(Str(Now), 7, 4)  
(текущая дата)  
 
На если при обработке в папке будет 10 файлов, программа всем будет задавать такое имя, можно ли как-то присвоить имя обрабатываемого файла?, то есть  программа у меня просто переводит отчет из excel в csv

Игорь, спасибо тебе большое! Разобралась! Всё поняла!