返回列表 上一主題 發帖

如何更改其他股號,要哪些步驟?

如何更改其他股號,要哪些步驟?

請教版大高手指點;謝謝~~
1.我在[匯入]欄,操作[資料]→[匯入外部資料]→[編輯查詢]→把[2303聯電]改成[2330台積電]→[記錄]欄卻不能更新成[2330台積電]Data,5分鐘後又還原[2303聯電]請問如何處置?更改其他股號,要哪些步驟?
2.範例:10秒更新資料=>Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  '設定 10秒後 執行 MyDee 程序
    Exit Sub
要改成5分更新資料=>Application.OnTime Now + TimeValue("00:05:00"), "MyDee"  '設定 5分後 執行 MyDee 程序
這樣對嗎?要如何存檔?

股票紀錄.zip (15.57 KB)

50 字節以內
不支持自定義 Discuz! 代碼

回復 17# c_c_lai
Mead版大c_c_lai版大;你們好;
感謝兩位先進反覆指導,讓新手練習、體會
再次向兩位說聲 "感激兩位先進"!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 18# GBKEE
原來是取出其最大值。

TOP

回復 17# c_c_lai
取消註解 看看
是說明 [    ]   的用法

TOP

本帖最後由 c_c_lai 於 2012-4-28 11:07 編輯

回復 16# GBKEE
經測試終於體會了,早起的鳥兒真的有蟲吃!

  Sub Ex()
        ' [xxx]  'xxx 為活頁簿的物件 或函數  但不可以是變數
        ' MsgBox [max({5,100,9})]
       [工作表1!B3] = 0.666
        [工作表1!B3].NumberFormatLocal = "h:mm;@"
       MsgBox [工作表1!B3]                   '傳回的是值   .Value                 0.666
       MsgBox [工作表1!B3].Text          '傳回的傳回儲存格的格式       15:59
       [工作表1!B4] = [工作表1!B3]       '帶入的是值   .Value                 0.666
       [工作表1!B5] = [工作表1!B3].Text  '帶入的是儲存格的格式       15:59
          'Rng.Value = .ResultRange.Rows(3).Value
        'Rng 第2個位置是 數值 將它設定 為時間格式
        'Rng.Cells(2).NumberFormatLocal = "h:mm;@"      
    End Sub

我將 MsgBox [max({5,100,9})] Marked,發現好像無作用,
請問它有何作用?

TOP

本帖最後由 GBKEE 於 2012-4-28 10:37 編輯

回復 15# c_c_lai
  1. Option Explicit
  2. Sub Ex()
  3.      '[xxx]  'xxx 為活頁簿的物件 或函數  但不可以是變數
  4.     MsgBox [max({5,100,9})]
  5.    [紀錄!B3] = 0.666
  6.     [紀錄!B3].NumberFormatLocal = "h:mm;@"
  7.     MsgBox [紀錄!B3]          '傳回的是值   .Value
  8.     MsgBox [紀錄!B3].Text     '傳回的傳回儲存格的格式   

  9.       'Rng.Value = .ResultRange.Rows(3).Value
  10.     'Rng 第2個位置是 數值 將它設定 為時間格式
  11.     'Rng.Cells(2).NumberFormatLocal = "h:mm;@"
  12.    
  13. End Sub
複製代碼

TOP

回復 14# GBKEE
請教您,代號 = .[C1] 的 [C1] 其本身在定義上指的是 Range 還是 Cells, 它們轉出值會是 Value 還是 Text?
當然在設定時,就已非常清楚該欄的屬性, 我要了解的是它在應用面上正確的使用。
譬如說之前提過的:如果該欄位是時間欄,但該欄 "A3" 儲存的是 "=TIME(LEFT(A2,LEN(A2)-4),MID(A2,LEN(A2)-3,2),RIGHT(A2,2))"
或是 A3 是 Web 直接匯入的時間,但該欄位格式並非 "時間",也許是 "自訂" 也說不定,那麼此時   時間 = .[A3],
所得到的值會是 0.604166667 還是 14:30 (假設當時時間為 02:30:00 PM)? 應該如何去做正確的宣告?

TOP

回復 12# cfuxiong
隨這Excel 存檔就可以存檔 或 匯出存檔 其他 Excel 檔案 可匯入使用
進入 VBA  視窗 還有一途徑
如圖
                        

TOP

回復 12# cfuxiong
回復 11# GBKEE
我將 GBKEE 大大的程式 (稍加修飾) 放入 股票紀錄2, cfuxiong 老弟的放入到 股票紀錄1 中,最先的檔案當然是 股票紀錄 了。
前兩者都是將程式碼放置在 ThisWorkbook 程式區內執行的, 同時 C1 欄位異動的檢查程式碼也跟著修正 (原本是 "Module1.MyDee"),
  1. '   Sheet2 (紀錄)  的程式區域
  2. Option Explicit

  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     If Target(1).Cells = [C1] Then Run "ThisWorkbook.MyDee"
  5. End Sub
複製代碼
願兩位有個愉快的周位夜晚!
股票紀錄.rar (12.55 KB)
股票紀錄1.rar (13.13 KB)
股票紀錄2.rar (11.43 KB)

TOP

回復 11# GBKEE
GRKEE版大晚安;我是新手問題特別多;請問貼上VBA程式不知如何儲存~~~
我操作如下[工具]→[巨集] →[VB編輯器] →貼上VBA程式=>要如何儲存?
能否指導?謝謝~~
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題