VBA如何将单元格中的年份转为天数

Posted 2023-03-23

假设全年每个月为30天，全年共计360天，例如第0年5月30日转为150天，请问如何编辑

根据楼主的要求，
提取年份*360
提取月份*30
然后提取日
三个相加即可
年份提取可以根据"年"进行拆分
"月"的提取可在月字位置拆分，将前面的年截取不要，后面就是月 参考技术A 可用 DATEDIF 函数。如：
D3中的日期为“2009-7-30”，E3中的日期为“2011-9-2”，在空白单元格（如F3）中输入
=DATEDIF("2009-7-30","2011-9-2","Y")&"年"&DATEDIF("2009-7-30","2011-9-2","YM")&"月"&DATEDIF("2009-7-30","2011-9-2","MD")&"天"
或者
=DATEDIF(E3,D3,"Y")&"年"&DATEDIF(E3,D3,"YM")&"月"&DATEDIF(E3,D3,"MD")&"天"追问

你是没看问题

Word VBA如何将标题仅应用于表格单元格中的第一行

嘿伙计们现在我正在尝试在文档中的每个表的A1表格单元格中获取第一行文本，并对其应用标题样式。它不使用自动换行。

现在我有

 Dim CurrentTable As Table
Dim head1 As Style, head2 As Style, head3 As Style, head4 As Style
Set head1 = ActiveDocument.Styles("Heading 1")
Set head2 = ActiveDocument.Styles("Heading 2")
Set head3 = ActiveDocument.Styles("Heading 3")
Set head4 = ActiveDocument.Styles("Heading 4")

  For Each CurrentTable In ActiveDocument.Tables

       With CurrentTable.Cell(1, 1)

            .Range.Style = head1


       End With

答案

据推测，你的'line'是一个段落，在这种情况下使用：

.Range.Paragraphs（1）.Range.Style = head1