标签: excel-2003

我在工作表中的一系列单元格中有一个公式,可以计算出数值.如何从传递到函数的范围中获取VBA中的数值？

假设工作表中A列的前10行包含rand(),我将其作为参数传递给我的函数...

public Function X(data as Range) as double

    for c in data.Cells
        c.Value    'This is always Empty
        c.Value2   'This is always Empty
        c.Formula  'This contains RAND()
    next

end Function

我从一个单元格中调用该函数...

=X(a1:a10)

如何获得单元格值,例如0.62933645？

Excel 2003,VB6

我有一个 excel 加载项，它在我启动 excel 时不断返回，即使我已经从最后一个打开的 excel 实例中删除了它（是的，我检查了任务管理器中的进程）。

当我在安全模式下启动 excel 时，小动物甚至会出现。

其他人有这个吗？

如何使用 Java SE 和 Apache POI 删除 Excel 工作簿中 Excel 工作表的内容？

我有一个Excel 2003文件,其行与此类似:

我需要点击"按钮",然后将该行添加为Google电子表格中的最后一行

相近:

可能吗？

我应该使用命令行Google工具吗？

有没有更好的办法？更简单的方法？

你会怎么做？

(一旦我知道如何将VBA中的 "东西"添加到Google Docs,我将如何将其添加到最后一行？)

更多信息:我有一个 Excel 2003 "程序",可以保存公司的所有销售额(包括客户信息),我希望制作一份全球通讯录,我的(非)同事可以轻松更新.

在Excel 2003中是否有一个宏或方法有条件地将行从一个工作表复制到另一个工作表？

我正在通过Web查询将SharePoint中的数据列表拉入Excel中的空白工作表,然后我想将特定月份的行复制到特定工作表(例如,将所有7月数据从SharePoint工作表复制到7月工作表,从SharePoint工作表到Jun工作表的所有June数据,等等.

样本数据

Date - Project - ID - Engineer
8/2/08 - XYZ - T0908-5555 - JS
9/4/08 - ABC - T0908-6666 - DF
9/5/08 - ZZZ - T0908-7777 - TS

这不是一次性的练习.我正在尝试整理一个仪表板,我的老板可以从SharePoint获取最新数据并查看每月结果,因此它需要能够始终如一地完成并干净地组织它.

将CSV文件导入Excel时，它只会从该行的FIRST字段中删除双引号，而将其保留在所有其他字段中。如何强制Excel从所有字符串中删除引号？

例如，我有一个CSV文件：

“ text1”，“ text2”，“ numeric1”，“ numeric 2”

“ abc”，“ def”，123、456

“ abc”，“ def”，123、456

“ abc”，“ def”，123、456

“ abc”，“ def”，123、456

我使用数据>导入外部数据>导入数据将其导入Excel。我指定以逗号分隔字段，并且文本分隔符为双引号字符。

数据预览列和实际Excel电子表格列均仅从第一个文本字段中删除双引号。所有其他文本字段周围仍带有引号。真正奇怪的是Access能够正确导入此数据（即，删除每个文本字段中的引号。

请注意，这与内部逗号或引号或转义字符无关。

在Excel 2003和Excel 2007中会发生这种情况。

我在一个工作表(internal.xls)中定义了一个宏

Public Sub sheet2test()
   Workbooks.Open Filename:="external.xls"
   Windows("external.xls").Activate
   Sheets("Sheet3").Activate
   Range("A5").Value = 5

End Sub

运行此代码,打开external.xls,并激活其工作表3.但是,Value of 5放在internal.xls而不是external.xls中.如何确保对其他工作表进行更改？

我试图显示除01/01/1900之外的所有日期.在excel中,我如何首先检查01/01/1900,然后仅用空字符串或""替换该日期,但是仅保留其他日期？我还需要将格式设置为mm/dd/yyyy的小日期格式.

我试图使用replace,if,date,datevalue命令但没有成功.

我试图用一个单元格内的时间来比较日期和时间()

我有代码所以样式表autorefresh本身所以当第一个日期与时间过期单元格变为绿色,当第二个日期和时间过期时单元格将变为红色.

我只能通过DateValue来比较没有时间的日期.

有一个colunm,带有两个日期和时间的单元格(有时只有一个日期,有时只有一个日期没有时间)

具有两个日期和时间的单元格将如下所示.

-----------------
12/11/2011 09:00
13/11/2011 15:00
-----------------

这是我在几次尝试之后到目前为止所做的事情(考虑到已经删除了许多尝试)

Sub Worksheet_Change()

 Set aWorkBook = Workbooks("Workbook.xls").Sheets("sheet 2").Range("C3:C10")


    For Each Cell In aWorkBook
    'MsgBox (Mid(Cell.Value, 1, 19))
    If Cell.Value <> "" Then
    MsgBox (Now < Mid(Cell.Value, 11, 6))
    'MsgBox ((Mid(Cell.Value, 1, 17)) < Now())
    'MsgBox ((Cell.Value))

        If (CDate(Mid(Cell.Value, 1, 17)) < Now()) Then
              'MsgBox ("Hello")
              'Cell.Interior.ColorIndex = 3
          End If

       End If
    Next
End Sub

在这种情况下,我使用msgbox来测试结果,但没有成功.

任何帮助将非常感谢.

给出一组这样的数据:

User    Item1 Desc.    Item1 Sel.    Item2 Desc.    Item2 Sel.    Item3 Desc.    Item3 Sel.
UserA   Item 1         Yes           Item 2         Yes           Item 3         Yes
UserB   Item 1         Yes           Item 2         No            Item 3         No
UserB   Item 1         Yes           Item 2         Yes           Item 3         No
UserC   Item 1         Yes           Item 2         No            Item 3         Yes
UserA   Item 1         No            Item 2         Yes           Item 3         Yes
UserA   Item 1         Yes           Item 2         No            Item 3         Yes

有没有办法可以使用内置的Excel工具,函数或公式来生成这样的输出

Item    UserA    UserB    UserC
Item1 …