Скопируйте с одного листа * на 2, а затем вставьте - PullRequest
0 голосов
/ 21 апреля 2020

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

Итак, в основном одна книга имеет радиус, а когда она входит в следующую книгу, она должна быть диаметром, поэтому мне нужно как-то сделать х2. Я попытался сделать несколько вещей без удачи, я также посмотрел в Интернете, и, кажется, нет четкого ответа.

Мой код такой: -

OpenBook.Sheets("Input 2").Range("C39").Copy ThisWorkbook.Worksheets(1).Range(ItemCell & "36").PasteSpecial xlPasteValues

Что прекрасно работает как простая копия из одной рабочей книги для вставки в другую. Но я хочу сделать что-то вроде этого: -

OpenBook.Sheets("Input 2").Range("C39").Copy ThisWorkbook.Worksheets(1).Range(ItemCell & "36").PasteSpecial xlPasteValues *2

Есть идеи?

Я видел это в Интернете Operation:=xlMultiply, но не понимаю, как это работает , Я также нашел много сайтов, и люди говорят, что это невозможно. Я надеюсь, что они не правы.

Заранее спасибо.

Стивен

1 Ответ

1 голос
/ 21 апреля 2020

Пропустить буфер обмена и передать значение, умноженное на 2:

ThisWorkbook.Worksheets(1).Range(ItemCell & "36").Value = OpenBook.Sheets("Input 2").Range("C39").Value * 2
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...