ADSL速度測定集計マクロ

更新日： 2002年9月29日 20:12:18

---

2001-1-27

マクロの入ったEXCLEファイルをリンクがうまくいかなかったので、下記に、マクロのリストを掲載します。

　

• • 機能
    • 測定サイトで測定したADSL速度測定結果のテキスト文test-adsl.txtをスペース区切りでEXCELに取り込み
    • 日付、時間、推定速度**Mbps(**kB/s)、コメントをadsl-speed-test.xlsの2行目に切り貼り
    • E列、F列に　速度（Mbps単位の数値）、曜日を下の行の関数をコピー
      推定速度が、１Mbps以下のとき、kbpsのときは、関数エラーになるので、6行目あたりの関数をコピーしてください。
    • 2行目に空行を挿入
      
      
  • 使い方

1. 測定サイトで測定したADSL速度測定結果を
   "E:\My Documents\test-adsl.txt"に貼りつけ保存
2. adsl-speed-test.xlsを開く
3. ツールメニュ→マクロ→macro0を実行
4. test-adsl.txtを保存して　閉じるかのメッセージに対して　いいえをクリック
   

---

Sub Macro0()


'
' Macro1 Macro
' http://speed.on.arena.ne.jp/　で測定したADSL速度測定結果をコピー
'　"E:\My Documents\test-adsl.txt"に貼りつけ
'　テキストからEXCELシートに変換
'　マクロ記録日 : 2002/1/26 ユーザー名 :
'

'
ChDir "E:\My Documents"
Workbooks.OpenText FileName:="E:\My Documents\test-adsl.txt", StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other _
:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit

'
' Macro2 Macro
' "test-adsl.txt"から"adsl-speed-test.xls"に
'日付、時間、速度、コメントをコピー
'　マクロ記録日 : 2002/1/26 ユーザー名 :
'

'
Range("B2:C2").Select
Selection.Copy
Windows("adsl-speed-test.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Windows("test-adsl.txt").Activate
Range("B7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("adsl-speed-test.xls").Activate
Range("C2").Select
ActiveSheet.Paste
Columns("C:C").EntireColumn.AutoFit
Windows("test-adsl.txt").Activate
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("adsl-speed-test.xls").Activate
Range("D2").Select
ActiveSheet.Paste
'Columns("D:D").EntireColumn.AutoFit

'
' Macro2a0 Macro
' 速度と曜日のコピー
'　マクロ記録日 : 2002/1/26 ユーザー名 :
'

'
ActiveWindow.SmallScroll ToRight:=3
Range("E3:F3").Select
Selection.Copy
Range("E2").Select
ActiveSheet.Paste

'
' Macro2a Macro
' ２行目に　1行挿入
'　マクロ記録日 : 2002/1/26 ユーザー名 :
'

'
Rows("2:2").Select
Selection.Insert Shift:=xlDown

'
' Macro3 Macro
' "test-adsl.txt"を閉じる
'　いいえをクリック
'　マクロ記録日 : 2002/1/26 ユーザー名 :
'

'
Windows("test-adsl.txt").Activate
ActiveWindow.Close


End Sub

→トップへ

→ホームへ戻る

E-mail me