Question

我正在尝试在EXCEL执行以下操作的地方编写一个宏：

将A1，B1，C1等中的数据更改为特定的日期格式（dd-mm-yyyy）
使用DATEDIFF函数计算A1和B1中的值之间以及A1和C1之间的天数
将该DateDIFF函数的结果放入另一个单元格中

我不断得到奇怪的值并重置我的功能

这是我现在正在使用的代码，但我不断收到错误消息：

Private Sub CommandButton1_Click()
Range("A1:A5000").NumberFormat = "dd-mm-yyyy"
Range("B1:B5000").NumberFormat = "dd-mm-yyyy"
End Sub

Private Sub CommandButton2_Click()

Dim n As Variant
Dim Range("A1:A5000") As Date
Dim Range("B1:B5000") As Date

n = DateDiff("d", Range("A1:A5000"), Range("B1:B5000"))
n = Range("C1:C5000")

End Sub

更新：

VBA中的错误= TYPE MISMATCH。

对此有更多解释：

用户将日期复制到前3个列（A，B，C）
我的宏（脚本）必须将这些值更改为标准格式（dd-mm-yyyy）
另一个按钮或脚本必须计算之间的天数： A和B B和C A和C
由3计算的天数必须放在另一列（H或其他）中，以便可以报告。

很抱歉，如果我不清楚，这是我第一次使用Stackoverflow。

此致

Answer 1

没有进一步的信息并假设您的目标...这可能会帮助您：

import React, { Component } from 'react';
import ReactDOM from 'react-dom';
import Header from './header';
import Footer from './footer';

export default class Home extends Component {
    render() {
        return (
            <div className="container">
                <div className="row justify-content-center">
                    <div className="col-md-8">
                        <Header />
                        <div className="card">
                            <h1>This is home page</h1>
                        </div>
                        <Footer />
                    </div>
                </div>
            </div>
        );
    }
}

if (document.getElementById('app')) {
    ReactDOM.render(<Home />, document.getElementById('app'));
}

Excel VBA中的宏代码未按预期运行

1 个答案: