Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как зафиксировать ячейку в excel / 9 сообщений из 9, страница 1 из 1
05.06.2012, 15:27
    #37826121
MrSasha
MrSasha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
как зафиксировать ячейку в excel в листе1, чтобы при сортировке в этом же листе 1, значения листа2 ссылались на те же самые значения листа1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2012, 18:36
    #37826503
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
Что значит "на те же самые значения"?
Если на содержимое ячеек (яблоко,груша,апельсин - остается всегда апельсин) - то на листе2 в формулах надо использовать относительные ссылки; если на те же самые ячейки (a1=яблоко,a2=груша,a3=апельсин - остается всегда $a$3 сначала апельсин, потом яблоко) - то использовать ссылки абсолютные...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2012, 19:10
    #37826549
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
AndreTM,
 
Код: vbnet
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.
Dim sBeforeSort$, sAfterSort$

If Worksheets.Count < 2 Then Worksheets.Add

With Worksheets(2)
 .Cells(1, 1).Value = "абсолютная ссылка"
 .Cells(2, 1).Formula = "='" & Worksheets(1).Name & "'!" & Worksheets(1).Cells(1, 1).Address
 .Cells(1, 1).Value = "относительная ссылка"
 .Cells(2, 2).Formula = "='" & Worksheets(1).Name & "'!" & Worksheets(1).Cells(1, 1).Address(0, 0)
End With

With Worksheets(1)
 .Cells(1, 1).Value = "яблоко"
 .Cells(2, 1).Value = "груша"
 .Cells(3, 1).Value = "апельсин"
End With

With Worksheets(2)
  sBeforeSort = .Cells(2, 1).Value & " " & .Cells(2, 2).Value
  MsgBox sBeforeSort, , "значения ссылок до сортировки"
End With

With Worksheets(1)
  .Range(.Cells(1, 1), .Cells(3, 1)).Sort .Cells(1, 1)
End With


With Worksheets(2)
  sAfterSort = .Cells(2, 1).Value & " " & .Cells(2, 2).Value
  sAfterSort = sAfterSort & vbCrLf & vbCrLf & "а хотелось бы, чтобы осталось  " & vbCrLf & vbCrLf & sBeforeSort
  MsgBox sAfterSort, , "значения ссылок после сортировки"
End With

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2012, 19:41
    #37826599
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
скукотища,
 
Врать не буду... как-то я проверял - оставались ссылки. Может, у меня в книге что было настроено?
Впрочем, если у ТС проблема в том, чтобы оставить ссылки на те же ячейки - пусть делает, например, ДВССЫЛ(). Без примера - переливание только
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2012, 07:13
    #37826941
MrSasha
MrSasha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
AndreTMЧто значит "на те же самые значения"?
Если на содержимое ячеек (яблоко,груша,апельсин - остается всегда апельсин) - то на листе2 в формулах надо использовать относительные ссылки; если на те же самые ячейки (a1=яблоко,a2=груша,a3=апельсин - остается всегда $a$3 сначала апельсин, потом яблоко) - то использовать ссылки абсолютные...

пример:

лист1
столбецА столбецВ
строка1 яблоко 5
строка2 груша 10
строка3 апельсин 3

лист2
идет список, числовые значения берутся из листа1 в виде:

апельсин ='лист1'!B3
банан ='лист1'!B... (этот просто добавлен для примера списка)
груша ='лист1'!B2
яблоко ='лист1'!B1

на листе1 делаем сортировку по алфавиту по столбцуА, значение апельсина 3 перемещается в В1, и на практике на листе2 у яблока меняется значение с 5 на 3, а нужно чтобы ЭТО значение не менялось, т.е. оставалось 5 соответсвующая яблоку. Вообщем чтобы при сортировке на листе1 значения на листе2 оставались соответствовать наименованиям столбцаА.
незнаю как еще объяснить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2012, 07:17
    #37826943
MrSasha
MrSasha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
в примере: на листе1, столбецА - это перечисление (груша, яблоко, апельсин), столбецВ - это числа (5, 10, 3)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2012, 07:31
    #37826946
MrSasha
MrSasha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
скукотища,

простите, в кодах ничего не понимаю, мне бы лучше примером в 7-ом экселе, если возможно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2012, 22:32
    #37828540
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
MrSasha,
это не решение Вашей проблемы.
Сообщение было адресовано AndreTM исключительно целью объяснить суть Вашей проблемы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2012, 22:52
    #37828549
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как зафиксировать ячейку в excel
MrSasha,
вот одно из решений.

Лист1
ABC1яблоко52груша103апельсин34банан14многа банана

Лист2
ABC1яблоко=ВПР(A1;Лист1!$A$1:$B$4;2;0)2груша=ВПР(A2;Лист1!$A$1:$B$4;2;0)3апельсин=ВПР(A3;Лист1!$A$1:$B$4;2;0)4банан=ВПР(A4;Лист1!$A$1:$B$4;2;0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как зафиксировать ячейку в excel / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 422ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157720]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 292ms
total:  422ms
x
x
Закрыть


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