2017年7月
            1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31          

« 2010年6月 | トップページ | 2010年10月 »

2010年9月25日 (土)

@アニメ(2010秋アニメOP、ED)

やっと暑さも和らいで少し涼しくなってきました。ということで2010年秋アニメ特集です。
本数は継続も含めて31本ありました。現時点の情報でまとめてみました。
各楽曲のMP3ファイルや歌詞はこちらから入手できる可能性があります。

注:千葉エリアの開始年月日、発売日は変更の可能性あり(最新情報はAmazon等で確認してね)

■FAIRY TAIL  2009/10/12 19:30  ~    東京
    OP1:Snow Fairy|FUNKIST 発売日:2009/12/02
    OP2:S.O.W. センスオブワンダー|アイドリング!! 発売日:2010/01/27
    OP3:ft.|FUNKIST 発売日:2010/04/28
    OP4:R.P.G.~Rockin' Playing Game|SuG 発売日:2010/09/01
    OP5:エガオノマホウ|MAGIC PARTY 発売日:2010/11/17
    ED1:完璧ぐ~のね|渡り廊下走り隊 発売日:2009/11/11
    ED2:記憶メリーゴーランド|onelifecrew 発売日:2010/03/03
    ED3:ごめんね、私。|南波志帆 発売日:2010/06/23
    ED4:君がいるから|下川みくに 発売日:2010/07/21
    ED5:HOLY SHINE|Daisy×Daisy 発売日:2010/11/23
    挿入歌:悲しき過去|中島愛 

■刀語  2010/1/25 1:30  ~    フジ
    OP1:冥夜花伝廊|栗林みな実 発売日:2010/01/27
    OP2:刀と鞘|ALI PROJECT 発売日:2010/08/25
    ED1:誰そ彼の月華|妖精帝国 発売日:2010/04/07
    ED2:Refulgence|少女病 発売日:2010/05/12
    ED3:千本千女の刃毬唄|畑亜貴 発売日:2010/06/02
    ED4:虚無の華|kukui 発売日:2010/07/07
    ED5:愛と誠|とがめ(田村ゆかり) 発売日:2010/08/04
    ED6:雪ノ女|ALI PROJECT 発売日:2010/09/01
    ED7:迷い子さがし|鑢七実(中原麻衣) 発売日:2010/10/06
    ED8:からくり眠り談|みのこ 発売日:2010/11/03
    ED9:証|Annabel 発売日:2010/12/01
    ED10:否、と姫は全てを語らず|否定姫(戸松遥) 発売日:2011/01/12
    ED11:亡霊達よ野望の果てに眠れ|飛蘭 発売日:2011/02/02
    ED12:時すでに始まりを刻む|栗林みな実 発売日:2011/03/02

■最強武将伝 三国演義  2010/4/4 9:30  ~    東京
    OP:風の会話|ささきいさお 発売日:2010/07/07
    ED1:愛は降る星のごとく|May'n 発売日:2010/05/12
    ED2:ユラリユララ|中島卓偉 

■アマガミSS  2010/7/2 1:25  ~    TBS
    OP1:i Love|azusa 発売日:2010/07/21
    OP2:君のままで|azusa 発売日:2010/10/20
    ED1:君の瞳に恋してる|森島はるか(伊藤静) 発売日:2010/07/21
    ED2:きっと明日は・・・|棚町薫(佐藤利奈) 発売日:2010/08/18
    ED4:あなたしか見えない・・・|中多紗江(今野宏美) 発売日:2010/08/18
    ED3:恋はみずいろ|七咲 逢(ゆかな) 発売日:2010/10/13
    ED5:恋はあせらず|桜井梨穂子(新谷良子) 発売日:2010/11/10
    ED6:嘆きの天使|絢辻 詞(名塚佳織) 発売日:2010/12/15
    ED7:恋のゆくえ|上崎裡沙(門脇舞以) 発売日:2011/01/19
    挿入歌:星|桜井梨穂子(新谷良子) 発売日:2010/11/10

■伝説の勇者の伝説  2010/7/2 2:15  ~    東京
    OP1:LAMENT~やがて喜びを~|結城アイラ 発売日:2010/07/21
    OP2:Last Inferno|Ceui 発売日:2010/10/27
    ED1:Truth Of My Destiny|Ceui 発売日:2010/08/11
    ED2:光のフィルメント|高垣彩陽 発売日:2010/11/17
    挿入歌:Energy|Ceui 発売日:2010/10/27

■ぬらりひょんの孫  2010/7/6 23:00  ~    東京MX
    OP1:Fast Forward|MONKEY MAJIK 発売日:2010/07/14
    OP2:Sunshine|MONKEY MAJIK 発売日:2010/11/24
    ED1:Sparky☆Start|片手☆SIZE 発売日:2010/08/18
    ED2:Symphonic☆Dream|片手☆SIZE 発売日:2010/11/17
    ED3:Brilliant☆Message|片手☆SIZE 

■屍鬼  2010/7/9 1:15  ~    フジ
    OP1:くちづけ|BUCK-TICK 発売日:2010/08/31
    OP2:カレンデュラ レクイエム|kanon×knon 発売日:2010/10/13
    ED1:walkの約束|nangi 発売日:2010/03/24
    ED2:月下麗人|BUCK-TICK 発売日:2010/03/24

■スーパーロボット大戦OG ジ・インスペクター  2010/10/3 22:00  ~    東京MX
    OP:MAXON|JAM Project 発売日:2010/10/27
    ED:僕らの自由|美郷あき 発売日:2010/11/24

■バクマン。  2010/10/2 18:00  ~    NHK教育
    OP:Blue Bird|コブクロ 
    ED:BAKUROCK ~未来の輪郭線~|YA-KYIM 発売日:2010/11/24
    挿入歌:超ヒーロー伝説|影山ヒロノブ 
    挿入歌:GET OP|KOOGY(森久保祥太郎) 発売日:2010/12/15

■テガミバチ REVERSE  2010/10/3 0:10  ~    東京
    OP:小さな魔法|ステレオポニー 発売日:2010/12/08
    ED:勿忘草|ピコ 発売日:2010/12/08

■探偵オペラ ミルキィホームズ  2010/10/7 23:00  ~    東京MX
    OP:正解はひとつ!じゃない!!|ミルキィホームズ 発売日:2010/10/27
    ED:本能のDOUBT|飛蘭 発売日:2010/11/24

■STAR DRIVER 輝きのタクト  2010/10/3 17:00  ~    TBS
    OP1:GRAVITY 0|Aqua Timez 発売日:2010/10/13
    OP2:SHINING☆STAR|9nine 発売日:2011/03/09
    ED1:Cross Over|9nine 発売日:2010/12/01
    ED2:Pride|SCANDAL 発売日:2011/02/09
    挿入歌:モノクローム|気多の巫女(戸松遥) 発売日:2011/01/26
    挿入歌:木漏れ日のコンタクト|アゲマキ・ワコ(早見沙織) 
    挿入歌:イノセント・ブルー|ヨウ・ミズノ(日高里菜) 
    挿入歌:木漏れ日のコンタクト(Piano version)|アゲマキ・ワコ(早見沙織) 

■心霊探偵 八雲  2010/10/3 23:00  ~    BS2
    OP:Key|Jangled Cat(小野大輔) 発売日:2010/11/17
    ED:Missing You|コミネリサ 発売日:2010/11/17

■薄桜鬼 碧血録  2010/10/3 23:30  ~    チバ
    OP:舞風|吉岡亜衣加 発売日:2010/10/06
    ED:茜空に願ふ|mao 発売日:2010/10/06

■俺の妹がこんなに可愛いわけがない  2010/10/3 23:30  ~    東京MX
    OP:irony|ClariS 発売日:2010/10/20
    ED1:妹プリ~ズ|高坂桐乃(竹達彩奈) 発売日:2010/12/22
    ED2:Shine!|高坂桐乃(竹達彩奈) 発売日:2010/12/22
    ED3:ほらいずむ|高坂桐乃(竹達彩奈) 発売日:2011/01/26
    ED4:白いココロ|新垣あやせ(早見沙織) 発売日:2011/01/26
    ED5:オレンジ|高坂桐乃(竹達彩奈) 発売日:2011/02/23
    ED6:マエガミ|田村麻奈実(佐藤聡美) 発売日:2011/02/23
    ED7:Masquerade!|黒猫(花澤香菜) 発売日:2011/03/23
    ED8:カメレオン・ドーター|沙織・バジーナ(生天目仁美) 発売日:2011/03/23
    ED9:好きなんだもん!!|高坂桐乃(竹達彩奈) 発売日:2011/04/27
    ED10:いいえ、トムは妹に対して性的な興奮をおぼえています|来栖加奈(田村ゆかり) 発売日:2011/04/27
    ED11:アキハバラ☆だんす☆なう!!|高坂桐乃(竹達彩奈)、黒猫(花澤香菜)、沙織・バジーナ(生天目仁美) 発売日:2011/05/25
    ED12:ただいま。|高坂桐乃(竹達彩奈) 発売日:2011/05/25
    挿入歌:星くずういっちメルル|メルル(田村ゆかり) 

■えむえむっ!  2010/10/4 0:00  ~    チバ
    OP:HELP!!|石動美緒(竹達彩奈) 発売日:2010/10/27
    ED:More-more LOVERS!!|麻生夏子 発売日:2010/11/10

■百花繚乱サムライガールズ  2010/10/4 0:30  ~    チバ
    OP:Last vision for last|飛蘭 発売日:2010/10/27
    ED:恋にせっせ通りゃんせ|サムライガールズ 発売日:2010/11/10

■荒川アンダー ザ ブリッジ×ブリッジ  2010/10/4 1:35  ~   東京
    OP:COSMOS vs ALIEN|やくしまるえつこ 発売日:2010/11/17
    ED1:赤いコート|スネオヘアー 発売日:2010/12/08
    ED2:逆様ブリッジ|スネオヘアー 発売日:2010/06/23

■Panty and Stocking with Garterbelt  2010/10/5 1:30  ~    チバ
    OP:Theme for Panty & Stocking|Hoshina Anniversary 発売日:2010/12/29
    ED:Fallen Angel|Aimee B 発売日:2010/12/29
    挿入歌:CHOCOLAT|TCY FORCE feat.Mariya Ise 発売日:2010/12/29
    挿入歌:D City Rock-Teddyloid feat. Debra Zeer|TeddyLoid 発売日:2010/12/29

■おとめ妖怪 ざくろ  2010/10/5 1:30  ~    東京
    OP:MOON SIGNAL|スフィア 発売日:2010/10/20
    ED1:初戀は柘榴色|西王母桃(中原麻衣) 発売日:2010/11/24
    ED2:二人静|薄蛍(花澤香菜) 発売日:2010/11/24
    ED3:純情マスカレイド|雪洞(豊崎愛生)、鬼灯(堀江由衣)、花桐丸竜(梶裕貴) 発売日:2010/11/24

■侵略!イカ娘  2010/10/5 2:00  ~    東京
    OP:侵略ノススメ☆|ULTRA-PRISM with イカ娘 発売日:2010/10/27
    ED:メタメリズム|伊藤かな恵 発売日:2010/11/26

■そらのおとしもの f【フォルテ】  2010/10/5 2:00  ~    チバ
    OP1:Ring My Bell|櫻井智樹(保志総一朗) 発売日:2010/12/22
    OP2:ハートの確率|blue drops(吉田仁美&イカロス(早見沙織)) 発売日:2010/11/10
    ED1:帰るから|blue drops(吉田仁美&イカロス(早見沙織)) 発売日:2010/11/10
    ED2:COSMOS|イカロス featuring blue drops(吉田仁美&イカロス(早見沙織)) 発売日:2010/12/22
    ED3:かけめぐる青春|見月そはら&五月田根美香子 発売日:2010/12/22
    ED4:ミラクル・ガイ|アストレア(福原香織) 発売日:2010/12/22
    ED5:ff(フォルティシモ)|見月そはら 発売日:2010/12/22
    ED6:ソルジャー・イン・ザ・スペース|桜井智樹&守形英四朗 発売日:2010/12/22
    ED7:帰らざる日のために|智樹、イカロス、そはら、守形、会長、ニンフ、アストレア 発売日:2010/12/22
    ED8:踊り子|イカロス&五月田根美香子 発売日:2010/12/22
    ED9:夏のお嬢さん|ニンフ 発売日:2010/12/22
    ED10:望郷の旅|桜井智樹&トモ子 発売日:2010/12/22
    ED11:時代遅れの恋人たち|イカロス、ニンフ、アストレア 発売日:2010/12/22
    挿入歌:notモテ男冬景色|桜井智樹(保志総一朗) 発売日:2010/12/22

■もっと To LOVEる  2010/10/6 2:00  ~    東京MX
    OP:Loop-the-Loop|KOTOKO 発売日:2010/10/20
    ED:Baby Baby Love|戸松遥 発売日:2010/11/03

■神のみぞ知るセカイ  2010/10/7 1:50  ~    東京
    OP:God only knows 第三幕|Oratorio The World God Only Knows 発売日:2010/11/03
    ED1:コイノシルシ|神のみぞ知り隊 feat. 高原歩美 starring 竹達彩奈 発売日:2010/11/17
    ED2:たった一度の奇跡|飛鳥空 starring 櫻井智 発売日:2010/12/01
    ED3:コイノシルシ|神のみぞ知り隊 feat. 青山美生 starring 悠木碧 発売日:2010/11/24
    ED4:コイノシルシ|神のみぞ知り隊 feat. エルシィ starring 伊藤かな恵 発売日:2010/11/10
    ED5:コイノシルシ|神のみぞ知り隊 feat. 中川かのん starring 東山奈央 発売日:2010/12/08
    ED6:コイノシルシ|神のみぞ知り隊 feat. 汐宮栞 starring 花澤香菜 発売日:2010/12/22
    ED7:集積回路の夢旅人|桂木桂馬 starring 下野紘 
    挿入歌:初めての色|飛鳥空 starring 櫻井智 発売日:2010/12/01
    挿入歌:ALL 4 You|中川かのん starring 東山奈央 発売日:2011/03/03
    挿入歌:LOVE KANON|中川かのん starring 東山奈央 発売日:2011/03/03
    挿入歌:ハッピークレセント|中川かのん starring 東山奈央 発売日:2010/12/15
    挿入歌:らぶこーる|中川かのん starring 東山奈央 発売日:2011/03/03
    挿入歌:恋、ヨロシクお願いします!|シトロン starring 日高里奈&内田真礼&東山奈央 
    挿入歌:Oh!まいGOD!!|エルシィ starring 伊藤かな恵 発売日:2010/11/10
    挿入歌:God only knows|Oratorio The World God Only Knows 発売日:2010/11/03

■探偵オペラ ミルキィホームズ  2010/10/7 23:00  ~    東京MX
    OP:正解はひとつ!じゃない!!|ミルキィホームズ 発売日:2010/10/27
    ED:本能のDOUBT|飛蘭 発売日:2010/11/24

■それでも町は廻っている  2010/10/8 1:55  ~    TBS
    OP:DOWN TOWN|坂本真綾 発売日:2010/10/20
    ED:メイズ参上!|メイズ 発売日:2010/11/24
    挿入歌:そうは云っても世界は終わらない|メイズ 発売日:2010/11/24

■ヨスガノソラ  2010/10/8 23:30  ~    BS11
    OP:比翼の羽根|eufonius 発売日:2010/10/27
    ED:ピンキージョーンズ|ももいろクローバー 発売日:2010/11/10
    挿入歌:ツナグキズナ|Team.ねこかん【猫】 featuring.天乙准花 発売日:2010/10/27

■FORTUNE ARTERIALーフォーチュン アテリアルー 赤い約束  2010/10/9 1:23  ~  東京
    OP:絆-kizunairo-色|Lia 発売日:2010/10/27
    ED:I miss you|Veil 発売日:2010/10/27
    挿入歌:赤い約束 for TV ANIMATION|Veil 

■とある魔術の禁書目録II  2010/10/9 1:30  ~    東京MX
    OP:No buts!|川田まみ 発売日:2010/11/03
    ED:Magic∞world|黒崎真音 発売日:2010/11/24

■咎狗の血  2010/10/9 1:55  ~   TBS
    OP:ROSE HIP-BULLET|GRANRODEO 発売日:2010/10/27
    ED1:no moral|いとうかなこ 発売日:2010/12/22
    ED2:bright lights|木村世治 発売日:2010/12/22
    ED3:Don't Stare Me|VERTUEUX (Lantis / GEORIDE) 発売日:2010/11/03
    ED4:棘-toge-|Sadie 発売日:2010/11/03
    ED5:once more again|美郷あき 
    ED6:Requiem Blue|Curriculu Machine feet.W.K.(ワタナベカズヒロ) 
    ED7:crossing fate|OLDCODEX 発売日:2010/12/22
    ED8:優しさに守られて|喜多修平 
    ED9:Honed Moon-咎レタ月|いとうかなこ 
    ED10:Don't look away|Curriculu Machine 
    ED11:STILL anime Ver.|いとうかなこ 
    ED12:GRIND"style GR"|GRANRODEO 


■海月姫 ~くらげひめ~  2010/10/15 0:45  ~    フジ
    OP:ここだけの話|チャットモンチー 発売日:2010/10/27
    ED:きみのきれいに気づいておくれ|サンボマスター 発売日:2010/11/17

2010年9月 7日 (火)

◆Outlook VBA(複数メールの添付ファイルを一括保存2)

ご無沙汰のOutlook VBAネタです。
コメントを頂きましたので一括保存マクロを改良してみました。
一括保存する際に同じファイル名があったらファイル名が重複しないようにファイル名_1というように
枝番を付加するように改善しました。
アンダーバーが趣味ではないという方は以下の部分をいろいろ変更してみてください。
例えば、
lVal = lVal & "_" & cnt & Mid(oF.DisplayName, InStrRev(oF.DisplayName, "."))

lVal = lVal & "(" & cnt & ")" & Mid(oF.DisplayName, InStrRev(oF.DisplayName, "."))


Sub 選択メールの添付ファイルを指定フォルダに一括保存()
    Dim cDir As String, oSel As Object, oF As Object
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim mySendFolder As Outlook.MailItem
    Dim myCopiedItem As Outlook.Items
    Dim lMax As Integer, i As Integer
    Dim MyTitle As String
    Dim Leng As Long, hWnd As Long, ret As Long

    Dim myAttachments As Outlook.Attachment
    Dim MsgTxt As String, a As String
    Dim myExlApp As Object, Files As Object
    Dim lSubject As String
    Dim fs As Object
    Dim lpath As String, lVal As String
    Dim cnt As Integer
   
    On Error Resume Next
    Set myOlApp = CreateObject("Outlook.Application")
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
   
    Set myExlApp = CreateObject("excel.Application")
    cDir = myExlApp.GetSaveAsFilename("DUMMY", "全ファイル(*.*),*.*", , "保存先フォルダ指定")
    If cDir = "False" Or cDir = "FALSE" Then GoTo p_exit
   
    cDir = Mid(cDir, 1, InStrRev(cDir, "\") - 1)
   
    '現在のウィンドウタイトル取得
    hWnd = GetActiveWindow()
    MyTitle = String(250, Chr(10))
    Leng = Len(MyTitle)
    ret = GetWindowText(hWnd, MyTitle, Leng)

    Set fs = CreateObject("Scripting.FileSystemObject")
    '選択されたメールの添付ファイルを保存
    For Each oSel In myOlSel
        i = i + 1
        ret = SetWindowText(hWnd, oSel & "(" & i & "/" & myOlSel.Count & ")" & "を処理中...")
        For Each oF In oSel.Attachments
            lpath = cDir & "\" & oF.DisplayName
            If Not (fs.FileExists(lpath)) Then
                oF.SaveAsFile lpath
            Else
                cnt = 0
                Do Until Not (fs.FileExists(lpath))
                    cnt = cnt + 1
                    lVal = Mid(oF.DisplayName, 1, InStrRev(oF.DisplayName, ".") - 1)
                    lVal = lVal & "_" & cnt & Mid(oF.DisplayName, InStrRev(oF.DisplayName, "."))
                    lpath = cDir & "\" & lVal
                Loop
               
                oF.SaveAsFile lpath
            End If
        Next
       
    Next
   
    ret = SetWindowText(hWnd, MyTitle)
    MsgBox "終了しました。総数:" & i
    ret = Shell("c:\windows\explorer.exe " & cDir, vbNormalFocus)

p_exit:
    Set fs = Nothing
    Set myExlApp = Nothing
    Set oSel = Nothing
    Set oF = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
   
End Sub

« 2010年6月 | トップページ | 2010年10月 »