小编bre*_*tdj的帖子

我无法弄清楚如何为我的生活发送超过1个工作簿!我知道通过电子邮件发送1个工作簿的几种不同方法,我将它们放在这里.

Sub SendActiveWorkbook()
                ActiveWorkbook.SendMail _
    Recipients:=Array("MyEmail@123.com", "AnotherEmail@123.com"), _
    Subject:="Write subject here"                 
End Sub

和

Sub RouteActiveWorkbook()   
    With ActiveWorkbook
           .HasRoutingSlip = True
               With .RoutingSlip
                    .Delivery = xlAllAtOnce
                    .Recipients = Array("MyEmail@123.com", "AnotherEmail@123.com")
                    .Subject = "CSAM Lux BIEO and BCF breakdown"
                    .Message = "Attached are the breakdowns as of " & Date
               End With
            .Route
     End With
End Sub

我似乎只能在给定的电子邮件中发送1个工作簿.(将我的2个工作簿变成1个工作簿并不能解决我的问题).有人在电子邮件中发送超过1个工作簿是否有任何成功？

我想在每天插入行来添加新值,并且我有一个SUM公式来添加每天的所有值.

SUM当我插入一行时,如何阻止excel自动移动我的公式范围？

我有一个excel"Closed.Xls",目前尚未打开.

请让我知道如何将新工作表添加到此已关闭的Excel文件中.我知道如何在当前的Excel中添加新工作表.

Dim WS as Worksheet
Set WS = Sheets.Add

请让我知道如何

1. 使用VBA在已关闭的Excel中添加新工作表,和
2. 获取已添加的工作表的名称

注意:我不想重命名工作表.

谢谢

我正在尝试创建一个字符串,然后执行它.我的意思是,将'A'和'20'连接起来,然后在该单元格中获得A20的值.

例子:

="A" & "20" -> doesn't work

=(CONCATENATE("A", "20")) -> doesn't work

excel中是否有执行功能？例

=EXECUTE("string value")

所以我可以创建一个字符串,它会执行类似于我输入的=string值

我今天遇到了这个有趣的问题.我在另一个循环中有一个循环,它们都Find用于不同的目的.发生的事情是Find在内部环路中使用螺钉拧紧Find外部环路.我猜excel只记忆一个搜索实例.有没有办法解决这个问题,还是设计问题？

这是我的代码的一些缩短版本.

Sub Main()
    'Some boring stuff

    Set lst_rapports = Worksheets("mappingTRANSIT").range("lst_rapports")
    Set first_result = lst_rapports.Find(rap_choisi)
    Set active_result = first_result

    Sheets("req01").Unprotect "shoobidoowap"
    If Not first_result Is Nothing Then
        ' ...            
        Do
            Sheets("req01").Select            
            ' ...
            For i = 0 To 4
                Set rubrique_cell = range("E:E").Find(rub(i))
                If Not rubrique_cell Is Nothing Then
                    ' ...
                End If
            Next i                
            ' Yet more boring stuff...

            Set active_result = lst_rapports.FindNext(active_result)
        Loop Until active_result.Address = first_result.Address
    Else
        MsgBox "Impossible …

我需要清理一个邮件列表,并想知道是否有人知道一个公式,以找出以下内容:

我有一个包含两列A和B的Excel电子表格,我需要做的公式是:如果[列B中的值重复] [A列中为空白]和[列A中的数据]则显示列B的值在新的C栏中

数据示例:

COL A      |    COL B
11/11/12   |    **name@example.com**
03/09/11   |    different@example.com
           |    **name@example.com**
06/01/12   |    anothername@example.com

公式将检测到name@example.com是重复的并且它在A列中具有日期,并且在A列中没有值,因此在C列中显示:name@example.com.

希望有道理!

我有一个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的正则表达式.

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

我正在尝试学习VBA for Excel.我正在观看有关VBA中自定义函数/用户定义函数的教程.我试图创建一个用户定义的函数,但它#REF!在我输入函数名称的单元格中显示错误.我正在尝试添加(A Cell + B Cell),而不将任何参数/参数传递给函数.我正在使用Offset来遍历具有该公式功能的Cell剩余的1,2个单元格.这是我的代码:

Option Explicit

Function ADD12()
Dim Number_1 As Integer
Dim Number_2 As Integer

Number_2 = ActiveCell.Offset(0, -2).Value
Number_1 = ActiveCell.Offset(0, -1).Value
ADD12 = Number_1 + Number_2
End Function

我的工作表的截图:

嗨我有一个很大的excel电子表格,其中包含不同运动员的高度

6'4.25"
6'2.75"

我坚持试图找到一个可以将所有这些高度转换为严格英寸的公式.

任何帮助将不胜感激.