麻辣家族討論版版 - Powered by Discuz! Board

標題: 有請解答! 如何製作此一欄位?? [打印本頁]

作者: cheng17875 時間: 2010-7-26 13:30 標題: 有請解答! 如何製作此一欄位??

[attach]1982[/attach]

作者: kimbal 時間: 2010-7-26 13:47

用vlookup等可以從表回傳結果.

你的excel表布局是如何?

作者: cheng17875 時間: 2010-7-26 13:52

本帖最後由 cheng17875 於 2010-7-26 14:03 編輯

用vlookup等可以從表回傳結果.

你的excel表布局是如何?
kimbal 發表於 2010-7-26 13:47

不好意思! 沒說明一時手快
這是由股票軟體直接DDE連結的
你所看到的是 DDE連結的"內碼"
我想在第一欄可以輸入任意股票代碼
能夠取代該列每一欄內的DDE內碼
不知這樣說明看得懂嗎?
[attach]1985[/attach]

作者: jackdream 時間: 2010-7-26 14:19

回復 3# cheng17875

如果用 Worksheet_Change 去觸發更新程序呢?

作者: cheng17875 時間: 2010-7-26 14:29

回復 4# jackdream

不好意思! 不知道怎樣弄啦!
可否給小學生我多一點簡單白話的指示
因為我還不大會其中一些程式

作者: jackdream 時間: 2010-7-26 14:46

回復 jackdream
不好意思! 不知道怎樣弄啦!
可否給小學生我多一點簡單白話的指示
cheng17875 發表於 2010-7-26 14:29

請將以下內容放在 sheet 裡面(不是放在模組裡面)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then '若有更改 A2 內容
If Not Cells(Target.Row, Target.Column) = Empty Then
Call xxx '觸發程序 (xxx 代表指進行股票更新的模組)
End If
End If
End Sub

複製代碼

作者: cheng17875 時間: 2010-7-27 11:09

回復 6# jackdream

我好像搞不起來~~~sorry!我太笨了

真不好意思...
說明如下"
1.我是先開啟券商的免費股市報價軟體
2.然後將個股DDE直接拉到EXCEL儲存格中
3.想要在空白儲存格建立"輸入股票代號" 即可改變該列其他欄位的報價
大大所說的我有寫到儲存格中但好像不能執行
PS:我的是2000

作者: jackdream 時間: 2010-7-27 11:13

回復 jackdream
我有寫到儲存格中但好像不能執行
cheng17875 發表於 2010-7-27 11:09

您好! 上述語法並不是寫在儲存格內,而是 sheet 的vba程式編輯畫面.
建議可以上傳檔案,看看格式內容是否一定要動用 vba程式.

作者: cheng17875 時間: 2010-7-27 11:56

本帖最後由 cheng17875 於 2010-7-27 13:41 編輯

回復 8# jackdream

[attach]2019[/attach]
可以了請幫忙! 謝謝

由於有連結DDE的內碼
若是使用者沒有股票報價軟體可能無法連結

作者: jackdream 時間: 2010-7-27 14:09

回復 9# cheng17875

附件內並無程式碼,資料來源是 eMidst|SW
因此要看原始檔案的內容格式,再用 vlookup 之類的函數去找出對應值.

作者: Hsieh 時間: 2010-7-27 14:47

回復 10# jackdream

我想樓主最主要的意思是想只要a欄變動
b欄以後公式就能代入a欄的值
我沒有dde的軟體
把代碼貼在該工作表模組內試試

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> "" And Target.Column = 1 Then
Application.EnableEvents = False
i = InStr(Target.Offset(, 1).Formula, "'")
k = InStr(Target.Offset(, 1).Formula, "`")
mystr = Mid(Target.Offset(, 1).Formula, i + 1, k - i - 1)
Range(Target.Offset(, 1), Target.Offset(, 1).End(xlToRight)).Replace mystr, Target, xlPart
Application.EnableEvents = True
End If
End Sub

複製代碼

[attach]2024[/attach]

作者: cheng17875 時間: 2010-7-27 16:01

本帖最後由 cheng17875 於 2010-7-27 16:09 編輯

回復 10# jackdream

[attach]2027[/attach]
[attach]2028[/attach]

感謝各位大大的幫忙 ! 太感心了不過我有需要說明

我的儲存格內都無公式或程式
只有軟體連結來源的內碼
唯一想要在A欄 key 股票代號就可以改變B/C/D.....各欄內軟體連結來源內碼(eMidst|SW!'9907`1019')
紅色位置就是股票代碼

作者: luhpro 時間: 2010-7-27 19:31

本帖最後由 luhpro 於 2010-7-27 19:33 編輯

回復 9# cheng17875

這個主題中的程式是必須有同時在 Windows 上執行 "精x的股票看盤軟體" 才能看到實際結果,
附檔是我在公司時參照第一帖圖示與上方 6# jackdream 大大的程式片段做出來的,
雖然不是用你後來上傳的檔案做例子測的,
應該仍然還是可以正常使用才是.

'===== 以下程式放在 Sheet1 =====
Private Sub Worksheet_Change(ByVal Target As Range)

  Dim iI As Integer, iRow As Integer

  iRow = ActiveSheet.Cells(2, 2).End(xlDown).Row

  For iI = 2 To iRow
If Not Intersect(Target, ActiveSheet.Cells(iI, 1)) Is Nothing Then '若有更改 Ax 內容

      If Not Cells(Target.Row, Target.Column) = Empty Then

      Call Change(iI)

      End If

End If
  Next iI

End Sub

'===== 以下程式放在 Module1 =====
Sub Change(iI)

  Dim iJ As Integer, iCol As Integer, iRow As Integer
  Dim sStr As String

  With Sheets(1)
iCol = .Cells(2, 1).End(xlToRight).Column

   For iJ = 2 To iCol
      sStr = .Cells(iI, iJ).Formula
      sStr = Left(sStr, 12) & .Cells(iI, 1).Value & Mid(sStr, 17, Len(sStr) - 16)
      .Cells(iI, iJ).Formula = sStr
   Next iJ
  End With

End Sub

[attach]2034[/attach]

作者: cheng17875 時間: 2010-7-28 17:13

回復 13# luhpro

感謝各位大大給我方向
努力學習中爾後再請各位不吝教導感謝啦!!!

作者: cheng17875 時間: 2010-7-29 11:31

回復 13# luhpro

不知道我哪裡做錯了! 有請各位先進指導感恩
[attach]2057[/attach]
[attach]2058[/attach]

如果大大可以指導步驟更好這樣我就可以學到更多
感恩感恩

作者: Hsieh 時間: 2010-7-29 15:53

回復 15# cheng17875

程序名稱module1改成Change(iI)

作者: cheng17875 時間: 2010-7-30 11:19

本帖最後由 cheng17875 於 2010-7-30 11:37 編輯

回復 16# Hsieh
不好意思! 讓大家多幫忙了..不過我似乎慢慢有點認識皮毛了如果可以的話也希望大大能教導一下製作過程圖解
執行大致上OK
但有問題發生
[attach]2074[/attach]
[attach]2075[/attach]
[attach]2076[/attach]
[attach]2077[/attach]

另有問題可否幫忙解答:
假如我把DDE連結的換成另一套券商報價軟體
內碼不一了程式碼會需要變更哪些地方呢??如圖
[attach]2078[/attach]

作者: luhpro 時間: 2010-7-30 21:07

本帖最後由 luhpro 於 2010-7-30 21:14 編輯

回復 17# cheng17875

第 1 個問題我也有發現到,
主要是因為股票代號的字數並非固定為 4 碼,
所以要改成找關鍵字 "`",
部分程式修改如下請自行帶入 :
      dim iNum%

      sStr = .Cells(iI, iJ).Formula
      iNum = InStr(1, sStr, "`", 1)
      sStr = Left(sStr, 12) & .Cells(iI, 1).Value & Mid(sStr, iNum, Len(sStr) - iNum + 1)
      .Cells(iI, iJ).Formula = sStr

至於公式的修改方式主要就是取代掉 "股票代號" 的部份,
例如精x 的公式 :
股票名稱  =eMidst|SW!'2330`1019'
股價       =eMidst|SW!'2330`205'
就是用 left()抓 2330 前面的字串 + 新的股票代號 + 2330 的 "0" 後面那個字 "`" 開始的字串來取代原公式即可.

而那另一個軟體的公式相同的以 2388 為基礎做字串分拆,
後面那個字串就抓 "8" 後面那個 "." 開始的字串就可以了.

當然還有一個方法就是不管原儲存格的內容,
直接將公式內的文字 Copy 下來分拆,
再將字串組合後丟給原儲存格就可以了,
例如精x 的改用 :
      sStr = "=eMidst|SW!'" & .Cells(iI, 1).Value  & "`1019'"
      .Cells(iI, iJ).Formula = sStr
缺點是公式已經定死在程式中,
若儲存格互相對調位置也必須改程式,
彈性較小.

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)