アラフィフおやじログ

前回 作成したVBAを使ってて不便な点が1つ出てきたので考えました。 よくよく考えるとフォルダ名一覧を1個のファイルにまとめたいよなぁ。 だって大体が一まとめにしないといけないケースが多いわけだし。 ということでモジュール側でファイル一覧を1個のEXCELにシートを追加して 出力できるように改修しました。モジュール側だけ改修したんでそっちだけ モジュール側 ----------------------------------------------- Option Explicit 'refer ' http://ameblo.jp/gidgeerock/entry-11584846307.html ' https://oshiete.goo.ne.jp/qa/1828986.html ' http://officetanaka.net/excel/vba/file/file07.htm ' http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html ' http://officetanaka.net/excel/vba/tips/tips39.htm ' https://gist.github.com/gitspopovic/2963865 ' http://vba-geek.jp/blog-entry-294.html ' http://vbaexcel.seesaa.net/article/148305417.html ' http://d.hatena.ne.jp/bhunji2000/20091030/1258133771 ' http://www.239-programing.com/excel-vba/func/func072.html ' v2 ref ' https://www.moug.net/tech/exvba/0150120.html ' http://officetanaka.net/excel/vba/sheet/sheet03.htm ' http://hensa40.cutegirl.jp/archives/705 ' ht...

この前 は業務フローをシートにというパターンでしたが 今回はファイル1個に業務を記載してくれているパターンなので 指定したフォルダからファイル名の一覧を抜き出す必要が出てきました。 とゆうかシートの業務一覧とかファイル名のとか統一しろよと思いつつも・・・・。 両方組合せとかその他イレギュラーパターンも多々あるしそれは今後の話ということで ひとまずはマクロ組んでみました。 とりあえず40を超えてから3社転職してるんで、こういうのは蓄積しておかないと。 忘れるし。パッケージみたいになっているほうがありがたい。 フォーム側 ----------------------------------------- Sub getFileName_Click() ' ' フォルダからファイル名を取得して一覧にして別のEXCELシートに保存する。 ' Dim dlg As Object Dim dlgAns As Boolean Dim getForder As Variant Dim outSheet As Variant Dim retVal As String Dim startTime As Date '処理時間計測用 Dim endTime As Date '処理時間計測用 startTime = Now 'カレントディレクトリの指定 ChDir CurDir 'ファイル名取得対象フォルダの指定 Set dlg = Application.FileDialog(msoFileDialogFolderPicker) dlgAns = dlg.Show If dlgAns Then getForder = dlg.SelectedItems(1) Else getForder = "" End If '保存対象ファイルの指定 outSheet = Application.GetOpenFilename("EXCELファイル(*.x...

前回 はHandsonTableで色々と実験してみて色々と宿題が残ってました。 その改良を色々と試みてきたわけですがなかなかうまくいかない・・・。 宿題の解決についてはひとまずはできたものもあります。 まだまだ先は長いなぁ。EXCELがいかに偉大かが身にしみました。 それと 質問サイト のご回答のおかげで何とかここまでこぎつけたこと非常に感謝します。 やはり英語やプログラムの地力が不足していることを痛感させられます。 頑張らねば。 ◆残課題リスト 　・検索にヒットしたレコードのみをレコード表示する。 　・検索条件クリアしたらそのデータを再表示する。 　・検索ヘッダー領域を固定する。   　→何とか今回実現、最後の検索ヘッダーがサイズ依存なので少しあれですが 　・着色した色データを保存する。 　・列の枠サイズを取得して保存する。 　・行のサイズを取得して保存する。   　→取りあえず値を取得するところまでは何とかできた。後はこれをどうやって 　　  JSON化してうまくローカルストレージに保存するか。んでどうやって 　　 呼出し時に効率的に反映するか。 　・コメントの内容を取得して保存する。 　　→色々と調べてみたけれどもメソッド自体が動かないのでどうしようもない。 ●HTML ＜!DOCTYPE html＞ ＜html＞ ＜head＞ ＜title＞Handsontable - サンプル＜/title＞ ＜script src="http://ajax.googleapis.com/ajax/libs/jquery/3.0.0/jquery.min.js"＞＜/script＞ ＜script src="https://cdnjs.cloudflare.com/ajax/libs/handsontable/0.29.1/handsontable.full.min.js"＞＜/script＞ ＜script src="sample06.js"＞＜/script＞ ＜link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/handsontabl...

とりあえず HandsonTable とかいうJQUERYのライブラリがあるらしいんで 色々とやってみました。最終的にはEXCELチックにしたかったんですが 色の保存と枠の保存が未実装、さらにフィルタとかも不十分な状態ながら ひとまずサンプルの成果ということで、コードは相変わらずへぼちんです。 色々なサンプルを参照させていただいてここまでこぎつけました。 先人の方々ありがとうございます。 HTML部分 ＜!DOCTYPE html＞ ＜html＞ ＜head＞ ＜title＞Handsontable - サンプル＜/title＞ ＜script src="http://ajax.googleapis.com/ajax/libs/jquery/3.0.0/jquery.min.js"＞＜/script＞ ＜script src="https://cdnjs.cloudflare.com/ajax/libs/handsontable/0.29.1/handsontable.full.min.js"＞＜/script＞ ＜script src="sample05.js"＞＜/script＞ ＜link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/handsontable/0.29.1/handsontable.full.min.css"＞ ＜/head＞ ＜body＞ ＜a id ="header"＞ ＜div class="header_area"＞ ＜div class="header_block"＞ ＜div class="header_box"＞ ＜h1＞HandsontableDemoPage＜/h1＞ ＜input id="delData" type="button" value="ローカルストレージ内データ削除"＞ ＜p＞ ＜input id=...

前回 に残課題となっていた1～3について何とか形になった。 3年ほど前にJavaScript+ACCESSで簡易ツール作ってたけど その時よりもシンプルな作りにできました。(CSSが結構すごい) 後KintoneからJSONデータ取るときにむっちゃ複雑なパースしてたけど オブジェクトで取って整形すれば比較的楽になることを学びました。 まだまだへっぽこですな。 ひとまずソースというか、いい加減Git使わないとなぁ ・HTML ＜!DOCTYPE html＞ ＜html＞ ＜head＞ ＜title＞localStorageのサンプル2＜/title＞ ＜script src="http://code.jquery.com/jquery-2.0.0.min.js"＞＜/script＞ ＜script src="test3.js"＞＜/script＞ ＜link rel="stylesheet" href="test3.css" type="text/css"＞ ＜/head＞ ＜body＞ ＜div id="form"＞ ＜input id="clearButton" type="button" value="全投稿削除"＞ ＜input id="resetButton" type="button" value="編集内容クリア"＞ ＜ul＞ ＜li class="name"＞ ＜input type="hidden" name="key" value="" ＞ ＜label for = "name"＞名前＜/label＞ ＜input id="formName" type="text" size="20" maxlength="20"...

ローカルストレージって興味はあったんだけどなかなか 手が出せていなくて。初心者にはハードルが高いかなと 思っていたら案外すんなりいけたので、ローカル掲示板なんか 組んでみました。 というより、 ここ の課題ですが・・・。 ただ業務系のアプリ組むときでも面白そうなことができそうかなぁと 思いつつ。 まぁへっぽこプログラマなんでダメダメソースですがね まずはHTML ＜!DOCTYPE html＞ ＜html＞ ＜head＞ ＜title＞localStorageのサンプル＜/title＞ ＜script src="http://code.jquery.com/jquery-2.0.0.min.js"＞＜/script＞ ＜script src="test2.js"＞＜/script＞ ＜link rel="stylesheet" href="test2.css" type="text/css"＞ ＜/head＞ ＜body＞ ＜div id="form"＞ ＜input id="clearButton" type="button" value="全クリア"＞ ＜ul＞ ＜li class="name"＞ ＜label for = "name"＞名前＜/label＞ ＜input id="formName" type="text" size="20" maxlength="20" placeholder="氏名をここに入力してください。"＞ ＜/li＞ ＜li class="post"＞ ＜label for = "post"＞投稿内容＜/label＞ ＜textarea id="formText" cols=...

ありがちだけどメールのテンプレートをEXCELに作って そいつを送信するとか言うCDOのメール送信用マクロ作成しました。 まぁ、決してやってはいけない用途で作ったんですが・・・・。 だいたい1つずつ手でメールを打つのもなぁ。 かといってBccで全員に送るのもなぁ。というので けど本当は手書きでやるべきですがね。 ・EXCELを処理する本体。 ' AdressListにある区分、会社名、氏名を引いてきて ' 区分に応じたテンプレートのメールを送信する ' 区分に応じてメール件名、テンプレート、署名が可変となる ' ' Sub ボタン1_Click() Const Replaceword = "●●" 'メールで埋め込みしたい場合の置換前文字列 Dim rtn As String Dim selectFlg As String '送信テンプレート判定用フラグ Dim Category As String '送信属性(本文判定用) Dim toMailaddr As String '宛先メールアドレス Dim toCompany As String '会社 Dim toName As String '名前 Dim toHeader As String '宛名 Dim messagetxt As String '本文 Dim signature As String 'メール署名...