Tag: vba

在VBA电子邮件中添加新行: 我试图通过Excel自动发送电子邮件，但是新的命令行不起作用！我试过<br/> ， vbCrLf和vbNewLine .HTMLbody = "Hello" & vbNewLine & "Please find attached the above invoices and backup" & vbNewLine & _ "Any queries please let me know" & vbNewLine & "Regards" & vbNewLine & Signature 它只是给Hello Please find attached the above invoices and backup Any queries please let me know Regards一条线！

显示用户表单后，将焦点设置回应用程序窗口: 当显示一个用户窗体（运行其Show方法）时，它不仅显示在屏幕上，而且还将焦点（例如按键的目的地）。说，用户表单是一个自定义的工具栏。它的Show在Workbook_Open()触发，但是表单本身的使用相对较less，所以我们希望焦点在其出现后立即回到主应用程序窗口。不幸的是，似乎SetFocus方法不适用于应用程序对象。那么这是如何完成的？我想我的例子的解决scheme之后 Private Sub Workbook_Open() […] UserForm1.Show

在Excel VBA中加快处理注释: 这是我devise的一个例子，我创build这个来解释我遇到的问题。基本上我想要这个代码比它运行得更快。在新的工作表中，每个单元格的循环都会快速启动，但是如果让它运行到接近完成状态，然后再次运行，则每个单元格将会达到100ms。在我的工作表中，我有16000个单元，有很多这样的注释，每次代码运行时都会单独操作。在这个例子中，它们显然是一样的，但在实际应用中，每一个都是不同的。无论如何要使这个过程更快？ Option Explicit Public Declare PtrSafe Function GetTickCount Lib "kernel32.dll" () As Long Public Sub BreakTheCommentSystem() Dim i As Integer Dim t As Long Dim Cell As Range Dim dR As Range Set dR = Range(Cells(2, 1), Cells(4000, 8)) Dim rStr As String rStr = "ABCDEFG HIJK LMNOP QRS TUV […]

VBA存储msoThemeColor中的variables: 我正在寻找将mso主题颜色存储在variables中，以便图表颜色和模式可以dynamic变化（在这种情况下variablesTh）。这是我现在的代码： Dim Th As Long Th = "msoThemeColorAccent" & ActiveCell.Offset(-5, 0) If ActiveCell = "Realized" Then ActiveChart.SeriesCollection(Srs).Select With Selection.Format.Fill .ForeColor.ObjectThemeColor = Th .Solid End With With Selection.Format.Line .ForeColor.ObjectThemeColor = Th End With End If 我在想这个问题是，我没有使用正确的昏暗的分类。我已经看到在这里存储RGB作为variables的问题（使用Dim Long似乎是解决scheme），但没有在msoThemeColors。谢谢，让我知道，如果我可以提供任何其他细节！

VBA触发器input或更新查找值: 我有以下代码： Sub PrintToCSV() Dim i As Long, e As Long i = Worksheets("STATEMENT (2)").Range("$G$6").Value e = Worksheets("STATEMENT (2)").Range("$G$7").Value Do While i <= e Range("K6") = i Application.Wait (Now + #12:00:01 AM#) If Range("$X$10").Value > 0 Then Cells(1, 1).Value = i End If i = i + 1 Loop End Sub 它按预期循环并更改Range("K6")值。但是， Range("K6")值更新其他单元格值（vlookup）手动时，而不是与此代码。我怎样才能确保其他单元格的值取决于Range("K6")更改与此代码？

如何在Excel中获取显示值而不是实际值？: 我有一个单元格包含date前。 “05/11/09”目前显示为“11-MAY-09”。如何复制粘贴或使用VBA将string“11-MAY-09”放到旁边的单元格中（NOT“05/11/09”）？除了自己拼凑date片段之外，我无法弄清楚。

每次单元格获取值由公式更改时，如何运行VBA代码？: 我想知道我怎样才能运行一个VBA代码，每次单元格得到的值由公式改变？我设法运行一个代码，当一个单元格获取其值由用户更改，但它不起作用

excel vba-提取2个字符之间的文本: 如果我有这个专栏： ColA —– NUMBER(8,3) NUMBER(20) 我需要一个VBA函数（注意，这些开始和结束string只会在单元格中出现一次）： extract_val（细胞，start_str，end_str）即。 extract_val（A1，“（”，“）”）并给出结果： 8,3 20 我只需要在其他vba代码中使用这个函数，而不是把它作为表单中的公式。更新（感谢回答，我解决了:) ————————— Public Function extract_value(str As String) As String Dim openPos As Integer Dim closePos As Integer Dim midBit As String On Error Resume Next openPos = InStr(str, "(") On Error Resume Next closePos = InStr(str, ")") On Error Resume Next midBit = […]

Excel VBA：获取最后一个单元格包含选定范围内的数据: 如何使用Excel VBA获取包含特定范围内的数据的最后一个单元格，如列A和B Range("A:B") ？

在VBA中select（大）范围内计算不同值的数量？: 如何计算VBA中所选（大）范围内的不同值（数字和string混合）的数量？我这样想： 1.将数据读入一维数组。 2.sorting数组（快速或合并sorting）需要testing哪个 3.如果对数组进行sorting，只需计算不同值的个数： if(a[i]<>a[i+1]) then counter=counter+1 。这是解决这个问题的最有效的方法吗？编辑：我想在Excel中做到这一点。