копированье - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

копированье

Гость

Дата: Четверг, 14.06.2012, 11:59 | Сообщение № 1

Группа: Гости

взялся средствами VBA переносить строку но столкнулся с проблемой в одной ячейки есть число из 20 знаков и при переносе он его округляет. уже голову сломал как сделать так чтоб число было равным оригиналу после переноса.
в сороке текст, числа, дата .
запись макроса посоветовал так:

'вырезать
' Rows("15:15").Select
'Selection.Cut

'вставить
' Rows("5:5").Select
' ActiveSheet.Paste

после переноса выдает вместо исходного числа 4,23018Е+19

Ответить

Serge_007

Дата: Четверг, 14.06.2012, 12:02 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Гость)

как сделать так чтоб число было равным оригиналу после переноса

Никак. Excel - 15-и разрядный.
В оригинале у Вас не число, а текст из 20-и цифр, вот и вставляйте его как текст

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Гость

Дата: Четверг, 14.06.2012, 12:26 | Сообщение № 3

Группа: Гости

можете код накидать? а то я в ступоре
Sub qwe()
Dim q As String
q = Cells(1, 1).Value
Cells(1, 2).Value = q

End Sub
вроде должно работать но выдает тоже значение

Ответить

Serge_007

Дата: Четверг, 14.06.2012, 12:49 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Гость)

можете код накидать?

А макрорекордер на что?

[vba]

Code

Sub qwe()
     Range("A1").Copy
     Range("C1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
End Sub

[/vba]

К сообщению приложен файл: qwe.xls (29.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Hugo

Дата: Четверг, 14.06.2012, 12:52 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

Или таких 2 варианта:
[vba]

Code

Sub qwe()
     Dim q As String
     q = "'" & Cells(1, 1).Value
     Cells(1, 2).Value = q
End Sub

Sub qweqwe()
     Dim q As String
     q = Cells(1, 1).Value
     With Cells(1, 2)
         .NumberFormat = "@"
         .Value = q
     End With
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Гость

Дата: Четверг, 14.06.2012, 12:57 | Сообщение № 6

Группа: Гости

спасибо+) щас адаптирую под себя+)

Ответить

Gustav

Дата: Четверг, 14.06.2012, 22:23 | Сообщение № 7

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Еще вот так коротенько можно:
[vba]

Code

Cells(1, 1).Copy Cells(1, 2)

Rows("15:15").Cut Rows("5:5")

[/vba]

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Четверг, 14.06.2012, 22:36

Ответить

Гость

Дата: Среда, 20.06.2012, 15:40 | Сообщение № 8

Группа: Гости

Такая же проблема возникла при вставке 20-ти разрядного расчетного счета организации в платежку, созданную в Экселе. Придала ячейке формат "текстовый", вставила нужное скопированное число - все ОК.
Спасибо, ребята!

Ответить

копированье

Страница 1 из 1
1