返回列表 上一主題 發帖

懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝

jysun1

帖子
23 
主題
8 
精華
0 
積分
30 
點名
0  
作業系統
win7 
軟體版本
64bit 
閱讀權限
10 
性別
男 
註冊時間
2017-8-13 
最後登錄
2019-1-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-9-5 22:49 | 只看該作者

懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝

高手大大請教如何用VB將一堆data轉成表格,謝謝

table.zip (16.78 KB)
收藏 分享

jysun1

帖子
23 
主題
8 
精華
0 
積分
30 
點名
0  
作業系統
win7 
軟體版本
64bit 
閱讀權限
10 
性別
男 
註冊時間
2017-8-13 
最後登錄
2019-1-13 
4#
發表於 2018-9-6 12:17 | 只看該作者
回復 2# faye59
:D 非常感謝大大的回覆馬上來試一下

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-9-6 00:51 | 只看該作者
回復 1# jysun1


    不知道你的檔案來原是什麼，Excel?txt?Access?
Excel的話用VBA就很好做了，
除非是要呼叫其它資料來源再用VB.net做比較妥。
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-9-6 00:44 | 只看該作者
本帖最後由 faye59 於 2018-9-6 00:46 編輯

回復 1# jysun1


    目前依照你給的檔案寫，寫到你原本的檔案時請自行修改。
先試試看VBA的部分。
  1. Sub ex()
  2. For Each aa In Sheets("工作表1").Range([A3], [A3].End(xlDown))
  3. If aa.Offset(, 0) = "區" Then '如果等於區才執行
  4.     Select Case aa.Offset(, 1) '要回傳的位置
  5.     Case "1"
  6.         X = 10
  7.     Case "2"
  8.         X = 11
  9.     Case "3"
  10.         X = 12
  11.     Case "4"
  12.         X = 13
  13.     Case "5"
  14.         X = 14
  15.     End Select
  16.     If Sheets("工作表1").Cells(4, X) = "" Then '儲存格為空白不換行
  17.     Sheets("工作表1").Cells(4, X) = aa.Offset(3, 1)
  18.     Else
  19.     Sheets("工作表1").Cells(4, X) = Sheets("工作表1").Cells(4, X) & Chr(10) & aa.Offset(3, 1)
  20.     End If
  21. End If
  22. Next
  23. End Sub
複製代碼
依照你給的檔案區、路、棟，只要"區"一樣"路"跟"棟"就會是一樣，所以只回傳樓的資料填入。
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題