我有一个Excel VBA程序,它循环遍历数据表中的每一行数据.
我的目标是在布尔值bFound设置为时退出while循环True.
我认为我的条件"或bFound = True"可能不正确.
bFound = False
While Sheets("Data").Cells(iRow, 1) <> "" Or bFound = True
If Sheets("Data").Cells(iRow, 11) = Sheets("Data2").Cells(iRow, 1) Then
bFound = True
End If
iRow = iRow + 1
Wend
'exit loop after the boolean=true
我想拆分某个字符串并将它们存储在变量中.
GetID = "13H4"
sSplit = Split(GetID)
我想拆分它们并将"13"存储在变量中,将"4"存储在另一个变量中.
我不想使用MID,RIGHT,LEFT方法,因为我不想将字符串的位置设置为"13"或"4".你们知道怎么做吗？
多谢你们.
我有一个小代码，可以获取Excel中列出的日期的天名称。但是问题是，它没有正确的日期名称（例如星期二）。
例如：
sDayName = Format(Day(11/1/2016), "dddd")
然后，输出将产生不正确的“日期名称”，即：
sDayName = "Sunday"
应该是星期二。感谢您的帮助。
我想检查单元格中图片的名称，然后根据图片的名称在下一列中输入一个值。
我的程序只检查图片的名称是否存在于活动工作表中。
Sub CheckImageName()
Dim iRowCountShapes As Integer
Dim sFindShape As String
iRowCountShapes = 2
While Sheets("Data").Cells(iRowCountShapes, 1) <> ""
If Sheets("Data").Shapes("Rock").Name = "Rock" Then
Sheets("Data").Cells(iRowCountShapes, 3) = "Rock"
ElseIf Sheets("Data").Shapes("Roll").Name = "Roll" Then
Sheets("Data").Cells(iRowCountShapes, 3) = "Roll"
Else
Sheets("Data").Cells(iRowCountShapes, 3) = "Neither"
End If
iRowCountShapes = iRowCountShapes + 1
Wend
End Sub
我想知道是否有办法按日期对电子邮件进行排序,然后打开找到的最新电子邮件.
我正在尝试搜索Body内部具有唯一标记的电子邮件.为了避免重复的电子邮件具有相同的标签,我必须按日期对这些电子邮件进行排序,并打开最新的电子邮件,以便我可以回复它.
如何在其中包含电子邮件的文件夹中获取最新日期？
VBA-Outlook中是否有一种方法可以获取电子邮件的最新日期？
例如：我的文件夹中有三封邮件，内容相同，但接收时间不同。如何从这三个电子邮件中获取最新电子邮件？
我试图弄清楚是否有办法使用" javascript:location.href " 打开一个新标签.我无法使用其他方法打开链接,因为它需要在加载时获取我网站的某个成员的ID.我也无法创建一个javascript函数,因为我有多个链接要打开.
target="_blank" //didn't work
这是我的一段代码:
<a onclick="javascript:location.href='website.com' + location.search"><a/>
如果还有其他方法可以做到这一点,请告诉我.
如何在Excel VBA中减去时间？我试图减去这两个值,但我得到这个值"2.1527777777778E-02".这是什么意思？
Timein = 12/7/16 12:00:00 AM
超时= 12/7/16 12:30:00 AM
这是我的代码示例.提前致谢.
Dim Total as Double
Dim Timein as Date
Dim Timeout as Date
Total = TimeValue(Timeout) - TimeValue(Timein)
'Result Total=2.1527777777778E-02