廣告

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

如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。

2012年2月21日 星期二

如何選取多個檔案名稱並存入Excel活頁中

寫了很多的Excel VBA的工具,但是檔案的選取都是利用輸入的方式,雖然這個的寫法對於有規則的檔案命名很方便,但是如果要處理的檔案檔名沒有規則時就很不方便,這支VBA會將您選取的多個檔案,顯示完整路徑,檔案含副檔名,或是只有檔案名稱,方便其它程式使用。
1.執行結果


程式碼如下:

Private Sub cmdPickFileDialog_Click()
    Dim fd As FileDialog    '宣告一個檔案對話框
    
    Set fd = Excel.Application.FileDialog(msoFileDialogFilePicker)  '設定選取檔案功能
    
    
    fd.Filters.Clear    '清除之前的資料
    
    fd.Filters.Add "Excel File", "*.xls*" '設定顯示的副檔名
    fd.Filters.Add "Word File", "*.doc*"
    fd.Filters.Add "所有檔案", "*.*"
    
    
    
    fd.Show '顯示對話框
    
    Sheet1.Columns("A:D").Clear '將舊的A-D欄資料清除
    
    
    For i = 1 To fd.SelectedItems.Count
        strFullName = fd.SelectedItems(i)
        Sheet1.Cells(i, 1) = strFullName   '顯示所選取的檔案名稱
        
        n = rinstr(strFullName, "\")
        
        strFileNameType = Mid(strFullName, n + 1)
        Sheet1.Cells(i, 2) = strFileNameType
        
        n = InStr(1, strFileNameType, ".")
        
        strFileName = Left(strFileNameType, n - 1)
        strsFileType = Mid(strFileNameType, n + 1)
        
        Sheet1.Cells(i, 3) = strFileName
        Sheet1.Cells(i, 4) = strsFileType
        
    Next
End Sub
Function rinstr(ByVal t As String, ByVal s As String)
    '自訂函數找尋某個字串最後出現的位置
    Dim i As Integer
    Dim n As Integer
    
    n = 0
    For i = 1 To Len(t)
        If Mid(t, i, 1) = s Then
           n = i
        End If
    Next
    rinstr = n
End Function

2012年2月7日 星期二

上傳照片或影片讓您dropbox多增加5G空間

在高登工作室看到只要上傳相片,Dropbox無條件送你5GB容量,照著操作,真的多增加5G空間,只要您安裝新版的dropbox beta程式,電腦插入隨身碟或是記憶卡透過dropbox介面上傳的圖片或是影片,只要您上傳多少空間dropbox就會回饋您多少空間,最多可以到5G空間,所以簡單的上傳5G容量方式,可以上傳一般影片或是多媒體,或是把VCD的.dat檔案copy到外接的硬碟並把副檔案由*.dat改成*.mpg ,再把它拿到有灌dropbox的電腦,就會自動上傳。

下載 beta 版的 Dropbox 桌面程式(用戶端)
•Win/Mac版用戶端: http://forums.dropbox.com/topic.php?id=53104
•Andriod版用戶端: http://forums.dropbox.com/topic.php?id=53013





1.安裝完用戶端軟體,插入記憶卡或是隨身碟時,選[Import pictures and videos]

2.如果沒有圖片或是影片會出現No new photos found

3.可上傳.avi .mp4 .wmv等影片格式

4.如果隨身碟中有可匯入的格式會自動匯入 
5.匯入成功時,免費空間才會自動增加,畫面中己由4G變成8.5G

2012年2月6日 星期一

如何將blogger的作者由google+改成blogger預設

自從將blogger跟google+帳號整合以後,所有的發言都變成真名,這個功能很困擾,因為一直以前都用一整天回覆,變成真名很奇怪,到設定想把改它改回來,一直都找不到選項可以改,最後是在說明文件看到如何回復,登入後連結到http://www.blogger.com/revert-profile.g 就可以切換回來。

1.說明文件上的連結點選連結http://www.blogger.com/revert-profile.g 


2.點選[切換回Blogger 簡介]就可以切換回來

2012年2月1日 星期三

如何避免在ipad或是iphone使用QuickOffice輸入中文時會自動關閉檔案的問題

在ipad使用QuickOffice做報告,但是常常會在輸入中文有錯誤時,再更正後再輸入QuickOffice就會自動關閉,找這個問題一段時間發現只要在輸入中文時,不管是注音或是倉頡都有這個問題,解決法方法有兩個。
1.在輸入時,如果有錯時,只要按一次倒退鍵(<-backspace),不要按二次,因為只要按二次,下次再輸入時,只要打二個輸入法的字根就會自動關閉。
2.先輸入123456789,然後再1前輸入中文,這時候如果您不小心按到二次倒退鍵(<-backspace),再輸入一個中文字根時,您會發現1不見了,所以您用1到9表示您可以按錯9次


1.輸入一個日底下會出現跟日有關的字

2.按一次倒退鍵(<-backspace),相關字會不見,但是日還在,
如果您再按一次倒退鍵(<-backspace),日會消失,
這時候您再輸入二個任意字碼就會自動關閉

3.先輸入1到9,再接游標移到數字1前,再開始輸入中文就不會自動關閉

贊助

彰化一整天粉絲團

About Me

我的相片

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

Google+ Followers