123456
返回列表 上一主題 發帖

請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
21# 跳轉到 »
發表於 2012-10-15 14:03 | 顯示全部帖子
回復 55# devidlin
交給你了。 (ThisWorkbook)
元大-盤中DDE紀錄1015.rar (22.51 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
22#
發表於 2012-10-15 16:32 | 顯示全部帖子
回復 57# devidlin
如你所言，可能就要透過 VB、或是其它語言工具 來完成了。
倘若只是土法煉鋼，那就是在 Excel 內另尋一區塊將此四個
運算放在一起，當作是一個標的來檢視。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
23#
發表於 2012-10-15 18:53 | 顯示全部帖子
回復 59# GBKEE
  1.     If xlTile <> "尚未開盤" Then
  2.         Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
  3.         Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
  4.         Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
  5.         Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
  6.     End If
複製代碼
須更正為：
  1.     If xlTile <> "尚未開盤" Then
  2.         Label1.Caption = S & Sheet2.[K1] & S & Round(Sheet2.[K2], 3)
  3.         Label2.Caption = S & Sheet2.[L1] & S & Round(Sheet2.[L2], 3)
  4.         Label3.Caption = S & Sheet2.[M1] & S & Round(Sheet2.[M2], 3)
  5.        Label4.Caption = S & Sheet2.[N1] & S & Round(Sheet2.[N2], 3)
  6.     End If
複製代碼
否則會出現錯誤訊息。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
24#
發表於 2012-10-15 19:39 | 顯示全部帖子
回復 61# devidlin

元大-盤中DDE紀錄1015一經啟動，便同時會開啟UserForm(表單)，
一旦開啟UserForm(表單)後，所有畫面控制權便由表單掌控，此時是
無法切換工作表單的 (如想要閱覽非目前工作表單之內容)。
為解決此困惱，我增加了一個按鈕 "摩台價差"，當你關閉(X)UserForm(表單)後，
你可以透過 "摩台價差"按鈕再次開啟它，此動作是不會引響 DDE 之正常匯入。
雖然會感覺有些不方便，但習慣就好了。
同時在此也要謝謝 GBKEE 版大的協助與指導！
元大-盤中DDE紀錄1015.rar (30.17 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
25#
發表於 2012-10-15 21:26 | 顯示全部帖子
回復 64# GBKEE
我將
1.   Private Sub showUsrForm() 改成 Sub showUsrForm()
2.   下面兩個涵式各加入showUsrForm。
  1. Sub 摩台價差()
  2.     If UserForm1.Visible = False Then
  3.         UserForm1.Show
  4.         showUsrForm
  5.     Else
  6.         UserForm1.Hide
  7.     End If
  8. End Sub
複製代碼
和
  1. Private Sub UserForm_Initialize()         '  UserForm(表單) 初始化時的事件程序
  2.     Dim i As Integer

  4.     '  請先在UserForm(表單) 加入4個 Label控制項
  5.     '  系統自動命名(Label1, Label2 , Label3 , Label4)
  6.     '  請自行調整 4個 Label控制項 的位置,長,寬,高
  7.    
  8.     For i = 1 To 4
  9.         With Me.Controls("Label" & i)
  10.             .TextAlign = 1                      '  fmTextAlignCenter
  11.             .Font.Bold = True
  12.             .Font.Size = 15
  13.             .SpecialEffect = fmSpecialEffectEtched
  14.         End With
  15.     Next

  17.     If Caption = "UserForm1" Then Caption = Format(Now, "Dddddd ttttt ")
  18.     ThisWorkbook.showUsrForm
  19. End Sub
複製代碼
視覺感就OK了。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
26#
發表於 2012-10-16 08:39 | 顯示全部帖子
回復 66# GBKEE
我知道，這是故意放上的，因一開始會顯示 UserForm1 不好看才放上的，
謝謝您！
順便請教，在如何自動篩選+存到新工作表裡，最後為什麼要 .Rows(xlRow).Delete
刪除 xlRow 那筆紀錄呢？ 因為它有 2 筆呢。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
27#
發表於 2012-10-16 09:39 | 顯示全部帖子
回復 68# minyow
間格時段可依你個人需求予以更動的，
譬如： 一秒、五秒、十秒、二十秒、三十秒等，
亦或是一分、五分、十分、二十分、三十分。
你只要異動間格時段該欄位值即可，非常方便。
盤中修正它會在異動後之下一輪迴自動修正的。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
28#
發表於 2012-10-16 09:45 | 顯示全部帖子
回復 69# GBKEE
我指的是：
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Car_No As String, xlRow As Integer
  4.    
  5.     With Sheet1
  6.         .Activate
  7.         .AutoFilterMode = False
  8.         
  9.         Car_No = InputBox("請輸入車號")
  10.         If Car_No = "" Then MsgBox "沒輸入 車號 ??" & Car_No: Exit Sub
  11.         
  12.         .Rows(2).Cells(1).AutoFilter Field:=9, Criteria1:=UCase(Car_No)   ' 9 - 車號
  13.         '  AutoFilter 執行完畢後，此時工作表單內容僅會顯示與Car_No條件吻合之資料項。
  14.         '  假設原有5筆紀錄，而吻合條件的只有2筆，那此時表單內容只顯示出那2筆資料錄。
  15.         xlRow = .Rows(2).Cells(9).End(xlDown).Row
  16.         
  17.         If xlRow <> Rows.Count Then                      '  Rows.Count = 65536
  18.             .Cells.SpecialCells(xlCellTypeVisible).Copy  '  將表單內所有內容複製。
  19.         Else
  20.             MsgBox "找不到 車號 !! " & Car_No:      Exit Sub
  21.         End If
  22.         
  23.         With Sheets.Add(, Sheets("sheet1"))   ' 在原sheet1後新增一個工作表單(工作表1)
  24.             .Paste                            ' 將複製之所有內容貼入至新表單內。
  25.             Application.CutCopyMode = False
  26.             .Name = .[i3]                     ' 將新增之工作表單，命名為Car_No的內容。
  27.             .[a1].Select                      ' 將游標移至 A1 欄位上。
  28.         End With
  29.         
  30.         .Rows(xlRow).Delete                   ' 將原sheet1內第xlRow列資料項刪除掉。([color=Red]Why?[/color])
  31.         .AutoFilterMode = False
  32.         .Activate
  33.     End With
  34. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
29#
發表於 2012-10-16 09:55 | 顯示全部帖子
回復 70# c_c_lai
附上執行後之圖示畫面：

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
30#
發表於 2012-10-16 10:30 | 顯示全部帖子
回復 73# GBKEE
因為我非正科班出身，這行語法內的 Offset(2) 指的是？
是從第一列起算之下兩行 (即第三列) 起刪除，還是？
如果他有三列以上吻合條件的資料項又是如何處理？

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
123456
返回列表 上一主題