dummy84
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, помогите пожауста новичку далекому от програмирования. Задача следующая: имееться таблица с такими столбцами
Код \счет \ кoppеспондент\ назначения платежа\ Дата\ Дебет\ Кредет\ МФО
необходимо найти суму платежей по кредиту в назначении который допустим есть слово начинающееся на возвр или пере.
Sub proba()
'
Dim i As Integer
Dim s As Double
Dim n As Integer
' находим последнюю строку
Range("A65536").End(xlUp).Select
ActiveCell.Offset(2, 0).Value = "Всего"
n = Application.CountA(Sheets("Ëèñò1").Range("A:A"))
Cells(n + 5, 1).Value = n
'тут я нашел столбец или точнее ячейку которая содержит слово кредет, а вот
'правильно отсортировать этот столбец удалив соответственно с таблицы строки с нулями незнаю
Cells.Find(What:="кредет", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Columns("G:G").Select
' тут необходимо обратиться к диапазону который начинался б в а1 а заканчивался в нижнем правом углу, тоже не знаю как!
Range("A1:h275").Sort Key1:=Range("G2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' тут я пытаюсь в столбце назначение найти нужные мне слова
Cells.Find(What:="назначение", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Columns("D:D").Select
тут я пытаюсь в цикле найти эти слова, но даже не знаю как зделать их не чуствительными к регистру!
For i = 2 To n
If InStr(Cells(i, 4).Value, "возвр") <> 0 Or InStr(Cells(i, 4).Value, "пере"<> 0 Then Cells(i, 7).Interior.ColorIndex = 8
End If
If Cells(i, 7).Interior.ColorIndex = 8 Then
s = s + Cells(i, 7).Value
End If
Next i
Cells(n + 2, 7).Value = s
End Sub
Люди если можете помогите очень нужно, а сам к сожалению не могу, наверное не дано да и некому подсказать. Все у нас такие же...
|
Не захвали совсем, а то зазнаюсь. 
вроде работает 
