ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как макру написать для Exel 2000
10 сообщений из 10, страница 1 из 1
Как макру написать для Exel 2000
    #32602853
Shaggy_Fish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shaggy_Fish
Гость
Что то затупил я с этим Ехелем. Задача.
Есть постоянная колонка {А300} данных в ней 300 ячеек с ****** знаками
и
имеется колонка {B*} в которую я вставляю некое количество ячеек с такими же ****** знаками, но их меньше или равно количеству в колонке (А).
Если количество равное - ОК!
Если разное, то эту разницу вывести в колонку (С*)
И все!
Знатоки помогите!
...
Рейтинг: 0 / 0
14.07.2004, 03:18
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32603022
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
не понял...Тебе нужна формула или программно???
Попробую телепатировать...
Если формула:
Вариант1:
Если есть число в столбце А, и есть в столбце В - то все ОК!
Если есть в столбце А, и нет в столбце В -то в столбце С должно быть значение Столбца А.
Тогда в столбце С надо написать формулу : =ЕСЛИ(СЧЁТ(A1;B1)=2;"";A1) и протянуть её до А301
Вариант2:
Если есть число в столбце А, и есть в столбце В - то все ОК!
Если есть в столбце А, и нет в столбце В -то в столбце С должно быть разница кол-ва значений.
Тогда в столбце С надо написать формулу : [b=ЕСЛИ(СЧЁТ(A1;B1)=2;"";СЧЁТ(A1)) и протянуть её до А301
Вообще, почетче сформулируй задачу...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
14.07.2004, 09:34
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32603068
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Продолжение телепатирования...
А может Вариант3:
Если есть число в столбце А, и есть в столбце В - то все ОК!
Если есть в столбце А, и нет в столбце В -то в столбце С должно быть разница кол-ва знаков столбцов А и В.
Тогда в столбце С надо написать формулу : [b=ЕСЛИ(ДЛСТР(A1)-ДЛСТР(B1)=0;"";ПРАВСИМВ(A1;ДЛСТР(A1)-ДЛСТР(B1))) и протянуть её до А301
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
14.07.2004, 10:01
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32603936
Shaggy_Fish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shaggy_Fish
Гость
Поясняю
Дык в колонке (В) значения могут быть не равны
к примеру
А1 [1] =B1[1]
А2 [2]=B2[6]
А3 [3]=B3[9]
........
А300 [299]=B299[0]
А300 [300]=B300[0]

То есть в колонке (В) количество ячеек меньше 300 и они сдвинуты вверх!
Если бы оставались пустые B2 и B3! Но колонка не имеет пробелов.

Можно так объяснить.
Есть две колонки (А1;A300) и (В1; ) < or =300
мне нужно убрать одинаковые значения из колонок.
И остается список значений, которых нет в колонке (А)
A B C
1 2 1
2 3 4
3 6 5
4 7 9
5 8 10
6 11
7 12
8
9
10
11
12

Вот!
...
Рейтинг: 0 / 0
14.07.2004, 14:28
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32604002
Shaggy_Fish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shaggy_Fish
Гость
Shaggy_FishПоясняю
Дык в колонке (В) значения могут быть не равны
к примеру
А1 [1] =B1[1]
А2 [2]=B2[6]
А3 [3]=B3[9]
........
А300 [299]=B299[0]
А300 [300]=B300[0]

То есть в колонке (В) количество ячеек меньше 300 и они сдвинуты вверх!
Если бы оставались пустые B2 и B3! Но колонка не имеет пробелов.

Можно так объяснить.
Есть две колонки (А1;A300) и (В1; ) < or =300
мне нужно убрать одинаковые значения из колонок.
И остается список значений, которых нет в колонке (B)
A B C
1 2 1
2 3 4
3 6 5
4 7 9
5 8 10
6 11
7 12
8
9
10
11
12

Вот!
...
Рейтинг: 0 / 0
14.07.2004, 14:44
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32604007
Shaggy_Fish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shaggy_Fish
Гость
И остается список значений, которых нет в колонке (B)
...
Рейтинг: 0 / 0
14.07.2004, 14:45
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32604036
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Steplerне понял...Тебе нужна формула или программно ???

Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
14.07.2004, 14:53
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32604982
Shaggy_Fish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shaggy_Fish
Гость
Вот два варианта, но оба что-то не работают
Код:

Private Sub A_B_C()
Dim N, Na, ia, Nb, ib, Nc As Integer
Dim flag As Boolean
With Лист1
'считаем непустых ячеек в столбце A
Na = 0
While (.Cells(Na + 1, 1))
Na = Na + 1
Wend
'считаем непустых ячеек в столбце B
Nb = 0
While (.Cells(Nb + 1, 2))
Nb = Nb + 1
Wend
'Na,Nb - длина столбцов

Nc = 0 '

'перебираем все элементы столбца A
For ia = 1 To Na
'проверяем - есть ли элемент в столбце B
flag = True
For ib = 1 To Nb
'проверяем на совпадение
If .Cells(ia, 1) = .Cells(ib, 2) Then
ib = Nb
flag = False 'совпал - обламываем
End If
Next ib

'проверяем надо ли добавить в столбэц C
If flag Then
Nc = Nc + 1
.Cells(Nc, 3) = .Cells(ia, 1)
End If
Next ia
End With
'Nc - длина столбца C
End Sub


=ЕСЛИ(ЕОШИБКА(НАИМЕНЬШИЙ(ЕСЛИ(ЕСЛИ(ЕСЛИ(СЧЁТЕСЛИ(изменяемый;постоянный)>0;постоянный;0)=0;постоянный;0)>0;ЕСЛИ(ЕСЛИ(СЧЁТЕСЛИ(изменяемый;постоянный)>0;постоянный;0)=0;постоянный;0);"");СТРОКА(Лист1!$Z1:$Z31)));"";НАИМЕНЬШИЙ(ЕСЛИ(ЕСЛИ(ЕСЛИ(СЧЁТЕСЛИ(изменяемый;постоянный)>0;постоянный;0)=0; постоянный;0)>0;ЕСЛИ(ЕСЛИ(СЧЁТЕСЛИ(изменяемый;постоянный)>0;постоянный;0)=0;постоянный;0);"");СТРОКА(Лист1!$Z1:$Z31)))
...
Рейтинг: 0 / 0
15.07.2004, 01:57
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32605643
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
в ячейке С1 =ЕСЛИ(ЕОШИБКА(ВПР(B1;$A1:A31;1));ЕСЛИ(ПРОСМОТР(A1;B1:B31)=A1;"";A1);"")
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
15.07.2004, 12:17
| Ответить | Цитировать | Написать  
Как макру написать для Exel 2000
    #32606322
Shaggy_Fish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shaggy_Fish
Гость
Вот это работает!

Код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub xz()
Dim rA, rB, rC
Set rA = Range("A1:A12")
Set rB = Range("B1:B7")
cc = 1
 
For Each a In rA
fnd = 0
 
    With rB
        Set c = .Find(a, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            fnd = 1
        End If
    End With
    If fnd = 0 Then
        Cells(cc, 3) = a.Text
        cc = cc + 1
    End If
Next a
End Sub
Range("A1:A12") и Range("B1:B7") заменить на реальные


Всем спасибо за помощь!
...
Рейтинг: 0 / 0
15.07.2004, 15:41
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как макру написать для Exel 2000
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=32603068&tid=2186723]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 173ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 15ms
total:  279ms
созд. / загр.: 279ms
x
x
Закрыть


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