小编bre*_*tdj的帖子

我有一个Excel 2007(xlsx)电子表格,其中有一个表格.该表有一个日期列和一个已完成的列.我想做一个计数,其中日期是今天或更早,完成的地方不是"Y"

我把它放在一起的语法是:

=COUNTIFS(UnitClosures[Completed Y/N], "<>Y", UnitClosures[Dismantling Date],"=< F7")

单元格F7包含今天的日期.

当我使用这个时,我得到了0,尽管有多个列没有设置为完成日期早于今天.

如何更改公式的语法以使其工作？谢谢!

我在excel单元格中有"abcd 24 ef-gh"文本.

我需要摆脱"24"和" - "但保留所有字母和空格.

我有一个循环文本的函数,并使用like运算符识别字母.出于某种原因,它不排除我在循环之前添加了替换语句的"24"和" - ":

Function StripNonAlpha(TextToReplace As String) As String
Dim i As Integer
Dim a, b, c As String
a = Replace(TextToReplace, "-", " ")
For i = 1 To Len(a)
    b = Mid(a, i, 1)
    If b Like "[A-Z,a-z, ]" Then
        c = c & b
    End If
Next i
StripNonAlpha = c

End Function

我本来希望使用正则表达式而不是这个循环,但是当我发现很多其他语言的例子时,我并没有弄清楚用于VBA的正则表达式.

任何正则表达式的建议都是受欢迎的,但我也想知道为什么我的循环没有按预期运行.

我正在尝试使用硬线和单元格值的组合来保存文件以确定文件路径.

在单元格中A29,我有一个输出这个的公式:

2014\1月\高现金1.7.14

我得到了一个预期:声明结束错误.

代码是:

ActiveWorkbook.SaveAs Filename:="S:\IRD\Tamarac\Daily High Cash Reporting\& Range("A29").Text & ".xlsx", FileFormat:= _  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False

我编写了一堆宏来减少办公室中重复性任务的耗时。我一直在编辑它们，添加功能和调整。每次，我都必须去办公室的每个员工那里，取消隐藏他们的 PERSONAL.xlsb 文件，删除旧模块，添加新的和更新的模块。

这些宏是从功能区上的自定义选项卡控制的，有 15 个左右的按钮，每个按钮触发一个宏。时不时地，我必须在自定义选项卡上添加/删除/更改按钮，然后必须为办公室中的每个人单独完成。

我正在研究在功能区上编写按钮的脚本，但从我读过的内容来看，这似乎是不可能的。我最终根据我在本网站上看到的教程制作了一个 customui xlsm 文件，但这不好，因为如果 xlsm 工作簿隐藏或未打开，自定义选项卡就会消失。

基本上，我希望能够访问计算机，将 PERSONAL.xlsb 和 CUSTOMRIBBON.xlsm 复制到 XLSTART 文件夹中，然后立即准备好一切。

有办法吗？或者只是不可能...

我有一个包含200多个Powerpoint文件的文件夹,我一直在努力使用宏打开每个文件,编辑它们,保存它们并在循环中关闭它们.我已经设法为编辑部分创建代码,但是我无法创建一个代码来选择文件夹中的每个文件.使用"*.pptx"似乎不起作用,为每个文件编写具有特定文件名的代码效率非常低.

有人有解决方案吗？

Sub SaveNotesText()

Dim oPres As Presentation
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShapes As Shapes
Dim oSh As Shape
Dim NotesText As String
Dim FileNum As Integer
Dim PathSep As String

#If Mac Then
    PathSep = ":"
#Else
    PathSep = "\"
#End If

Set oPres = ActivePresentation
Set oSlides = oPres.Slides

For Each oSlide In oSlides
    NotesText = NotesText & "Slide " & oSlide.SlideIndex & vbCrLf
    Set oShapes = oSlide.NotesPage.Shapes
    For Each oSh …

我想说的If the field "Resource" holds a value" ... then基本上是相反的

IIF(IsNothing(Fields!Resource.Value)

你能帮忙吗？

这可能是一个简单的,但我有这个Excel vba宏,我试图划分两个整数,我最终得到一个圆数,即使在那里应该有一个逗号.例如278/101 = 3.虽然它真的是2,75而不是3.这是为什么？

宏非常简单,如下所示:

Dim intFull, intLow , intDivided as Integer
intFull = 278
intLow = 101
intDivided = intFull \ intLow

我有以下代码:

Function TruncateString(str, n)
    ' Returns an array with strings no more than n char long, truncated at spaces
    Dim truncatedArr() As String
    If str <> "" Then
            str = remove_spaces_left(str)
        For i = 0 To (CLng(Len(str) / n))
            Index = InStrRev(Left(str, n), " ")
            ReDim Preserve truncatedArr(i)
            truncatedArr(i) = Left(str, Index)
            If Right(truncatedArr(i), 1) = " " Then truncatedArr(i) = Left(truncatedArr(i), Len(truncatedArr(i)) - 1)
            str = Right(str, Len(str) - Index)
        Next i
    End If
    TruncateString = truncatedArr
End Function …

我希望有人可以看看并为我整理一下; 我不得不说错误处理不是我的强点.我有下面的代码块,我一直在玩一些错误句柄,但它不是我真的想要它.

我要做的是确保如果在任何时候出现错误,我打开的工作簿和excel实例将正常关闭.

我相信有更多更好,更简单的方法来实现这一点,而不是我想出的.

Sub QOScode()

On Error GoTo Fail

Dim app As New Excel.Application
app.Visible = False 'Visible is False by default, so this isn't necessary
Dim book As Excel.Workbook
Set book = app.Workbooks.Add(ActiveWorkbook.Path & "\QOS DGL stuff.xlsx")
'set up error handeling so if any thing happens the instance of excel with QOS sheets is closed gracefully

On Error GoTo Closebook
' MsgBox book.Sheets("ACLS").Cells(3, 3)
'Do what you have to do
' 

Closebook:
On Error Resume Next
book.Close SaveChanges:=False …

这听起来很简单,但我一直在努力寻找解决方案.在我去秃头之前的任何帮助都会很棒.

我需要一个能够的配方

• 计算两个日期\时间值之间的持续时间(天,小时,分钟)(例如05/12/2012 5:30 PM并说07/12/2012 5:45 PM);
• 不包括周末和假日.

我希望公式的结果如下所示"eg 2 Days 0 Hrs and 15 Mins".

谢谢

链接到示例工作簿