1樓:匿名使用者
option base 1
sub sort()
dim r as integer
dim j as integer
dim k() as integer
dim tnum as string
r = [b65536].end(xlup).row
set d = createobject("scripting.dictionary")
j = 1
for i = 3 to r
cells(i, 2) = trim(cells(i, 2))
cells(i, 3) = trim(cells(i, 3))
if cells(i, 2) = cells(i - 1, 2) then
redim preserve k(j)
k(j) = i
j = j + 1
else
if j > 1 then
for a = k(1) - 1 to k(j - 1)
if not d.exists(cells(a, 3).text) then
d.add cells(a, 3).text, ""
tnum = tnum & "/" & cells(a, 3).text
end if
next
range("c" & k(1) - 1 & ":c" & k(j - 1)).clearcontents
range("c" & k(1) - 1 & ":c" & k(j - 1)).merge
range("c" & k(1) - 1 & ":c" & k(j - 1)) = right(tnum, len(tnum) - 1)
tnum = ""
d.removeall
end if
j = 1
end if
next
set d = nothing
end sub
2樓:小李無刀
先排序,最簡單的就是逐行判斷b列,如果本單元格內容和上一格相同,剛c列就等於上一格加上"/"再加上本列,如果不相同,就把b列內容和上面的內容寫入另一個地方,最後就ok
在excel中如何使用vba插入一個按鈕,使其點選按鈕實現在**中單元格輸入的功能
3樓:陽光上的橋
考點是靜態變數,**如下:
option explicit
sub x()
static x
x = x + 1
sheets("sheet2").range("c3") = sheets("sheet1").cells(x, 1)
end sub
在vb6.0中有個timer控制元件,但是在excel巨集中沒有此控制元件,我要想實現在excel巨集中每秒執行一次某一事件,應該怎
4樓:匿名使用者
在excel中插入一個按鈕,然後按alt+f11,插入一個模組,輸入以下**:
option explicit
public k as boolean
sub aa()
sheets("sheet1").[a65536].end(xlup).offset((len([a1]) = 0) + 1) = 100
end sub
sub ontimerun()
if k = false then
exit sub
else
call aa
end if
vba.doevents
end sub
如下圖(點選可放大)
然後雙擊sheet1,輸入以下**:
option explicit
private sub commandbutton1_click()if k = false then
k = true
commandbutton1.caption = "點選取消定時"
call ontimerun
else
k = false
commandbutton1.caption = "點選定時執行"
end if
end sub
如下圖(點選可放大)
求助高手,我想在excel2007中實現一個功能,具體如下:如點選一個人名就能彈出此人的個人資訊等情況。 100
5樓:香格里拉稻草人
這樣的要求只能用窗體來解決,上傳一個窗體示例文件,是沒有密碼的,希望能幫助你。如不太明白請扣二二五二八零九二三八
不知道這麼會事 **需要點選才能檢視
6樓:冰爽哈啤酒
1.人名及相關個人資訊錄入到一個表裡,如sheet1
2.在sheet2裡放人名列表
3.點選彈出資訊框要視你的sheet1而定。先完成sheet1後發上來再說吧
7樓:
vba,設計一個窗體,點選人名後彈出該窗體,在窗體裡可以修改資訊。
8樓:匿名使用者
將相關資料輸入在一個工作表中,在要顯示的工作表中利用vlookup函式
9樓:匿名使用者
設定一個控制元件!用觸發器可以實現!
請高手幫忙解夢,請高手幫忙解夢
首先 夢境與現du實的物鏡無關 zhi 其次 1 夢是dao人心回 理感受的成像 2 夢是人心理願望的滿足 3 夢來自答人身體的內部與外部的刺激 4 夢者近來聽到或看到與夢境有關的物鏡的心理感受成像夢是身體的工具也許身體是夢的工具,自己總會解讀一些事情的。主要來自身邊事給自己感受的成像。你好,這個夢...
請高手幫忙解夢,請高手幫忙解夢
1.昨晚吃了甲魚,後來做夢抓了好多甲魚哦 lz慾望的發洩,說明吃甲魚給lz留下了好的影響,想吃更多的甲魚。2.抓到最後的時候出現了一條蛇,有很多人在,但那條蛇就是針對我來的,直接來咬我 這段反映的是lz最近生活中因為遇見了一個棘手的問題而產生了緊張焦慮的情緒,這個問題讓lz困惑。3.旁邊的人說快把它...
請高手幫忙裝機,請高手幫忙裝機!!
cpu intel 酷睿2雙核 e7200 散 主機板 技嘉 ga p31 s3g 記憶體 威剛 2gb ddr2 800 硬碟 希捷 250g 7200.10 8m 串列埠 5年盒 顯示卡 影馳 9600gt中將版 光碟機 三星 ts h652h lcd 三星 913nw 機箱 航嘉 聖火一 h1...