カウンタ
プロフィール

sc440ge

Author:sc440ge
「あめた」です。大ケガをして拾われたニャン。サーバーの空き箱に入ってるニャン。
「あめた」ありがとう。
20130603

sc440ge@yahoo.co.jp
パソコン価格情報

 [--/--/--] *

スポンサーサイト




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る



上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。



・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




スポンサー広告 | 【--------(--) --:--:--】 | Trackback(-) | Comments(-)
編集

 [2010/07/02] *

[ DWR-PG ] [Xperia] プラン・請求予定額内訳




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る



[ DWR-PG ] [Xperia] プラン・請求予定額内訳


L-05Aで契約したときのSIMカードを[ DWR-PG ] にのせかえて使っています。プランはL-05Aから変えていません。ついでにXperiaの内訳もアップしておきます。


7月1日に一日だけ使った場合の請求予定額です。 DWR-PGで使ったデータ通信は軽く上限へいってしまいます。
私の最低料金は [DWR-PG] 6,518円, [Xperia] 2,419円 = 8,937円になりそうです。[DWR-PG]がないころの通信代は、1万4000円くらいだったので、かなり安くですむようになりそうです。





[ DWR-PG ] 6,518円
*2010年06月以降に契約した人は、安くなっていますので5,000円前後になっていると思います。
dwr-bill.png





[Xperia] 2,419円
*通話をできるだけ抑えれば、最低料金は2,419円でいけそうです。(ファミリー割引等があります。)
dwr-bill_xp.png









関連記事



・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




その他 | 【2010-07-02(Fri) 09:52:12】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
最新記事

[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange UserForm Application.Wait Now() Application.Speech.Speak CreateObject("SAPI.SpVoice") voice.getdescription() Do While  TimeValue< Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。