ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / работа цикла с масивом
35 сообщений из 35, показаны все 2 страниц
  все  
работа цикла с масивом
    #39805182
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Ребята здравствуйте! помогите ЧАЙНИКУ, разобраться с массивом который в цикле, выводящий строку штрафов, заранее спасибо!
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
......
Dim li As Long
 For li = 1 To 10
    li = Sheets("shtraf").Range("A2:F10").Value
   If TextBox2 = li Then
   With Wd.Range.Find
.Execute FindText:="#штраф1", ReplaceWith:=li, Replace:=2
.Execute FindText:="#штраф2", ReplaceWith:=li, Replace:=2
.Execute FindText:="#штраф3", ReplaceWith:=li, Replace:=2
.Execute FindText:="#штраф4", ReplaceWith:=li, Replace:=2
End With
Next li
......
...
Рейтинг: 0 / 0
23.04.2019, 09:19
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805188
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Пожалуйста.
А вопрос будет?
...
Рейтинг: 0 / 0
23.04.2019, 09:37
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805189
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, Простите, разволновался, как мвывести строку штрафов?, т.е. как на рисунке
если в TextBox2 ввести 3000 т тогда
#штраф1 - 1000
#штраф2 - 2000
#штраф3 - 3000
...
Рейтинг: 0 / 0
23.04.2019, 09:41
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805196
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Яснее не стало.
На рисунке, к примеру, нет никакого "#штраф1"

Тебе нужно четко, ясно, однозначно описать задачу, чтобы любой человек, который не в теме, мог понять.
Тогда, с большой вероятностью, и ответ сам придет
...
Рейтинг: 0 / 0
23.04.2019, 09:53
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805203
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, циклом пытаюсь вывести строку штрафов из массива "на рисунке!, в документ Word в метки #штраф1, #штраф2, #штраф3, путем ввода в текстовое поле сумму, на основании чего и выводится в метки соответствующие штрафы.
...
Рейтинг: 0 / 0
23.04.2019, 10:01
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805206
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну ок, яснее.
Теперь пытаюсь озвучить вопрос, который так и не прозвучал: "как мне взять значение из ячейки, если я знаю номер столбца и номер строки?"
Если так, то ответ Sheets("shtraf").Cells(a, b).Value
...
Рейтинг: 0 / 0
23.04.2019, 10:08
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805252
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
assei
Код: vbnet
1.
2.
3.
4.
......
Dim li As Long
 For li = 1 To 10
    li = Sheets("shtraf").Range("A2:F10").Value


Бред. Нельзя в цикле изменять итератор цикла. Особенно чайникам.
...
Рейтинг: 0 / 0
23.04.2019, 10:58
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805263
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AkinaБред. Нельзя в цикле изменять итератор цикла. Особенно чайникам.ой, а я даже и не заметил этот косяк


По большому счету нужен просто еще один вложенный цикл от 1 до 4
...
Рейтинг: 0 / 0
23.04.2019, 11:14
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805275
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, что то я запарился ругается строка " f = Sheets("shtraf").Cells(i, s).Value"
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim li
Dim i As Object
Dim s As Object
Dim f
Set i = Range("A2:A10")
Set s = Cells(3, 6)
f = Sheets("shtraf").Cells(i, s).Value
For li = TextBox2 To f

With Wd.Range.Find
    .Execute FindText:="#штраф1", ReplaceWith:=Cells(i, 3).Value, Replace:=2
    .Execute FindText:="#штраф2", ReplaceWith:=Cells(i, 4).Value, Replace:=2
    .Execute FindText:="#штраф3", ReplaceWith:=Cells(i, 5).Value, Replace:=2
    .Execute FindText:="#штраф4", ReplaceWith:=Cells(i, 6).Value, Replace:=2
End With
...
Рейтинг: 0 / 0
23.04.2019, 11:20
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805278
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Тут теперь такой бред, что даже комментировать нет смысла.
Сделай отладку по шагам, и посмотри, что в каждый конкретный момент находится в каждой конкретной переменной.
К примеру, переменная i у тебя объект, дальше ты присваиваешь ей диапазон (Range), а потом используешь в функции Cell в качестве номера строки (номер строки должен быть целым числом).

Не надо писать программу методом тыка. Думай, что и зачем ты делаешь.

В случае
.Execute FindText:="#штраф1", ReplaceWith:=Cells(i, 3).Value, Replace:=2
у тебя i должен быть номер текущей строки, то есть переменная цикла, а что ты туда пытаешься загнать - вообще непонятно
...
Рейтинг: 0 / 0
23.04.2019, 11:31
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805282
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, получилось как то так!
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim li
For li = 1 To 10
li = Sheets("shtraf").Range("A2:F10").Value
With Wd.Range.Find
    .Execute FindText:="#штраф1", ReplaceWith:=Cells(2, 3), Replace:=2
    .Execute FindText:="#штраф2", ReplaceWith:=Cells(3, 4), Replace:=2
    .Execute FindText:="#штраф3", ReplaceWith:=Cells(4, 5), Replace:=2
    .Execute FindText:="#штраф4", ReplaceWith:=Cells(5, 6), Replace:=2
End With
...
Рейтинг: 0 / 0
23.04.2019, 11:38
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805284
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, поспешил
вы водит только первую строку
...
Рейтинг: 0 / 0
23.04.2019, 11:40
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805294
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
1) ты осознаешь, как работает for?
Код: vbnet
1.
2.
For li = 1 To 10
li =

Зачем ты перезаписываешь переменную цикла?

2)
Код: vbnet
1.
ReplaceWith:=Cells(2, 3),

Какой смысл в цикле вообще, если у тебя фиксированные столбец и строка?
...
Рейтинг: 0 / 0
23.04.2019, 11:53
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805306
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, F8 заходит в процедуру, только вот не пойму записывает только первую строку, наверное в цикле условия прописать надо?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim li
Dim i As Long
li = Sheets("shtraf").Range("A2:F10").Value
Stop
For i = 2 To 10

With Wd.Range.Find
    .Execute FindText:="#штраф1", ReplaceWith:=Cells(i, 3), Replace:=2
    .Execute FindText:="#штраф2", ReplaceWith:=Cells(i, 4), Replace:=2
    .Execute FindText:="#штраф3", ReplaceWith:=Cells(i, 5), Replace:=2
    .Execute FindText:="#штраф4", ReplaceWith:=Cells(i, 6), Replace:=2
End With

Next i
...
Рейтинг: 0 / 0
23.04.2019, 12:07
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805427
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiзаписывает только первую строкутак он один раз нашел и заменил все "#штраф*" на числа. В следующие разы он уже ничего не найдет и не заменит
...
Рейтинг: 0 / 0
23.04.2019, 15:19
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805452
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, нет с циклом у меня очень сложно!
...
Рейтинг: 0 / 0
23.04.2019, 16:19
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805458
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiShocker.Pro, нет с циклом у меня очень сложно!Сейчас выучим этот урок )
Тебе вообще зачем цикл? Чтобы найти нужную строку. Что ты сделал, чтобы убедиться в том, что строка нужная?
...
Рейтинг: 0 / 0
23.04.2019, 16:25
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805466
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, что бы сравнить каждую строку из столбца "А" со строками в столбцов С:F
...
Рейтинг: 0 / 0
23.04.2019, 16:42
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805471
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, пытался сравнить с текстовым поле 2, If TextBox2 = i Then
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim i

 i = Sheets("shtraf").Range("A2:F10").Value
Stop

For i = 1 To 10
    If TextBox2 = i Then
...
...
Рейтинг: 0 / 0
23.04.2019, 16:44
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805473
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
asseiпыталсяи?
...
Рейтинг: 0 / 0
23.04.2019, 16:47
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805479
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, я понимаю, что после условия, что то надо добавить а, что не понимаю, пробую пройти F8 а смотрю, что в (i) попадают не суммы с листа а просто счетчик 1, 2, 3 ... 10 , получается что в (i) не попадают данные в с листа в (i)
...
Рейтинг: 0 / 0
23.04.2019, 16:51
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805498
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
После условия ничего не надо добавлять. А вот внутри условия нужно и выполнить нужные действия (замена шаблонов на значения, ну и выход из цикла).


asseiчто в (i) попадают не суммы с листа а просто счетчик 1, 2, 3 ... 10ну так i - это и есть счетчик строк, все правильно

asseiполучается что в (i) не попадают данные в с листа в (i)не надо, чтобы данные с листа попадали в i - это счетчик, зачем его портить?

Как получить значение из ячейки ты же уже разобрался: Cells(i, 3)
В чем проблема получить значение ячейки Cells(i, 1), где лежит нужная сумма для условия
...
Рейтинг: 0 / 0
23.04.2019, 17:35
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805501
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, в Range("A2:F10").Value
...
Рейтинг: 0 / 0
23.04.2019, 17:41
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805505
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
нет, в Cells(i, 1)
...
Рейтинг: 0 / 0
23.04.2019, 18:00
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805509
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
значение лежит в первом столбце каждой конкретной строки
строки перебираются друг за другом
сосредоточься
...
Рейтинг: 0 / 0
23.04.2019, 18:01
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805512
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
внутри цикла (при каждом его проходе) ты рассматриваешь ТОЛЬКО ОДНУ СТРОКУ
других строк в этот момент для тебя не существует
номер этой строки - i
...
Рейтинг: 0 / 0
23.04.2019, 18:03
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805666
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Stop
Dim i
i = Sheets("shtraf").Range("A2:F10").Value
  For i = 2 To 10
  [color=green]If Cells(i, 1) = TextBox2 Then[/color]

With Wd.Range.Find
    .Execute FindText:="#штраф1", ReplaceWith:=Cells(i, 3), Replace:=2
    .Execute FindText:="#штраф2", ReplaceWith:=Cells(i, 4), Replace:=2
    .Execute FindText:="#штраф3", ReplaceWith:=Cells(i, 5), Replace:=2
    .Execute FindText:="#штраф4", ReplaceWith:=Cells(i, 6), Replace:=2
End With
End If
Next i


НЕ ХВАСТАЮСЬ И ДАЖЕ НЕ РАДУЮСЬ ПОТОМУ ЧТО Я ТУПОЙ ЧАЙНИК!
...
Рейтинг: 0 / 0
24.04.2019, 11:21
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805668
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, и все же что то не правильно?
...
Рейтинг: 0 / 0
24.04.2019, 11:25
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805673
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, странно 10000 находит а 3000 не находит, что не так делаю опять?
...
Рейтинг: 0 / 0
24.04.2019, 11:31
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805675
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, при F8 процедура сразу находит в место 3000 в i - попадает 15000,
...
Рейтинг: 0 / 0
24.04.2019, 11:40
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805679
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, при F8 навожу на Cells .. показывает все суммы из столбца а в i- попадает в место 3000 только 10000, я что не так делаю?
...
Рейтинг: 0 / 0
24.04.2019, 11:48
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805691
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, получилось и было то всего то .... .Text
Код: vbnet
1.
 If Cells(i, 1) = TextBox2.Text Then
...
Рейтинг: 0 / 0
24.04.2019, 12:18
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805815
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
1) вот это зачем?
assei
Код: vbnet
1.
2.
Dim i
i = Sheets("shtraf").Range("A2:F10").Value



2) После того, как нашел нужную строку, нет смысла продолжать цикл, поэтому Exit For
...
Рейтинг: 0 / 0
24.04.2019, 15:42
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805819
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, да да я то же пришел к мнение что данная строка лишняя
...
Рейтинг: 0 / 0
24.04.2019, 15:48
| Ответить | Цитировать | Написать  
работа цикла с масивом
    #39805821
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, спасибо вам большое.
...
Рейтинг: 0 / 0
24.04.2019, 15:49
| Ответить | Цитировать | Написать  
35 сообщений из 35, показаны все 2 страниц
  все  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / работа цикла с масивом
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=61&tid=2172077]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 142ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 75ms
get tp. blocked users:
 2ms
others: 231ms
total:  497ms
созд. / загр.: 497ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]