如何用vba在选中单元格插入日期

您可以使用以下代码将当前日期插入到选定的单元格中：

Sub InsertDate()
    Selection.Value = Date
End Sub

要使用此代码，请打开Excel工作簿，按下Alt + F11打开VBA编辑器，然后将代码复制粘贴到新模块中。接下来，选中您要插入日期的单元格，然后运行InsertDate宏。当前日期将立即插入到选定的单元格中。

相关问题

WPS EXCEL如何用VBA实现选择单元格的嵌入式图片，然后转为浮动式？

在WPS Excel中，你可以使用VBA (Visual Basic for Applications) 来实现选择单元格内的嵌入式图片并将其转换为浮动式。下面是简单的步骤：

1. 打开VBA编辑器：点击Excel菜单栏中的"开发者" > "Visual Basic"，或按`Alt + F11`快速打开。

2. 创建一个新的模块：在VBA编辑器窗口右下角，选择"插入" > "模块"，为编写脚本创建一个新环境。

3. 编写VBA代码：

Sub ConvertImageToFloat()
    Dim rng As Range
    ' 设置需要操作的范围，例如从A1到B10的图片
    Set rng = Selection ' 如果想要用户选择区域，可以改为Selection
    
    Dim cell As Range
    For Each cell In rng
        If TypeOf cell.Value Is Shape Then ' 检查是否为图片形状
            Dim pic As Shape
            Set pic = cell.Value ' 获取当前单元格中的图片
            pic.LockAspectRatio = msoFalse ' 解锁图片比例，使其变为浮动式
            pic.Delete Anchor:=cell ' 删除原位置的图片
            pic.Select ' 图片现在处于选中状态，拖动它即可调整位置
        End If
    Next cell
End Sub

4. 运行代码：保存你的宏后，可以选择你想转换的单元格，然后按`F5`运行`ConvertImageToFloat`宏，所有选中的图片都会变成浮动式。

EXCEL VBA 去除选中的空单元格的数量

在Excel VBA中，你可以通过编写一段简单的宏来去除选中区域内的空单元格。下面是一个示例脚本：

Sub RemoveEmptyCells()
    Dim rng As Range ' 定义一个范围变量
    Set rng = Selection ' 设置范围为你当前选择的单元格

    ' 遍历范围中的每个单元格
    For Each cell In rng
        If cell.Value = "" Or IsEmpty(cell) Then ' 如果单元格为空
            cell.Delete ' 删除该空单元格
        End If
    Next cell
    
    MsgBox "已删除" & Selection.Count & "个空单元格。", vbInformation, "清除空单元格"
End Sub

这个VBA程序会删除选区内的所有空单元格，并在完成后弹出消息框显示删除的空单元格数量。

要运行此宏，你需要打开VBA编辑器（按Alt + F11），插入一个新的模块，复制上述代码粘贴进去，然后在Excel工作表上选择你想要清除空值的单元格范围，按下F5键执行。