Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение значения в ячейке / 7 сообщений из 7, страница 1 из 1
08.12.2010, 11:24
    #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:31
    #37001502
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение значения в ячейке
> Автор: Игорь86
> Но значения не изменились...
> Подскажите, в чем проблема???


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

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


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



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

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


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

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

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


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



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

Ошибку нашел уже решил...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение значения в ячейке / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 139ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159164]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 13ms
total:  139ms
x
x
Закрыть


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