c_c_lai

回復 20# slip
試試看這是不是你的意思：

1. Sub Test1()
   
2.   '  假設你要複製 A2:E2 的即時資訊到M14:Q14 (等5個欄位) 的位置上
   
3.    Sheets("Sheet1").[M14].Resize(, 5) = Sheets("Sheet1").[A2:E2].Value
   
4. End Sub

複製代碼

如果這是你要的，你就可以增加一按鈕，將其指定巨集指向 Test1。

slip

回復 21# c_c_lai

c_c_lai 大大 您好,

之前我表達,語意不夠明確,改進陳述如下

A2 ~ D2為DDE函數  E2為B2-A2的值

從第3列開始,A3,B3,C3,D3是有需要時, 即時用手動方式copy A2,B2,C2,D2的DDE值(僅copy值,DDE函數不需要)
並同時,F3,G3設定的相減運算也同時計算出來

依此類推
第4列,第5列,第6列.......都是有需要時用手動方式copy A2,B2,C2,D2的DDE值,同時相減運算的數值也計算出來

再請幫忙加入設定,E欄,F欄,G欄中,數字為負數時呈現紅色字體

再次感謝 c_c_lai 大大的幫忙
謝謝

c_c_lai

回復 22# slip
試試看！

1. Sub duplicate_Click()
   
2.     Dim nextRows As Single
   
3.    
   
4.     With Sheets("Sheet1")
   
5.         nextRows = .Range("A" & Rows.Count).End(xlUp).Row + 1
   
6.         .Range("A" & nextRows & ":AH" & .UsedRange.Rows.Count).ClearContents
   
7.    
   
8.         .Range("A" & nextRows & ":E" & nextRows).Value = Sheets("Sheet1").[A2:E2].Value                ' A-E
   
9.         .Range("I" & nextRows & ":AH" & nextRows).Value = Sheets("Sheet1").[I2:AH2].Value              ' I-AH
   
10.         .Cells(nextRows, 6).Formula = "=C" & nextRows & "-P" & nextRows                                ' F
    
11.         If .Cells(nextRows, 6).Value < 0 Then .Cells(nextRows, 6).Font.Color = 1
    
12.         .Cells(nextRows, 7).Formula = "=D" & nextRows & IIf(nextRows = 3, "", "-D" & nextRows - 1)     ' G
    
13.         If .Cells(nextRows, 7).Value < 0 Then .Cells(nextRows, 7).Font.Color = 1
    
14.         .Cells(nextRows, 8).Formula = "=E" & nextRows & IIf(nextRows = 3, "", "-E" & nextRows - 1)     ' H
    
15.         If .Cells(nextRows, 8).Value < 0 Then .Cells(nextRows, 8).Font.Color = 1
    
16.     End With
    
17. End Sub

複製代碼

下載 (25.15 KB)

2012-5-18 20:44

slip

回復 23# c_c_lai
c_c_lai 大大 您好;

今天開盤後,用您給我的程式(如附件檔)

只能執行一次
我在不固定的時間,
當需要時,我就手動點選"工具--巨集--巨集--執行"
這樣就會copy出現新的一列...我要的資料

是這樣的使用嗎??我猜應該不是...<__>
請大大指導
謝謝

c_c_lai

回復 24# slip
因為你無法下載#23的附件，所以無法得知Excel上的增建按鈕的作用，你可以按照以下圖示操作：

下載 (105.88 KB)

2012-5-21 15:00

當你要擷取資料時只要按那按鈕不是很省事嗎？

slip

回復 25# c_c_lai
c_c_lai  老師:

已修改成功
感恩+謝謝

patrick

按到  百分比 吧
取消 百分比方式顯示，就不會變成100倍了。

pigchen

感謝版主無私提供