有無CHING可以幫我寫個VBA

我唔識點寫,但知道我想要的FUNCTION要用timevalue Vba去寫, 希望有CHING可以幫我做到,THX

擷取.JPG
2019-2-7 14:21


首先,I列就是檔案的排序,然後將次序順序寫入去A1, 即係A1 會輸入4次,檔案2>檔案1>檔案3>檔案4, 但是寫入A1位係需要時間例數,即係A1輸入完檔案2 2分鐘後就會輸入檔案1, 輸入完檔案1 1:15分後輸入檔案3, 2:20後再輸入檔案4

希望大家睇得明啦

回覆 1# speed

你係完全唔識寫?  還是有D地方卡住左?
你個case, 我覺得唔係好難(未有時間寫), 用2次for loop/ 比較時間/比較檔名 /copy and paste

TOP

本帖最後由 speed 於 2019-2-7 23:05 編輯

回覆 2# bongbong3481


自己的VBA多數都係抄返黎再自己執一執, 完全唔識寫,google過例仔

Application.OnTime Now + TimeValue("00:00:03"), "Module2.abc"

3秒後執行MODULE2,想問下TimeValue內的括號可唔可以用F4內的數格去代替?

TOP

回覆 3# speed

你完全唔識寫,幫你寫左出黎,會唔會唔識 run 個VBA?   ,   我不是講笑的

TOP

回覆 4# bongbong3481


唔會掛,我都有用過好多vba的excel

TOP

本帖最後由 myricky 於 2019-2-8 15:07 編輯

open file time interval我改短左黎試, 自己改返.

Sub showaname()
Dim data(100, 10)

Cells(1, "a") = ""
totalrow1 = Cells(65000, "e").End(xlUp).Row

For i = 4 To totalrow1
n = n + 1
data(n, 1) = Cells(i, "e")
data(n, 2) = Cells(i, "f")
Next i

totalrow2 = Cells(65000, "i").End(xlUp).Row

For i = 4 To totalrow2
For j = 1 To n
If Cells(i, "i") = data(j, 1) Then
    Cells(1, "a") = Cells(i, "i")
    curtime = Now()
10:
    DoEvents
    checktime = Now() - curtime
    If checktime <= data(j, 2) Then
    Application.StatusBar = "Count down for changing next file (" & Format(data(j, 2) - checktime, "hh:mm:ss") & ")"
    DoEvents
    GoTo 10
    End If
GoTo 20
End If
Next j
20:
Next i

Application.StatusBar = "Ready"
End Sub



Resize 001.jpg
2019-2-8 15:02

TOP

回復 6 #myricky

今晚試試效果。thx ching

via HKEPC Reader for Android

TOP

回覆 6# myricky

呢位仁兄太西厲了,我真係寫唔出咁簡短既code

TOP

回覆 6# myricky


唔係咁識睇,係唔係佢會loop 20次? 即係有4個播到4之後佢係會自動停執行定係會執行第5的空白去到20次就停?

TOP

回覆  myricky


唔係咁識睇,係唔係佢會loop 20次? 即係有4個播到4之後佢係會自動停執行定係會執行第5的 ...
speed 發表於 2019-2-8 23:19


唔係. 你係咪要求file2, 1, 3, 4按次序放係A1, 每隔相對時間(column f)就轉一下個? 我就係做緊呢樣野.

你照抄d code睇下咪係按你心目中所想先.

TOP