w3cschool
工作中遇到的問題，專案組長給了乙個excel，讓分析其中包含的字元含義，由於每頁條數太多，導致看不出來要分析的字元在一長串字元中的位置。於是想把其中要注意的字元標註顏色，網上找資料，發現excel中本身沒有這個功能，於是下了下面的**進行處理，順便學習下vbs的基本語法格式。
未執行指令碼前三個sheet的樣子如下：
執行指令碼後三個sheet樣子如下：
最後上指令碼**如下：
sub macro1()
dim loopnum as
integer
foreach wsh in worksheets
'找出sheet名稱並提取相應的字串
findstringarray = split(wsh.name, "_")
findstring = findstringarray(0)
lengthstring = len(findstring)
'遍歷所有sheet中的所有的**
totalrows = wsh.usedrange.rows.count
for loopnum = 1
to totalrows
vlaueincell = wsh.cells(loopnum, 1).value
posstart = instr(lcase(vlaueincell), lcase(findstring))
if posstart > 0
then
with wsh.cells(loopnum, 1).characters(start:=posstart, length:=lengthstring).font
.color = -16777024
'.color = 0
endwith
endif
next
next
endsub
wordcount例子程式
hadoop 0.20.1裡的wordcount源 與0.19.2已經有較大的區別了。在新版本的hadoop中，org.apache.hadoop.mapred包被org.apache.hadoop.mapreduce所取代。不過為了保持相容性，org.apache.hadoop.mapred還是存...
建立視窗的例子程式
include pragma comment lib,winmm wparamword paramlparamlong param lresult callback wndproc hwnd,uint,wparam,lparam intwinapi winmain hinstance hinstan...
std set一些例子程式
include include include include using namespace std int main 下面給出乙個關鍵字型別為char 的示例 include include include using namespace std struct ltstr int main co...