根据另一列中的日期自动使用月份名称填充一列-Excel VBA
约翰·宣威·鲁特
我是使用Excel VBA的新手，但遇到此问题。
我希望我的用户表单根据用户选择的日期自动在列中填充动态范围。同时单击“创建”按钮时，将在工作表的一列上填充日期，并在其旁边的另一列上填充月份名称，具体取决于所编码的日期。您认为有可能吗？您的努力将不胜感激。谢谢！
Private Sub CommandButton1_Click()
If Week <> "" Then
Dim ws As Worksheet
Dim LR1 As Long
Dim LR3 As Long
Dim LR4 As Long
Set ws = ThisWorkbook.Sheets("Sheet1")
' get the last row from columns that has a value
LR1 = ws.range("A" & ws.Rows.Count).End(xlUp).Row
LR3 = ws.range("C" & ws.Rows.Count).End(xlUp).Row + 1
LR4 = ws.range("D" & ws.Rows.Count).End(xlUp).Row + 1
' use the last row to determine how far down to extend the formula
ws.range("D" & LR4 & ":D" & LR1).Value = Me.Week.Value
ws.range("C" & LR3 & ":C" & LR1).Value = Me.DTPicker1.Value
Else
MsgBox "Please fill all fields!"
End If
Unload Me
End Sub
亭子
要在B列中添加月份名称，请将其添加到您的代码中：
Dim LR2 As Long
' ...
LR2 = ws.Range("B" & ws.Rows.Count).End(xlUp).Row + 1
' ...
ws.Range("B" & LR2 & ":B" & LR1).FormulaR1C1 = "=TEXT(R[0]C[1], ""mmm"")"
实际上，这将在B列中插入一个公式，该公式表示该单元格旁边的单元格的月份名称。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
Excel vba 将公式从一列自动填充到 excel 中的最后一列
- 2
Excel VBA从另一列减去一列，但不在单元格中
- 3
Excel VBA用公式填充一列，直到（另一列中最后填充的单元格）
- 4
如何通过 VBA 使用来自另一列的信息在 Excel 2013 中创建列？
- 5
Excel公式根据另一列中的值填充一列
- 6
遍历VBA Excel中公式中的每一列
- 7
根据相似的内容合并多个Excel行，然后在VBA中增加一列
- 8
基于另一列的Excel表的自动填充列
- 9
如果匹配，Excel VBA 在另一列中查找值
- 10
Excel VBA 更改范围内另一列和行中的值
- 11
在Excel中合并两列，然后使用VBA作为一列导出到Access
- 12
Excel VBA循环-将单元格从一列复制到另一列
- 13
根据一列的输入生成一系列随机数。VBA Excel
- 14
如何使用Excel VBA删除第一列中包含特定代码的行？
- 15
使用 Excel 的 vba 在公式中向左移动一列
- 16
VBA Excel宏将一列复制到另一工作簿
- 17
使用来自相邻单元格的值填充一列单元格 (Excel VBA)
- 18
如何将同一列中的值复制到下一列中？Excel VBA
- 19
选择第一列（A），而不是选择的第一列（VBA-Excel）
- 20
如何根据上一列的值填充excel中的一列？
- 21
将满足条件的数组值复制到另一列excel vba
- 22
在另一列上基于IF语句的Msgbox中显示单元格值-Excel VBA
- 23
Excel VBA检查范围内的值列表，并在另一列中返回设置值
- 24
Excel根据另一列中的值过滤列表
- 25
Excel根据另一列中的值连接一列
- 26
Excel：根据另一列中的值求和一列
- 27
根据参考 [Excel] 将一列中的值添加到另一列
- 28
使用Excel公式从另一列中提取日期
- 29
组名称从Excel中的一列到另一列
我来说两句