「ソフト」カテゴリーアーカイブ

エクセルで電子納品を楽にする

ソフトを使わずに電子納品のファイルを用意するのはなかなか手間がかかるので、
最終的なファイルを集める作業とかファイル名称を変えつつコピーする部分をエクセルで集計してやる方法を思いついた。

そのほかにも使えるケースがあるかもしれないので、
アップしてみる。

ファイル収集(電子納品などにどうぞ)
ちなみに、黄色い背景にしている範囲をダブルクリックすると、そのセル以下に選んだファイルパスが登録できます。

マクロ部分。(雑ですみません)

[code language=”vba”]
‘—————————————————————
‘2015/3/29
‘作成環境: Excel2010

‘known bugs: まだ解らない. 😉

‘—————————————————————

Private Sub StartFileCopy()
On Error GoTo ErrorHandler

Set fs = CreateObject(“Scripting.FileSystemObject”)
Dim gyo As Integer
Dim targetDir As String

If Range(“B” & CStr(7)).Value = “” Then
MsgBox “ファイル登録が一つも無い…”, , “ちょっとまって!”
Exit Sub
End If

targetDir = Range(“C3”).Value

Do
If Range(“B” & CStr(gyo + 7)).Value = “” Then Exit Do ‘指定ファイルが書いてないとき

‘登録したPATH
‘MsgBox Range(“B” & CStr(gyo + 7)).Value
‘フォルダー名取得
‘MsgBox fs.GetParentFolderName(Range(“B” & CStr(gyo + 7)).Value)
‘ファイル名取得
‘MsgBox fs.GetFileName(Range(“B” & CStr(gyo + 7)).Value)
‘拡張子取得
‘MsgBox fs.GetExtensionName(Range(“B” & CStr(gyo + 7)).Value)

If Range(“c” & CStr(gyo + 7)).Value = “” Then
‘リネーム名指定なしの場合はファイル名そのままでコピー
fs.CopyFile Range(“B” & CStr(gyo + 7)).Value, _
targetDir & “\” & fs.GetFileName(Range(“B” & CStr(gyo + 7)).Value), False
Else
‘リネーム名指の指定があれば、コピー
fs.CopyFile Range(“B” & CStr(gyo + 7)).Value, _
targetDir & “\” & Range(“c” & CStr(gyo + 7)).Value & “.” & fs.GetExtensionName(Range(“B” & CStr(gyo + 7)).Value), _
False
End If

gyo = gyo + 1

Loop Until gyo > 999 ‘1000超えたら

Set fs = Nothing

Exit Sub

ErrorHandler:
Close
MsgBox “エラーです”, 0, “困ったことに”
Set fs = Nothing
Exit Sub

End Sub

Private Sub Button1_Click()
Call StartFileCopy

End Sub

Private Sub SetFilePath(ByVal StartTarget As Range)
Set fs = CreateObject(“Scripting.FileSystemObject”)

flist = Application.GetOpenFilename( _
FileFilter:=”すべてのファイル,*.*, エクセルファイル,*.xlsx, ワードファイル,*.docx”, _
FilterIndex:=1, _
MultiSelect:=True _
)

If IsArray(flist) Then
For i = 1 To UBound(flist)
Range(“B” & CStr(StartTarget.Cells.Row + i – 1)).Value = flist(i)
Next
End If

Set fs = Nothing

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

‘ダブルクリックした位置よりファイルパスを登録処理
If Target.Cells.Column = 2 And Target.Cells.Row >= 7 Then
Cancel = True
Call SetFilePath(Target)
End If

End Sub

[/code]

WD40EZRXに交換

自宅のサーバー容量が不足してきたので、入れ替えた。(始めた
3TBから4TBに。

WD40EZRXがもっと安くなったらと考えていたけど、価格上昇傾向だったし、逼迫していたので仕方ない。orz…

$ cat /proc/mdstat
Personalities : [raid1]
md0 : active raid1 sdb1[2] sdc1[0]
2930265024 blocks [2/1] [U_]
[>....................] recovery = 0.5% (15211968/2930265024) finish=365.4min speed=132936K/sec

2台これを繰り返さないといけないから、12時間は縮退状態。(p=7302)
恐い。

PT3で録画失敗。libccidが原因?

PT3でテスト録画してみると、

Recording…
b25->put failed
b25_decode failed (code=-9). fall back to encrypted recording.

となってしまう。

カードの認識を再確認すると、認識してないという状況に。
$ pcsc_scan

Card state: Status unavailable,

webをいろいろ読み歩いてみて、libccidを旧バージョンで強制インストールしてみた。
$ sudo dpkg –force-bad-version -i libccid_1.3.11-2_amd64.deb

今日のところは解決。

セイジ

セイジ-陸の魚-鑑賞

慰めというか救済というか、人の心を動かすというのは深い世界だね。
感受性がきわめて強い人間は社会的には危険な雰囲気とか要素を持っている人間というのは特に理解できるなという印象。

流行の西島秀俊は結構はまり役。森山未來も適合感強い配役と感じた。
良い映画。

セイジ -陸の魚- DVD

最近あまり洋画見てないな~
何か気楽そうなの無いかな。

仕事で使っているOutlookが勝手にカラー使うから抑制した

カラー印刷すると、複合機のカラーカウント増えて嫌なのでメールは基本黒で良いじゃ無いかというスタンス。

そもそもhtmlメールを昔から使っていない体質なので、それで良い。
相手のsignatureにあるURLとかmailアドレスをリンク表示してくれて勝手に青で出すOutlookを何とかしたかった。

調べたらテンプレートの位置にNormalEmail.dotmというファイルがあって、それをWord使って編集してやったら対応できました。

珍しくファイルを置いてみる。
NormalEmail.dotm

ハイレゾ時代にMP3の話

最近はflacからmp3を生成する事があるのだけど、今更ながらvbrでのビットレートがちゃんと指定したとおりなのか疑問に思った。
ほんと今更。。

調べたらいくつかvbrのビットレートを確認できるソフトを発見。

普段はfoobar2000でlameを使ったmp3変換をしている。
オプションは、こんな感じ。
-S --noreplaygain -V 2 -q 2 -b 96 -B 320 -m j

で、変換したファイルを解析したら・・・
K5_MP3_Analizerで解析

おぉ~
ちゃんとなるのね。

以上!
安心して終わり。