請各位先進幫忙改我的VBA - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請各位先進幫忙改我的VBA

1 234 下一頁

返回列表下一主題上一主題發帖

請各位先進幫忙改我的VBA

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

21^# 跳轉到 »

發表於 2010-10-20 18:46 | 只看該作者

謝謝GBKEE

也是放在模組嗎

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2010-10-20 19:03 | 只看該作者

回復 21# junsean
對的
或是在ThisWorkbook 模組的 Private SubWorkbook_Open() 也可以

Private Sub Workbook_Open()
yy
xx
End Sub

複製代碼

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

23^#

發表於 2010-10-20 19:36 | 只看該作者

感恩GBKEE
還有oobird
謝謝你們

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

24^#

發表於 2010-10-21 09:23 | 只看該作者

今天試用可以用了
可是每次都記錄3筆(同樣的數據)
好奇怪
不是每次記錄1筆嗎

請各位大大幫幫小弟謝謝

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

25^#

發表於 2010-10-21 11:20 | 只看該作者

回復 24# junsean
附檔來看看

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

26^#

發表於 2010-10-21 19:44 | 只看該作者

附檔

麻煩您了

今天大部分是
一次記錄3筆重複的數據

DDE.rar (105.62 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

27^#

發表於 2010-10-21 21:36 | 只看該作者

回復 26# junsean
一次記錄3筆重複的數據不會呀! 會不會是你的數據沒有變動的錯覺.
已加上時間欄,你現在到23:45:00前可測試看看.

Sub yy()
With Sheet1
If Time <= TimeValue("08:44:50") Then
.Range("A3:G50000") = ""
Application.OnTime TimeSerial(8, 45, 0), "yy"
End If
If Time >= TimeValue("08:45:00") And Time <= TimeValue("23:45:00") Then
ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], Time)
.[A65536].End(xlUp).Offset(1, 0).Resize(, 8) = ar
Application.OnTime Time + TimeSerial(0, 0, 10), "yy"
End If
End With
End Sub
Sub xx()
With Sheet2
If Time <= TimeValue("08:59:50") Then
.Range("A3:J50000") = ""
Application.OnTime TimeSerial(9, 0, 0), "xx"
End If
If Time >= TimeValue("09:00:00") And Time <= TimeValue("23:32:10") Then
ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], .[H2], .[I2], .[J2], Time)
.[A65536].End(xlUp).Offset(1, 0).Resize(, 11) = ar
Application.OnTime Time + TimeSerial(0, 1, 0), "xx"
End If
End With
End Sub

複製代碼

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

28^#

發表於 2010-10-21 21:54 | 只看該作者

應該不是錯覺

請看今天記錄的圖

Noname.png (36.33 KB)

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

29^#

發表於 2010-10-21 22:07 | 只看該作者

測試ok

可是盤中真的一次記錄3筆
我明天再試試

謝謝GBKEE

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

30^#

發表於 2010-10-22 21:44 | 只看該作者

今天終於可以用了

太感謝您了GBKEE

還有oobird
也要謝謝您

靜思自在 : 小事不做、大事難成。

1 234 下一頁

返回列表下一主題上一主題