彰化一整天的論壇

 找回密碼
 立即註冊
查看: 1037|回復: 0

如何將文字方塊轉數字資料並轉置(VBA版)

[複製鏈接]
發表於 2013-7-22 22:06:16 | 顯示全部樓層 |閱讀模式
本帖最後由 imingho 於 2013-7-23 09:13 編輯

會寫這支工具程式是因為有一位老師遇到需要把網頁上的文字方塊內的數字轉成一般的數字,才可以在Excel做運算,看一下他給的資料是有規則的,所以就寫了這支程式幫他做自動轉換.
txt_to_value_01.png
1.將有文字的方塊的資料複製貼到工作表[原始資料]
2.因為6欄就換列,所以就填6,再按下[開始轉置]
3.轉置過程會出現處理筆數及進度,完成時會出現一個對話框提醒您處理完成
4.切換到工作表[處理後資料],可以看到處理後的結果
  1. Private Sub cmdRun_Click()
  2.     Dim i As Single
  3.     Dim b As Integer    '要處理的欄數
  4.    
  5.     '取得要處理的資料筆數
  6.     Sheet2.Select
  7.     n = Sheet2.OLEObjects.Count
  8.    
  9.    
  10.     Sheet1.Select
  11.     Page = Range("b1")
  12.     i = 1
  13.     Sheet3.Cells.Clear  '將之前的結果清除
  14.    
  15.     '算出原始資料有幾欄資料
  16.     b = 1

  17.    
  18.     For i = 1 To n
  19.         For j = 1 To b
  20.             Sheet3.Cells(((i - 1) \ Page) * b + j, ((i - 1) Mod Page) + 1) = Sheet2.OLEObjects(i).Object.Value
  21.             DoEvents
  22.             Sheet1.Range("b2") = i
  23.             Sheet1.Range("b3") = i / n
  24.         Next

  25.     Next
  26.     MsgBox "轉置完成,請切換到活頁[處理後資料]觀看結果", vbOKOnly, "彰化一整天的blog(http://272586.blotspot.com)"
  27. End Sub
複製代碼

text_to_value.xls

269.5 KB, 下載次數: 3

售價: 2 金錢  [記錄]

text_to_value.xls

回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2019-12-10 19:23 , Processed in 0.141092 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表