返回列表 上一主題 發帖

[發問] 從一個儲存格資料，拆到多個儲存格欄位中

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-25 10:48 | 顯示全部帖子

[發問] 從一個儲存格資料，拆到多個儲存格欄位中

Dear 大大

          附件是我問題的範本，主要的問題有2
          1. 撰寫好後，在執行的時候，就會產生excel無反應的現象，該怎麼處理為好呢?
          2. 從一個儲存格內把資料拆到好幾個欄位，我寫的方式比較複雜(用判斷的方式一個字元一個字元來處理)
               不知道有沒有更好的處理方式呢???


eeeeeeeeeee.rar (17.63 KB)
收藏 分享
學習才能提升自己

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2014-9-26 13:42 | 顯示全部帖子
回復 2# Hsieh

Dear 大大

         附件是我修改好的，不知道有沒有更簡便的撰寫方式。
         (我自己有找到bug在哪邊，已經可以跑出我要的結果)
        另外有一句程式碼需要大大給點意見，如下句：
        patch = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xls), *.xls")
        現在的excel都有.xls 或 .xlsx ，如果用上面的句子只會顯示.xls的檔案
        要如何大小通吃把excel檔全叫出來呢???

eeee.rar (206.14 KB)
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
3#
發表於 2014-9-27 09:14 | 顯示全部帖子
回復 4# luhpro


    謝謝指導~  長知識~ 以後就知道怎麼運用~  :)
學習才能提升自己

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題