帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-5-7 11:59 | 只看該作者

EXCEL抓取資料問題

在sheet1裡
B4 2330 G4(要抓Sheet2資料)
B5 2317 G5(要抓Sheet2資料)

在Sheet2
A1 2330台積電    D1  10.81(要被抓取的資料)
A2 1301台塑          D2 2.43
A3 2317鴻海          D3  15.39(要被抓取的資料)

備註:
1. Sheet1  從B4.....一直到B100
2. Sheet1  從Sheet2抓取過來資料必須直接"轉換成 %"
3. Sheet2  從A1.....一直到A100都有資料

先謝謝幫忙

樓主熱帖

slip

pigchen

小學生 Rank: 1

帖子: 6
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: XP
軟體版本: 8
閱讀權限: 10
註冊時間: 2012-5-30
最後登錄: 2015-9-15

28^#

發表於 2012-5-30 11:19 | 只看該作者

感謝版主無私提供

TOP

patrick

中學生 Rank: 2

帖子: 8
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2012-4-4
最後登錄: 2013-3-15

27^#

發表於 2012-5-22 23:58 | 只看該作者

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

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

26^#

發表於 2012-5-21 19:25 | 只看該作者

回復 25# c_c_lai
c_c_lai 老師:

已修改成功
感恩+謝謝

slip

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

25^#

發表於 2012-5-21 15:06 | 只看該作者

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

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

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

24^#

發表於 2012-5-21 14:09 | 只看該作者

回復 23# c_c_lai
c_c_lai 大大您好;

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

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

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

期.rar (20.89 KB)

slip

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

23^#

發表於 2012-5-18 20:44 | 只看該作者

回復 22# slip
試試看！

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

複製代碼

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

22^#

發表於 2012-5-18 15:46 | 只看該作者

回復 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 大大的幫忙
謝謝

DDE...手動copy.rar (66.95 KB)