小编bre*_*tdj的帖子

众所周知,VBA只能同时处理一个处理器,因此当我运行宏时,Excel只使用50%的CPU而不是完全(双核).

是否有解决方法使VBA使用两个处理器？

谢谢.

我有一个宏在顶行(调暗变量后)两行

Application.EnableEvents = False
Application.DisplayAlerts = False

我的问题是,尽管在我的宏中有这些,我仍然会弹出一个询问我是否要更新链接的弹出窗口.有谁知道为什么这可能发生/一种解决方法？

非常感谢(我没有包含我的代码,因为弹出更新链接的原因是由于我打开的文档而不是代码本身)

如何删除Excel中另一个单元格中一个单元格的列中的特定单词.

示例:if

• A1 = *1603 Ad street New York*,
• B1 = *New York*
• 然后在C1我想= *1603 Ad street*

我正在使用Luracast restler,我正在尝试通过实现iAuthenticate接口来实现一些身份验证.

问题是,我的身份验证代码需要查询我的数据库以检索用户私钥.该私钥将始终在url请求中提供(散列).

我想打开每个请求的一个数据库连接,所以我需要将db连接变量传递给实现iAuthenticate的类和处理所有请求的其他类.但我无法弄清楚如何将变量传递给实现iAuthenticate的类.

可能吗？

作为参考,这里是luracast示例

事先说.

我真的不知道这是否是一个编程问题,但我相信你们其中一个人可以轻松地帮助我解决这个问题.

我试图在Excel中创建一个自动"插入日期"功能.即当一个人在我的Excel文档中连续输入数据时,我希望另一个单元格自动显示插入日期.

站在牢房内我试图显示日期,我写了以下内容:

=IF(ISBLANK(C20);1;TODAY())

这很好用,直到我在第二天打开它.显然它会将日期设置为"TODAY",但如果我希望它只更新一次,在插入时 - 我该怎么做？

想这样的事情(Java - 伪).

IF(!OTHER.CELL.ISBLANK() && THIS.CELL.ISBLANK()){
   THIS.CELL = TODAY();
}

现在,如何在Excel中执行此操作？

提前致谢.

我无法弄清楚如何为我的生活发送超过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个工作簿是否有任何成功？

我今天遇到了这个有趣的问题.我在另一个循环中有一个循环,它们都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 …

我在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 新手，但我需要用它做点什么。我想制作输入框来添加具有特定名称的新工作表。不知何故，我可以在论坛上进行一番搜索后成功。这是我想做的步骤，但我无法完全完成。

• 创建询问新工作表名称的输入框（已完成）。
• 当工作表的名称已经可用时，会出现一个消息框，表明它无法创建新工作表，但当发生相反情况时，则会创建一个新工作表（也已完成）。
• 最后是我想在输入框为空时出现一个新的消息框并要求输入不同的名称（我不能这样做）。

这是我到目前为止使用的代码

Public Sub CariSheet()
Dim SheetName As String
Dim shExists As Boolean

Do

SheetName = InputBox("Write the name of sheet", "Add Sheet")
If NamaSheet <> "" Then

shExists = SheetExists(SheetName)
If Not shExists Then

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = SheetName
MsgBox "The sheet " & (SheetName) & " is successfuly made", , "Result"
Else

MsgBox "The name is already exist, please enter a new name", vbOKOnly + vbInformation, "Name"

End If
End If
Loop Until Not shExists …

我正在尝试学习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

我的工作表的截图: