就像问题上说的。我希望能够在一些VBA代码中生成一个字符串数组,在这段代码中,我想使它们具有一定的长度。然后如何将它们传递到C++ DLL中,在DLL中,我希望在每个元素中存储一个字符串,并使这些元素可以从VBA后记中访问。我已经对单个字符串和双数组这样做了,如下所示。
Dim myStr As String * sizeConst
Dim dataArray() As Double
ReDim dataArray(0 To (arrayLength - 1)) As Double
然后从VBA内部将它们传递给DLL。
Public Declare Function myFunc _
Lib
如何显示SQL请求的结果?
在Access中,SQL查询显示:
我的VBA代码只显示扇区名称。如何同时显示扇区和计数结果?
我的VBA代码:
sQuery = "SELECT Sector, COUNT(*) FROM Test WHERE Search = 'FR' AND LaDate = #20/10/2021# GROUP BY Sector"
Set dbRecSet = New ADODB.Recordset
dbRecSet.Open Source:=sQuery, ActiveConnection:=dbConn
If (dbRecSet
我想在Column N中裁剪column O中的数据,当我使用function =Trim(O2)时,它可以工作,但我需要使用Excel VBA代码来完成此操作。
在我运行下面的代码之后,它显示了与Column N中的Column O相同的东西,即我想要修剪的数据。
可以帮助任何人解决我的问题。
下面是我的代码和数据
Sub TRY()
Columns("N:N").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Dim row1 As Long
我的数据集包含特定位置的汽车。生成位置的程序通常给出一个字母(如"A“、"B”或"C")。但是,有时它会显示"road road“作为位置。出于格式化的目的,我想从VBA脚本的字符串中删除"road along“。这确实需要在VBA中完成,因为我的数据集非常大。
这是一个例子(汽车4):
我试过了:
If Instr(Location, "road along")>0 Then
replace("road along","")
Else Do Nothing
End If
在我的Excel工作表上,我有带换行符的行文本。
This is a first line of text and is a sample text.
This is a second line of text and is also a sample text.
我想转换封装使用excel函数(而不是VBA)在列中旁边的原始。
<p>This is a first line of text and is a sample text. </p>
<p>This is a second line of text and is also a sample
我对VBA相当陌生,所以如果我不太习惯VBA语法,请原谅。
我的问题是:我有大量包含类似数据的表格,我想制定一个程序来研究每个表格单元格中的数据(单元格总是位于每个工作表的同一范围内),并将其复制到我的工作表“详细信息”中。
我试图转换字符串中每个工作表的名称,以便迭代它(s1,然后是s2,然后.),但是当我使用 sheet ("s“& 1)时,VBA将"s”& i识别为字符串,而不是工作表。
如何将"s“& i转换为纸张?
Sub metro()
Dim s1 As String
Dim s2 As String
Dim s3 As Stri
我是VBA的新手,我正在尝试查找一个函数,该函数为一列中的每个单元格删除正则表达式后面的两个字符串。
在RegEx之下
[0-9]{4}-(0[1-9]|1[0-2])-(0[1-9]|[1-2][0-9]|3[0-1]) (2[0-3]|[01][0-9]):[0-5][0-9]
下面是我写的一些代码
Private Sub DeleteRegexPattern()
Dim xRg As Range
Dim regEx As New RegExp
Dim strPattern As String
Dim strInput As String
Dim M
我正在尝试将以下代码添加到excel 2011中列中的一组单元格的前面。
<div class="cpt_product_description "><div>
我试着使用这个:
Sub Add2Formula()
' Add text
For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "test - " & ActiveCell.Formula
Next c
End Sub
-这是可行的,并在单元格前面添加了"test -“-产生了
我有一个很长的sql查询,我正尝试将其放入VBA for Excel中。VBA for Excel对一行文本的长度有限制,看起来大约是1000个字符。我想要做的是将查询复制到一个文本文件中,并通过perl脚本运行它,然后输出到该文本文件中,并按照VBA所需的方式进行格式化。
我需要Perl将字符计数到1000,然后写(“& _),然后换行符("),然后重复这个过程,直到文件结束。空格或字符类型无关紧要。任何帮助都是非常感谢的。我会经常回来看看是否有人需要更多的信息。谢谢!
我有许多字符串,第一个字符串是
"The quick brown fox jumped over the lazy dog".
我有一个关键字列表(在这个例子中相关的关键字是“褐色”和“懒惰”)。我试图构造一个regex,它将在目标字符串中爬行,并在关键字的第一个实例中返回该字符串的其余部分。我创建了以下regex:
.*?(?=(brown|lazy))
这提取了第一个事件,但由于某些原因,我不知道如何获得其余的字符串(即“棕色狐狸跳过懒惰的狗”),而不从第二次出现。非常感谢你在这方面的建议。非常感谢
这是在VBA中使用REGEX5.5库完成的
Function regex
对于Word 2019,我可以在VBA中使用正则表达式:
Dim RegEx As New RegExp
Dim Matches As MatchCollection
RegEx.Pattern = "[\d\w]+"
Text = "HelloWorld"
Set Matches = RegEx.Execute(Text)
但是如何匹配所有Unicode字符和所有数字呢?
\p{L}在我的PHP中运行得很好,但在Word 2019的VBA中,这并不适用于我。
我想找到有字符和数字的单词。因此,在PHP中,我使用这个[\p{L}\p{N}]+。在VBA中,我可
设置:
使用ACCESS 2010 VBA在Excel中创建工作表。下面的问题已经在处理导出的excel文件;
问题:
我有下面的代码(也尝试了不同的代码),但遗憾的是,它正在更改整个电子表格中的每个"-“for "_”,而只在提到的单元格中更改。我不知道为什么会发生这种事。
For i = 2 To k
If Cells(i, 15).Value Like "*" & "-" & "*" & ":" & "*" Then
Cells(i, 15).Replace W