廣告

網友您好,若是您覺得我寫的工具或文章對您有幫助,
而您或者您的朋友有在博客來購物,可以透過底下連結

如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。
顯示具有 vba 標籤的文章。 顯示所有文章
顯示具有 vba 標籤的文章。 顯示所有文章

2017年9月27日 星期三

在Excel如何快速速將整批excel已加密密碼取消

因為個資法的關係,寫了一支自動在每個excel設定不同密碼,這支是如果您要將原本設定的密碼取消,就可以使用這支程式,若是您的密碼都相同,只要在第一個檔案後面輸入,或是您的密碼第一碼是0,可以將儲存格設定成文字再輸入有0的密碼。

下載delPassword.xls

2.因為網路下載檔案第一次會出現這個對話框,請點選【啟用編輯】

3.點選【啟用內容】

4.點選【1.選取您要處理竹旳檔案】

5.輸入原本設定密碼,再按【2.開始取消加密Excel檔案】

6.執行完畢會出現對話框,請按【確定】

7.點選【清除檔案列表】會將剛剛所選的清單清除

2017年9月25日 星期一

excel功能區和儲存格格式的跨欄置中差異

在Excel會有二個地方有跨欄置中,一個是功能區的跨欄置中,這個會將儲存格合併成一格,另一個是在儲存格格式的跨欄置中,這個顯示時感覺是合併儲存格的跨欄置中,但是只是一個儲存格有作用,但是在VBA中,若有使用columns來選取欄位時,使用功能區的跨欄置中,會將合併的欄位都選取,而用儲存格格式的跨欄置中,則只會選取單一欄位。

1.用功能區的跨欄置中,是合併儲存格再將值顯示

2.利用儲存格格式的水平【跨欄置中】,則只有選取單一儲存格

3.利用VBA的columns選取單一欄時,會將有合併存格的欄位都選取

4.另一個只會選取一欄

2017年7月3日 星期一

Excel如何利用range.find找到公式並修改

網友問到如何找到某一個公式例如sum,並在這個公式前面加上函數round,因為find會有找不到的時候,要用IS Nothing是表示找不到,若找到再將公式換成您想要的公式。
  
1.原本公式=sum(A2:A6)


2.xlFormualas是代表公式
  
3.執行後公式已經改變
檔案下載: http://download.bestdaylong.com/f442.htm  尋找公式並取代的範例

2017年5月2日 星期二

如何解決excel VBA出現Class Range 的 Select 方法失敗

最近有網友問我一個問題,他說程式執行結果都OK,為什麼結果沒出來,查看原因是因為他在程式碼中加入on error resume next,這句話的意思是,遇到錯誤不要理它,直接跳到下一行執行,這一行在您程式開發階段儘量不要使用,因為程式有錯不跟您給偵錯畫面,您是很難找出錯在那一行,把它的這一行程式註解,再往下執行出現【excel VBA出現Class Range 的  Select 方法失敗】的錯誤,這個錯誤常會出現在要複製工作表內容時,因為工作表沒有切換到要複製或貼上的工作表,就會出現這個問題,可以用.select方法來解決,sheet1.select代表切換到sheet1。

1.將程式中的On Error Resume Next先把它註解

2.程式出現錯誤,按下【偵錯】

3.程式停在Sheet("Reject").Cells.Select

4.在即時運算中輸入? excel.ActiveSheet.name
顯示目前在工作表【操作畫面】

5.將程式改成先切換工作表,再執行cells.select就OK了.

2017年4月19日 星期三

ExcelVBA變數有沒有宣告有差嗎?

我之前學VBA也是有一樣的問題,沒有宣告也可以使用,那為什麼要宣告,所以早期我寫的VBA也是沒有在宣告變數,當網友使用時,跟我說有錯誤時,我才發現它的工作表是用數字命名,偏偏在VBA中的工作表有兩種表示方式,一個是用名稱另一個則是用索引來表示,索引就是數字,所以當您把工作表命名成5,它則會找第5個工作表,若資料表太少,就會出現【陣列索引超出範圍】,或剛好工作表數量有,則執行的結果也是預期的,所以後面在寫VBA時,就很安份的就會宣告變數來告知要使用的型別。
  
1.這是一支VBA在指定工作表(A2)的儲存格A1寫入您要指定的儲存格B2的值
  
2.二支程式只差別在一個有宣告文字型別的strSheetName
  
3.按【沒使用變數】會出垷錯誤,按下【偵錯】
  
4.strSheetName是數字型別
  
5.另一支有宣告的strSheetName則是文字型別
範例檔案下載:http://download.bestdaylong.com/f406.htm

2017年4月5日 星期三

如何使用yahoo帳號在excel寄送email

之前是用gmail當範例,有網友在youtube影片中留言,問是否有yahoo的版本,我本身有yahoo帳號,所以就幫把smtp改成yahoo的smtp,結果出現無法寄出,是無法連線到伺服器,我以為是yahoo密碼記錯了,就用網頁登入,看到一封標題為【未預期的登入舉動】,內容是說明我有啟用【二次登入驗證】要到https://login.yahoo.com/account,登入並取得應用程式密碼,再用那個密碼寄信就可以成功寄出。

1.收到yahoo的通知信

點左邊【帳號安全性】/右邊的【產生應用程式密碼】

3.選【桌面版Outlook】/【Generate】

4.將這組密碼拿到excel去寄信

5.就可以看到yahoo寄出的email

2016年12月6日 星期二

Excel將選取的儲存格範圍最後一碼變成上標字

這是上課學員問的問題,他們公司要將每個料號的最後一碼變成上標字,因為要每個儲存格進去,選取最後一碼,到格式勾上標,原本以為可以用複製格式來解決,最後發現不行,所以就幫他寫了一個將選取範圍的儲存格最後一碼變成上標字,考量到使用方便性,這次可以把檔案另存成增益集,下次同一台電腦,就可以直接用增益集來解決。

1.將下載的檔案開啟後,再另存成增益集

2.在開發人員中/【增益集】/【勾選tmh_tools】/【確定】

3.選取要做上標的儲存格
再按【增益集】/【UpperRight】

4.選取的範圍最後一碼自動變成上標字
檔案下載: http://download.bestdaylong.com/f341.htm

2016年8月23日 星期二

如何利用Excel下載三大法人買賣超日報

想要用Excel去下載三大法人買賣超日報,發現它只能用post的方式呼叫,若是用get就會回傳預設值,剛好Excel可以將呼叫的方法用post方式來執行,底下就是用Excel執行的結果。

1.預設是當天日期,點選【下載】

2.就會將資料下載到工作表【結果】,點選【確定】

3.程式碼最重要的就是PostText這一行
檔案下載: http://download.bestdaylong.com/f291.htm

2016年4月20日 星期三

Excel依列將檔案分別儲存成各個excel檔案

之前寫過一支【Excel依欄位分類自動儲存並以分類名稱為檔案名稱】的Excel VBA程式,粉絲有人傳他的Excel薪資檔是用直式的輸入方式,所以原本的依欄位就不行處理,因為原理相同就把它改成依列將檔案分別儲存成各個excel檔案。

1.網友的薪資料是直式的輸入方式

2.這是想要變成的結果

3.這是設定方式
檔案下載: http://download.bestdaylong.com/f233.htm

2016年3月23日 星期三

Excel VBA常用的物件對應表

在Excel的VBA,您要使用程式來控制Excel,就要對於Excel的物件階層有一點概念才不會找不到指令,底下這是我整理一些常用的,有一點要注意的就是我們的行列的表示方式,跟中國的行列的關念剛有是相反的,就的我們的行是他們的列,他們的列是我們的行。

1.各個名詞的對應

2.用range.會出現提示

3.使用cells.則不會出現,可以在range輸入法
再複製到cell.後面貼上

2016年3月15日 星期二

Excel依欄位分類自動補空白列

這是網友來信問我的問題,因為這支程式跟另一支自動補空白的程式很像,就把它拿來修改,變成依欄位分類自動看要補多少空白列。

1.工作表【原始資料】放上您要處理的資料

2.工作表【設定】輸入您開始的列數,要插入的空白列數,以那一欄為主
再按下【開始填空白列】

3.【確定】

4.切換到工作表【細果】看到我們要的結果
檔案下載: http://download.bestdaylong.com/f218.htm

2016年3月1日 星期二

如何解決在Excel利用巨集錄圖表時無法設定標題

網友在粉絲專頁問了一個問題,因為他要利用巨集來讓做圖更快速,可是錄製巨集後執行都會出現【此處需要物件】按下偵錯,程式會停在設定X Y軸的標題上(ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text),上網找了很久,終於找到問題,因為錄製巨集不會幫您將上有標題的屬性,所以您不能設定值,只要在出錯的上一行加上ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True,程式就可以正常執行。

1.會出現【此處需要物件】按下偵錯

2.程式停在ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text這一行

3.在出錯的上一行加上ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True

4.就可以正常執行
檔案下載: http://download.bestdaylong.com/f213.htm

贊助

彰化一整天粉絲團

About Me

我的相片

很多人問我為什麼叫"一整天",其實這是有原故的.有一天看一本書.就是說如何介紹自己.裡面說到如何讓別人對你的名字有印象.就要讓別人跟你的名字或是身體的一些特徵有關.比如很胖.就會被別人取小胖或是胖子.或是跟名字有關的諧音,那天看布袋戲中有一個叫”一頁書”的角色.所以我就想我的名字.可以想出什麼字出來.結果我把我的名字"明和",拆成日月和,日月和在一起,就代表白天晚上都在一起.就取名為"一整天",而這個"一整天"跟我的名字有關也方便別人記憶,後來發現"一整天"這個名詞太常被用,所以就在"一整天"前面加上"彰化"變成"彰化一整天",為什麼要加彰化.因為我老家在彰化,所以以後別人要找我的部落格的話.我都會跟他們說,請到yahoo或是google打"彰化一整天"第一筆出現的就是我的Blog. PS:現在只要輸入"一整天"可以找到.

Google+ Followers