我试图为下面的任务制作宏
单元格A1有实时更新数据,每3分钟更新一次。现在的任务是从A1复制数据,每隔3分钟将数据存储在新的单元格中,这样我们就有了大量的过去数据,并且可以绘制连续数据的示意图。该任务从窗体控件按钮开始,并可以通过相同的按钮停止。
谢谢你!!
我从网上得到了这条线-
Sub RunMe()
For Each cell In Range("B1:ZZ1")
If cell.Value = vbNullString Then
cell.Value = Range("A1")
Exit Sub
End I
根据单元格值A1= 234和B1 = 435,
这些""A1 value = x -coordinates "" and "B1 = y - coordinate "。
这两个单元格值指定插入的形状(矩形)在excel工作表中的位置。
因此,当这些值发生动态更改而不是手动更改时,相应形状(矩形)的位置应该相应地更改。
当我双击一个单元格时,我希望左边的单元格3列的值出现在我双击的单元格中。
不管用
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveCell.Value = ActiveCell.Offset(0, -3).Value
End Sub
我见过许多用户问问题,试图用用户定义的函数改变单元格的颜色。我一直觉得这样做是不可能的。我的理解是,用户定义的函数除了包含公式的单元格的值之外,不能更改单元格的任何属性。子细胞本身就是改变细胞的东西。
但是,在使用一些代码来测试这一点时,我发现情况并不总是这样。
使用简单的代码:
Function ColorCell(rng As Range)
If rng.Value = 1 Then
ColorCell = False
Else
ColorCell = True
rng.Interior.ColorIndex = 3
End If
End Function
如果我将函数输
我有一个包含大量工作表和数据的电子表格,每行的第一个单元格总是一个日期。我制作了一个控制表(控件自定义),其中用户在单元格B3和C3中键入两个日期,然后宏将在工作簿中的所有工作表中搜索第一个单元格值在这些日期之间的行,然后将这些行复制并粘贴到汇总表(数据自定义)。
然而,它并没有像预期的那样工作。宏设法找到正确的行,并复制它们,但它总是将其粘贴到同一行,因此会覆盖它自己。它还会将它们粘贴到错误的工作表(控件自定义)。
到目前为止,我的代码如下所示:
Sub DataSearch()
Dim lngLastRow As Long, lngRow As Long
Dim strCo
我想知道如何能够记录我在Excel中完成了一些任务的时间和时间。
示例:我在单元格A2中插入一个数字,我想要Excel向我显示我是什么时候在单元格A2中插入这个数字的。
Private Sub Time()
Dim r As Integer
Dim v As Integer
For r = 1 To 700
If IsEmpty(Cells(r, 2)) = True Then
Cells(r, 1) = ""
Else
Cells(r, 1) = Time()
End If
Next
End Sub
这不起作用,因为每当我在第2列中写入一些新的数
当我选择单选按钮选项时,我在自动运行宏时遇到了问题。有两个单选按钮选项,它们链接到页上代号为"MAIN“的单元格"SimType”。我已经修改了来自MSDN的以下代码,并将其包含在主工作表的模块中,但无法使其发挥作用:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("SimType")
If Not Application.Intersect(KeyCells, Range(Target.Addr
我意识到我问错了我的第一个问题,所以我将最后一次尝试。我的目标是从包含文本或不包含文本的单元格的2个单独的工作表相同的4列。工作表1将自动更新,所以我将每天运行此代码来手动更新工作表2。我正在尝试找到一种方法,基本上找出哪些单元格缺少文本使用宏。我试过使用我在这个网站上找到的一个代码,它在包含文本的单元格上放置边框,并清除空单元格的边框。
Sub BorderForNonEmpty()
Dim myRange As Range
Set myRange = Sheet1.Range("C2:C252")
' Clear Existing Borders
myRange.
我有一个自定义的Excel函数
Public Function getDate(interval, no)
getDate = Format(DateAdd(interval, no, Date), "dd.mm.yyyy")
End Function
当我在一个单元格中输入这个函数时,它会按预期工作。但是,当我打开一个已经使用了函数的文件时,它会产生一个#Value!错误。
单元格的示例输入:=">" &getDate("ww";-1)通常的结果是:>30.07.2015
我也使用彭博Excel,并在单元格中使用
我想使用UDF公式或VBA获得Excel工作表中单元格的背景色。我发现了这个UDF:
Public Function BColor(r As Range) As Long
BColor = r(1).Interior.ColorIndex
End Function
它可以像这样在一个单元格中使用:=BColor(A1)我不熟悉VBA,它返回一些长值,我想知道是否可以直接获得十六进制值。谢谢!
我在这个站点上找到了一些代码,我认为这些代码可以解决我的问题,但是,当我将它添加到我的工作簿并对指定列中的单元格进行更改时,什么都不会发生。我想看看有没有人能告诉我哪里出了问题。我需要做的是,当X列中的单元格更改时,在相应的单元格中添加UserName和TimeStamp (由CAT项目检查)。我已经将这些代码放入我的个人工作簿中,但我不知道这是否会是一个问题。另外,我需要它在没有指定名称的情况下在任何工作表上工作。下面是我使用的代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ThisRow As Long '
什么代码可以双击一个特定的单元格,然后点击enter (这会触发对其他单元格的更新,但对此查询并不重要)?
我已经创建了类似的东西,但我甚至无法让它运行(它没有出现在我的“视图宏”窗口中)。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Worksheets("Input")
On Error Resume Next
If Not Intersect(Target, Range("J3")) Is Nothin