【VBA】ファイル整理用マクロ(日付毎にフォルダ作成してコピーするだけ)

深緑の女魔術師です。

スロット系の画像を整理しててめんどくさい・・・

ってことで、この手の作業はマクロ等にやってもらうのが楽ですね。
VBSでも良かったのですが、使い慣れてるVBAで急きょ作成。

@仕様
・サブフォルダは読まないこととする
・振り分けフォルダ名は「YYYYMMDD」とする
・日付は作成日とする(撮影日にしたいけど、難しいらしい)
・ってか画像問わず全ファイル読んでるので、そもそもその仕様は無理なわけで・・・
・危険が伴うので、とりあえずコピーだけ

※大してデバッグしてないので、自己責任でお使いくださいませ。
※また、ファイルが消えたりするかもしれないので、バックアップを取ってから行うと良いかもしれない

@ソース

Sub ファイル整理くん

''変数
Dim strDir As String
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim wDate As Date
Dim objFile As Object
Dim wDir As String

''フォルダ取得
''サンプルなので、適当に指定してます。(指定は各自お好きな方法で・・・)
strDir = Cells(1, 1).Value

''フォルダ存在チェック
If Dir(strDir, vbDirectory) = "" Or strDir = "" Then
MsgBox ("フォルダ・・・おかしくないですか??")
Exit Sub
End If

''ファイルを全部読む
For Each objFile In objFSO.GetFolder(strDir).Files

''日付取得
wDate = objFile.DateCreated

''日付フォルダの有無
''日付ディレクトリの設定
''作業フォルダ + YYYYMMDD
wDir = strDir & "\" & Format(wDate, "YYYYMMDD")
If Dir(wDir, vbDirectory) = "" Then
''ないので作成
MkDir wDir
End If

''移動(コピー)
objFSO.CopyFile (objFile.Path), (wDir & "\" & objFile.Name), True

Next objFile

''初期化
Set objFSO = Nothing

End Sub



思った以上に、簡単なソースになりました。

改良するとすれば、拡張子指定をしたいですね。

以上

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ
スポンサーサイト

Excel VBA セルの色をRGB形式で取得する(BGR→RGBに変換)

深緑の女魔術師です。

ひさびさにVBAネタの更新です。
さきほど、以前作成したテーブル自動生成ツールに色機能を付与しよう!
って思っていじってて、びっくりしたので・・・

件名の通りです。
VBAにて以下の要領でColorを取得するのはよかったけど・・・
 Cells(1,1).interior.Color

が、これに手取得出来る値は10進法なのね・・・
じゃあ16進法にするだけじゃん!って思ったのですが並び方が・・・

試しに赤色のセルを収録してみると・・・
赤色 = 255 (#0000FF)
緑色 = 65280 (#00FF00)
青色 = 16711680 (#FF0000)

なんかおかしくない??

そう、RGBでなく、BGRなのね・・・

というわけで、これでは使い物にならないので、以下関数を自作。
ただ、あまりデバッグしてないので、使えなかったらごめんね。



''BGR→RGB変換関数
''引数 :セルから取得したBGR(10進法)
''戻り値:RGB形式の文字列
''概要 :なぜかBGRの順番の10進法なので・・・
'' 16進法かつ、RGBに並び変えて返却する関数
Function FunTest(ByVal i_BGR) As String

Dim str_BGR As String

''Rだけとか、GRのみ等の対策で0埋めを行う
str_BGR = Right("00000" & Hex(i_BGR), 6)

''BGR -> RGB に変換して返却(切り取り作業)
FunTest = Mid(str_BGR, 5, 2) & Mid(str_BGR, 3, 2) & Mid(str_BGR, 1, 2)

End Function

''使用方法
Sub TestRun()

''セルのカラーを取得して、引数として渡す
MsgBox FunTest(Cells(8.1).Interior.Color)

End Sub


以上。

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

Microsoft Offic 2010 の アップグレードがめんどくさい件

深緑の女魔術師です。

すっかり忘れてましたが、Officeが2010にアップグレード可能だとうか・・・

いまちらっとサイト見てたのですが、なんともめんどくさいよ。

http://www.microsoft.com/japan/office/2010/techg/default.mspx

なんか購入したました的な証明書を送って・・・

えーこんなに面倒なのですか・・・

ユーザー認証してパラっとダウンロードかなぁ~って思ってただけになんとも・・・

というわけで、アップグレードはまたの機会ですね。

以上でした。
web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

Excel VBA 他のアプリケーションにキーを送る・・・Sendkey編~画像変換ツール付き~

深緑の女魔術師です。

少しづつアクセス伸びてる・・・
訪問ありがとう~☆彡

ひさしぶりにVBAのマクロでも・・・

今日は、Sendkeyについてです。

続く・・・

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

この記事の続きを読む場合こっち»


Excel VBA 文字検索・・・Find、FindNext編

深緑の女魔術師です。

使いそうな関数はメモっとないと・・・

ExcelVBAのお仕事はとの昔に終わってしまったケド
今回のツール作成で大変お世話になったのでこの関数。

文字検索を行う
・Find と ・FindNext

使い方に癖があって最初戸惑いましたケド、優秀な関数です。

以下ソース

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ

この記事の続きを読む場合こっち»



web拍手 by FC2
拍手うれしいです・・・

ブログランキング・にほんブログ村へ

応援もうれしいです・・・
かうんたー
れきしとすうち
たぐいちらん

深緑の女魔術師初打ち世界樹の迷宮ぷよぷよNETアトラス世界樹の迷宮5サミーオリンピアフェーリ天鳳世界樹の迷宮4ぷよぷよ7JavaScriptブログKPEカルドセプトSANKYOオーイズミ大宮ソフト作ってみたカルドセプトリボルト新世界樹の迷宮2ダウンロード版セガ大都技研山佐凪のあすからプレイ日記マジカルハロウィン実践DAXELメーシー麻雀魔法少女まどか★マギカ旧イベぷよぷよクロニクルスロアプリWi-fiWindowsPhoneゾロ目祭怪盗天使ツインエンジェル快勝ボスぷよぷよ20thアクロス蒼穹のファフナー3DS小説ぷよぷよシミュレータ中段チェリー北電子メガテン戦国乙女真・女神転生IV-FINAL新緑の女魔術師設定判別ツール岡崎産業セブンスドラゴンⅢ終日実践D-light攻殻機動隊ぷよの日ガスト新・ロロナのアトリエTAKASAGO誕生日SurfacePro4マウスコンピュータサウンドトラックMicrosoft化物語茉莉花の剣秘宝伝藤商事フリーズぷよぷよテトリスひぐらしのなく頃に煌ハロウィーンにほんブログ村だいへんしんBisty目標TAIYO天井新台偽物語沖スロ2017年エレコプリズムナナ2016年SANYOMADOSMAQ501記念日戦国乙女2ユニバーサルブロスデビルサバイバー2スロットRio一撃体験版エンターライズ勝ち勝ちくんパイオニアスロ記念日スーパーブラックジャック2コンパイルレビューガールズ&パンツァー風邪ハウンドスカイガールズPSVitaマジカルハロウィン5プリシラと魔法の本FonepadNote6ウィッチ世界樹と不思議のダンジョン終日AIゴッドイーターVBAスクウェアエニックスプリズムナナエースファイナルファンタジーAndoroidハヤカワ文庫魔法少女ストライクウィッチーズDSiウェアASUS機種紹介芝村裕吏記念記事アンデッドキング霊冥なる原初の主ZippoJPS戦国コレクション2タイヨーエレック七匠アクセスアップスロ雑誌スカイガールズ~ゼロ、ふたたび~SNKプレイモアユニバーサルジャッカスチームA-SLOT探偵歌劇ミルキィホームズマジカルハロウィン2花火レア台スパイキー連鎖倍率打ち納めオーバーロードクレアの秘宝伝2Excel特化ゾーン卓上カレンダー怪盗天使ツインエンジェル3バジリスク3ヱヴァンゲリヲン前田ゆきえ喰霊零ウィッチマスターインフィニット・ストラトス魔法少女まどか★マギカ2にょきにょきドラコ設定6シェゾActionScriptFlash萌えよ剣タイヨーバジリスク絆DS戦国乙女西国参戦編開封の儀ファミスタ1周年月華の剣士手帳サイレントメビウスポケモンPSVITA機動警察パトレイバーナムコスキル検証ニューチバリヨ愛本みずほマジカルハロウィン42015年ヴァイスシュヴァルツエスバットTCGキーボードクレアの秘宝伝ハルピュイアトリビースナイパイ72ニューギン高機動幻想ガンパレード・マーチコンプガイド麻雀物語ソニーSONYブラックラグーン2十字架3秘宝伝伝説への道緋弾のアリア楽園の導き手決意の刻残飯処理MADOSMAエヴァンゲリオンRAVEひぐらしのなく頃に絆ぷよぷよグッズハーレムエース2ポッキーの日ドリスタ保護フィルムアプリ事故ワールドカップクイーンズブレイド2闘富士通ヤーマF07-Cゼロノツバサファイナルファンタジー5翠星のガルガンディアDSiオヤシロチャレンジミリオンゴッド神々の凱旋キャラクタ―スリーブアクセス数コクッチーブラックユニバカエンディングHTMLミリオンゴッド大連鎖リオスパスロマガWiiエンジェルラッシュアルルTRADBLOOD+2スーパーファミコンシンデレラブレイド2七夕コナミ一騎当千VVダークアルルゾーン狙い翠翼の呪皇蒼穹のファフナ―更新率ロデオサントラテンプレート怪盗天使ツインエンジェル2シャーマン二つ名マタドール2ヒポグリフうみねこに鳴く頃に麻雀物語3ヱヴァンゲリヲン希望の槍大量乗せバビロン豚インフルエンザ乱嵐エイサー記事数ライターWindows10MobileZゴールド・インフィニティ神たまワイヤレスキーボードカレンダーロンソンああっ女神さまっSEGAエマVBAりんごメタルマックス4zippo設定6地獄少女連鎖ボイスあんどうりんご打ち始めベヨネッタブログテンプレート収支エウレカセブンAOまじかるすいーつプリズムナナハイライツコロンバスサークルファイナルファンタジー6ほぼ日ゲームパッドホムラミズチWPSWi-Fi中継器FOE萌えの日ナイトオブマハラジャ天井狙いヨーゲルデンケン販売沖ドキイベント日ウィッチクラフトワークススターツ出版Bluetooth大敗ラフィーナ銀河機攻隊マジェスティックプリンス秋刀魚真モグモグ風林火山2グッズ百花繚乱サムライガールズアナザーゴッドハーデス機動戦艦ナデシコGTSぷよグッズ元祖ハネスロ再び鉄拳3エンジェルverぷよぷよ25thネットブック1G連享楽海物語エキサイト一確チャンスファミコンサタン様CSS懐かしい台ひぐらしのなく頃にDーLight3DSミラクル買ってみたペルソナQ魔法少女プリシラファミスタリターンズ予約投稿まとめ記事ゾロ目悪魔城ドラキュライベントハナビトータルイクリプスなでしこミズホThinkPadまつりばパイ遊記シュタインズ・ゲートバーチャルコンソール南国物語パワプロ2016キリ番マジカルハロウィン3カルドセプトセカンド魔法少女リリカルなのはリデルコクッチマスターズリリカルなのはファンキージャグラージャックポットサムライスピリッツ天体観測流星群ガラスフィルムパーティQ601DLCベルコフェストゥムラッシュプリティ戦記GRANTONパチンコART神々の凱旋イニシエダンジョン魔法少女まどか☆マギカムック本超大連鎖アイドルマスターマジハロマクロスフロンティア学園黙示録HOTD紙の本読みなよ実践結果トラックバック階段連鎖仮想テーブルマリア様下書ATOKスマフォアプリ押忍!サラリーマン番長LGPSYCHO-PASSKOFしおりサロメ様クイーンズブレイド創星のアクエリオン2ICカードステッカー6周年寝違え魔法少女マギカ☆まどか大量上乗せぎゃざガール世界樹と不思議なダンジョン確定発火1G連ささみさんがんばらないすろっと麻雀物語3SNKメタルスラッグ決戦の刻L-04C鬼浜役満国士無双サンマ神たなコンビニはこパラJavaSriptWiki四暗刻単騎不毛地帯魔道物語MIDIタグブログパーツmp3カープLaputaホームページ緒方孝市タクシー小林めぐみデグレード格闘美神ウーロン2コンマジカルハロウィンRN64スーファミ魔界しぶんぎ座流星群あけましておめでとうございますヒッパルコス国立天文台ともだちコード型抜きチキンレース部分日食極大日ふたご座流星群ICレコーダーCGIネトマ近代麻雀オンラインバトルオンバト戸田恵梨香DSステーションイルカアシスタント7月30日近代麻雀とつげき東北はこパラ!マー娘カップ清老頭ドラクエドラゴンクエストNoName海の日初音ミクちびぷよバグGTRヘルファイアーハザードマップすーぱーぷよぷよ山形PerlK20D酒田P2PP2P地震情報システム屋プログラマーデバッグフィーバー全消し津波地震文字検索PCエンジンメガドライブハッピージャグラーウルトラマンウォーズ学園黙示録ニューキングハナハナスキュレーテンパイラッシュひぐらしに鳴く頃に煌続回胴のジャンゴ忍魂鬼の城ハイサイ超特急HAI-SAI蝶特急絶対衝激2ハイサイ蝶特急絶対衝激バイオハザード5スナイパイ創聖のアクエリオンテイルズオブデスティニー世界樹の迷宮5黄門ちゃまスーパージャックポットシーマスターASUS】FonepadNote6アップグレード戦律のストラトスニューパルサーデラックス娘娘娘木星テラシグマスロット年鑑グリモアマラソンジャガーノートバッドマンシンデレラブレイド2フォレストセルあやしいクルークDARKER-THAN-BLACKピンポン設定1魔魚ナルメルプリンセスATOM新世紀エヴァンゲリオンクラビノーバコード・ルージュオーストラリアコードルージュN450Lenovo浜松WiiMSXうなぎウナギああっとうなぎパイUFOキャッチャー借りぐらしのアリエッティ鶴田謙二ホワイトブラックソウルシルバーバタフリーすれ違い通信マナフィジャグラーポケットモンスターレムレスSH-10BLYNXジブリスマートフォントップをねらえNETスワロウテイル人工少女販売処藤間千歳ドラゴンギャル修理バー揃い南国物語スペシャルスーパーリノMAXドリームハナハナ東芝ポータブルHDDオービタル・クラウド最終巻ポータブルドライブバッファロー真田純勇士ラブストライク北斗の拳将ハルキ文庫バルタン星人ロストアイランド2キッズケータイ乾くるみセブン沖ドキ!パラダイステラフォーマーズ菊田裕樹ぷよぷよ通藤井太洋僕が愛したすべての君へデビルメイクライクロスScreenBeamMini2Continuumガンナーセブンスビート這い回る毒蟲スキル振り前兆長いルパン三世~消されたルパン~ゴーレム法条遥バーサスFC2拍手キャラメイク乙野四方字君を愛したひとりの僕へ拍手SEO検証カレーユーザタグDoCoMoがんばれゴエモン〜ゆき姫救出絵巻〜ひぐらしのなく頃に祭エクスポートインポート眠れる本能ゲッターマウススロットブログ掃除プチマーメイド空き台エヴァンゲリオン真実の翼バグナックルー大好きな台デビルサバイバーうるう年SyntaxHighlighterマジカルハロウィン5カバーうみねこのなく頃に撤去沖ドキトロピカル怖い怖いスーパーストリートファイター47周年大量投稿キキーモラ秘宝伝TheLastめぞん一刻桜の下でWindowsトラックパッドラブ嬢ガチ抽選コードギアスコードギアスR2めぞん一刻プロフィールキングパルサーロンソンライターユルビスカスバイオハザード6ドットパルサー天井単発教材初勝利エヴァンゲリオン魂を紡ぐもの最強武具オリンピックスーパービンゴリゾートキャラグミン犬夜叉トリプルクラウンGニューペガサスR南海花浪漫攻略本ハイサイ超特急ターボコクッチーマスターズ一騎当千清瀧ゲームジャパンニュースモモチャン涼宮ハルヒの憂鬱ロリポップチェーンソーシミュレータプレイ時間モンスターハンター月下雷鳴倒産麻雀格闘倶楽部2アリィシェイク3モンスターハンター狂竜戦線弱虫ペダルジョーズ牙狼守りし者牙狼オアシスデイズG1優駿倶楽部スターオーシャン勝利への願いC#おそ松さんジャックポットトロピカルバージョン2ソウルキャリバーポンタ並木のり子Pileまじかうすいーつプリズムナナシスタークエスト4ZETMANゼットマンオリックスバッファローズ天空のシンフォニアコルモナナシー豊丸天下不武3ハーピーロストプラネット2未来予想図サザンアイズビタ押しメルマガメルモ懐スロ海物語IN沖縄2極楽モード創立記念日戦姫絶唱シンフォギアDOAデッドオアアライブ5デッドオアアライブ深緑のクイーンジャックネオ聖チェリーヌ学院次回予告スーパープラネットDX10周年北斗の拳修羅の国篇薄桜鬼好きな台ブロガーブリードカード試打お勉強FC2ブログ火曜サスペンス劇場にょきシミュレータ実績WaterFoxブラウザハーレムエースロードオブヴァーミリオン貞子3D水晶竜図柄もっと!沖縄フェスティバルクランキーセレブレーション筐体メタルギアソリッドマジカルハロウィン2USB3.0旅行シャドウハーツ2~運命の道標~サンダーVリボルト大嫌い人口乙女魂~光と無月~宇宙戦艦ヤマト2199記事稼ぎIE非対応設置少ない押忍!番長2前日作戦会議3ケタ乗せエーデルスパークサマージャンボエピソードBBストライクウィッチャーズ島田フミカネ不具合世界ふしぎ発見十六夜小林恵乙女魂節目InternetExplorerIEモンスターハンター西島大介三秋縋野﨑まど三秋携帯バッテリーマクロスフロンティアBBverコトノバドライブ芦奈野ひとし天井到達ベストショットカットインデンジャー柄クワドラロック北斗の拳強敵ひまわり平和マンガスーパービンゴネオ1パチガンソードあかいアミティこめ苺角川つばさ文庫おとめ妖怪ざくろ乙女チェリーめんそーれ琉球守護神EMAぷよぷよフィーバーチュー討伐の刻ドリームキャストシマシマパイ遊記ボーナスプレミアムバジリスクチャンスユニバ夢夢ちゃんファミリーコンピュータベルセルクメモ帳テキストエディタAndroidひぐらしになく頃に煌プレミアムJACマイスロ俺スロサボり次回作要望パチリンク打WINユニバブロスフェイトフリーズハヤテボーナスイケイケマハロぷよぷよ8?CZ天井ファインプレーファイル整理格安simセプテントリオン強襲故障SRチェリー沖縄フェスティバル引き弱リリカ様三日間の幸福新記録継続率タイプ機動戦士ガンダム覚醒ショートカットブログカテゴリー発送E.M.Aベンチマークペン先WindowsStoreブログ運用トトリのアトリエアトリエ女神転生天井不発リセットパトランランパトランランチャンス背面タッチパッド文章変換アカウントペカッパZゾーンまつりば!単発NINJAGAIDEN開発無限ARTアコール先生USBハブSANWA神引きDaxelVisualStudio2015スーパーオアシスセルフ・クラフト・ワールドハヤカワ文庫JA画像加工縮小専用ラッキージャックポットタグ:キュインハナチャンスーパーカップアイス卑弥呼戦国乙女西国参戦ルーンナイトサムライガールズサムライ長良川鉄道SurfacePro3ハロウィン公式サイト魔法少女アイシクルフロストカボリプ山の日のうりん六冬和生猛虎花形巨人の星新作ゲーム711枚ネタ台乙姫チェリー野崎まどデュエリストスーパー乙姫チャンスハイスクールD×Dデッドマンワンダーランド聖闘士星聖闘士星矢女神聖戦リノクリアBBx64ロングフリーズシリコンパワー64GBmicroSDXCマウスへの挑戦アスラズラース高確率G-TUNEりんごちゃん演出まとめネットワーク苦戦キバガミ様クレア高確率ヱヴァンゲリヲン魂を繋ぐもの揺籃の守護者フィーバーパワフル

ブログ内検索(By Google)

WWW検索 ブログ内検索

Script_Debug
深緑の女魔術師の私的なブログ★彡
深緑の女魔術師の私的なブログ

SEGA:ぷよぷよ!!20th
ぷよぷよ!!

ぷよぷよ!![Wi-Fi Rianking]
ぷよぷよ!!ランキング
右脳式ぷよぷよルーム


☆ぷよぷよ同盟☆


NET:茉莉花の剣


戦国乙女 西国参戦編

トリビー
ぷろふぃーる

なまえ:深緑の女魔術師
(しんりょくのおんなまじゅつし) わたしってこんなひと
ぷよぷよ
DS :おんなまじゅつし
3DS:おんなまじゅつし★
Wii:まじょ@Wii

基本は、4人でフィーバー
OR 2人でフィーバー
23~26時くらいに
接続してます。

よろしくね。

天鳳
天鳳でのなまえ:深緑の女魔術師
ヨンマ段位&R:4段 R1800ちょっと
サンマ段位&R:4段 R1750

天鳳で活躍中・・・実力は??

23時~ごろに出没。

ポケモン

【ブラック】
なまえ:カリル
ID :36576

【ホワイト】
なまえ:未定
ID :未定

コメントうれしいです。

かれんだー
01 | 2017/02 | 03
- - - 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 - - - -
さいきんのせいかぶつ
ぶんるい
DTM (8)
かこのせいかぶつ
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる