我有字符串strInfo,其中包含"Employee John Maybach".
如何将"员工"部分设为黑色文本,将"约翰迈巴赫"部分设为红色？
"员工"部分将始终保持不变,但员工的姓名部分将更改为可能是由两部分组成的名称(John Doe),或者由三部分组成的名称(John Allen Doe)或仅仅是名字(约翰).
我希望"员工"这个词总是黑色的,但是单元格中的其余部分,即名称部分,都是红色的.这可能吗？
是否可以在Excel单元格中创建一个超链接,该单元格仅使用可单击链接的单元格文本部分？IE下面的表样机是否代表了可以在Excel 2010中轻松构建的东西？
模拟http://dl.dropbox.com/u/14119404/misc/Microsoft%20Excel%20-%20Book1_2012-04-16_14-24-47.jpg
据我所知,我知道整个单元格可以轻松制作成超链接,但不是单元格的特定部分.
通过超链接我也可以参考
谢谢
我可以知道如何启用(SHEET1中的CELL A1)
=INDIRECT('SHEET2.A1')
相应地拖动列和行而不必逐个输入
VBA Powerpoint.我该如何设置环境当前目录？
我也试过这段代码:
Sub test()
Dim sPath As String
sPath = ActiveWorkbook.Path
MsgBox sPath
End Sub
但是说: Object required
请帮我把它搞定......
在我当前的VBA代码中,我有一个查询,我在其中使用在我的Chr(34)一些变量之间加上引号.
我想知道这有什么替代方案.这是一个简单的问题,我知道,但我没有成功重复这样的引号
"&变量字符串在这里&"
我的代码对于一个人而言是混乱的,对于不熟悉VBA的人来说是不可理解的:
comboService = Chr(34) & Me.Combo8.Value & Chr(34)
此外,这没有奏效:
comboService = """" & Me.Combo8.Value & """"
你能告诉我为什么吗？
提前致谢.
我有一个脚本打开excel文件并运行宏,然后退出该文件.由于文件处于只读模式,并且脚本对文件进行临时更改,因此当脚本调用myExcelWorker.Quit()excel询问我是否要保存更改时,必须单击"否".有没有办法退出程序并跳过此框？
' Create a WshShell to get the current directory
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
' Create an Excel instance
Dim myExcelWorker
Set myExcelWorker = CreateObject("Excel.Application")
myExcelWorker.Visible = True
' Tell Excel what the current working directory is
' (otherwise it can't find the files)
Dim strSaveDefaultPath
Dim strPath
strSaveDefaultPath = myExcelWorker.DefaultFilePath
strPath = WshShell.CurrentDirectory
myExcelWorker.DefaultFilePath = strPath
' Open the Workbook specified on the command-line
Dim oWorkBook
Dim strWorkerWB
strWorkerWB = strPath & "\BugHistogram_v2.xlsm"
Set oWorkBook …我试图通过VBA在Excel 2013中确定ActiveCell是不是只在任何表中,而是在特定的表中.
下面是代码,但只检测ActiveCell在任何表中.注释掉的行是我正在寻找的,但显然它不起作用.
...
Set rng = Intersect(.EntireRow, ActiveCell.ListObject.DataBodyRange)
'Set rng = Intersect(.EntireRow, ActiveCell.ListObjects("myTable").DataBodyRange)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "Please select the cell of a row within the consensus input table.", vbCritical, "Delete Evaluator"
Else
...
有关正确语法的任何建议吗？
谢谢!
我试图使用vba将变量数组转换为字符串.我尝试了两种方法,但没有它们起作用,它们似乎都在同一点上集中.
Dim cell As Range
Dim val As Variant
For Each cell In Range("packing_list[Code]")
val = cell.Value
Next cell
MsgBox Join(val, "//")
和
Dim oSh As Worksheet
Dim CodeRange As Variant
Set oSh = ActiveSheet
CodeRange = oSh.Range("packing_list[Code]").Value
MsgBox Join(CodeRange , "//")
它们都是MsgBox行上的错误.我做错了什么？
谢谢
昨晚我碰到了一些东西,让我疯了十分钟,十五分钟才发现它.但我不明白为什么会这样,所以我希望有人可以解释.
从VBA IDE中的立即窗口:
?Format(0.5, "HH:MM AM/PM")
12:00 PM
?Format("0.5", "HH:MM AM/PM")
12:05 AM
?Format(CDbl("0.5"), "HH:MM AM/PM")
12:00 PM
从这个页面我看到0.5应该对应于12:00 PM,因为一小时是0.04166 ...((12 * (1/24) = 0.5)).正如你所看到的,如果我传递一个数字,Format()但是如果我传递与字符串相同的数字则不会.
根据同一页面的信息,1分钟为0.00069444 ...((1/(24*60))),意味着上午12:05应存储在Excel中为0.003472222((0 * (1/24)) + (5 * (1/(24*60)))).事实上:
?Format(0.003472222, "HH:MM AM/PM")
12:05 AM
更奇怪的是我不明白:
?Format(2.5, "HH:MM AM/PM")
12:00 PM
?Format("2.5", "HH:MM AM/PM")
02:05 AM
但...
?Format(2.523, "HH:MM AM/PM")
12:33 PM
?Format("2.523", "HH:MM AM/PM")
12:33 PM
我在文档中找到的所有内容都表示"时间存储为实数的一部分.小数点右侧的值表示时间.例如,中午(中午12:00)表示为0.5." (来自Excel 2010的内置VBE词汇表)因此,2.5应该导致12:00 PM的时间,因为小数点右边的部分是,0.5并且 …