Tag: string

在Excel中使用不等式的string比较

有人可以提供一个参考如何使用Excel中的不等式运算符比较string？ 我发现了一些意想不到的行为： 在下面的例子中，前两列是string，C列是expression式=A2<B2 ，第三列是预期行为，最后一列是预期行为是否与实际匹配。 Comparison Benchmark Is A < B? Expected Pass? Q1 2009 Q4 2012 TRUE TRUE TRUE Q2 2009 Q4 2012 TRUE TRUE TRUE Q3 2009 Q4 2012 TRUE TRUE TRUE Q4 2009 Q4 2012 TRUE TRUE TRUE Q1 2010 Q4 2012 TRUE TRUE TRUE Q2 2010 Q4 2012 TRUE TRUE TRUE Q3 […]

尝试连接到C＃中的Excel电子表格

我试图从一个电子表格拉一堆数据，但是我无法在我的C＃代码中成功连接。 乙 下面是连接string和我用来build立连接的代码。 该程序的目标是从电子表格中提取数据并将其存入SQL数据库。 我不能通过connection.open（）命令，但不会收到此错误信息： “外部表格不是预期的格式” string connectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\nearod\Desktop\TestLoad.xlsx;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"; string queryString = "SELECT * FROM [SQL AgentUnique ID Test Load$]"; try { OleDbDataReader reader; using (OleDbConnection connection = new OleDbConnection(connectionString)) { OleDbCommand command = new OleDbCommand(queryString, connection); connection.Open(); reader = command.ExecuteReader(); while (reader.Read()) { counter++; //Access db values string compCode = […]

C＃OLEDB保护查询中的对手

我试图find一种方法来保护我的查询string中的apostrophie。 我有一个包含apostrophie的string格式的值，当我试图插入时，它会抛出一个错误 例如： Insert into ["excelApp.worksheetsList.ElementAt(0).Name "$"] " + ([col1], [col2]) values values" + " ('" + val1 + "', '" + val2 + "');") 这是一个例子。 这里val1包含“hereIsMy'value”。 谢谢你帮助我

如何在Excel VBA中应用自定义格式（例如“文本”：0.0％）

我希望Excel VBA根据用户控件来编写一个数字或一个百分比。 在Excel中，我可以按Ctrl 1应用自定义格式，例如“文本：”0.0％或“文本：”0.0。 我已经设法写入文本，然后根据控制值使用Format（）或Round（）。 但是，格式有两位小数，我想要一个小数位。 这是一些说明性的代码。 如上所述，我想控制百分比的小数位数（例如0,1,2）。 Select Case sControl Case "Percentage" oRange = "Text: " & Format(dvalue + 0.000001, "Percent") Case "Numeric" oRange = "Text: " & Round(dvalue + 0.000001, 1) End Select 任何关于如何做到这一点的指针会很好。 在这两种情况下，我都加上了0.000001，因为我知道这有助于维持传统的舍入精度。 干杯蒂姆

将一个string与一个克拉转换成一个数字（和评估）

我有一列格式为123.4的导入数字。这里的小数其实应该表示ie ^ “权力” 我希望它显示在另一列作为评估值。 123.4将显示为228886641 。 我用SUBSTITUTE命令来replace小数点^ ，给我123^4 ，这看起来不错，但它不是一个数字。 如果我从SUBSTITUTE （文本string123^4 ）的输出使用VALUE命令，虽然我得到#VALUE! 错误。 我如何从123.4到228886641 ？

VBA如果一个单元格中的前6个字符不等于01/01 /那么

我希望你能帮上忙。 我在下面有一段代码，它似乎没有正常工作 我想要的代码是这样的 如果列L的整个长度中的任何单元格的前6个字符不包含01/01 /，则使用内部颜色27突出显示该单元格 正如您在Screen Shot 1中看到的那样，列L中的每个单元格都用内部颜色27突出显示，只有单元格L2和L5应该着色。 我的代码如下，可以修改为只突出显示不包含01/01 /的单元格作为列L中的前6个字符 > PS条件格式化方法不是一个选项 与往常一样，所有的帮助，不胜感激。 屏幕截图1 我的代码 Sub Colour_If() RowCount = Cells(Cells.Rows.Count, "L").End(xlUp).Row For Each n In Range("L2:L" & RowCount) n = Left(n, 6) If n <> "01/01/" Then Range("L2:L" & RowCount).Interior.ColorIndex = 24 End If Next n End Sub

从用户定义函数返回空实际返回0

我需要用一个用户函数来填充一个单元格。 如果函数的结果不是零，则单元格应该简单地填入函数的结果; 到现在为止还挺好。 但是如果结果是零，我希望单元格是空的。 所以我写了这个用户定义的函数： Function MyTestFunction(n As Integer) As Integer Dim result As Integer result = n * 2 If result = 0 Then MyTestFunction = Empty Else MyTestFunction = result End If End Function 这个function没有真正的目的，只是为了调查这个问题。 Excel工作表如下所示： 单元格A1到A3只是键入数据，单元格B1到B3包含： B1： =MyTestFunction(A1) B2： =MyTestFunction(A2) B3： =MyTestFunction(A3) 为什么单元格B3显示0而不是空的？

使用RegEx在VBA中分割string

我是VBA的新手，想要寻求一些关于使用正则expression式的帮助，我希望能够启发我做错了什么。 我目前正在尝试将date分成单独的date，月份和年份，可能的分隔符包括“，”，“ – ”和“/”。 Function formattedDate(inputDate As String) As String Dim dateString As String Dim dateStringArray() As String Dim day As Integer Dim month As String Dim year As Integer Dim assembledDate As String Dim monthNum As Integer Dim tempArray() As String Dim pattern As String() Dim RegEx As Object dateString = inputDate Set RegEx […]

如何在Excel中从具有特定条件的string中查找子string

我有这样的logging A Result Hello AP#12/22 Welcome AP#12 Thanks AP#123-21 AP#123 No problem AP#111 AP#111 所以你可以看到我需要从string的AP代码。 它不能包含 – 或/部分。 注意： AP代码可以是任何数字的数字 它可以出现在最后或开始 AP代码可以跟随/或 – 或任何其他特殊符号，如：或任何其他。 所以我需要一个通用的公式，而不是检查每个特殊字符（/， – ，:)来获取AP代码。 我想实现这一点，而不使用VB。

在VBA中应该是一个简单的循环过程

在Excel中，我有一列文字。 我相信你在编程世界中称为“string”。 一行一行，我需要把每一个单词放在列中，并在其周围放置单引号。 例如，如果单元格中的单词是狗，我需要将其更改为“狗”。 我试图写一个macros来做到这一点，但是我已经遇到了vba代码的第一部分的问题，这只是从Excel电子表格中将字段列导入到vba中 。 我的代码如下。 错误消息说“下标超出范围”，但正如你所看到的，我黯淡了arrays。 我究竟做错了什么？ 谢谢。 Sub putquotes() Dim sym(1 To 162) As String For i = 1 To 162 sym(i) = Worksheets("sheet1").Cells(i + 1, 1) Next i End Sub