エクセルに保存された多量のデータを、セルごとに書き出し、複数のテキストファイ... - Yahoo!知恵袋

エクセルに保存された多量のデータを、セルごとに書き出し、複数のテキストファイ... - Yahoo!知恵袋:

'via Blog this'


Sub テキスト出力()
For i = 1 To 1000
If Range("A" & i) = "" Then Exit For

Open ActiveWorkbook.Path & "\" & Range("A" & i) & ".txt" For Output As #1
Print #1, Range("A" & i)
Print #1, Range("B" & i)
Print #1, Range("C" & i)
Print #1, Range("D" & i)

Close #1
Next
End Sub

Xperia acro IS11S ホーム画面アプリの常駐化 - 貴の備忘録

Xperia acro IS11S ホーム画面アプリの常駐化 - 貴の備忘録:

'via Blog this'

ホームアプリがKillされないようにOSの設定を変更すれば、アプリからホーム画面に戻ったときのもっさり現象は防止出来る。実際は　/system/build.prop　に以下の行を追加すればよい。#から始まる行はコメントなので、実行行は３行である。

#
# Keep Home App
#
ro.HOME_APP_ADJ=1
ro.HOME_APP_MIN_ADJ=0
ro.HOME_APP_MAX_ADJ=1

present/about_poderosa - Terminal Emulator Poderosa

present/about_poderosa - Terminal Emulator Poderosa:

'via Blog this'