求助，下拉选择年限，自动变成该年

hqiang133 · 发表于 2024-2-28 17:18

本帖最后由 hqiang133 于 2024-2-28 17:21 编辑

像图片这样，我下拉选择2027年，下列哪些21-01月，21-02月......会变成27-01月，27-02月......27-12月；我下拉选择2028年，下列哪些会变成28-01月，28-02月....28-12月；

感谢大佬！

LIUZHU · 发表于 2024-2-28 18:12

这个用公式做不更简单些？

hqiang133 · 发表于 2024-2-28 18:30

LIUZHU 发表于 2024-2-28 18:12
这个用公式做不更简单些？

大佬能不能给做下，跪求

limonet · 发表于 2024-2-28 18:43

E4=MID($P1,3,2)&TEXT(COLUMN()-4,"-00月")

micch · 发表于 2024-2-28 19:32

chxw68 · 发表于 2024-2-28 19:44

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then
Exit Sub
End If
If Target.Address = "$P$1" Then
nf = Val(Target.Value)
For j = 1 To 12
With Cells(4, 4 + j)
.Value = DateSerial(nf, j, 1)
.NumberFormatLocal = "yy-mm月"
End With
Next
End If
End Sub

复制代码

chxw68 · 发表于 2024-2-28 19:45

参与一下。

hqiang133 · 发表于 2024-2-29 09:18

本帖最后由 hqiang133 于 2024-2-29 09:23 编辑

chxw68 发表于 2024-2-28 19:45
参与一下。

您给做的非常好，还有个小问题麻烦您给看看，就是1月-12月现在显示在表格是24-01月，但实际都是年月日，我想匹配另一个表中的24-01月，这样匹配不上，能不能您那个也仅仅变成年月不含日啊

chxw68 · 发表于 2024-2-29 09:24

修改好了。

hqiang133 · 发表于 2024-2-29 09:29

chxw68 发表于 2024-2-29 09:24
修改好了。

感谢大神，顶礼膜拜

		自动登录	找回密码
密码			免费注册

[求助] 求助，下拉选择年限，自动变成该年

评分

评分

评分