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

ブログ内検索(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 :未定

コメントうれしいです。

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

この人とブロともになる

らんきんぐ?