Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как скопировать только формат содержимого ячейки (PasteSpecial)? / 7 сообщений из 7, страница 1 из 1
20.09.2011, 10:41
    #37447487
mirra88
mirra88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
Проблема такая. Есть Excel-файл выгрузка из программы, в которой номера карточек в числовом формате и есть Excel-файл присланный из другой организации, в которой номера карточек в формате "число сохранено как текст". Необходимо написать программу, которая бы находила совпадающие записи. Но для этого необходимо привести форматы к одинаковому виду! Я скопировала "пришлый" лист в книгу с программной выгрузкой и пыталась привести формат "число сохранено как текст" к числовому, таким образом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sheets(prihlye).Select
  Columns("A:A").Select
  kwa = Selection.CurrentRegion.Rows.Count
Sheets(programnye).Select 
  [A2].Copy 
  Sheets(prihlye).Select
  For i =  2  To kwa    
    With Range(Cells(i,  1 ), Cells(i,  1 ))
        .PasteSpecial Paste:=xlPasteFormats        
    End With
Но копируется только формат цвета границы ячейки и пр., а само содержимое как было в формате "число сохранено как текст", так в нём и пребывает. Подскажите, пожалуйста, что я делаю не так, или, может быть существует другой путь (не через PasteSpecial) преобразовать форматы.
А самое странное, что даже не программно, а через значок инструментальной панели "тюбик" формат содержимого у меня зараз преобразуется только для одной единственной ячейки и то только в том случае если я после щелчка на ней ещё и "enter" нажму..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2011, 11:01
    #37447542
R Dmitry
R Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
mirra88,

а зачем вам макрос ????
вводите в пустую ячейку 0, копируете ее, затем выделяете диапазон который необходимо преобразовать, спецвставка , сложить, ок

или умножить на 1

если кодом то так:
Код: plaintext
1.
Range("B1").Copy
 Range("A1:A100").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2011, 11:22
    #37447627
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
mirra88,
Код: plaintext
1.
2.
3.
4.
dim o as object
dim rn as range
for each o in rn
o.value=o.value* 1 
next o
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2011, 11:24
    #37447630
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
тсА самое странное, что даже не программно, а через значок инструментальной панели "тюбик" формат содержимого у меня зараз преобразуется только для одной единственной ячейки и то только в том случае если я после щелчка на ней ещё и "enter" нажму.. версии excel разные, такое бывает и ничего, кроме вышеописанного с вариациями тут не сделаешь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2011, 11:31
    #37447650
mirra88
mirra88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
R Dmitry, вот спасибо! Получилось и так, и программно! столько маялась, а всё так просто оказалось!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2011, 11:33
    #37447659
mirra88
mirra88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
А остальные советы я тоже взяла на заметку и программный код PlanB тоже себе записала. Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2011, 11:48
    #37447700
Atey
Atey
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать только формат содержимого ячейки (PasteSpecial)?
Еще вроде можно было выделить все ячейки и в первой выбрать преобразование и они все преобразуются. Хотя не уверен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как скопировать только формат содержимого ячейки (PasteSpecial)? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 393ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176484]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 243ms
total:  393ms
x
x
Закрыть


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