No Money No Honey » EXCEL http://blog.infinity.idv.tw Just Another Beginning Sat, 28 Jan 2012 18:25:36 +0000 http://wordpress.org/?v=2.8.4 en hourly 1 DELPHI寫入EXCEL時，寫入速度緩慢問題 http://blog.infinity.idv.tw/index.php/2010/07/12/delphi%e5%af%ab%e5%85%a5excel%e6%99%82%ef%bc%8c%e5%af%ab%e5%85%a5%e9%80%9f%e5%ba%a6%e7%b7%a9%e6%85%a2%e5%95%8f%e9%a1%8c/ http://blog.infinity.idv.tw/index.php/2010/07/12/delphi%e5%af%ab%e5%85%a5excel%e6%99%82%ef%bc%8c%e5%af%ab%e5%85%a5%e9%80%9f%e5%ba%a6%e7%b7%a9%e6%85%a2%e5%95%8f%e9%a1%8c/#comments Mon, 12 Jul 2010 07:46:11 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2010/07/12/delphi%e5%af%ab%e5%85%a5excel%e6%99%82%ef%bc%8c%e5%af%ab%e5%85%a5%e9%80%9f%e5%ba%a6%e7%b7%a9%e6%85%a2%e5%95%8f%e9%a1%8c/ 最近在修改使用者提出 EXCEL 報表欄位，發現有幾支 procedure 轉出 EXCEL 的速度非常龜，而這幾支 procedure 是前輩所留下的產物，跟自己最近寫的轉 EXCEL 報表速度上差很多，以為是卡在SQL查詢，如果查詢條件KEY值給不齊全，有可能因為資料過多，查詢變很慢，但是測試後應該不是SQL查詢的問題，再對照前輩與自己的程式，感覺不出差異，最後看到 DELPHI 內設定EXCEL時前面通常會有一些基本設定，發現了這幾支程式都有設定列印範圍，姑且註解掉試試看，果然……………兇手就是它！

PageSetup.PrintArea := ‘A:R’;  //設定列印範圍

建議把它移到資料轉完後，最後在給上這個參數就好了。

]]> 最近在修改使用者提出 EXCEL 報表欄位，發現有幾支 procedure 轉出 EXCEL 的速度非常龜，而這幾支 procedure 是前輩所留下的產物，跟自己最近寫的轉 EXCEL 報表速度上差很多，以為是卡在SQL查詢，如果查詢條件KEY值給不齊全，有可能因為資料過多，查詢變很慢，但是測試後應該不是SQL查詢的問題，再對照前輩與自己的程式，感覺不出差異，最後看到 DELPHI 內設定EXCEL時前面通常會有一些基本設定，發現了這幾支程式都有設定列印範圍，姑且註解掉試試看，果然……………兇手就是它！

PageSetup.PrintArea := ‘A:R’;  //設定列印範圍

建議把它移到資料轉完後，最後在給上這個參數就好了。

]]> http://blog.infinity.idv.tw/index.php/2010/07/12/delphi%e5%af%ab%e5%85%a5excel%e6%99%82%ef%bc%8c%e5%af%ab%e5%85%a5%e9%80%9f%e5%ba%a6%e7%b7%a9%e6%85%a2%e5%95%8f%e9%a1%8c/feed/ 0 EXCEL儲存格的IF用法 http://blog.infinity.idv.tw/index.php/2009/12/18/excel%e5%84%b2%e5%ad%98%e6%a0%bc%e7%9a%84if%e7%94%a8%e6%b3%95/ http://blog.infinity.idv.tw/index.php/2009/12/18/excel%e5%84%b2%e5%ad%98%e6%a0%bc%e7%9a%84if%e7%94%a8%e6%b3%95/#comments Fri, 18 Dec 2009 10:55:08 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/12/18/excel%e5%84%b2%e5%ad%98%e6%a0%bc%e7%9a%84if%e7%94%a8%e6%b3%95/ IF(B2="","","123")

表示 B2如果等於空白，則目前所在的儲存格帶入空白，否則帶入123

]]> IF(B2="","","123")

表示 B2如果等於空白，則目前所在的儲存格帶入空白，否則帶入123

]]> http://blog.infinity.idv.tw/index.php/2009/12/18/excel%e5%84%b2%e5%ad%98%e6%a0%bc%e7%9a%84if%e7%94%a8%e6%b3%95/feed/ 0 簡單公式實現Excel自動編號 http://blog.infinity.idv.tw/index.php/2009/12/18/%e7%b0%a1%e5%96%ae%e5%85%ac%e5%bc%8f%e5%af%a6%e7%8f%beexcel%e8%87%aa%e5%8b%95%e7%b7%a8%e8%99%9f/ http://blog.infinity.idv.tw/index.php/2009/12/18/%e7%b0%a1%e5%96%ae%e5%85%ac%e5%bc%8f%e5%af%a6%e7%8f%beexcel%e8%87%aa%e5%8b%95%e7%b7%a8%e8%99%9f/#comments Fri, 18 Dec 2009 10:35:45 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/12/18/%e7%b0%a1%e5%96%ae%e5%85%ac%e5%bc%8f%e5%af%a6%e7%8f%beexcel%e8%87%aa%e5%8b%95%e7%b7%a8%e8%99%9f/ 滿實用的!

 

文章出處：http://community.kingdee.com/pages/checksun/blog/archive/2008/08/12/313745.aspx

    很多時候都需要對Excel中的數據加一列序號，但由於數據的添加、刪除，導致經常要重新填充序號，非常不便，在網上看到用簡單公式即可實現自動編號，非常方便。

    我們知道，在Word中有個自動編號的功能，在Excel中我們可以使用函數來實現這個功能。

    點擊A2單元格輸入公式：=IF(B2="","",COUNTA($B$2:B2))，然後把鼠標移到A2單元格的右下方，鼠標就會變成十字形狀，按住拖拽填充到A列下面的單元格中，這樣我們在B列輸入內容時，A列中就會自動輸入序號了.            我們在打印的時候，有時需要把部分行隱藏起來進行打印，結果卻會發現序號不連續了，這時就需要讓序號調整為連續的。

    在A2單元格輸入公式：=IF(B2="","",SUBTOTAL(103,$B$2:B2))，然後拖拽到A列下面的單元格，這樣就會自動調整序號了。

]]> 滿實用的!

 

文章出處：http://community.kingdee.com/pages/checksun/blog/archive/2008/08/12/313745.aspx

    很多時候都需要對Excel中的數據加一列序號，但由於數據的添加、刪除，導致經常要重新填充序號，非常不便，在網上看到用簡單公式即可實現自動編號，非常方便。

    我們知道，在Word中有個自動編號的功能，在Excel中我們可以使用函數來實現這個功能。

    點擊A2單元格輸入公式：=IF(B2="","",COUNTA($B$2:B2))，然後把鼠標移到A2單元格的右下方，鼠標就會變成十字形狀，按住拖拽填充到A列下面的單元格中，這樣我們在B列輸入內容時，A列中就會自動輸入序號了.   
   
    我們在打印的時候，有時需要把部分行隱藏起來進行打印，結果卻會發現序號不連續了，這時就需要讓序號調整為連續的。

    在A2單元格輸入公式：=IF(B2="","",SUBTOTAL(103,$B$2:B2))，然後拖拽到A列下面的單元格，這樣就會自動調整序號了。

]]> http://blog.infinity.idv.tw/index.php/2009/12/18/%e7%b0%a1%e5%96%ae%e5%85%ac%e5%bc%8f%e5%af%a6%e7%8f%beexcel%e8%87%aa%e5%8b%95%e7%b7%a8%e8%99%9f/feed/ 0 何為樞紐分析表? http://blog.infinity.idv.tw/index.php/2009/12/08/%e4%bd%95%e7%82%ba%e6%a8%9e%e7%b4%90%e5%88%86%e6%9e%90%e8%a1%a8/ http://blog.infinity.idv.tw/index.php/2009/12/08/%e4%bd%95%e7%82%ba%e6%a8%9e%e7%b4%90%e5%88%86%e6%9e%90%e8%a1%a8/#comments Tue, 08 Dec 2009 09:16:18 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/12/08/%e4%bd%95%e7%82%ba%e6%a8%9e%e7%b4%90%e5%88%86%e6%9e%90%e8%a1%a8/ 何為樞紐分析表?它最主要的功用何在呢?簡單的說，就是把基本的資料區分整理好後，透過樞紐分析表來達成各個項目的顯示與最後加總的結果，並可快速切換並得到所要知道的資料列表。

還是不懂嗎?那看看下面動態基楚教學吧，應該就會懂了。

http://www.fjweb.fju.edu.tw/tsaur/AVI/Excel/014Data/Excel-01410PivotTable/Excel%E7%9A%84%E6%A8%9E%E7%B4%90%E5%88%86%E6%9E%90%E8%A1%A8.htm

]]> 何為樞紐分析表?它最主要的功用何在呢?簡單的說，就是把基本的資料區分整理好後，透過樞紐分析表來達成各個項目的顯示與最後加總的結果，並可快速切換並得到所要知道的資料列表。

還是不懂嗎?那看看下面動態基楚教學吧，應該就會懂了。

http://www.fjweb.fju.edu.tw/tsaur/AVI/Excel/014Data/Excel-01410PivotTable/Excel%E7%9A%84%E6%A8%9E%E7%B4%90%E5%88%86%E6%9E%90%E8%A1%A8.htm

]]> http://blog.infinity.idv.tw/index.php/2009/12/08/%e4%bd%95%e7%82%ba%e6%a8%9e%e7%b4%90%e5%88%86%e6%9e%90%e8%a1%a8/feed/ 0 使用DELPHI列印EXCEL所有sheet文件 http://blog.infinity.idv.tw/index.php/2009/11/03/%e4%bd%bf%e7%94%a8delphi%e5%88%97%e5%8d%b0excel%e6%89%80%e6%9c%89sheet%e6%96%87%e4%bb%b6/ http://blog.infinity.idv.tw/index.php/2009/11/03/%e4%bd%bf%e7%94%a8delphi%e5%88%97%e5%8d%b0excel%e6%89%80%e6%9c%89sheet%e6%96%87%e4%bb%b6/#comments Tue, 03 Nov 2009 03:55:25 +0000 Roger Lin http://blog.infinity.idv.tw/index.php/2009/11/03/%e4%bd%bf%e7%94%a8delphi%e5%88%97%e5%8d%b0excel%e6%89%80%e6%9c%89sheet%e6%96%87%e4%bb%b6/ 程式Source

然後重點在於我給了兩個變數 var     ExcelApp,Excelall : Variant;

ExcelApp:=CreateOleObject(’Excel.Application’); <==創建EXCEL應用程式 ExcelApp.Workbooks.Open(tmpFilename); <==正常開啟檔案 Excelall := ExcelApp.Workbooks.Open(tmpFilename);//可列印全部SHEET <==把開啟檔案的狀態給Excelall

最後再使用 Excelall.printout 即可全部的Sheet都列印出來，關閉Excel還是要用ExcelApp.quit來關，而不是 Excelall.quit。

列印作用中的sheet則用 ==> ExcelApp.ActiveSheet.PrintOut 即可

要預覽可帶參數 ==> Excelall.printout(Copies:=1, Collate:=True, [...]]]> 程式Source

然後重點在於我給了兩個變數
var
    ExcelApp,Excelall : Variant;

ExcelApp:=CreateOleObject(’Excel.Application’); <==創建EXCEL應用程式
ExcelApp.Workbooks.Open(tmpFilename); <==正常開啟檔案
Excelall := ExcelApp.Workbooks.Open(tmpFilename);//可列印全部SHEET <==把開啟檔案的狀態給Excelall

最後再使用 Excelall.printout 即可全部的Sheet都列印出來，關閉Excel還是要用ExcelApp.quit來關，而不是 Excelall.quit。

列印作用中的sheet則用 ==> ExcelApp.ActiveSheet.PrintOut 即可

要預覽可帶參數 ==> Excelall.printout(Copies:=1, Collate:=True, Preview:=True) 即可預覽

]]> http://blog.infinity.idv.tw/index.php/2009/11/03/%e4%bd%bf%e7%94%a8delphi%e5%88%97%e5%8d%b0excel%e6%89%80%e6%9c%89sheet%e6%96%87%e4%bb%b6/feed/ 0