小编Pat*_*rez的帖子

您是否知道在Excel中通过公式"计算"唯一值列表的方法？

例如:一个范围包含的值"red","blue","red","green","blue", ,我想有作为的结果,,,+ 2,最终其他空白单元格. "black"
"red"blue""green""black"

我已经找到了一种方法来使用SMALL或LARGE结合INDEX来获得计算出的排序列表,但是我想在不使用VBA的情况下进行这种计算排序.

功能语言是否能解决日常业务问题？

是否有使用函数式语言(最好是已发布的测试用例)实现的成功项目？

需要帮助编写查询以获取上个月的数据以及月初至今的数据.

如果今天的日期是2011年3月23日,我需要检索上个月的数据和截至今天的数据(2011年3月23日).

如果日期是2011年4月3日,则数据应包含3月份数据和截至2011年4月3日的数据.

谢谢,

Shahsra

在诺基亚手机之外,Qt是一个有趣的商业应用开发平台吗？
为什么？优点？
谢谢

我的问题有点泛,但是我想说我想在SQL Server中测试一些表达式.我写SELECT 1=1或者SELECT 'a' > 'B'按F5,希望看到结果,就像我打字时那样SELECT 0, 1.
但我得到了一个错误.这是为什么？我应该用什么来动态评估这些表达式？

我正在更新别人写的excel应用程序(当然:)

我发现很多未使用的Sub CommandButtonXX_Click()潜艇,我不总是确定按钮是否仍然存在.有没有办法(程序,VBE接口,外部工具)做一些清理,同时避免删除仍在使用的代码？

属性框顶部的列表似乎确实可靠,因为它对上下文敏感:如果您在选项卡中,它只显示该选项卡的项目.

我得到了一个动态选择的Cell,它将填充一些我将要放置的信息以及当我将信息和ENTERkeypressed放在那个Cell时;

1 - 它应该触发一个宏

'macro(value)
macro1 myinfo

2 - 宏应该获取该单元格中的信息

myinfo = Cells( i, j )

那我该如何实现呢？

我在MS-Access 2013应用程序中创建了拆分表单.它们可以单独运行,但是当我通过导航表单打开它们时,它们在导航子表单中显示为单个.尝试了很多选择,但无法弄清楚出了什么问题.

我正在从SSMS执行存储过程,我收到此错误消息:

Msg 295, Level 16, State 3, Procedure spEdiCreateOrders, Line 80 [Batch Start Line 2]
Conversion failed when converting character string to smalldatetime data type.

当然我可以尝试和错误,但我希望能够利用这个消息,我对这个消息感到有点困惑.
' line 80':从哪里开始？从BEGIN条款Alter procedure？或者它真的是指我点击时看到的80行Modify？
还有什么Batch Start Line 2意思呢？
谢谢 !

编辑:请注意,我对解决问题没有兴趣(已经解决了).我只想要一个关于如何解释'第80行'和'批量启动第2行'的明确指导,以便下次我立即知道在哪里查看.

我注意到有些人会Set Object = Nothing在结账程序中使用.我能够找到为什么这对Access的实例有用,但是在为Excel执行此操作时没有答案令人满意,那么, 将对象设置为Nothing的好处是什么？

我把它添加到我的代码中作为例子来支持这个问题,但这只是浪费空间吗？如果这是一个好习惯,为什么？

至于代码都没有问题,有或无 Set = Nothing.我从具有我们不需要的过多列的系统导出中获取数据.为了减少复制/粘贴迭代的数量,我使用union来获取所有范围,但两个除外.需要切换最后两列的顺序,这就是我被迫分别复制/粘贴它们的原因.

With CurrentBook.ActiveSheet

    Dim LRow2 As Long
    LRow2 = .Range("BG" & .Rows.Count).End(xlUp).Row

    Dim Range1 As Range: Set Range1 = .Range("A2:C" & LRow2)
    Dim Range2 As Range: Set Range2 = .Range("F2:F" & LRow2)
    Dim Range3 As Range: Set Range3 = .Range("H2:H" & LRow2)
    Dim Range4 As Range: Set Range4 = .Range("M2:M" & LRow2)
    Dim Range5 As Range: Set Range5 = .Range("P2:P" & LRow2)
    Dim Range6 As …