ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение значения в ячейке
7 сообщений из 7, страница 1 из 1
Изменение значения в ячейке
    #37001475
Игорь86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь86
Участник
Всем доброго дня.

Просьба помочь разобраться, не пойму в чем прикол.

Вот кусок кода

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
TempStr = ChoseFile("Выберите файл")

Set TempWorkbook = Workbooks.Open(TempStr)
Set CurrentSheet = TempWorkbook.ActiveSheet

CurrentSheet.Rows("1:60000").Select
Selection.Copy
Set TempSheet1 = Sheets.Add
TempSheet1.Name = "Report1"
ActiveSheet.Paste
ActiveSheet.Rows("1:1").Select

tempcount =  1 

While ActiveSheet.Cells(tempcount +  1 ,  1 ) <> ""

If (Trim(ActiveSheet.Cells(tempcount +  1 ,  7 )) = "RUS999" And Trim(ActiveSheet.Cells(tempcount +  1 ,  8 )) = "AA11111") Then
    ActiveSheet.Cells(tempcount +  1 ,  7 ) = "RUS222"
Else
    If (Trim(ActiveSheet.Cells(tempcount +  1 ,  7 )) = "RUS999" And Trim(ActiveSheet.Cells(tempcount +  1 ,  8 )) = "112244") Then
        ActiveSheet.Cells(tempcount +  1 ,  7 ) = "RUS333"
    Else
        If (Trim(ActiveSheet.Cells(tempcount +  1 ,  7 )) = "RUS999" And Trim(ActiveSheet.Cells(tempcount +  1 ,  8 )) = "112233") Then
            ActiveSheet.Cells(tempcount +  1 ,  7 ) = "RUS777"
        Else
            ActiveSheet.Cells(tempcount +  1 ,  7 ) = "RUS999"
        End If
    End If
End If

tempcount = tempcount +  1 

Wend

Set TempSheet = Sheets.Add
TempSheet.Name = "Сводная"

В момент построения сводной я ставлю точку остановки и проверяю изменились ли значения в 7 колонке...
Но значения не изменились...
Подскажите, в чем проблема???
...
Рейтинг: 0 / 0
08.12.2010, 11:24
| Ответить | Цитировать | Написать  
Изменение значения в ячейке
    #37001502
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Игорь86
> Но значения не изменились...
> Подскажите, в чем проблема???


А должны? Если у тебя в 7-ом столбце уже стоит "RUS999" а в 8-ом столбце не стоит "AA11111" или "112244" или "112233",
то значения просто переписываются на "RUS999" и все. Визуально ты не определишь изменённость. Для отслеживания
измененности добавь "цветовую диференциацию штанов".

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.12.2010, 11:31
| Ответить | Цитировать | Написать  
Изменение значения в ячейке
    #37001505
Игорь86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь86
Участник
Игорь Горбонос> Автор: Игорь86
> Но значения не изменились...
> Подскажите, в чем проблема???


А должны? Если у тебя в 7-ом столбце уже стоит "RUS999" а в 8-ом столбце не стоит "AA11111" или "112244" или "112233",
то значения просто переписываются на "RUS999" и все. Визуально ты не определишь изменённость. Для отслеживания
измененности добавь "цветовую диференциацию штанов".



Ну естественно.

Есть строки в которых 7 столбец RUS999, а 8 столбец например AA11111 но при этом значение на RUS222 не поменялось
...
Рейтинг: 0 / 0
08.12.2010, 11:33
| Ответить | Цитировать | Написать  
Изменение значения в ячейке
    #37001618
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Игорь86
> Ну естественно.
> Есть строки в которых 7 столбец RUS999, а 8 столбец например AA11111 но при этом значение на RUS222 не поменялось


А ты уверен, что там "AA11111", а не "AA11111 " или " AA11111"?
:)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.12.2010, 12:04
| Ответить | Цитировать | Написать  
Изменение значения в ячейке
    #37001624
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
И что все буквы А - это русские буквы, или английские, а не смесь "бульдога с носорогом"?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.12.2010, 12:06
| Ответить | Цитировать | Написать  
Изменение значения в ячейке
    #37003500
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Calculate?
...
Рейтинг: 0 / 0
09.12.2010, 03:27
| Ответить | Цитировать | Написать  
Изменение значения в ячейке
    #37005013
Игорь86
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь86
Участник
Игорь Горбонос> Автор: Игорь86
> Ну естественно.
> Есть строки в которых 7 столбец RUS999, а 8 столбец например AA11111 но при этом значение на RUS222 не поменялось


А ты уверен, что там "AA11111", а не "AA11111 " или " AA11111"?
:)



Ну во первых TRIM все лишние пробелы убирает...

Ошибку нашел уже решил...
...
Рейтинг: 0 / 0
09.12.2010, 16:55
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение значения в ячейке
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=60&tid=2159164]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 337ms
total:  478ms
созд. / загр.: 478ms
x
x
Закрыть


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