(求助)資料分析 有辦法半自動嗎

顯示結果從第 1 筆 到 8 筆,共計 8 筆
  1. #1
    --帳號停用中-- purk 的大頭照
    註冊日期
    2001-03-08
    討論區文章
    2,917

    (求助)資料分析 有辦法半自動嗎

    一堆genome的資料 是microarray的東西 已經存成xls檔了
    總共500多MB 有10000多個genome 每筆資料要分成單一genome在每次實驗中的比較跟多個實驗中多genome的比較
    要做數值分析找出他們的相關性 所以要算每筆資料的log值跟資料間的距離
    來做出相關性圖表

    我會手動作 但是10000*80000多的資料量 根本弄到昏頭
    又要考試 有誰知道有啥巨集或程式可以自動抓取表單內的資料 做出我預設的計算嗎



  2. #2
    嘴炮戰隊隊長 ivantw 的大頭照
    註冊日期
    2002-05-04
    所在地區
    CHT FTTH 100M/20M Static IP
    討論區文章
    4,903
    建議將資料都匯到資料庫,以資料庫來作處理,可節省較多人工處理。

  3. #3
    --帳號停用中-- purk 的大頭照
    註冊日期
    2001-03-08
    討論區文章
    2,917
    請TIM 幫我一起弄了個巨集
    結果excel當給我看
    怎麼如此不濟ㄚ
    如何會到資料庫 然後擷取要的資料呢
    thx

  4. #4
    會員 Raven 的大頭照
    註冊日期
    2002-02-22
    討論區文章
    1,484
    那個情形應該不是當吧??
    應該是資料太大讀取要一段時間!!~~

    比較簡單的用Access匯入,檔案選XLS檔!!~~

  5. #5
    --帳號停用中-- purk 的大頭照
    註冊日期
    2001-03-08
    討論區文章
    2,917
    附上我的巨集
    請幫我想一下 該如何取消裡面的 消除剪貼簿的 對話框
    要執行這個 巨集
    請先在c下建立exptsetno_901資料夾 然後將以下這3個檔案下載後
    ftp://genome-ftp.stanford.edu/pub/sm...00/7271.xls.gz

    ftp://genome-ftp.stanford.edu/pub/sm...00/7272.xls.gz

    ftp://genome-ftp.stanford.edu/pub/sm...00/7273.xls.gz

    解壓存到exptsetno_901資料夾內

    案後開啟這個檔 執行巨集 即可
    thx


    附加檔案 附加檔案

  6. #6
    --帳號停用中-- purk 的大頭照
    註冊日期
    2001-03-08
    討論區文章
    2,917
    我繼續來問

    我該如何 用巨集 讓他自己開一連串的 連續檔案

    我要開1-114的檔 再我執行完一系列的事後 自己開檔

    以下是我的 巨集 我要如何改

    Sub Macro1()
    '
    ' 巨集表
    ' 錄製的巨集
    '

    '
    ChDir "C:\exptsetno_901"
    Workbooks.OpenText Filename:="C:\exptsetno_901\7271.xls", StartRow:=27, _ >>>>>>>>>>這裡是說 開啟7271.xls檔,我共有114的xls 我將改成1編到114, 可以幫我血一個迴圈 讓他可以 做完我要求動作後自己開啟嚇一個檔嗎 郵1開始到114


    , StartRow:=27, _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
    :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
    Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
    Columns("D").Select
    Windows("BooK1").Activate >>>>>>>>我會將每個XLS檔的 要的內容存到BOOK1的工作表內 可以幫我血一個迴圈讓他可以 做好以下動作 換到下一個xls檔時就自己開一個book1的工作表嗎
    Windows("7271.xls").Activate >>>>>轉換到第1個xls檔 確定該工作表存在 以繼續擷取動作
    Columns("D").Select >>>>>>選擇該工作表範圍
    Selection.Copy 複製該範圍
    Windows("BooK1").Activate >>>>>>確定BOOK1.xls存在
    Columns("A:A").Select >>>>>>選擇該工作表範圍
    ActiveSheet.Paste 貼到該範圍
    Windows("7271.xls").Activate
    Columns("J:J").Select
    Selection.Copy
    Windows("BooK1").Activate
    Columns("B:B").Select
    ActiveSheet.Paste
    Windows("7271.xls").Activate
    Columns("S:S").Select
    Selection.Copy
    Windows("BooK1").Activate
    Columns("C:C").Select
    ActiveSheet.Paste
    Windows("BooK1.xls").Activate
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "B/C"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D224194"), Type:=xlFillDefault
    Range("D224194").Select
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "取log 2為底"
    Range("E2").Select
    Columns("E:E").ColumnWidth = 10.25
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=LOG(RC[-1],2)"
    Range("E2").Select
    Selection.AutoFill Destination:=Range("E2:E24194"), Type:=xlFillDefault
    Range("E2:E24194").Select
    Windows("7271.xls").Activate >>>>確定低一個XLS檔存在
    ActiveWindow.Close >>>>>>>>關閉第一個XLS檔
    Workbooks.OpenText Filename:="C:\exptsetno_901\7272.xls", StartRow:=27, _ >>>>>>>開啟第2個XLS檔
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
    :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
    Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
    Columns("D").Select
    Selection.Copy
    Windows("BooK1").Activate >>>>確定BOOK1存在
    Sheets.Add >>>>>>再BOOK1增加一個 工作表
    Columns("A:A").Select
    ActiveSheet.Paste
    End Sub




    ps 好像已經偏到office的 應用了 請幫我移版吧 不然有人會說閒話
    thx

  7. #7
    嘴炮戰隊隊長 ivantw 的大頭照
    註冊日期
    2002-05-04
    所在地區
    CHT FTTH 100M/20M Static IP
    討論區文章
    4,903
    語法:
    我繼續來問  
    
    我該如何 用巨集  讓他自己開一連串的 連續檔案
    
    我要開1-114的檔  再我執行完一系列的事後 自己開檔
    
    以下是我的 巨集 我要如何改
    
    Sub Macro1()
    '
    '  巨集表
    ' 錄製的巨集
    '
    
    '
        ChDir "C:\exptsetno_901"
        Workbooks.OpenText Filename:="C:\exptsetno_901\7271.xls", StartRow:=27, _      >>>>>>>>>>這裡是說 開啟7271.xls檔,我共有114的xls 我將改成1編到114, 可以幫我血一個迴圈  讓他可以 做完我要求動作後自己開啟嚇一個檔嗎 郵1開始到114
    
    
            , StartRow:=27, _
            DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
            :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
            Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
        Columns("D:D").Select
        Windows("BooK1").Activate  >>>>>>>>我會將每個XLS檔的 要的內容存到BOOK1的工作表內 可以幫我血一個迴圈讓他可以 做好以下動作 換到下一個xls檔時就自己開一個book1的工作表嗎
        Windows("7271.xls").Activate  >>>>>轉換到第1個xls檔 確定該工作表存在  以繼續擷取動作
        Columns("D:D").Select      >>>>>>選擇該工作表範圍
        Selection.Copy                複製該範圍
        Windows("BooK1").Activate  >>>>>>確定BOOK1.xls存在
        Columns("A:A").Select       >>>>>>選擇該工作表範圍 
        ActiveSheet.Paste               貼到該範圍
        Windows("7271.xls").Activate
        Columns("J:J").Select
        Selection.Copy
        Windows("BooK1").Activate
        Columns("B:B").Select
        ActiveSheet.Paste
        Windows("7271.xls").Activate
        Columns("S:S").Select
        Selection.Copy
        Windows("BooK1").Activate
        Columns("C:C").Select
        ActiveSheet.Paste
        Windows("BooK1.xls").Activate
        Range("D1").Select
        ActiveCell.FormulaR1C1 = "B/C"
        Range("D2").Select
        ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
        Range("D2").Select
        Selection.AutoFill Destination:=Range("D2:D24194"), Type:=xlFillDefault
        Range("D2:D24194").Select
        Range("E1").Select
        ActiveCell.FormulaR1C1 = "取log 2為底"
        Range("E2").Select
        Columns("E:E").ColumnWidth = 10.25
        Range("E2").Select
        ActiveCell.FormulaR1C1 = "=LOG(RC[-1],2)"
        Range("E2").Select
        Selection.AutoFill Destination:=Range("E2:E24194"), Type:=xlFillDefault
        Range("E2:E24194").Select
        Windows("7271.xls").Activate           >>>>確定低一個XLS檔存在
        ActiveWindow.Close                           >>>>>>>>關閉第一個XLS檔
        Workbooks.OpenText Filename:="C:\exptsetno_901\7272.xls", StartRow:=27, _        >>>>>>>開啟第2個XLS檔
            DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
            :=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
            Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
        Columns("D:D").Select
        Selection.Copy
        Windows("BooK1").Activate  >>>>確定BOOK1存在
        Sheets.Add                   >>>>>>再BOOK1增加一個 工作表
        Columns("A:A").Select
        ActiveSheet.Paste
    End Sub
    
    
    
    
    ps 好像已經偏到office的 應用了  請幫我移版吧  不然有人會說閒話
    thx
    呃,不編排一下很難看懂...

  8. #8
    --帳號停用中-- purk 的大頭照
    註冊日期
    2001-03-08
    討論區文章
    2,917
    ㄣ 這是資料分析的 新的東西 我寫了一大串 但是 不知道可以用變數直接取代嗎

    另外 使用巨集的話 excel單一檔案的 大小 好像只能小於50MB
    我不論如何設定 記憶體已經加到1g 還是會出現記憶體不足
    不能儲存復原 然後出現錯誤 跳出偵錯畫面

    thx

    ----------------------------------------------------------------------------------


    Sub Macro1()
    '
    ' 計算 巨集表
    '
    '

    '
    ChDir "C:\Documents and Settings\user\桌面"
    Workbooks.Open Filename:="C:\Documents and Settings\user\桌面\Book1.xls"
    Sheets("Sheet1").Select
    Columns("E:E").Select
    Selection.Copy
    Windows("Book11.xls").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "與A2的距離"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R2C[-1]^2)-RC[-1]^2)^0.5"
    Selection.AutoFill Destination:=Range("B2:B50000")
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R3C[-2]^2)-RC[-2]^2)^0.5"
    Selection.AutoFill Destination:=Range("C2:C50000")
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R4C[-3]^2)-RC[-3]^2)^0.5"
    Selection.AutoFill Destination:=Range("D250000")
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R5C[-4]^2)-RC[-4]^2)^0.5"
    Selection.AutoFill Destination:=Range("E2:E50000")
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R6C[-5]^2)-RC[-5]^2)^0.5"
    Selection.AutoFill Destination:=Range("F2:F50000")
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R7C[-6]^2)-RC[-6]^2)^0.5"
    Selection.AutoFill Destination:=Range("G2:G50000")
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R8C[-7]^2)-RC[-7]^2)^0.5"
    Selection.AutoFill Destination:=Range("H2:H50000")
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R9C[-8]^2)-RC[-8]^2)^0.5"
    Selection.AutoFill Destination:=Range("I2:I50000")
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R10C[-9]^2)-RC[-9]^2)^0.5"
    Selection.AutoFill Destination:=Range("J2:J50000")
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R11C[-10]^2)-RC[-10]^2)^0.5"
    Selection.AutoFill Destination:=Range("K2:K50000")
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R12C[-11]^2)-RC[-11]^2)^0.5"
    Selection.AutoFill Destination:=Range("L2:L50000")
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R13C[-12]^2)-RC[-12]^2)^0.5"
    Selection.AutoFill Destination:=Range("M2:M50000")
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R14C[-13]^2)-RC[-13]^2)^0.5"
    Selection.AutoFill Destination:=Range("N2:N50000")
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R15C[-14]^2)-RC[-14]^2)^0.5"
    Selection.AutoFill Destination:=Range("O2:O50000")
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R16C[-15]^2)-RC[-15]^2)^0.5"
    Selection.AutoFill Destination:=Range("P2:P50000")
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R17C[-16]^2)-RC[-16]^2)^0.5"
    Selection.AutoFill Destination:=Range("Q2:Q50000")
    Range("R2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R18C[-17]^2)-RC[-17]^2)^0.5"
    Selection.AutoFill Destination:=Range("R2:R50000")
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R19C[-18]^2)-RC[-18]^2)^0.5"
    Selection.AutoFill Destination:=Range("S2:S50000")
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R20C[-19]^2)-RC[-19]^2)^0.5"
    Selection.AutoFill Destination:=Range("T2:T50000")
    Range("U2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R21C[-20]^2)-RC[-20]^2)^0.5"
    Selection.AutoFill Destination:=Range("U2:U50000")
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R22C[-21]^2)-RC[-21]^2)^0.5"
    Selection.AutoFill Destination:=Range("V2:V50000")
    Range("W2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R23C[-22]^2)-RC[-22]^2)^0.5"
    Selection.AutoFill Destination:=Range("W2:W50000")
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R24C[-23]^2)-RC[-23]^2)^0.5"
    Selection.AutoFill Destination:=Range("X2:X50000")
    Range("Y2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R25C[-24]^2)-RC[-24]^2)^0.5"
    Selection.AutoFill Destination:=Range("Y2:Y50000")
    Range("Z2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R26C[-25]^2)-RC[-25]^2)^0.5"
    Selection.AutoFill Destination:=Range("Z2:Z50000")
    Range("AA2").Select
    ActiveCell.FormulaR1C1 = "=ABS((R27C[-26]^2)-RC[-26]^2)^0.5"
    Selection.AutoFill Destination:=Range("AA2:AA50000")

    End Sub

類似的主題

  1. 【軟體求助】舊主機板xp系統灌完之後,有辦法再補裝sata驅動嗎?
    作者:spplkk2003 所在討論版:-- HELP ME 電 腦 軟 硬 體 急 救 版
    回覆: 1
    最後發表: 2008-05-10, 12:48 PM
  2. [ 求助]自訂半自動 office 安裝
    作者:purk 所在討論版:-- OFFICE 相 關 軟 體 討 論 版
    回覆: 3
    最後發表: 2006-05-31, 01:09 PM
  3. 請問各位有使用過SARG這套流量資料分析squid軟體的朋友【求助】
    作者:yuhleon 所在討論版:-- FreeBSD & Linux 討 論 版
    回覆: 1
    最後發表: 2004-06-09, 11:05 AM
  4. 【求助】outlook express 有辦法自動登出嗎?
    作者:dreamsmaker 所在討論版:-- 網 路 軟 體 討 論 一 版 (Browser,Email
    回覆: 0
    最後發表: 2002-11-19, 02:32 PM
  5. 當我使用"篩選部份資料"的功能時,是否有辦法將同種類的物品數量自動加總呢...??
    作者:p67032 所在討論版:-- OFFICE 相 關 軟 體 討 論 版
    回覆: 3
    最後發表: 2002-08-21, 01:29 AM

 

excel submit auto fill macro

發表文章規則

  • 不可以發表新主題
  • 不可以回覆文章
  • 不可以上傳附加檔案
  • 不可以編輯自己的文章
  •