Tag: string

Excel：重新格式化string中的所有date值: 下面的文本是我的示例数据集。我有一个stringdate的笔记。我需要将下面的string中的所有date从mm / dd / yyyy格式转换为yyyy-mm-dd。所有的数据都是单个单元格中的一个string 单元格内容： '===注意=== 2013年2月7日在此input注释 '===注意=== 2013年2月12日在此input注释 '===注意=== 2013年2月14日在此input注释希望的单元格内容： '===注意=== 2013年2月7日在此input注释 '===注意=== 2013年2月12日在此input注释 '===注意=== 2013年2月14日在此input注释我已经尝试公式来挑出datestring，甚至重新格式化它们，但它只会挑出string中的第一个date。我需要一些search和重新格式化string中的所有date。我可以使用以下select第一个date = IFERROR（0 + MID（AB2，SEARCH（ “?? / ?? / ????”，AB2），10）， “”）然后我可以使用以下来更改格式 = TEXT（AC1， “YYYY-MM-DD”）但是，这只是挑选了第一个date，它甚至没有取代它。任何帮助是极大的赞赏。

在excel vba中删除给定索引处的string元素: 如何在excel vba中删除给定索引处的string元素？我目前的代码如下所示： Private Sub RemovePeriods_Click() Dim i As Integer Dim Cutoff As Integer For i = 0 To 14283 Cutoff = InStr(1, Range("K6").Offset(i, 0).Value, ".", vbTextCompare) If Cutoff > 0 Then End If Next i End Sub 所以在最后一条if语句中，我想编写代码来删除cutoff指定的索引处的句点。我该怎么做呢？提前致谢！

在excel电子表格中存储单元格数组中包含的MATLABstring: 我在Excel电子表格中存储MATLABstring。我的数据是这样的： Matrix = [644×16 char] [686×16 char] [569×13 char] [660×13 char] [619×13 char] [599×13 char] [607×13 char] [702×13 char] [633×13 char] [623×11 char] [645×11 char] [697×11 char] … 我想将这些string保存在Excel列中。由于不是所有的string都具有相同数量的字符，我不得不将这些数据存储在cellarrays上。有任何想法吗？非常感谢你的配偶。

将依赖于代码的前缀添加到这些代码中: B列中有单元格： 081603323W400 081603323W400 161603323W402 161603323W402 并且需要一个公式来为这些数字添加一个前缀（在列A中显示），它将查看列B中数字的最后两位数字，并使用这些数字创build一个以1开头的前缀。例子： “081603323W4 00 ” – 需要变成“ 100 081603323W400” “161603323W4 02` – 需要成为” 102 161603323W402“

在Excel If语句中返回一个数字和文本string: 我试图在Excel中创build一个If语句来计算两个date（在本例中为“Required Submission Date”和“Actual Submission Date”）之间的差异，然后输出这个数字的绝对值，然后跟着“Date overdue “或”到期日“。在计算之后，我试图将数字转换为文本string： =IF((H11-J11)<0,TEXT(H11-J11,0)"Days overdue", TEXT(H11-TODAY(),0)"Days Until Due") 我也试过这个： =IF((H11-J11)<0,abs(H11-J11)"Days overdue", (abs(H11-TODAY()))"Days Until Due") 有什么办法可以实现我的目标？即如果提交逾期，应该返回“逾期XX天” 谢谢

string上的空格不能空格: 我有一个从Outlook中粘贴的Excel单元格。当我用vba读取它的时候，有一些空间，我需要删除。我花了几个小时才find解决办法。我试过了： Replace(string_value," ","")并不删除空格 Application.find(" ", string_value)和返回的错误 Application.trim(string_value)并没有删除空格… 我的解决scheme string_value = Replace(Str(string_value), " ", "") 有谁知道为什么？

通过Excel VBA连接到远程mySQL: 可能是一个愚蠢的问题，但大脑不拼凑在一起— tl; dr：我的主要问题是如何为连接stringselect正确的参数？我如何确定我的驱动程序应该是什么？供应商？选项？我在哪里可以find可接受的参数列表？如何selectADO和OLE？目标：连接到一个托pipemySQL数据库，我是pipe理员。问题：创build一个成功的连接string/select正确的参数。我是新引用远程数据库。一整天都在看今天和昨天; 有大量的文章和post在那里，但没有任何工作对我来说 – 我只是试图复制我看到正在做什么，当我需要恰当地devisestring，但我不知道从哪里开始。我试过使用ActiveX数据对象2.7,2.8和6.1库。还尝试使用OLE DB简单提供程序1.5库。以下testing使用ADO 6.1。试过这些连接string： DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=ipaddress;PROVIDER=SQLOLEDB;DATABASE=xxx;UID=xxx;PWD=xxx; —错误：等待~30秒，超时，并说无效的连接string属性 DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=ipaddress;PROVIDER=Microsoft.Jet.OLEDB.4.0;DATABASE=db_name;USER=xxx;PASSWORD=xxx; —错误：马上出现错误，并说找不到可安装的ISAM SERVER=ipaddress;PROVIDER=SQLOLEDB;DATABASE=xxx;UID=xxx;PWD=xxx; —错误：等待~30秒，超时，并说SQL数据库不存在或访问被拒绝我相信我已经添加了正确的用户密码和权限。我没有做任何与DSN。我在使用Excel 2013的win8.1 x64。任何意见是非常感谢！

Excel VBA如何将值视为整数而不是string: 我试图让我的脚本把我的价值作为一个整数，而不是一个string。这是一个查找，从格式化数字单元格获取date。当我把数据放入工作表时，它充当一个string而不是一个数字。这是我的代码： Private Sub CommandButton1_Click() Dim NextProd As Long Dim NextPC As Long Dim NextQuant As Long Dim NextPE As Long Dim NextTP As Long NextProd = Cells(Rows.Count, "A").End(xlUp).Row + 1 NextPC = Cells(Rows.Count, "B").End(xlUp).Row + 1 NextQuant = Cells(Rows.Count, "C").End(xlUp).Row + 1 NextPE = Cells(Rows.Count, "D").End(xlUp).Row + 1 NextTP = Cells(Rows.Count, "E").End(xlUp).Row […]

限制查找和replace/ SUBSTITUTE到也可能出现在文字中的特定文本: 我有一个列地址的邮件列表。有重复，但不是确切的 – 有些logging有ST而其他有STREET 。我正在寻求正式的公约，只是用STREET取代所有的ST 。当ST出现在“STONE”这个单词中时，我无法限制查找和replace，甚至是SUBSTITUTE函数。有什么方法可以指定它应该只有ST ？我曾尝试将数据复制到另一列，并用“ – ”replace所有的“空格”，如果ST出现在文本string的中间，这将起作用。但是，如果发生在最后，结果就是“-ST”。如果我试图自动修正“-ST”，它也会将诸如“-Stone-Field”的地址改变为“-Streetone-Field”。我也尝试过使用空格前后search，所以“ST”，以及单元格末尾的相同问题（因为我只需要search“ST”）。

比较vba excel中的两个string: 我需要比较列“厨师”的每个单元格列“nom”的每个单元格，以便我可以find正确的“matricule”，并将其存储在“马特”，我试过这个这个VBA代码： Sub compare() Dim p As Integer Dim q As Integer Dim Nom As String Dim Nomchercher As String Dim Matr As String p = 0 q = 0 For j = 1 To 10 p = p + 1 Cells.Find("Chef").Select ActiveCell.Range("a1").Offset(p, 0).Activate ActiveCell.Select AdresseTexte1 = ActiveCell.Address(0, 0) Nomchercher = Range(AdresseTexte1) For i = 1 […]