将日期值更改为工作日名称Vba
詹姆士
我正在尝试将以下公式转换为VBA语法。我的目标是，当用户输入从单元格（“ A4”）开始的日期值时，从单元格（“ F4”）开始的相邻单元格将返回Day Name。但是，如果单元格（“ A4”）中没有日期值到最后一行，则F列中的相应相邻单元格不应具有值。
我有一个excel公式的语法是
=TEXT(WEEKDAY(A4),"dddd")
作为VBA记录器，我得到的是以下内容：
Sub Day_Names()
Range("F4").Select
ActiveCell.FormulaR1C1 = "=TEXT(WEEKDAY(RC[-5]),""dddd"")"
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F29"), Type:=xlFillDefault
Range("F4:F29").Select
End Sub
悉达思·劳特
但是，如果单元格（“ A4”）中没有日期值到最后一行，则F列中的相应相邻单元格不应具有值。
您需要的公式F4是=IF(A4="","",TEXT(WEEKDAY(A4),"dddd"))
您不需要自动填充。您可以一次输入整个范围内的公式。看到这个代码
Sub Sample()
Dim ws As Worksheet
Dim Rng As Range
Set ws = ThisWorkbook.Sheets("Sheet1")
Set Rng = ws.Range("F4:F29")
Rng.Formula = "=IF(A4="""","""",TEXT(WEEKDAY(A4),""dddd""))"
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
按工作日更改熊猫日期
- 2
将日期调整为VBA截止后的下一个工作日
- 3
PHP当前工作日名称与日期
- 4
在VBA中将字符串值更改为日期格式
- 5
更改语言以获取工作日名称的返回值
- 6
设置NSDate的工作日不会更改日期？
- 7
更改日期时间格式（包括工作日）？
- 8
R的“工作日”功能是否将日期错误？
- 9
将数字日期转换为工作日
- 10
VBA 将日期从英国更改为美国
- 11
如何将值更改为日期格式以及如何将值更改为时间格式
- 12
将15个日期之前的星期六计算为工作日，并跳过其他工作日
- 13
VBA 工作日和工作日将周六和周日替换为下周一
- 14
SSRS-工作日名称
- 15
从Javascript Datepicker获取工作日名称
- 16
如何获取工作日的列表名称？
- 17
从特定日期减去工作日
- 18
HTML输入类型=日期工作日
- 19
SQL触发日期范围与工作日
- 20
SQL日期差异工作日
- 21
雪花：仅在工作日添加日期
- 22
日期+ 7个工作日
- 23
使用日期参数计算工作日
- 24
SQL日期差异工作日
- 25
HTML输入类型=日期工作日
- 26
dplyr按工作日汇总日期
- 27
计算工作日到日期 PHP
- 28
大熊猫：通过将日期（mm / dd / yy）转换为工作日来创建“工作日” DataFrame列
- 29
在SQL中传递工作日名称以获取最接近的日期
我来说两句