乔山办公网我们一直在努力
您的位置:乔山办公网 > office365 > Excel中的日期如何可以按月递增?-office2010日期每周递增公式,怎么在表格里递增日期

Excel中的日期如何可以按月递增?-office2010日期每周递增公式,怎么在表格里递增日期

作者:乔山办公网日期:

返回目录:office365


简单说一下思路,感觉有点不好搞
月份数量好统计,7a64e59b9ee7ad94332直接
=DATEDIF(G2,G3,"M")
解释:统计G2到G3的月份数【G2,G3直接填写日期就行,例如:2016/10/1】
但是计算起来有点麻烦,因为是阶梯增长的
学到一个阶梯算法:
=SUM(TEXT(DATEDIF(G2,G3,"M") -{0,12,24},"0;!0")*{4.67,0.66,0.66})
解释:
统计月份已经说了,4.67是0-12个月内计算单价,0.66是5.33-4.67,也就是多收的
后面那个0.66是24个月之后的涨幅,反正你可以手动加
{0,12,24,36} 后面那个{4.67,0.66,0.66,0.66}
以此类推
统计结果那个单元格有可能会是日期格式,记得手动选择为【常规】或【数值】
详细可以参考Excel这篇阶梯电费计算方法:http:///lesson/article/excel/1542.html

工具/原材料

excel2018版、电脑。

1、打开电脑找到并双击打开excel2018版表格软件;

2、双击打开excel表格软件以后,为了示范先在A、B单元格内编辑好任意的年份数字;

3、编辑好以后,在选中C列并在编辑栏里输入=DATE(YEAR(A1),MONTH(A1)+1,DAY(A1)),公式代表的意思是以A1单元格为基准,日期添加一天;

4、输入好公式以后,按回车键对公式进行填充即可完成;

5、同理选中D列并输入=DATE(YEAR(A1),MONTH(B1)+1,DAY(B1));

6、输入好公式以后,再按回车键对公式进行填充即可完成。


方法一
A11单元格写入"2013-3-28",A12单元格写入"2013-3-29",选中A1,A12单元格,点住单元格外框右下角的小黑点,向下拖拽(或A11单元格写入"2013-3-28",再下拉)

方法二
选中A11单元格写入"2013-3-28"----编辑----填充----序列----产生在列---步长为1---类型为"日期"---日期单位为"日"---终止值写入"2013-4-28"---确定

方法三
选中A11至A42单元格-----右键----设置单元格格式为日期格式----再写入公式 ="2013-3-27"+ROW(A1) -----再按下CTRL+回车键

这还是用VBA处理比较好办,函数太绕了e68a847a686964616f362。代码已发

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myer%, mmon%, mday%, myd%, x%
    Dim mdate As Date, arr(1 To 12, 1 To 1)
    If Target.Address = "$A$2" Then
        mdate = Target.Value
        mday = Day(mdate)
        mmon = Month(mdate)
        myer = Year(mdate)
        For x = 1 To 12
            If mday = 1 Then
                myd = Day(DateSerial(myer, mmon + x, 0))
                arr(x, 1) = DateSerial(myer, mmon + x - 1, myd)
            Else
                myd = Day(DateSerial(myer, mmon + x + 1, 0))
                If myd < mday Then
                    arr(x, 1) = DateSerial(myer, mmon + x, myd)
                Else
                    arr(x, 1) = DateSerial(myer, mmon + x, mday - 1)
                End If
            End If
        Next x
        Range("B2").Resize(12, 1) = arr
    End If
End Sub

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网