有關複製指定貼上的問題?

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

2^#

發表於 2016-1-13 08:09 | 只看該作者

本帖最後由 lucky12345 於 2016-1-13 08:12 編輯

謝謝版大的回應
D1:K1 的數據和證商DDE連結
B1=買價 = MMSDDE|FUSA!'[email protected]'
C1=賣價 =MMSDDE|FUSA!'[email protected]'
D1=最高價
E1=最低價
F1=成交價
G1=成交張數
H1=成交時間
I1=委買量
J1=委賣量
K1=漲跌

目前小學生期待他日進國中

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2016-1-13 13:26 | 只看該作者

'是不是個意思? 試試看:
'請貼到關的工作頁上
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Count > 1 Then Exit Sub
If Target <> [A1] And Target <> [A2] Then Exit Sub
If Target = [A2] And [A2] = -1 Then
      [B2:K2401] = "A"
ElseIf Target = [A1] And [A1] > 1 Then
      [B2:K2401] = "" '舊資料要不要清除? 如不清除請將這列註解掉
      Set Rng = [B$1:K$1]
      Rng.Copy Rng.Offset([A1] - 1, 0)
End If
End Sub

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

4^#

發表於 2016-1-13 16:57 | 只看該作者

回復 3# yen956
回yen956 大正解
非常感謝! 祝您好運心想事成

目前小學生期待他日進國中

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

5^#

發表於 2016-1-13 18:58 | 只看該作者

本帖最後由 lucky12345 於 2016-1-13 19:07 編輯

回復 3# yen956
yen956大您好........
使用後發現兩個問題?  請您幫忙撿視一下  該如何修改  謝謝您
1. 儲存格M1=8 若K1=M1 K1當然也是=8 不過複製貼上之後不是=8 而是=0
2. 當A1  輸入2 按Enter 就會複製一次可是這 A1的數據也是DDE連結 (接收外來數據) 123456789---------到2401 (A1 會固定5秒更新一次數值)
當A1=3 會複製一次當A1由3改變  成為4  就會觸發複製一次當A1由4改變  成為5  就會觸發複製一次  (當A1數字改變就會自動觸發而不是用手動按 Enter)

目前小學生期待他日進國中

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

6^#

發表於 2016-1-14 14:01 | 只看該作者

回復 5# lucky12345
Q1. 儲存格M1=8 若K1=M1 K1當然也是=8 不過複製貼上之後不是=8 而是=0
A1. 將 K1 公式改為 =M$1
Q2. 我弄錯你的原意,
原來是想要手動更新,
試試看:

'請貼到關的工作頁上
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Ans As Integer
If Target.Count > 1 Then Exit Sub
If Target <> [A1] And Target <> [A2] Then Exit Sub
If Target = [A2] And [A2] = -1 Then
Ans = MsgBox("是否要將 [B2:K2401] 的資料將全部用 'A' 覆蓋?", vbYesNo)
If Ans = 7 Then Exit Sub
[B2:K2401] = "A"
ElseIf Target = [A1] And [A1] > 1 Then
' [B2:K2401] = "" '舊資料要不要清除? 如不清除請將這列解掉
Ans = MsgBox("是否要開始複製資料?", vbYesNo)
If Ans = 7 Then Exit Sub
Set Rng = [B$1:K$1]
Rng.Copy Rng.Offset([A1] - 1, 0)
End If
End Sub

複製代碼

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

7^#

發表於 2016-1-14 14:40 | 只看該作者

yen956大.....感謝您的回應
1. 儲存格k1=2+3 等於6 然而往下複製是=6 而且儲存格內帶著公式 =2*3
正解是純數值6 內不帶公式(=2*3)

目前小學生期待他日進國中

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

8^#

發表於 2016-1-14 15:14 | 只看該作者

本帖最後由 lucky12345 於 2016-1-14 15:17 編輯

請看附檔...............

計數器在 sheet1

計數Time-1.rar (7.78 KB)

目前小學生期待他日進國中

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

9^#

發表於 2016-1-14 17:34 | 只看該作者

'改用兩個按鈕試試看!!
'跟 [A6] 有關嗎? 依[A1] 或 [A6] 指定列, 貼上第一列的值?
'下列係依[A1]指定列, 貼上第一列的值
Private Sub CommandButton1_Click()
Dim Rng As Range, Lst As Integer
If [A1] > 1 Then
      Set Rng = [B$1:K$1]
      Rng.Copy
      Rng.Offset([A1] - 1, 0).PasteSpecial Paste:=xlPasteValues '只貼上值, 公式格式等不會貼上
End If
End Sub

'用'A'覆蓋或全部清除
Private Sub CommandButton2_Click()
If [A2] = -1 Then
      '下列二選一, 不要用到的, 請在前面加 '
      '
      [B2:K2401] = "A" '全部用'A'覆蓋
'       [B2:K2401] = ""    '全部清除
End If
End Sub

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

10^#

發表於 2016-1-14 19:53 | 只看該作者

本帖最後由 lucky12345 於 2016-1-14 19:55 編輯

yen956大您好
可能是我表達不是很清楚重新寄上附檔這樣比較方便測試請幫忙再檢視一下謝謝您

計數Time-2.rar (9.07 KB)

目前小學生期待他日進國中