Перенос данных из документа в документ (не имеет решения).
zegor
Дата: Воскресенье, 11.01.2015, 17:08 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 132
Репутация:
1
±
Замечаний:
0% ±
Excel 2007
Доброго дня, обитатели сего ресурса. Позаимствовал макрос вместе с файликами из этой темы . Решил добавить массивы в файл "2", чего можно дописать в код для заполнения нового массива (в приложеном файле массив добавлен и залит красным)? Критерий заполнения добавленного массива: -если победила перва 2-0, тогда в массив под именем "первая" в столбце "1" +1 и во втором столбце (который"2") тоже +1. Третий столбец этого массива +0, по причине того, что 2 минус 0 будет равно 2 (первая победила с преимуществом в 2 гола). -если победила вторая 1-3, тогда в массив "вторая" в столбце "1" +1, в столбец "2" тоже +1, в столбец "3" +0 (потому, что победа со счётом 3-1, то есть 3-1=2, преимущество в два гола).
Доброго дня, обитатели сего ресурса. Позаимствовал макрос вместе с файликами из этой темы . Решил добавить массивы в файл "2", чего можно дописать в код для заполнения нового массива (в приложеном файле массив добавлен и залит красным)? Критерий заполнения добавленного массива: -если победила перва 2-0, тогда в массив под именем "первая" в столбце "1" +1 и во втором столбце (который"2") тоже +1. Третий столбец этого массива +0, по причине того, что 2 минус 0 будет равно 2 (первая победила с преимуществом в 2 гола). -если победила вторая 1-3, тогда в массив "вторая" в столбце "1" +1, в столбец "2" тоже +1, в столбец "3" +0 (потому, что победа со счётом 3-1, то есть 3-1=2, преимущество в два гола). zegor
Сообщение отредактировал zegor - Понедельник, 12.01.2015, 13:33
Ответить
Сообщение Доброго дня, обитатели сего ресурса. Позаимствовал макрос вместе с файликами из этой темы . Решил добавить массивы в файл "2", чего можно дописать в код для заполнения нового массива (в приложеном файле массив добавлен и залит красным)? Критерий заполнения добавленного массива: -если победила перва 2-0, тогда в массив под именем "первая" в столбце "1" +1 и во втором столбце (который"2") тоже +1. Третий столбец этого массива +0, по причине того, что 2 минус 0 будет равно 2 (первая победила с преимуществом в 2 гола). -если победила вторая 1-3, тогда в массив "вторая" в столбце "1" +1, в столбец "2" тоже +1, в столбец "3" +0 (потому, что победа со счётом 3-1, то есть 3-1=2, преимущество в два гола). Автор - zegor Дата добавления - 11.01.2015 в 17:08
Свирид
Дата: Понедельник, 12.01.2015, 12:54 |
Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация:
-13
±
Замечаний:
0% ±
Excel 2010
Присоединяюсь к интересу по теме.
Присоединяюсь к интересу по теме. Свирид
Ответить
Сообщение Присоединяюсь к интересу по теме. Автор - Свирид Дата добавления - 12.01.2015 в 12:54
zegor
Дата: Понедельник, 12.01.2015, 13:55 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 132
Репутация:
1
±
Замечаний:
0% ±
Excel 2007
Смотрите, вставил в код вот такую штукенцию [vba]Код
If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 1 Then ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 1 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 End If If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 2 Then ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 1 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 End If If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 3 Then ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 1 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 1 Then ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 1 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 2 Then ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 1 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 3 Then ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 1 End If
[/vba] Но теперь в некоторых случаях критерии заполнения файла "2" не соблюдаются. По сотворённому мной участку соблюдаются, обратное наблюдается по участку кода который я не менял.
Смотрите, вставил в код вот такую штукенцию [vba]Код
If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 1 Then ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 1 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 End If If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 2 Then ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 1 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 End If If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 3 Then ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 1 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 1 Then ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 1 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 2 Then ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 1 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 3 Then ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 1 End If
[/vba] Но теперь в некоторых случаях критерии заполнения файла "2" не соблюдаются. По сотворённому мной участку соблюдаются, обратное наблюдается по участку кода который я не менял. zegor
Ответить
Сообщение Смотрите, вставил в код вот такую штукенцию [vba]Код
If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 1 Then ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 1 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 End If If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 2 Then ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 1 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 End If If (IshodniySheet.Cells(i, 27) - IshodniySheet.Cells(i, 28)) < 3 Then ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 4) = ItogiSheet.Cells(NomStr, NomStol + 4) + 0 ItogiSheet.Cells(NomStr, NomStol + 5) = ItogiSheet.Cells(NomStr, NomStol + 5) + 0 ItogiSheet.Cells(NomStr, NomStol + 6) = ItogiSheet.Cells(NomStr, NomStol + 6) + 1 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 1 Then ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 1 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 2 Then ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 1 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 End If If (IshodniySheet.Cells(i, 28) - IshodniySheet.Cells(i, 27)) < 3 Then ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 0 Else ItogiSheet.Cells(NomStr, NomStol + 7) = ItogiSheet.Cells(NomStr, NomStol + 7) + 0 ItogiSheet.Cells(NomStr, NomStol + 8) = ItogiSheet.Cells(NomStr, NomStol + 8) + 0 ItogiSheet.Cells(NomStr, NomStol + 9) = ItogiSheet.Cells(NomStr, NomStol + 9) + 1 End If
[/vba] Но теперь в некоторых случаях критерии заполнения файла "2" не соблюдаются. По сотворённому мной участку соблюдаются, обратное наблюдается по участку кода который я не менял. Автор - zegor Дата добавления - 12.01.2015 в 13:55
Cheshir0067
Дата: Понедельник, 12.01.2015, 17:24 |
Сообщение № 4
Группа: Проверенные
Ранг: Новичок
Сообщений: 35
Репутация:
8
±
Замечаний:
0% ±
Excel 2010
У вас есть скайп ? Потому что по ТЗ непонятно почти ничего )
У вас есть скайп ? Потому что по ТЗ непонятно почти ничего ) Cheshir0067
irelandzp@gmail.com
Ответить
Сообщение У вас есть скайп ? Потому что по ТЗ непонятно почти ничего ) Автор - Cheshir0067 Дата добавления - 12.01.2015 в 17:24
Pelena
Дата: Понедельник, 12.01.2015, 18:15 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19188
Репутация:
4421
±
Замечаний:
±
Excel 365 & Mac Excel
Господа, Вы нарушаете Правила форума, а именно п. 5о Надеюсь, что решение всё же будет опубликовано здесь
Господа, Вы нарушаете Правила форума, а именно п. 5о Надеюсь, что решение всё же будет опубликовано здесь Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Господа, Вы нарушаете Правила форума, а именно п. 5о Надеюсь, что решение всё же будет опубликовано здесь Автор - Pelena Дата добавления - 12.01.2015 в 18:15
Cheshir0067
Дата: Понедельник, 12.01.2015, 19:57 |
Сообщение № 6
Группа: Проверенные
Ранг: Новичок
Сообщений: 35
Репутация:
8
±
Замечаний:
0% ±
Excel 2010
Pelena , ненене скайп нужен был только чтобы уточнить тз. Немного кривонький но рабочий код прилагаю. [vba]Код
Option Explicit Sub PerenosDannyh10() Dim PutRab As String, ItogiBook As Workbook, i, o, koef, koef2, sch1, sch2, raznica, q, e, qalifaer As Integer, IshodnayaBook As Workbook, IshodniySheet As Worksheet Dim ItogiSheet As Worksheet, Imja As String, ImjaStr As String Dim Chislo11, Chislo12, Chislo21, Chislo22 As Single, NomStr As Integer, NomStol As Integer Dim a Set IshodnayaBook = ActiveWorkbook Set IshodniySheet = ActiveSheet PutRab = ThisWorkbook.Path & "\" For i = 3 To 12 koef = IshodniySheet.Cells(i, 34) koef2 = IshodniySheet.Cells(i, 35) sch1 = IshodniySheet.Cells(i, 27) sch2 = IshodniySheet.Cells(i, 28) raznica = sch1 - sch2 If koef < -2.5 Or koef2 < -2.5 Or koef >= 2.5 Or koef2 >= 2.5 Then GoTo Sleduyuschiy If koef > 0 Then Chislo11 = Application.WorksheetFunction.RoundDown(koef, 1) Else Chislo11 = Application.WorksheetFunction.RoundUp(koef, 1) End If Chislo12 = Chislo11 + 0.1 If koef2 > 0 Then Chislo21 = Application.WorksheetFunction.RoundDown(koef2, 1) Else Chislo21 = Application.WorksheetFunction.RoundUp(koef2, 1) End If Chislo22 = Chislo21 + 0.1 Imja = "(" & Format(Chislo11, "0.0") & ")-(" & Format(Chislo12, "0.0") & ")" Set ItogiSheet = Application.Workbooks("2.xlsx").Worksheets(Imja) ImjaStr = "(" & Format(Chislo21, "0.0") & ")-(" & Format(Chislo22, "0.0") & ")" ItogiSheet.Activate Set a = Cells.Find(What:=ImjaStr) If raznica > 0 Then qalifaer = 4 Else qalifaer = 7 raznica = raznica * (-1) End If If raznica >= 3 Then q = 3 Else q = raznica End If For e = 1 To 3 If q > 0 Then o = 1 Else o = 0 End If Cells(a.Row, a.Column + qalifaer + e - 1) = Cells(a.Row, a.Column + qalifaer + e - 1) + o q = q - 1 Next e Sleduyuschiy: Next i End Sub
[/vba] как то так.
Pelena , ненене скайп нужен был только чтобы уточнить тз. Немного кривонький но рабочий код прилагаю. [vba]Код
Option Explicit Sub PerenosDannyh10() Dim PutRab As String, ItogiBook As Workbook, i, o, koef, koef2, sch1, sch2, raznica, q, e, qalifaer As Integer, IshodnayaBook As Workbook, IshodniySheet As Worksheet Dim ItogiSheet As Worksheet, Imja As String, ImjaStr As String Dim Chislo11, Chislo12, Chislo21, Chislo22 As Single, NomStr As Integer, NomStol As Integer Dim a Set IshodnayaBook = ActiveWorkbook Set IshodniySheet = ActiveSheet PutRab = ThisWorkbook.Path & "\" For i = 3 To 12 koef = IshodniySheet.Cells(i, 34) koef2 = IshodniySheet.Cells(i, 35) sch1 = IshodniySheet.Cells(i, 27) sch2 = IshodniySheet.Cells(i, 28) raznica = sch1 - sch2 If koef < -2.5 Or koef2 < -2.5 Or koef >= 2.5 Or koef2 >= 2.5 Then GoTo Sleduyuschiy If koef > 0 Then Chislo11 = Application.WorksheetFunction.RoundDown(koef, 1) Else Chislo11 = Application.WorksheetFunction.RoundUp(koef, 1) End If Chislo12 = Chislo11 + 0.1 If koef2 > 0 Then Chislo21 = Application.WorksheetFunction.RoundDown(koef2, 1) Else Chislo21 = Application.WorksheetFunction.RoundUp(koef2, 1) End If Chislo22 = Chislo21 + 0.1 Imja = "(" & Format(Chislo11, "0.0") & ")-(" & Format(Chislo12, "0.0") & ")" Set ItogiSheet = Application.Workbooks("2.xlsx").Worksheets(Imja) ImjaStr = "(" & Format(Chislo21, "0.0") & ")-(" & Format(Chislo22, "0.0") & ")" ItogiSheet.Activate Set a = Cells.Find(What:=ImjaStr) If raznica > 0 Then qalifaer = 4 Else qalifaer = 7 raznica = raznica * (-1) End If If raznica >= 3 Then q = 3 Else q = raznica End If For e = 1 To 3 If q > 0 Then o = 1 Else o = 0 End If Cells(a.Row, a.Column + qalifaer + e - 1) = Cells(a.Row, a.Column + qalifaer + e - 1) + o q = q - 1 Next e Sleduyuschiy: Next i End Sub
[/vba] как то так.Cheshir0067
irelandzp@gmail.com
Ответить
Сообщение Pelena , ненене скайп нужен был только чтобы уточнить тз. Немного кривонький но рабочий код прилагаю. [vba]Код
Option Explicit Sub PerenosDannyh10() Dim PutRab As String, ItogiBook As Workbook, i, o, koef, koef2, sch1, sch2, raznica, q, e, qalifaer As Integer, IshodnayaBook As Workbook, IshodniySheet As Worksheet Dim ItogiSheet As Worksheet, Imja As String, ImjaStr As String Dim Chislo11, Chislo12, Chislo21, Chislo22 As Single, NomStr As Integer, NomStol As Integer Dim a Set IshodnayaBook = ActiveWorkbook Set IshodniySheet = ActiveSheet PutRab = ThisWorkbook.Path & "\" For i = 3 To 12 koef = IshodniySheet.Cells(i, 34) koef2 = IshodniySheet.Cells(i, 35) sch1 = IshodniySheet.Cells(i, 27) sch2 = IshodniySheet.Cells(i, 28) raznica = sch1 - sch2 If koef < -2.5 Or koef2 < -2.5 Or koef >= 2.5 Or koef2 >= 2.5 Then GoTo Sleduyuschiy If koef > 0 Then Chislo11 = Application.WorksheetFunction.RoundDown(koef, 1) Else Chislo11 = Application.WorksheetFunction.RoundUp(koef, 1) End If Chislo12 = Chislo11 + 0.1 If koef2 > 0 Then Chislo21 = Application.WorksheetFunction.RoundDown(koef2, 1) Else Chislo21 = Application.WorksheetFunction.RoundUp(koef2, 1) End If Chislo22 = Chislo21 + 0.1 Imja = "(" & Format(Chislo11, "0.0") & ")-(" & Format(Chislo12, "0.0") & ")" Set ItogiSheet = Application.Workbooks("2.xlsx").Worksheets(Imja) ImjaStr = "(" & Format(Chislo21, "0.0") & ")-(" & Format(Chislo22, "0.0") & ")" ItogiSheet.Activate Set a = Cells.Find(What:=ImjaStr) If raznica > 0 Then qalifaer = 4 Else qalifaer = 7 raznica = raznica * (-1) End If If raznica >= 3 Then q = 3 Else q = raznica End If For e = 1 To 3 If q > 0 Then o = 1 Else o = 0 End If Cells(a.Row, a.Column + qalifaer + e - 1) = Cells(a.Row, a.Column + qalifaer + e - 1) + o q = q - 1 Next e Sleduyuschiy: Next i End Sub
[/vba] как то так.Автор - Cheshir0067 Дата добавления - 12.01.2015 в 19:57
Свирид
Дата: Понедельник, 12.01.2015, 20:28 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация:
-13
±
Замечаний:
0% ±
Excel 2010
А так чтобы и всё остальное заполнялось? Здесь же всего шесть ячеек заполняется.
А так чтобы и всё остальное заполнялось? Здесь же всего шесть ячеек заполняется. Свирид
Ответить
Сообщение А так чтобы и всё остальное заполнялось? Здесь же всего шесть ячеек заполняется. Автор - Свирид Дата добавления - 12.01.2015 в 20:28
Cheshir0067
Дата: Понедельник, 12.01.2015, 20:34 |
Сообщение № 8
Группа: Проверенные
Ранг: Новичок
Сообщений: 35
Репутация:
8
±
Замечаний:
0% ±
Excel 2010
Свирид , Заполнялось где в файле 1 или файле 2 ?
Свирид , Заполнялось где в файле 1 или файле 2 ?Cheshir0067
irelandzp@gmail.com
Ответить
Сообщение Свирид , Заполнялось где в файле 1 или файле 2 ?Автор - Cheshir0067 Дата добавления - 12.01.2015 в 20:34
Свирид
Дата: Понедельник, 12.01.2015, 20:48 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация:
-13
±
Замечаний:
0% ±
Excel 2010
Cheshir0067 , в файле 2. Там же только центр теперь заполняется. Описание внутри. Вот то что сейчас у вас получилось плюс то что в файле. Раз добавили ячеек в файл 2 то запоняться будут все, не только же центральные которые?
Cheshir0067 , в файле 2. Там же только центр теперь заполняется. Описание внутри. Вот то что сейчас у вас получилось плюс то что в файле. Раз добавили ячеек в файл 2 то запоняться будут все, не только же центральные которые?Свирид
Сообщение отредактировал Свирид - Понедельник, 12.01.2015, 20:53
Ответить
Сообщение Cheshir0067 , в файле 2. Там же только центр теперь заполняется. Описание внутри. Вот то что сейчас у вас получилось плюс то что в файле. Раз добавили ячеек в файл 2 то запоняться будут все, не только же центральные которые?Автор - Свирид Дата добавления - 12.01.2015 в 20:48
Cheshir0067
Дата: Понедельник, 12.01.2015, 20:53 |
Сообщение № 10
Группа: Проверенные
Ранг: Новичок
Сообщений: 35
Репутация:
8
±
Замечаний:
0% ±
Excel 2010
как хотел zegor , а как должны заполняться боковые столбцы?
как хотел zegor , а как должны заполняться боковые столбцы? Cheshir0067
irelandzp@gmail.com
Ответить
Сообщение как хотел zegor , а как должны заполняться боковые столбцы? Автор - Cheshir0067 Дата добавления - 12.01.2015 в 20:53
Свирид
Дата: Понедельник, 12.01.2015, 20:55 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация:
-13
±
Замечаний:
0% ±
Excel 2010
Cheshir0067 , прочтите в приложеном файле из последнего сообщения, там просто с картинками на словах можно запутаться.
Cheshir0067 , прочтите в приложеном файле из последнего сообщения, там просто с картинками на словах можно запутаться.Свирид
Ответить
Сообщение Cheshir0067 , прочтите в приложеном файле из последнего сообщения, там просто с картинками на словах можно запутаться.Автор - Свирид Дата добавления - 12.01.2015 в 20:55
Свирид
Дата: Понедельник, 12.01.2015, 20:59 |
Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация:
-13
±
Замечаний:
0% ±
Excel 2010
Левые ячейки это победа-ничья-поражение а правые это сумма голов в матче. 2-2 будет слева 0-1-0 а справа 0-1 0-1 0-1 1-0
Левые ячейки это победа-ничья-поражение а правые это сумма голов в матче. 2-2 будет слева 0-1-0 а справа 0-1 0-1 0-1 1-0 Свирид
Ответить
Сообщение Левые ячейки это победа-ничья-поражение а правые это сумма голов в матче. 2-2 будет слева 0-1-0 а справа 0-1 0-1 0-1 1-0 Автор - Свирид Дата добавления - 12.01.2015 в 20:59
Cheshir0067
Дата: Понедельник, 12.01.2015, 21:05 |
Сообщение № 13
Группа: Проверенные
Ранг: Новичок
Сообщений: 35
Репутация:
8
±
Замечаний:
0% ±
Excel 2010
Отличной отправной точкой, которая поможет понять принцип заполнения может стать : [vba]Код
Set a = Cells.Find(What:=ImjaStr) Cells(a.Row, a.Column)
[/vba] Если Вы хотите готовое решение, рекомендую обратиться в раздел "Работа"
Отличной отправной точкой, которая поможет понять принцип заполнения может стать : [vba]Код
Set a = Cells.Find(What:=ImjaStr) Cells(a.Row, a.Column)
[/vba] Если Вы хотите готовое решение, рекомендую обратиться в раздел "Работа" Cheshir0067
irelandzp@gmail.com
Ответить
Сообщение Отличной отправной точкой, которая поможет понять принцип заполнения может стать : [vba]Код
Set a = Cells.Find(What:=ImjaStr) Cells(a.Row, a.Column)
[/vba] Если Вы хотите готовое решение, рекомендую обратиться в раздел "Работа" Автор - Cheshir0067 Дата добавления - 12.01.2015 в 21:05