VB：在工作表中突出显示Excel单元格

Question

我想知道是否可以创建一个vbs文件来突出显示Excel工作簿中的单元格。

我有一个具有多个计算机主机名的excel工作表，我还批量运行了一个脚本，可ping通文本文件中的每个主机名。 如果ping结果成功，我想调用vbs文件以突出显示excel中的单元格。 这可能吗？

谢谢！

迪米特里

Answer 1

有很多方法可以执行此操作，但是我必须问为什么在Excel中可以正确执行此操作时，为什么要使用批处理脚本和文本文件来ping主机名？

有两种方法可以执行此操作：一种较为复杂且正确，另一种则又快速又脏。 坦白地说，我建议您快速又肮脏。

正确方法：从Windows kernel32.dll中声明ReadConsole和WriteConsole方法，并利用它们来获得ping的结果。 这里描述得很好：

http://visualbasic.about.com/od/learnvb6/l/bldykvb6dosa.htm

问答方式：使用VBA中的内置Shell（）函数并将ping的输出通过管道传输到文本文件。 解析所述文本文件，并在完成后将其删除。

例如

for each currCell in hostnameRange
   ' Ping each hostname and pipe the results to a file
   shell "ping " + currCell.value + " >> ping_result.txt"
next currCell

inFile = FreeFile()
Open "ping_result.txt" for Input as #inFile

fileBuffer = Input$(LOF(inFile ), inFile) ' Open and read the file to a buffer

for each currCell in hostnameRange
   ' Search for ping failures in the buffer
   if instr(1, fileBuffer, "could not find host " + currCell.value) = 0 then
        debug.print "Ping successful."
   end if
next currCell