請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 75# GBKEE
我再次重新 DEBUG 一次，結果是：
雖然在實務上我知道要如何處哩，但人活著就是要多多學習，
不熟悉的語法要深切去瞭解，不是嘛？ |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
72#
發表於 2012-10-16 10:30
| 只看該作者
回復 73# GBKEE
因為我非正科班出身，這行語法內的 Offset(2) 指的是？
是從第一列起算之下兩行 (即第三列) 起刪除，還是？
如果他有三列以上吻合條件的資料項又是如何處理？ |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
70#
發表於 2012-10-16 09:55
| 只看該作者
回復 70# c_c_lai
附上執行後之圖示畫面：
|
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
69#
發表於 2012-10-16 09:45
| 只看該作者
回復 69# GBKEE
我指的是：- Option Explicit
- Sub Ex()
- Dim Car_No As String, xlRow As Integer
-
- With Sheet1
- .Activate
- .AutoFilterMode = False
-
- Car_No = InputBox("請輸入車號")
- If Car_No = "" Then MsgBox "沒輸入 車號 ??" & Car_No: Exit Sub
-
- .Rows(2).Cells(1).AutoFilter Field:=9, Criteria1:=UCase(Car_No) ' 9 - 車號
- ' AutoFilter 執行完畢後，此時工作表單內容僅會顯示與Car_No條件吻合之資料項。
- ' 假設原有5筆紀錄，而吻合條件的只有2筆，那此時表單內容只顯示出那2筆資料錄。
- xlRow = .Rows(2).Cells(9).End(xlDown).Row
-
- If xlRow <> Rows.Count Then ' Rows.Count = 65536
- .Cells.SpecialCells(xlCellTypeVisible).Copy ' 將表單內所有內容複製。
- Else
- MsgBox "找不到 車號 !! " & Car_No: Exit Sub
- End If
-
- With Sheets.Add(, Sheets("sheet1")) ' 在原sheet1後新增一個工作表單(工作表1)
- .Paste ' 將複製之所有內容貼入至新表單內。
- Application.CutCopyMode = False
- .Name = .[i3] ' 將新增之工作表單，命名為Car_No的內容。
- .[a1].Select ' 將游標移至 A1 欄位上。
- End With
-
- .Rows(xlRow).Delete ' 將原sheet1內第xlRow列資料項刪除掉。([color=Red]Why?[/color])
- .AutoFilterMode = False
- .Activate
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
68#
發表於 2012-10-16 09:39
| 只看該作者
回復 68# minyow
間格時段可依你個人需求予以更動的，
譬如： 一秒、五秒、十秒、二十秒、三十秒等，
亦或是一分、五分、十分、二十分、三十分。
你只要異動間格時段該欄位值即可，非常方便。
盤中修正它會在異動後之下一輪迴自動修正的。 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
67#
發表於 2012-10-16 09:03
| 只看該作者
回復 67# c_c_lai
對樓主的發問不太明瞭 回覆有說 是這樣嗎?
如有2筆資料 須修改為- .Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(2).Delete xlUp
|
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 3
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- WINDOWXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- TAIWAN
- 註冊時間
- 2012-10-15
- 最後登錄
- 2012-11-25
|
66#
發表於 2012-10-16 08:57
| 只看該作者
|
|
我
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
65#
發表於 2012-10-16 08:39
| 只看該作者
回復 66# GBKEE
我知道，這是故意放上的，因一開始會顯示 UserForm1 不好看才放上的，
謝謝您！
順便請教，在如何自動篩選+存到新工作表裡，最後為什麼要 .Rows(xlRow).Delete
刪除 xlRow 那筆紀錄呢？ 因為它有 2 筆呢。 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
64#
發表於 2012-10-16 08:28
| 只看該作者
回復 65# c_c_lai
你已將兩個程序各加入showUsrForm,請按 F8 執行 Sub 摩台價差() 可看看 UserForm1.Show 是如何操作
- Private Sub UserForm_Initialize() 'UserForm(表單) 初始化時的事件程序
- ' If Caption = "UserForm1" Then Caption = Format(Now, "Dddddd ttttt ")
- ' 這 If Caption = "UserForm1" 是多餘的
- Caption = Format(Now, "Dddddd ttttt ")
- End Sub
|
|
|
|
|
|
|
|
