寫的第乙個excel的巨集

sub

doloop()
dim lwxm as
string
dim dydw as
string
dim temp as
string
'sheet4.rows.count
dim res() as
integer
dim index as
integer
dim lwxmindex as
integer
'定義勞務專案名稱所在列索引
lwxmindex = 4
for i = 1
to247
'如果勞務專案列為空，跳出迴圈
if sheet4.cells(1, 2) = ""
then
exit
forend
ifredim res(247
) res(
0) = 1
index = 1
'將原始資料第一行複製到新sheet
sheet5.cells(i, 1) = sheet4.cells(1, 1
) sheet5.cells(i, 
2) = sheet4.cells(1, 2
) sheet5.cells(i, 
3) = sheet4.cells(1, 3
) 
lwxm = sheet4.cells(1, 2
) dydw = sheet4.cells(1
, lwxmindex)
'迴圈查詢和第一列勞務專案名稱相同的單元格，相同則加入到新的對應單位字串中
for j = 2
to247
temp = sheet4.cells(j, 2
) 
if temp <> ""
and lwxm = temp then
dydw = dydw + "
、" +sheet4.cells(j, lwxmindex)
'記錄匹配成功的行號
res(index) =j
index = index + 1
endif
next
'將新的對應單位賦值給新sheet
sheet5.cells(i, lwxmindex) =dydw
'刪除原始資料中匹配完成的行
for m = ubound(res) to
0step -1
if res(m) > 0
then
sheet4.range(res(m) & "
:" & res(m)).delete shift:=xlshiftup
endif
next
next
'sheet4.cells(1, 5) = str
end sub

今天要處理乙個excel**，大體目標：把相同勞務專案的行合併，並將對應單位合併到乙個單元格裡面。

程式很爛，而且可重用性基本沒有。

初次接觸，純粹練手。

寫的第乙個Shader

第乙個茶壺是可以運動的紋理,用時間的正弦值和余弦值加在紋理座標上產生偏移實現的,可以考慮用來實現水面的各種效果 第二個茶壺是顏色和紋理的混合,多層紋理的混合應該也是同樣的道理,就是把顏色值相乘就可以了 anipass float4x4 matviewprojection float fsintime...

使用beautifulsoup寫的第乙個小爬蟲程式

昨天才剛學的這個爬蟲的第三方庫，被它的強大所震撼，以下為自己寫的爬蟲的程式 coding utf 8 import urllib2 from bs4 import beautifulsoup import re url response urllib2.urlopen url soup beauti...

兒子寫的第乙個程式

今天上六年級的兒子放學時告訴我，他們學logo語言了。他覺得開頭太簡單，就自己向後面翻著看了看，看到乙個repeat語句，於是試著寫了一段程式 repeat 360 fd 1 lt 1 大意是 迴圈360次，在每次迴圈中，畫一根 然後旋轉1度。最終應該是乙個圓。當他敲下回車的時候，小海龜真的畫出乙個...