Question

如何在Excel中用一个公式做日历？

我现在可以在Excel中用三个公式做出一份日历，我现在想只用一个公式，就在每月日历的最开始那个格子里面填上这个公式然后横着一拖再竖着一拖就能做成一份日历，这个公式应该怎样写？希望公式可以尽可能简单，望高手指教！谢谢！

Answer 1

1、在单元格C2/E2分别输入文本【年】、【月】；B4:H4区域输入星期一至星期日的英文缩写【Mon/Tues/Wed/Thur/Fri/Sat/Sun】

2、插入两个两个表单控件【数值调节钮】，步骤如图【开发工具】，【插入】，【数值调节钮】，用于调节年份和月份的数值

3、选择B5:H10单元格区域，右键【设置单元格格式】(或者快捷键ctrl+1)，【数字】标签，【自定义】，【类型】输入"dd"（两个字母d）,这样将刚才生成的日期序列值转换成显示“日”的格式

Answer 2

• 首先，我们需要了解一下date函数的构成。date函数的格式为：DATE(year,month,day)，如图所示。

  

• 然后，在如图所示的结果处输入=date（year,month,day）。

  

• 如图所示，案例中DATE(A8,B8,C8)里面的单元格，分别表示年、月、日。

  

• 在显示的结果中，我们需要注意图示标注的日期格式。

  

• 我们平常习惯以年月日的形式来表示和查看日期,当需要计算某个日期段之间的天数时,则通过日期编号计算更加方便。

  

• 当然，表达日期还有其他的格式可以使用，比如图示的引用单元格，直接使用数字等。

  

Answer 3

 

1、打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。

2、 点击控件工具栏中的〖其他控件〗 ，选择(Microsoft Date and Time Picker Control，version 6.0)控件。

3、在工作表内需要填写日期的单元格中画出日期控件图标，调整大小与单元格一致。

2. 编辑代码

① 点击控件工具栏中的〖查看代码〗 ，进入代码编辑页面，编辑如下代码：

Option Explicit

Private Sub DTPicker1_Change()

ActiveCell.Value = DTPicker1.Value

DTPicker1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Me.DTPicker1

If Target.Column = 1 And Target.Count = 1 Then

.Visible = True

.Width = Target.Width + 15

.Left = Target.Left

.Top = Target.Top

.Height = Target.Height

Else

.Visible = False

End If

End With

End Sub

Answer 4

方法一、下载日历模板:

新建-->在弹出的窗口选择日历

方法二、添加系统的日历控件：

Answer 5

1. A1=TEXT(TODAY(),"yyyy年mm月")

2. A2={"日","一","二","三","四","五","六"}            $$选中A2:G2, 输入 = 号, 粘贴 {"日","一","二","三","四","五","六"} , 按 Ctrl+shift+回车 三键结束.
   

3. A3=TEXT(TEXT(COLUMN()-TEXT(WEEKDAY($A$1-1),"[=7]!0")+(ROW()-3)*7,"[>"&DAY(DATE(YEAR($A$1),MONTH($A$1)+1,0))&"]!0"),"[>0]0;")            $$右拉至G列, 下拉至第8行

你要求的"一个公式"就是A3的公式:

• =TEXT(TEXT(COLUMN()-TEXT(WEEKDAY($A$1-1),"[=7]!0")+(ROW()-3)*7,"[>"&DAY(DATE(YEAR($A$1),MONTH($A$1)+1,0))&"]!0"),"[>0]0;")