彰化一整天網站
1 2 3 4 5 6

廣告

網友您好,若是您覺得我寫的工具或文章對您有幫助，
而您或者您的朋友有在博客來購物，可以透過底下連結
如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。

2008年7月31日 星期四

如何一次將多個Excel檔案copy到一個檔案內的不同工作表中，並以檔案的檔名作為工作表的名稱

有時候我們會把Excel分類請不同人幫忙輸入，但是輸入完時，都是各別檔案，如果要把它copy成一個檔案就很麻煩，底下這個VBA程式，就是在處理這種情形的工具。
練習檔案:
2009/1/9:新增一個可以匯入txt的功能
2009/5/4:修改程式.除了xls開頭的檔案類型會用excel的方式開啟,其它的會用文字檔方式開啟

Excel 2003 新版下載網址
如何一次將多個Excel檔案copy到一個檔案內的不同工作表中
http://discuz.bestdaylong.com/thread-30584-1-1.html
Excel 2007版本下載網址: http://discuz.bestdaylong.com/thread-1529-1-1.html

http://download.bestdaylong.com/f14.htm
mergertosheet_v4.xls 下載

2018/12/7 加入【合併結果是否開新檔】選項，並設定購買費用300元
http://download.bestdaylong.com/f688.htm
1.下載ergertosheet.xls把它放在要處理的Excel檔案目錄中 2. 開啟時會出現安全性警告，請按啟用巨集 3.將您要合併的檔案名稱輸入 4.合併完時會出現，己將所有檔案匯入活頁中 5.這是合併後的sheet
張貼者： 於
101 則留言:

2008年7月30日 星期三

97年5-6月統一發票中獎號碼單

特獎:65445893 頭獎:32299517、48636521、94183545
張貼者： 於
沒有留言:

2008年7月29日 星期二

如何一次取代多個Word檔案中的多個字串

如果有一百份word的檔中的"身份證"要改成"身分證" ，就要開啟一百個檔案，把每一個檔案取代完再開另一個檔案，另一個我會寫這個主要原因是合併列印時，如果有unicode的字，合併完的word檔都會用?取代，每次都要取代這些很麻煩，所以就寫了這一支word巨集．
檔案下載:http://download.bestdaylong.com/f11.htm
練習檔案:
http://f272586.googlepages.com/A.doc
http://f272586.googlepages.com/B.doc

註冊版本下載:http://download.bestdaylong.com/f470.htm
(可以取代格式及加入頁首頁尾取代)
PS:未註冊每次只可以執行3個檔案
1.replacepro.doc跟您要處理的word檔案放在一起 2.打開replacepro.dlc會出現巨集，請按啟用巨集 3.把要取代的字及檔案寫上去，格子不夠可以自己往下加，但中間不要有空白，然後按下多檔案取代 4.出現取代完成，就表示處理完了．
張貼者： 於
50 則留言:

2008年7月22日 星期二

真人說普通話廣東話的網站

這個網站是從老公仔教廣東話的文章中發現的，如果您想學廣東話，這個網站是不錯的選擇。
輸入您要發音的句字,按下即時發音就可以
張貼者： 於
沒有留言:

2008年7月21日 星期一

為什麼工作管理員的功能表會消失不見了

一般我們遇到程式無法關閉，都會透過工作管理員來將程式關閉，如果工作管理員的工能表不見了，就不能切換功能頁，底下會說明消失的原因。
1.這是沒有功能表的工作管理員，可以在底下空白處點滑鼠左鍵兩下，就可以作切換 2.這是有功能表的工作管理員
張貼者： 於
2 則留言:

2008年7月18日 星期五

如何將火車時刻表簡化成簡訊內容

會有這個想法時，是之前上台北找朋友結束時要回家時，到火車站時，火車剛好開走，所以就在等火車想可不可以把時刻表存在我們一般人都有的手機內，這樣隨時就可以知道幾點有火車可以搭乘，那時候是把時間簡化．如7點有7:10,7:20,7:50,我就用07102050來表示，不同小時用.來區格，最後因為火車0-4時，沒有火車，就再把第一碼的0簡化掉.
1.http://new.twtraffic.com.tw/twrail/index.aspx 台灣鐵路管理局-火車時刻查詢系統 2.把您要的結果查詢出來，並將內容copy到Excel貼上 3.再將開車時間選取起來 4. 到http://272586.blogspot.com/2007/04/blog-post_28.html 將內容貼在來源區 5.按下火車時刻表轉換,結果會顯示在目的區(看第４張圖) 6. 這是新豐到台北電車的時刻表 7.簡訊中如果有中文字．一通會只剩下７０個字
張貼者： 於
沒有留言:

2008年7月17日 星期四

Skype 台灣GO

最近發現Skype台灣Go沒有收連接費，之前使用時一個月99元，可以撥市話10000分鐘，每通都還要另加1.6元的連接費，現在不但不收，還特價89元，再送1歐元( 47.49元)的通話費，所以現在辦等於1個月42元(89元-47元)，所以常打市話的人可以趕快去辦。skype out可以設定顯示電話號碼(這個功能在台灣無法使用詳情請看[問題]為何無法 " 來電顯示" 功能 無法啟用 )，
1.點帳戶/購買Skype點數 2.Skype亞洲通己經售完，目前只剩下Skype台灣GO跟Skype全球GO 3. 目前訂購89元，還加送1歐元(47.489元) 4. 設定來電顯示(需要經過24小時才會有作用) 5.設定來電顯示會有兩筆簡訊費 (一通是確認碼，一通是剩2小時啟用時，會在傳一封提醒的簡訊) 6.今天四月份的帳，每分鐘還有收1.6元的連接費 7.這個功能在台灣無法使用(系統又沒提示，害我設了二支手機，花了8元簡訊費) 8. 9.可以把一般市話或手機設為連絡人 10.經過24小時後，來電顯示會有作用(這個功能在台灣無法使用)
張貼者： 於
沒有留言:

2008年7月16日 星期三

如何在Excel一次取代多個字串

Excel有取代的功能，但是如果您要一次取代很多筆資料，就會覺得很不方便，所以我就寫了一個VBA，只要把要取代的內容一次寫完，按下開始整批取代，就會一次把您要取代的所有動作都作完。
練習檔案:
2009/9/30新增所有活頁都會取代
1.假設我要取代４種資料 2. 將batchReplace.xls跟您要取代的檔案放在同一個目錄， 只要執行batchReplace.xls(要取代的檔案會自動開啟) 3.設定您要批次取代的內容 4.執行取代完的對話框 5.程式碼一覽
Sub Macro1()

    Dim nowworkbook As String   '參數設定的檔案名稱
    Dim s   '要被取代的字串
    Dim d   '取代過的字串
  
    nowworkbook = Excel.ActiveWorkbook.Name

    Workbooks.Open Filename:=Excel.ActiveWorkbook.Path & "\" & Cells(2, 1) & ".xls"
  
    i = 2
  
    While Windows(nowworkbook).ActiveSheet.Cells(i, 2) <> ""
        s = Windows(nowworkbook).ActiveSheet.Cells(i, 2)
        d = Windows(nowworkbook).ActiveSheet.Cells(i, 3)
  
        Cells.Replace What:=s, Replacement:=d
        i = i + 1
    Wend
    Cells(1, 1).Select
    Windows(nowworkbook).Activate
    MsgBox "取代完成,請切視窗查看結果"
End Sub
張貼者： 於
80 則留言:

2008年7月11日 星期五

網站介紹:隨心所欲做詞庫

這個網站有以下多種詞庫可以下載來練習.
《VOCABULARY 10000》;《VOCABULARY 5000》;《VOCABULARY FUNDAMENTAL》;《大學英語》預備1級;《大學英語》預備2級;《大學英語》精讀第1冊;《大學英語》精讀第2冊;《大學英語》精讀第3冊;《大學英語》精讀第4冊;《大學英語》精讀第5冊;《大學英語》精讀第6冊;《小學英語》第1冊;《小學英語》第2冊;《小學英語》第3冊;《小學英語》第4冊;《小學英語》第5冊;《小學英語》第6冊;《中級美國英語教程》(下冊);《中級美國英語教程》(上冊);《初中英語》(第1冊);《初中英語》(第1冊);《初中英語》(第2冊);《初中英語》(第2冊);《初中英語》(第3冊);《初中英語》(第3冊);《初中英語》(第4冊);《初中英語》(第5冊);《初中英語》(第6冊);《初級美國英語教程》(下冊);《初級美國英語教程》(上冊);《高中英語》(第1冊);《高中英語》(第1冊)下;《高中英語》(第1冊)上;《高中英語》(第2冊);《高中英語》(第2冊)下;《高中英語》(第2冊)下;《高中英語》(第2冊)上;《高中英語》(第2冊)上;《高中英語》(第3冊);《高中英語》(第3冊);《高中英語》(第3冊)下;《高中英語》(第3冊)下;《高中英語》(第3冊)上;《高中英語》(第3冊)上;《高級美國英語教程》;《許國璋英語》(第1冊);《許國璋英語》(第2冊);《許國璋英語》(第3冊);《許國璋英語》(第4冊);《新世紀公共管理教程》;《新版新概念英語》(第1冊);《新版新概念英語》(第2冊);《新版新概念英語》(第3冊);《新版新概念英語》(第4冊);《新概念英語》(第1冊);《新概念英語》(第2冊);《新概念英語》(第3冊);《新概念英語》(第4冊);《新編許國璋英語》(第1冊);《新編許國璋英語》(第2冊);2005研究生入學考試詞彙;2005研究生英語入學詞組;2006研究生英語入學詞彙;2007研究生英語入學詞彙;GMAT600分詞組;GMAT600分詞彙;GMAT800分商業管理詞彙;GMAT800分常考詞彙;GRE字彙進階下;GRE字彙進階上;GRE紅寶書;GRE蘭寶書;MBA;TOFEL;TOFEL詞組;人體解剖學詞彙;大學英語1-4級詞組;大學英語5-6級詞組;大學英語六級詞彙;大學英語四級詞彙;六級後;化學;天文學;心理與思維;文學與藝術;世界地名;交通與運輸;地理;考研真題高頻詞庫;自然與氣候;房屋與建築;服裝;法律;物理學;政治與社會;研究生詞彙;美國口語慣用法例句集粹;計算機常用詞組及縮略語;計算機常用詞彙;航空航天;高考英語詞彙手冊;高校英專全程通用詞彙;博士醫學詞彙;植物;詞庫名稱;詞頻分級詞彙第1級;詞頻分級詞彙第2級;詞頻分級詞彙第3級;詞頻分級詞彙第4級;詞頻分級詞彙第5級;郵電與通訊;雅思;語言與文學;廣播與電視;數學;學校與教育;醫學英語第1冊;醫學英語第2冊;醫學英語第3冊;體育
1. 連到http://upquark.51.net/,選詞庫下載 2. 各式各樣的英文詞庫 3. 因為編碼的不同,所以會顯示為亂碼
相關連結:
張貼者： 於
6 則留言:

2008年7月10日 星期四

如何一次將多個Excel檔案copy到一個檔案內

之前用Sendkey寫了一篇如何合併多個相同的Excel檔案，發現有些缺點，無法一次用很多檔案，因為這個功能很多人都會用到，因此我把它改寫，改成開啟檔案沒有限制，只要把開啟的檔案名稱都寫在一起，中間不要有空白，程式會自動把所有的檔案都copy到一個空白檔案。
練習檔案:
2009/2/3新增功能
可以加入副檔名,且不用開新檔,合併以後會排序,如果重覆會自動去除
2009/2/19新增功能 加入可以指定合併活頁名稱,加入判斷如果貼上於65535則會自動新增活頁貼上
去除合併會排序及重覆自動去除功能
2009/5/5新增功能
加入第一列可以加入檔案名稱的選項



1. 下載四個練習檔，把它們放在一起，執行mergeradv.xls

 2. 出現安全性警告，請按啟用巨集
3. 開啟一個空白檔案，並把該檔案名稱寫在儲存格B1 儲存檔B2下面，可以寫您要合併的檔案名稱(.xls副檔案名稱可以不用寫)

4. 這是合併後的檔案
5. 程式碼一覽

張貼者： 於
113 則留言:

2008年7月9日 星期三

Excel的資料剖析應用

資料處理時，常會遇到別人給您是有規則的資料，如用逗號分格，底下我用一個單字的題庫格式，來做個例子，因為我寫了一個背單字的Excel，可是單字都是有版權的，我到大陸的網站有找到一個可以讓人下載字庫，但是有二個缺點，一是簡體字，二是還有所有的單字都是用逗號來區格，底下的資料來源．我己經先把它轉成繁體中文.
1.將要處理的資料選取起來 2.選〔資料〕／資料剖析 3. 選分隔符號，按下一步 4.選逗點，按下一步 5.選[完成] 6.資料己經處理完畢 7.因為音標沒有用到，可以選取，按滑鼠右鍵刪除
張貼者： 於
沒有留言:
訂閱： 文章 (Atom)

贊助

彰化一整天粉絲團