Translate

ホントは自◎党に投票していないよね？

-


周りに投票している人がいなさ過ぎて、無効票扱いとかにしてコントロールしているんじゃないか？とそんな事言ったりする人も。
普段余り人と話さないから、みんなが実際どうなのかしらなかったが、電車内とかでそういう話聞くとみんな思っている事同じ感じなんだなって思った。

久々に描いたブログがコレ（苦笑）




このブログの人気の投稿

Excel VBA クリップボードを使用しないコピー方法

-
イメージ
通常のコピーを使用しないセルのコピー方法 Copyを使用しないセル値のコピーや転記を行う方法 EXCELのVBA（マクロ）でクリップボードを使用した実装を行うと、マクロ実行中に他の作業で、コピー＆ペースト等を行うと正しく動かなくなる場合がある。 もう一度マクロを実行し直すか、マクロ実行中は操作を控えるかの選択となるが、マクロを使用するユーザーが、マクロ作成者であれば回避も可能だが、そうではない他のユーザーが利用する場合、意図しない動作をしてしまう場合がある。 セルのコピーは、Copyメソッドを利用しない転記方法もある為、今回はクリップボードを使用しない方法で、セルの範囲をコピーする方法を紹介 この方法は、クリップボードが使用されてしまう。 Range("B3:D7").Copy Range("B10:Z13").PasteSpecial Paste:=xlPasteAll 実行結果 Value(XLRangeValueXmlSpreadsheet)を使用すると、クリップボードは使用されない Range("B10:D13").Value(xlRangeValueXMLSpreadsheet) = Range("B3:D7").Value(xlRangeValueXMLSpreadsheet) 実行結果 実際にクリップボードの使用、不使用を確認したい場合は、メモ帳などで、文字をコピー後、マクロを実行し、メモ帳で、貼り付け（ペースト）を行って、コピーした文字が貼り付けば、クリップボードが使用されているかいないかが確認出来る。 クリップボードの使用をマクロで実行している場合、貼付け時に、マクロでコピーした内容が貼り付けられたり、コピーしたクリップボードの内容がクリアーされている事が分かる。
続きを読む

阪神がリニューアルオープンしたので言ってみたけれど

-
イメージ
昨日阪神がリニューアルオープンした。 運良く梅田で働いているから、帰りに寄ってみた。 阪神百貨店って、昔からある特徴があった。 まぁ、阪神デパートのみの特徴では無く、日本の様々な古いお店や建物にはそんな特徴がある。 それは、各フロアの床から天井までが低いのだ。 海外の人にはなかなか受け入れがたいよね。 そのかわり、フロア階数が10数回まであって、なんか、すごく高く思えたけれど。 今回は、床から天井までの高さが、今流行りの高さに高く改装されていた。。 ちょっと残念・・・どこにでもある建物になった・・・・ 残念すぎるのは・・・・どこにでもあるショッピングセンターと同じような内装だった。。。 何も目新しくない・・・ 外観だけ目新しい・・・ そんな建物は、梅田にはそこら中にあるのだけれども・・・・ ちょっと拍子抜けした・・・ 唯一特徴があるとしたら、地下。 昔から阪神百貨店の地下はそんな特徴があった。 立ち食い飲み屋みたいな感じのフードコートだ。 くつろげやしないけれど、急いでいたり、さっと食事を済ませたいと思ったら、便利。 せっかくなので、さっと食べた。 特選エビ天丼\900円。 安くも高くも無い値段。 そして、お味は・・・・チェーン店の方がおいしいかなぁ・・・ まぁ、そんな感じのお店がぎっしり詰まっている。 梅田の食事時間は、どこもたくさん人がいるから、ここは立ちだし、回転は早そうだから、時間に余裕が無い人は助かるかな・・・ 阪神デパートの建物は、2つの建物で別れている。 デパ地下のある方の建物はまだ工事が済んでいないようだ・・ 阪神も、売上が一番良いデパ地下を長い間閉める勇気は無いのだろうなぁ・・・ 何にせよ、どこにでもある建物になってしまったら、ルクアや、グランフロント、、色々特徴がある建物が多いから、スグに飽きられてしまうかも。
続きを読む

DataSpiderのファイル処理が遅い原因は大体コレ

-
イメージ
DataSpider（データスパイダー）でファイル出力で注意した方が良いこと データスパイダーで0こういう作り方は処理が物凄く遅くなる。 データスパイダーで、何かのデータを読み取って条件によって値を変えたり等の変換する際に、可読性を考えて下記の様にすると、とても処理が遅くなる。 なるべくコンポーネントの中を開かなくても、デザイナーのスクリプトキャンパスを見ただけでどういうことをしているか分かるようにしたいと思って、こういう作り方をすると、データスパイダーの場合はとてつもなく処理が遅くなる。 DataSpiderで何かのデータを読み取って処理を書く際に、条件分岐のIF等を表のスクリプトキャンパス上で描いてしまうとどうやらとても遅くなるようだ。 Loopコンポーネントがとてつもなく処理を遅くするようで、筆者はこの現象を、データスパイダーはLoop処理に弱いと表現している。 解決策はある。 DataSpiderではこう作り変えると処理が早くなる。 スクリプトを開いた際の、スクリプトキャンパス上だけでは、処理の詳細が見えなくなってしまい、可読視認性が下がってしまうが、マッパー内で条件分岐させる場合には、処理が早くなる。 マッパー内で分岐させる文には、For分等のループ処理が不要となる為、ループコンポーネント処理に弱いデータスパイダーで処理が遅くなってしまう事を回避出来る。 コーディングが得意な人達にとっては、ちょっとした処理をサブルーチンに飛ばすと可読性が悪くなる為、小さな処理ぐらいは表にFor文を書いて可読性を上げたいと思う人もいるかも知れないが、ノーコードプログラミングでは視認性も大切だが、使用しているノーコードプログラミングの癖を攻略しながらのコーディングの方が重要だと筆者は考える。 今回の例だと、たった数千件の処理が、最初の例だと数分かかるのに対して、Mapper内で条件分岐させた場合には、数秒で終わる。 如何に、癖を攻略する事が大切だと解るだろう。
続きを読む

PHPのネガティブなイメージをポジティブにしているサイトを見つけた。

-
はっきりいって、自分はPHPが嫌いだ。 PHP研究所も好きではないが、今回のPHP研究所はコンピューター言語のPHPだ。 主にWEBで使われている。 PHPとMySQLを組み合わせて作られたシステム程不安定な物は無い。 この不安定な振る舞いを、あたかも安定して動いているように見せる無駄なテクが多く必要でしんどい。 そして、、、、ころころ言語仕様が変わる。 ・・・が、これを逆の意味でポジティブに書いてあるサイトを見つけた。 Quiitaのサイトなのだが・・・ https://qiita.com/Gazelle/items/8817a472f33d5163a5fd 要約すると、非効率で不安定で気まぐれな言語だ。 だから、仕事があり続けるのだと。 ・・・が、経営者から見たら、何も変化が無い事に大して、プロジェクトを立ててヒューマンコストを掛け続ける事が必要なこの言語は・・・ある意味、プロジェクトリーダー泣かせだが。 経営陣に説明しても、はひ？　みたいなリアクションになるだろうけれども。 ・・・が、WEB言語ってほんとどれをやるのが鉄板なのか、鉄板が無いが故にバクチみたいな選択肢を迫られる。 選んだ言語のトレンドが急に下がると、覚えた事自体が無駄になるし・・・ 個人的には、言語が難しい、優秀とかよりも、手っ取り早く実現できて、そのプロジェクトを通して業務知識を増やしていくことの方が、得だと思う。 プログラム言語程、覚えても先が短いものは無いのだから。 取り敢えず、マイクロソフト系の言語をやっておけば、Windowsで業務をしないなんて事はお気無さそうだから、抑えておいたほうが良いと思うが、WEBはアドバイス出来ないな・・・
続きを読む

VBSでマクロの実行時に警告を非表示にする方法

-
イメージ
マクロ付きExcelファイルを実行する際に、VBScriptで警告を抑制する方法 VBScriptでマクロ付きExcelファイルを起動する際に、マクロの実行警告を表示させないコード 下図のようなメッセージだけ表示するマクロ付きExcelファイルがあるとする。 何の害も無いこのマクロ付きExcelファイルのxlsmファイルを開こうとした場合でも、警告が表示される。 このファイルを開こうとすると・・・ マクロ付きExcelファイルを実行する為の警告メッセージで、「セキュリティの警告：マクロが無効にされました。」と表示され、【コンテンツの有効化】ボタンを押さなければ、マクロが実行出来ない状態となる。 確実にそのファイルが安全だと分かっており、頻繁に開くファイルであった場合には、いちいちボタンを押下する作業が煩わしくなる。 また、マクロ付きExcelファイルである、xslmファイルを自動実行するバッチ処理であったりする場合等は、人がこのボタンを押さないといけない状態だと、無人での自動化の妨げとなる。 このメッセージを抑制、非表示とし、VBScriptで実行する場合は、下記のようなコードで実現できる。 仮に、AutoMacro.vbsとして保存 Dim objExcel Dim objBook Set objExcel = CreateObject("Excel.Application") 'イベント抑制 objExcel.EnableEvents = False set objBook = objExcel.Workbooks.Open("P:\OneDrive\Download\test\testbook.xlsm")) objBook.Close() objExcel.Quit() Set objBook = Nothing Set objExcel = Nothing 共有フォルダーからコピーしてきたファイルは、あらかじめファイルのプロパティで、セキュリティに別途チェックを入れておく必要がある事をお忘れなく。 ...
続きを読む

ACCESSのVBAを実行するとACCESSが強制終了する事がある

-
イメージ
ACCESSのVBAを実行すると、ACCESSが強制終了する事がある ACCESSのVBAを実行すると強制終了 DoCmd.OpenQuery を疑え ACCESSのVBAを実行するといくつかACCESS自体が突然強制終了する事がある。 基本的にエラーがあれば、デバッグするか、終了するかを確認するダイアログが表示される筈だが、中にはエラーも表示されず、ACCESS自体が突然強制終了する事があるケースについて確認個所を紹介。 ACCESSが強制終了する事があるVBAのマクロの組み方は、Win APIを利用する時など起こりやすいけれど、中には、複雑なVBAのコードを組んでいないにも関わらずエラーも出ず、音も無く強制終了するパターンがある。 まずは、その個所は大抵の場合 DoCmd.OpenQuery で、ACCESSに作成しているクエリーを実行する時である場合がある為、そこにブレークポイントを張って、強制終了している箇所がそこであるか確認を行う。 強制終了している箇所が、　 DoCmd.OpenQuery 　だった場合は、クエリーの中身を確認する。 ACCESSのクエリーも、EXCELみたいな関数が使えるのだが、特に InStrRev関数とMID関数を使っている 場合に起きやすい。 もしも、InStrRev関数の検索文字に記号のような物を利用している場合には(㈱、№　等の環境依存文字）、これを違うものに変更してみて実行してみよう もう一つは、InStrRev関数とMID関数の組み合わせで、InStrRev関数で検索した文字位置から、 MID関数で指定した文字だけ取得するような計算ロジックを入れたりしている場合 、InStrRevで検索対象にヒットしない、つまり 成立しない偽のデータが存在していないか確認 しよう。 その場合、クエリー側を修正するか、データ側を修正すると改善する場合がある。 こういった場合は、 大抵の場合、クエリーの設計に問題があると考えるのが適切なので、そもそも成立せず、関数エラーになるような組み方を改善させる と、ACCESSの強制終了が無くなる場合がある。
続きを読む

ACCESSでバーコードスキャンしたら自動でイベントを起こす方法

-
イメージ
ACCESSでバーコードスキャンをしたら自動でデータベースの登録や検索を行う方法 前回紹介したマクロに、追加する形で紹介しています。 前回：ACCESSでバーコードをスキャンして登録更新する簡単なサンプル バーコードリーダーの機能をまずは確認。 最近のバーコードリーダは、スキャンをした後に＜TAB＞ボタンのコードを自動で送信してくれるものが殆どですが、高機能なバーコードリーダ程、スキャン後の動作を細かく設定出来るが為、初期はスキャン後に追加のアクションがされていない物がある。 バーコードリーダの設定で、スキャン後に＜TAB＞ボタンや＜Enter＞ボタンのコードを細かく設定できる場合はこれを設定しておく。 バーコードスキャン後に＜TAB＞キーが送信される設定例 、入力ボックス側のイベントの[LostFocus]（画像の箇所）に、ボタンを押した時の処理に飛ばすコードを埋め込むだけで、バーコードスキャン後に、自動で処理を行う事が出来ます。 Private Sub Bar1_LostFocus()                  Call Button1_Click End Sub
続きを読む

大阪駅前ビルの激安マッサージ店

-
イメージ
大阪駅前ビルの激安マッサージ店 やばい安さ。 30分で、1500円。 60分で2980円。 めちゃくちゃ安い・・・ 青空っていうRelaxation青空というマッサージ店。 店員、、、たぶん全員日本人じゃない。 駅前ビルの中には、いくつかこの青空っていうマッサージ店が入っているみたい。 試しに入ってみたけれど、日本人がやっているマッサージとは何ら変わらないクオリティのマッサーっじサービス。 大阪駅前ビルって、なんか、異常に安いお店が多いけれど・・・ また、マッサージ受けるとしたら、青空に確定かな。
続きを読む

ACCESSのVBAでリストビュー(ListView)を使う為の設定 | Office365

-
イメージ
ACCESSでListView(リストビュー)コントロールを使う   標準のコントロールにはListView（リストビュー）は無い ACCESSでフォームをデザインする場合には、リストビュー（ListView)に変わる、表型のフォームをサブフォームとして使うことで賄えてしまう為、わざわざListViewを利用する機会も少ないのだけれども、ListViewでデザインする必要がある場合には、最初にコントロールの参照設定が必要である。 ACCESSのリボン.コントロールから、上図のようなボタンを押下する。 ACTIVEXコントロールを選択する。 参照設定から[Microsoft ListView Control, version 6.0]を選択すると、フォームのデザイン画面にコントロールが貼り付けされる。 VBAでリストビューを使う時は、注意が必要だ。 インテリセンスを使ってコーディングをする時代だが、捨て去られるVBA(VB6系）プログラムのリストビューは、インテリセンスに候補が表示されないメソッドが殆どだ。 コードのサンプル       With Me!ListView                  .ColumnHeaders.Clear         .ListItems.Clear         .View = lvwReport         .FullRowSelect = True         .GridLines = True                                    With .ColumnHeaders           ...
続きを読む

あまりにも安いから楽天モバイルにしてしまったけれど、今までに経験した事の無い結果が。

-
今まで、色々なキャリアに変えてきたけれど、楽天モバイルが余りにも他よりも極端に安いから契約してみた。 しかも、海外ローミング2GBまで標準で付いているとか、他のキャリアとは比べ物にならない差。 au回線も併用されているようで、安心して使用していたけれど、6月位から異変を感じる。 大都市でも電話がつながりにくい。 人口カバー率ホントに90%？って思えるぐらい電波が弱くなった。 致命的なのは、コンビニとかでバーコード決済系がまともに使えないレベルで電波が弱くなった。 今まであのキャリアちょっと電波弱いとか言われていても、実際にそのキャリアを使ったらそうでも無い事ばかりだったけれど、楽天モバイルだけは、本当に電波が悪くて機会損失だらけかもしれないｗ 人口カバー率絶対90%もないでしょ？ｗって思える状態で電話もまともに出来ない状況の場所が多くてビビってる。 9月になると、auのローミング契約も完全になくなるらしい噂も流れているし、これは結局MINEOに逆戻りかな・・・ ただ楽天の楽天LINKを使って通話をすると通話料が全部無料はプラン的には最強過ぎて、電波さえ良ければなぁ。 解約した方が良いのか継続した方が良いのか悩ませるプラン設計だ（苦笑）
続きを読む