請高手幫我寫excel vba程式,實現自動記錄A列最近3日內資料

2022-06-10 11:46:30 字數 3121 閱讀 7393

1樓:常懷慈忍

如果每天都會開啟**,而且a列資料每天不同時刻開啟的資料都相同,實現應該不難。如果不開啟**的情況下讓它自動記錄,就不知道有沒有辦法了。

excel裡vba如何實現1列輸入資料,2列自動出現時間;3列輸入資料,4列自動出現時間……如圖功能再擴充些 5

2樓:匿名使用者

你圖裡面的**已經是實現任意列輸入後,下一列自動出現時間了哦,它用的是worksheet change事件,邏輯就是在你輸入的單元格後一列自動輸入系統時間now,所以無論你輸哪一列的單元格,下一列時間就自動出現了

3樓:

你好,可以的,私信我,謝謝

excel高手用vba將a列數值存入一個陣列

4樓:

sub t()

mrow=cells(rows.count,1).end(3).row

arr=range(cells(1,1),cells(mrow,1))

end sub

高手請進!excel vba觸發事件從b列至xx(很多列)列開始輸入資料,側對應a列自動顯示當天時間!

5樓:平陽虎

試試以下**

private sub worksheet_change(byval target as range)

if target.row > 2 and target.column > 1 and target.column < 25 then

cells(target.row, 1) = now()end if

end sub

6樓:張小順

private sub worksheet_change(byval target as range)

if target.row > 2 and target.column > 2 then

cells(target.row, 1) = dateend if

end sub

7樓:

發檔案來吧,我給你看看

excel vba如何使用巨集實現:判斷a列資料是否一致,不一自動提示??

8樓:匿名使用者

首先你得替vba問a列的每一個資料,然後仔細的聽回答。最後給出提示。

9樓:飛雨飄

怎麼觸發?修改時還是開啟工作薄時?

excel vba如何實現批量自動按序號選擇貼資料,將上表的資料自動貼入下面一個表,根據a列的編號來貼入 10

10樓:匿名使用者

第6 行        '這個是你要輸出的(圖2的)列的序號

第7行         '這個是你的第一列需要查詢a1:a30的範圍(a1:a100就可以改為for j = 1 to 100)

第8行         'sheet2改成你工作表圖1工作的名稱(名稱注意有沒有空格),同理a1:a30也要改

第9行        'sheet3改成你工作表中圖2工作的名稱(同樣的注意名稱有沒有空格)

第13行      k-3 的意思是輸出的結果的**(也是列的序號)。

sub vlookup相 ()

dim i as long

dim j as long

dim k as integer

dim rng as range

for k = 5 to 11

for j = 1 to 30

for each rng in worksheets("sheet2").range("a1:a30")

if rng = worksheets("sheet3").cells(j, 1) then

i = rng.row

end if

next

worksheets("sheet3").cells(j, k) = worksheets("sheet2").cells(i, k - 3)

next j

next k

end sub

11樓:匿名使用者

當然可以

with 表2『表名更具實際情況

for x1= 3 to 30'根據實際

a1=.cells(x1,1)

with 表1『表名更具實際情況

for x2 = 3 to 30'根據實際a2=.cells(x2,1)

if a1=a2 then

'新增複製資料**

exit for

end if

next

end with

next

end with

12樓:匿名使用者

假設第一個是左起第一個表,第二個是左起第二個表sub 匹配()

dim arr, d as object, brr, i, jarr = sheets(1).range("a2:i30")set d = createobject("scripting.

dictionary")

for i = 1 to ubound(arr)for j = 1 to ubound(arr, 2)d(arr(i, 1) & "-" & arr(1, j)) = arr(i, j)

next

next

brr = sheets(2).range("a2:k30")for i = 2 to ubound(brr)for j = 5 to ubound(brr, 2)brr(i, j) = d(brr(i, 1) & "-" & brr(1, j))

next

next

sheets(2).range("a24:i41") = brrend sub

13樓:匿名使用者

如果no.不重複,可以用vlookup

b3=vlookup($a2,sheet1!$a:$h,column(),)

向右向下填充

14樓:小xx寶

不太明白 掃噶

請高手幫我周公解夢,請高手幫我解夢

夢見睡覺詳細寓意 夢見自己進入夢鄉,是不祥之兆,災難會降臨。女人夢見自己沉昏大睡,會生女孩。少女夢見自己睡了,會與一個無能的男子訂婚。青年男子夢見自己矇頭大睡,至今還沒有人來提過親。夢見有人打擾了自己的睡眠,所從事的事業有發展。病人夢見睡眠被打擾,身體很快會 商人夢見失眠,生意會興旺,能賺很多錢。夢...

請高手幫我解夢,謝謝,請高手幫我解夢,謝謝!

根據心理學家常年大量研究,同一晚上所作的夢,很可能代表了同一主題。比如夢者你這2個夢,看上去雖然風馬牛不相及,但是仔細分析後就知道,你這2個夢的主題,都是有關自身成長的夢。1 大毛毛蟲變成蝴蝶,這是生物進化的一次質變,而出現在夢境中,則代表你現在的成長,代表你現在身理 心理 思想的進化和蛻變。夢是潛...

高手請幫我制定健身計劃,謝謝,高手請幫我制定一個健身計劃,謝謝

您好!當您入會以後英派斯健身俱樂部會馬上匹配一個私人教練為您做一個體適能檢測根據的體側報告做健身計劃,因為每位會員的身體狀況不同,所以計劃要根據您的身體情況和健身目的而定。所謂的體適能檢測是根據您的皮脂含量,柔韌度,肌力,耐力,心肺功能等等以及問卷調查來擬定出一套最安全最有效的健身計劃給您。健身計劃...