15インチで2kg、それなのに無名ブランドの15インチ3kgのノートパソコンと同じくらい安いのでお勧めです。使ってみると液晶もIPSで低反射コートされていて見やすいです。気になった点は二つしかありません。一つは、薄くするために排気口の位置を無理していて、ヒンジの裏側になっています。パソコンを閉じている時は大丈夫ですが、開くと液晶によって排気口が塞がれるので、冷却音がうるさいです。もう一つは買った状態だと色々なソフトが入っていて遅いです。MSDN アカデミック アライアンスのライセンスがあるのでクリーンインストールすると速くなりますが、買った状態だと入っていたソフトのいくつかを入れることが出来なくなります。
少し工夫が要るので、Windows7をクリーンインストールした後に、必要なドライバ、ソフトウェアをインストールする方法をまとめました。
一番大事なことは、クリーンインストールする前に、Vaio careからリカバリーディスクを作っておくことです。これさえあれば、ハードディスクやSSDのリカバリー領域を消しても大丈夫です。ハードディスクなら容量は充分ですのでリカバリー領域はもしもの時のために残した方が良いですが、容量単価が高いSSDならばリカバリー領域は消したいです。
次に C:\Windows\Drivers\EXE に各種ハードウェアのデバイスドライバが入っているので、これをUSBメモリに保存しておきます。アプリケーションソフトは C:\Windows\Drivers\EXE には入っていませんし、先ほど作ったリカバリーディスクにも、.modという形式で入っているのでそのままでは使えません。これを使えるような形にするにはmod2wimというソフトでwim形式に展開し、wimファイルを今度は7zipで展開します。
必要なファイルの用意が出来たらクリーンインストールします。インストールした直後はUSB3.0のドライバが入っていないので、3つあるUSBポートの一番手前は使えません。C:\Windows\Drivers\EXE をコピーしたUSBメモリを後ろ側2つのどちらかに挿して、片っ端からインストールします。VPCSE1AJ | 製品別情報 | サポート | VAIO | ソニーに新しいドライバーがあればそちらをインストールします。
次にVAIOのハードウェアを制御するソフトを入れます。VPCSE1AJ | 製品別情報 | サポート | VAIO | ソニーからVAIO Careの最新版をインストールし(.Net 4.0以上が必要です)、MODC-178764.no_28に入っているSONY Shared Libraryをインストールし、最後にVAIO Careを立ち上げてその他の機能のリカバリーを選んでVAIO設定をインストールします。この方法だとVAIO Careが英語になるのでVAIO Z (VPCZ1)をクリーンインストールの方法で日本語にします。
参考にしたのは
VPCSE1AJ | 製品別情報 | サポート | VAIO | ソニー
VAIOのリカバリーDVDからアプリケーションをインストールする！（Windows７編）mod2wimの使い方
VAIO P(VPCP11ALJ)のリカバリディスク展開メモ最近はwimファイルの形式が変わってwimファイルの展開はmod2wimでは出来ず7zipが必要です。
mod2wimで展開したフォルダの名前では何が入っているか分からないので調べてみました。まだ良く分からないものも多いですが、本当に必要なものはVAIO Careからインストール出来ます。
| DISK1 | ||
| MODJ-145976.no_1 | ？ | |
| MODJ-147785.no_2 | ？ | |
| MODJ-147999.no_3 | puma | |
| MODJ-148355.no_4 | ？ | |
| MODJ-150097.no_5 | IEDocked | |
| MODJ-158709.no_6 | ||
| MODJ-158715.no_7 | ||
| MODJ-158725.no_10 | Windows-LocalPack-JP-Package | |
| MODJ-159357.no_8 | Count8 | |
| MODJ-160112.no_13 | apiLogCheck | |
| MODJ-162077.no_12 | Evernote | |
| MODJ-164364.no_11 | VAIO Support.Gadget | |
| MODJ-164463.no_9 | oobe_unattend | |
| MODJ-168217.no_14 | DelSearchScopes | |
| MODJ-168314.no_15 | VAIO Peripherals Metadata | |
| MODJ-168318.no_17 | NOBU-ARA_3 | |
| MODJ-168429.no_16 | Sony Firmware Extension Parser | |
| MODJ-168928.no_18 | xRadar(WiFiで位置を特定し付近の店を調べる) | |
| MODJ-169133.no_19 | ReadyBoot | |
| MODJ-170256.no_20 | VAIO Control Center | |
| MODJ-170375.no_22 | VAIO Sample Contents | |
| MODJ-170442.no_21 | VerifyFileVersions | |
| MODJ-170595.no_23 | Adobe Premiere Elements | |
| DISK2 | ||
| MOD-CSUP.no_25 | ||
| MOD-ShareMyConnection_HW_Support_Capable.no_3 | ||
| MODC-176140.no_15 | PUMA | |
| MODC-176149.no_16 | CPU Fan Diagnostic | |
| MODC-178764.no_28 | Sony Shared Library | |
| MODJ-144535.no_6 | VAIO Location Utility | |
| MODJ-170068.no_2 | プロアトラスSV6 | |
| MODJ-170133.no_4 | Windows Live | |
| MODJ-172234.no_7 | Realtek Ethernet Controller Driver | |
| MODJ-173074.no_5 | Intel(R) Chipset Device Software | |
| MODJ-176072.no_8 | ？ | |
| MODJ-176188.no_13 | Skype | |
| MODJ-176608.no_17 | ブックマーク | |
| MODJ-176642.no_9 | SNJB_TBIG | |
| MODJ-176701.no_22 | VAIO Easy Connect | |
| MODJ-176816.no_10 | .Net 4.0 | |
| MODJ-176827.no_11 | oobe | |
| MODJ-176846.no_12 | SONY_DelayedAutoStart | |
| MODJ-176890.no_14 | ？ | |
| MODJ-177304.no_18 | 筆ぐるめ18 | |
| MODJ-177324.no_19 | VerifyUpdates | |
| MODJ-177345.no_20 | Media Galleryなどのインストール | |
| MODJ-177524.no_21 | ATOK2011 | |
| MODJ-178185.no_23 | ？ | |
| MODJ-178306.no_24 | DelayTouchControl | |
| MODJ-179388.no_26 | RBKE | |
| MODJ-179512.no_27 | Media Go (パソコン内の動画などを検索、Gracenoteを使える) | |
| DISK3 | ||
| MODC-179214.no_3 | VAIO First Logon Setup Tool | |
| MODC-179217.no_19 | ISB Utility？ | |
| MODC-179219.no_4 | VAIO Startup Setting Tool | |
| MODC-179222.no_20 | VAIO 電子マニュアル | |
| MODJ-178971.no_10 | PMB(Picture Motion Browser) | |
| MODJ-179144.no_17 | JAVA | |
| MODJ-179518.no_1 | ウィルスバスターっぽい | |
| MODJ-179591.no_13 | VAIO Improvement | |
| MODJ-179649.no_2 | ArcSoft Magic-i Visual Effects 2 | |
| MODJ-179666.no_15 | Sony Shoppingactivity | |
| MODJ-179676.no_5 | 壁紙 | |
| MODJ-179688.no_6 | Windowsのパッチっぽい | |
| MODJ-179692.no_7 | Windowsのパッチっぽい | |
| MODJ-179717.no_11 | PMB VAIO Edition Guide | |
| MODJ-179765.no_8 | inscstm | |
| MODJ-179783.no_14 | SpySweeper | |
| MODJ-179817.no_9 | AcroRead | |
| MODJ-179851.no_21 | VAIO Data Restore Tool | |
| MODJ-179852.no_12 | Wimax | |
| MODJ-179908.no_16 | Chrome | |
| MODJ-179921.no_18 | VAIO Home Network Video Player:家庭内サーバーの動画再生 | |
| DISK4 | ||
| MODC-179213.no_34 | VAIO Update | |
| MODC-179221.no_35 | Prepare Your VAIO | |
| MODC-179228.no_19 | VAIO Support Tool Gadget | |
| MODC-179229.no_36 | VAIO Control Center | |
| MODC-179232.no_39 | VAIO Smart Network | |
| MODC-179349.no_38 | VAIO Power Management | |
| MODC-179601.no_40 | ？ | |
| MODC-179887.no_37 | VAIO Transfer Support | |
| MODJ-179402.no_16 | Evernote | |
| MODJ-179419.no_29 | Remote Keyboard | |
| MODJ-179597.no_2 | Kicktool | |
| MODJ-179599.no_27 | PowerDVD | |
| MODJ-179611.no_15 | Flash Player 10 | |
| MODJ-179667.no_32 | ArcSoft WebCam Companion 4 | |
| MODJ-179706.no_22 | VAIO Gate(ランチャー) | |
| MODJ-179707.no_18 | ？ | |
| MODJ-179708.no_1 | PMB VAIO Edition Plug-in | |
| MODJ-179818.no_4 | Media Gallery Gracenoteを使える自動再生ソフト | |
| MODJ-179859.no_20 | VAIO Hardware Diagnostics | |
| MODJ-179883.no_23 | ブックマーク集 | |
| MODJ-180041.no_12 | Sony64_no_FFL | |
| MODJ-180140.no_26 | QuickWeb_1.4.6.10 | |
| MODJ-180165.no_7 | Intel(R) Management Engine | |
| MODJ-180170.no_8 | USB3drv | |
| MODJ-180171.no_13 | WiMAX | |
| MODJ-180175.no_11 | Intel PROSet Wireless | |
| MODJ-180178.no_9 | Realtek PCIE Card Reader Software | |
| MODJ-180179.no_3 | iata_cd | |
| MODJ-180180.no_6 | WBFMin64 | |
| MODJ-180181.no_30 | ATIのドライバ | |
| MODJ-180183.no_10 | タッチパッド | |
| MODJ-180188.no_28 | ？ | |
| MODJ-180189.no_31 | Bluetooth | |
| MODJ-180193.no_5 | QWAUtil | |
| MODJ-180195.no_21 | Realtek High Definition Audio Driver | |
| MODJ-180227.no_14 | ICCプロファイル | |
| MODJ-180325.no_17 | Digital Media Player | |
| MODJ-180326.no_24 | Remote Play with PlayStation 3 | |
| MODJ-181923.no_25 | KickTool | |
| MODJ-182098.no_33 | ESD | |
関係ないですが、
Google Chrome 安定版 16.0.912.77
http://dl.google.com/chrome/install/912.77/chrome_installer.exe
まず1月分の平均を求めましょう。1月のデータだけを手動で取り出して平均するのは大変ですからExcelにやらせます。
VBAを使うともっと楽なのですが、どんな計算をすれば良いのか、答えはいくつになるのかStep by Stepで説明するためにここではIF関数を使います。G2セルに =IF(C2=1,F2,"") と書いてください。月を表すC列が1なら移動平均との差、そうでなければ空白になります。そしてG列の最後までコピーします。
最初の0は実際にはデータがありませんので平均の計算からは除外します。これの平均をAVERAGE関数で求めてコピーしたら、「形式を指定して貼り付け」で値だけを他のセルに貼り付けて、次に2月だけの値を表示してその平均、3月だけの値を表示してその平均…と続けていきます。
この後はさらにVBAでなければ計算し辛いのですが、上記の方法で計算した12ヶ月の季節成分は偏っていることもありますので、12個の平均を求めて各々の月から引いて、12ヶ月分の平均が0になるようにします。
アドレスの部分は「変数名=値」が&で区切られて続けられています。どの変数が何を示しているかは、値を変えながら色々試してみて推測するしかないのですが、2008年1月に関してはyear=2008とmonth=1に対応しているようです。従ってこの部分をプログラムで書き換えれば良さそうです。
試しに2008年2月のデータを取得してみましょう。
"URL;http://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=66&prec_ch=%89%AA%8ER%8C%A7&block_no=47768&block_ch=%89%AA%8ER&year=2008&month=1&day=&elm=daily&view=" _
の部分を
"URL;http://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=66&prec_ch=%89%AA%8ER%8C%A7&block_no=47768&block_ch=%89%AA%8ER&year=2008&month=2&day=&elm=daily&view=" _
に書き換えて実行してみてください。
予想通り「岡山 2008年2月 （日ごとの値） 主な要素」が取得されましたが、29日以降に1月のデータが残ったままです。これでは困るので、全部削除する操作を調べて、Webから取得する直前に書きます。
全部削除する操作を調べるにもやはりマクロの記録を使います。
Sub Macro2()
'
' Macro2 Macro
'
Cells.Select
Application.CutCopyMode = False
Selection.QueryTable.Delete
Selection.QueryTable.Delete
Selection.ClearContents
End Sub
このように記録されましたが、試してみたところ
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
だけで良さそうです。
但し、消すべきQueryTableがない場合に
Selection.QueryTable.Delete
を実行するとエラーになるので, (1,1)セルが空白でない場合だけ実行するように
Cells.Select
If Cells(1, 1) <> "" Then
Selection.QueryTable.Delete
End If
Selection.ClearContents
とします。
この3行を
With ActiveSheet.QueryTables.Add(Connection:= _
の前に書き足して実行してみましょう。
Sub Macro1()
'
' Macro1 Macro
'
Cells.Select
If Cells(1, 1) <> "" Then
Selection.QueryTable.Delete
End If
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=66&prec_ch=%89%AA%8ER%8C%A7&block_no=47768&block_ch=%89%AA%8ER&year=2008&month=2&day=&elm=daily&view=" _
, Destination:=Range("$A$1"))
以下略
これでシートに書かれていた全てのデータとWebクエリを削除して、2008年2月のデータを貼り付けることが出来ました。
今回は地味で細かな作業の繰り返しになりますので色をつけて説明します。
プログラム全体の構成としては
For m = 1 to 12
2008年m月のデータをSheet2に取得
If m = 1 then
上部の項目名をSheet1へコピー
End If
m月のデータをSheet1へコピー
Next m
となります。
WebからSheet2へデータを取得して、それをSheet1に整理することにしましょう。
まず最初に、データの項目の説明が必要ですので、Sheet2の黄色い部分、つまり2行目から5行目、B列からU列(2列から21列)を、
Sheet1の1行目から4行目、E列目からX列目(5列目から24列目)へコピーします。
次に、毎月、日にちとデータの部分、つまりSheet2のオレンジ色の部分、の6行目からデータの最後の行まで、A列目からU列目(1列から21列)を、
Sheet1の前月のデータの次の行以降、D列目からX列目(4列目から24列目)へコピーします。
それと同時に、Sheet1のA1セルに書かれた年と月を、Sheet1に先ほど貼り付けたデータの2列目と3列目へコピーします。
最後に、日付の通し番号として、Sheet1のB,C,D列を/で繋げてA列に書きます。
このように複数のシートに跨るプログラムは、必ず標準モジュールに書いてください。
標準モジュールがない場合は挿入(I)標準モジュール(M)をクリックして追加してください。
Do While 条件
文1
文2
…
Loop
です。条件が成立している間、Do WhileとLoopで挟まれた文を実行します。
シート2のデータであればCells(6, 1)から順にCells(7, 1), Cells(8, 1),…と見ていって、データが無くなるまで続けます。
但し、(6, 1)から始まるのは紛らわしいので、まず
Cells(6, 1).Select
を実行してCells(6, 1)を選択しておくと
Selection.Cells(1, 1)がCells(6, 1)
Selection.Cells(2, 1)がCells(7, 1)
…
ということになってi番目のデータがSelection.Cells(i, 1)となって分かりやすいです。
以上をまとめて
j = 1 '←jを他のループで使っている場合は別の変数を使ってください。
Cells(6, 1).Select
Do While Selection.Cells(j, 1) <> "" '←<>は大きいか小さい、つまり等しくないことを表し、""は何もないことを表します。つまり<> ""は「空白ではない」という意味です。
j = j + 1
Loop
によって、データの個数を数えることが出来そうです。本当に数えることが出来たか確かめるために、このプログラムの次の行に
MsgBox (j)
と書いて実行してみてください。31と表示されましたか？違っていたら原因と対策を考えてください。
他にも
Do Until 条件
文
Loop
とか
Do
文
Loop While 条件
とか
Do
文
Loop Until 条件
があります。条件が文より下にあると、少なくとも一度は実行されます。文を実行しないと条件がチェックできない場合に使います。
Cells(4, 1) = "日付"
Cells(4, 2) = "年"
のように""で囲った文字列を代入します。A列の日付はB,C,D列を繋げますので
Cells(j, 1) = Cells(j, 2) & "/" & Cells(j, 3) & "/" & Cells(j, 4)
と書けばよいでしょう。
B列, C列の年月はSheets(2)の(1,1)セルから切り出すなら
Mid(Sheets(2).Cells(1, 1), 5, 4)
Mid(Sheets(2).Cells(1, 1), 10, 2)
のようにMid関数を使って、何文字目から何文字、という取り出し方でもいいですが、単純にWebから取得するときに指定した年, 月を表す変数の値を書いて構いません。
第二問:2007年1月から2008年12月までの2年分のデータを収集するプログラムを書いてください。これが出来ればどんなに長い期間のデータでも同様に収集できます。
| 機種 | メリット | デメリット |
|---|---|---|
| そのまま | パケット代無料でスマートフォンが使える | 発売当時から動きが遅かったスマートフォンがさらに時代遅れになってる |
| Aセット | 音声端末のパケット代無料 スマートフォンがAndroidになる | 毎月の支払いが300円上がる 2年経たずに解約すると端末代残金を払わなければならない スマートフォンのパケット代は有料 |
| Bセット | スマートフォンがAndroidになる | 2年経たずに解約すると端末代残金を払わなければならない スマートフォンのパケット代は有料 |
追記:見に行ったのですが、新規とMNPで条件が違いすぎます。そしてウィルコムは今のところMNP出来ません。「０７０」携帯も使用＝番号不足に対応―情通審部会
2014年までには携帯の状況も変わるでしょうから、今から2014年を待とうとは思いません。でも去年は時々、番号そのままではなくてもウィルコムを解約することを条件にMNPと同じ条件で販売されることもあったので、そのチャンスを待つことにします。
激安MNPやiPhone 機種変 一括の技まとめ←ドコモの2in1NO
3月追記:またキャンペーンが行われました。
https://www2.willcom-inc.com/cp/hchange2/
https://www2.willcom-inc.com/cp/hchange3/
アドレスが微妙に異なります。hchange2の方は前の機種の分割払いが残っている人にはその分キャッシュバックすると書いてあり、hchange3には書いてありません。多分既に分割払いが終わっている人には、先に払って損したと思わせないようにhchange3の方を伝えるのでしょう。
SOCIUS(WX01S)とGALAPAGOS(005SH)のセットが機種代分割払いで毎月1,650円、毎月の割引が1,450円で差し引き200円、
WX01NXとVision(007HW)のセットが機種代分割払いで毎月1,450円、毎月の割引が1,450円で差し引き0円です。
PHSはどちらの機種もWebが使えないので、PHSパケット代無料のメリットがなく、WX01NXはメールすら出来ません。
Android側は前回のキャンペーンより少しは新しくなっていますがそれにしても古く、SOCIUSはBlueToothハンドセットになりますが、前回のキャンペーンより良くなっているのはそれだけで、前回のキャンペーンを見送った人にとっては魅力ないでしょう。
