1樓:
在當前工作表插入乙個命令按鈕,雙擊後貼上如下**:
private sub commandbutton1_click()
call clearxy '資料處理
end sub
sub clearxy()
dim r&, c&, i&, j&
r = usedrange.rows.row + usedrange.rows.count - 1
c = usedrange.columns.column + usedrange.columns.count - 1
'以上是工作表最大的行列範圍
for i = 1 to r
for j = 1 to c
'msgbox r
if cells(i, j).value <> "" and isnumeric(cells(i, j).value) then
if cells(i, j).value > 1 and cells(i, j).value < 2 then '這裡需要把x.y替換成數字。
cells(i, j).value = ""
end if
end if
next j
next i
msgbox "執行完畢。"
end sub
2樓:揭戈雅
excel vb** 我教你
3樓:匿名使用者
祝樓主好運,好人還是比較多的。
求VB高手幫忙做幾個題,跪求vb高手幫忙做幾題vb選擇題 急!!!會追加分的!謝謝!
打包發給你了,4個按鈕4道題 今日心情不太差,答你個主要程式片吧,基本上修改下就完成的了 1.s text1.text print mid s,2,1 print mid s,1,1 print mid s,3,1 反正既然約定了輸入的是三位整數.直接把text中輸入當字串來弄省事了.2.i val...
求高手幫忙寫個平面設計作品說明!不用寫太好
其次是設計所採用的文字。由於茶文化是中國幾千年文化的精髓,帶有濃郁的民族特色,因此,在茶葉包裝設計的文字方面主要採用了宋體,華文新魏和隸書,這兩種文字可以給人古樸和仙風道德骨的感覺色彩對顧客的心理影響有著十分的重要作用,日本科學家發現對色彩的注意力遠遠大於對形的注意力。遠看色,近看花 形象地說明了色...
求電腦高手幫忙寫個配置單(要求有詳細價格)
主機板 技嘉ep43 us3g 620cpu intel 酷睿2雙核 e7400散裝 740記憶體 威剛 2g ddr2 800 萬紫千紅 2 2 170 硬碟 希捷 500g 7200.12 16m 串列埠 盒 430顯示卡 盈通g9800gt 512gd3遊戲高手 790散熱器 酷冷至尊 冰玲瓏...