ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как скопировать только формат содержимого ячейки (PasteSpecial)?
7 сообщений из 7, страница 1 из 1
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447487
mirra88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirra88
Гость
Проблема такая. Есть 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, 10:41
| Ответить | Цитировать | Написать  
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447542
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
mirra88,

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

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

если кодом то так:
Код: plaintext
1.
Range("B1").Copy
 Range("A1:A100").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
...
Рейтинг: 0 / 0
20.09.2011, 11:01
| Ответить | Цитировать | Написать  
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447627
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
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:22
| Ответить | Цитировать | Написать  
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447630
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
тсА самое странное, что даже не программно, а через значок инструментальной панели "тюбик" формат содержимого у меня зараз преобразуется только для одной единственной ячейки и то только в том случае если я после щелчка на ней ещё и "enter" нажму.. версии excel разные, такое бывает и ничего, кроме вышеописанного с вариациями тут не сделаешь
...
Рейтинг: 0 / 0
20.09.2011, 11:24
| Ответить | Цитировать | Написать  
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447650
mirra88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirra88
Гость
R Dmitry, вот спасибо! Получилось и так, и программно! столько маялась, а всё так просто оказалось!
...
Рейтинг: 0 / 0
20.09.2011, 11:31
| Ответить | Цитировать | Написать  
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447659
mirra88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mirra88
Гость
А остальные советы я тоже взяла на заметку и программный код PlanB тоже себе записала. Спасибо!
...
Рейтинг: 0 / 0
20.09.2011, 11:33
| Ответить | Цитировать | Написать  
Как скопировать только формат содержимого ячейки (PasteSpecial)?
    #37447700
Atey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Atey
Гость
Еще вроде можно было выделить все ячейки и в первой выбрать преобразование и они все преобразуются. Хотя не уверен.
...
Рейтинг: 0 / 0
20.09.2011, 11:48
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как скопировать только формат содержимого ячейки (PasteSpecial)?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37447542&tid=2176484]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 157ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 204ms
total:  459ms
созд. / загр.: 459ms
x
x
Закрыть


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