使用公式的突出显示的单元格不会将突出显示复制到另一个工作表

时间:2018-02-15 01:57:38

标签: excel vba excel-vba

我有一个宏来突出显示使用公式的列中的单元格。 我使用此代码突出显示单元格:

let mailOptions = {
    from: '"Fred Foo " <foo@example.com>', // sender address
    to: 'bar@example.com, baz@example.com', // list of receivers
    subject: 'Hello ✔', // Subject line
    text: 'Hello world?', // plain text body
    html: '<b>Hello world?</b>' // html body
};

// send mail with defined transport object
transporter.sendMail(mailOptions, (error, info) => {
    if (error) {
        return console.log(error);
    }
    console.log('Message sent: %s', info.messageId);
    // Preview only available when sending through an Ethereal account
    console.log('Preview URL: %s', nodemailer.getTestMessageUrl(info));

    // Message sent: <b658f8ca-6296-ccf4-8306-87d57a0b4321@example.com>
    // Preview URL: https://ethereal.email/message/WaQKMgKddxQDoou...
});

但是,我尝试使用另一个脚本将此数据从Sheet 1复制到Sheet 2,当我运行脚本时,突出显示将从单元格中删除,但数据仍会复制到新工作表中(表2).`

With Sheets("Sheets1").Range("G:G").SpecialCells(xlCellTypeFormulas)
    .Interior.ColorIndex = 6
End With

我需要帮助尝试将单元格复制到另一张纸上,并在使用公式的单元格上保持突出显示。

提前致谢!

1 个答案:

答案 0 :(得分:1)

因为你正在粘贴价值观,所以格式不会出现。按如下方式添加第二个粘贴:

function triggerEvent(e, s){
    "use strict";
    var event = document.createEvent('HTMLEvents');
    event.initEvent(e, true, true);
    document.querySelector(s).dispatchEvent(event);
}

$("select#deviceToSerial").on("change", function(){

    serialNumberInput.val($("select#deviceToSerial").val());

    triggerEvent("change", "input#serialNumberInput");
    triggerEvent("blur", "input#serialNumberInput");

}