Translate

The coupon can buy fish too: that Japan government coronavirus economic emergency measure.

-

Japan's government Initially plans that gave out beef coupon-.


Japan's government looking to avoiding pay money.


Japan's government coronavirus crisis emergency response considering give out coupons with can buy fish too.

In brief, Japan's government plans to give out coupons Japanese people that coupons can buy beef and fish.

But... That is coronavirus emergency economic  response?

Almost country considers giving out cash to nationals to save a life.

But Japan's government plan considering  give out the coupon that can only buy fish and beef.

Now, Japan's government almost no action against coronavirus infection spreading means just say.

Japan's government always pretends to response any action.






このブログの人気の投稿

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

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

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) 実行結果 実際にクリップボードの使用、不使用を確認したい場合は、メモ帳などで、文字をコピー後、マクロを実行し、メモ帳で、貼り付け（ペースト）を行って、コピーした文字が貼り付けば、クリップボードが使用されているかいないかが確認出来る。 クリップボードの使用をマクロで実行している場合、貼付け時に、マクロでコピーした内容が貼り付けられたり、コピーしたクリップボードの内容がクリアーされている事が分かる。
続きを読む

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の強制終了が無くなる場合がある。
続きを読む

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 共有フォルダーからコピーしてきたファイルは、あらかじめファイルのプロパティで、セキュリティに別途チェックを入れておく必要がある事をお忘れなく。 ...
続きを読む

pgAdmin 4が遅いのは仕方がない | PostgreSQL things.

-
イメージ
pgAdmin 4が遅いのは仕方がない | PostgreSQL things. PostgreSQL 4 が登場してから、管理ツールも維新され、WEBツール化された。 これによって、色々なOSに同じ操作性の管理ツールをインストール出来るようになった。 （pgAdmin はSQL Serverで言うところの、SQL Server Management System:通称SSMSと同じ） 操作性は若干落ちた気がする。 仕方がない、WEBブラウザー特有の癖があるから(´；ω；｀)ﾌﾞﾜｯ よく考えたら、Oracleもいつの間にかWEBかされているが、MicrosoftのSQL SERVERは、WEB化されていない。 アプリケーション型の管理ツールだ。 Windows限定になっているが、簡単に操作、管理出来るのはSQL Serverが無敵なレベルだと思う。 結局の所、スマートフォンもそうだけれども、WEBよりも、アプリケーションタイプのツールの方が、便利で、快適に目的を果たせるツールなのかもしれないな。 WEBの終焉がいづれは来る。　 そんな事が時々呟かれるけれども、WEBが成熟しすぎて、オープンな環境じゃなくなってきたから、そんな日が遠くも無い気もする。 ただ、WEB API ＋ アプリケーションのような形になっていくでは無いかなとは、そんな気はする。 そうなると、マイクロソフトが取った形は完成形なのかもしれない。 UWP（Universal Windows Platform）。 全てのアプリ（Windows, Android, iPhone)　＋ WEB APIの形で開発。
続きを読む

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

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

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           ...
続きを読む

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

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

Office365の今年の値上げがひどいくて2万円は払いたく無いからから急いでOneDriveの整理を始めたのだけれど

-
イメージ
さすがに1万円近くアップはキツ過ぎるな 解約したら4Gしか容量がないOneDriveを整理しないといけない Office製品は無いと結構困る。 だけれど、家にいる時は月に数回しか使っていないなと。 でも一番厄介なのがOneDriveだ。 スマホとも連携が出来るので、これだけは非常に重宝している。 しかーし！ 前回契約した時よりも1万円もアップしてと考えた場合、実際の物理的な資産じゃないこれに2万円も個人で払うのは、異常な物価高時代にはありえないと考えて、一旦継続契約をしない方針で行こうと思う。 そうなると、OneDriveをバックアップ代わりに使っていた反動で、HDDを購入してバックアップを取るかだけれど、正直色々衝撃に強いと言っても、HDDは脆いし、SSDは劣化で突然データが消失するしで、結局バックアップの耐用年数的に優秀なのはブルーレイディスクという事になった。 【Amazon.co.jp限定】パイオニア公式 BDR-XD08GLD ブルーレイドライブ 外付け パイオニアブランドBD-Rディスク 25GB 1枚付属 Win & Mac対応 M-DISC対応 BDXL対応 USB3.2 クラムシェル型 サンセットゴールド ブルーレイにはM-DISC方式というものがあって、これだと100年は耐えられるらしい。 とはいっても、実際そこまでの耐用年数は必要ないので、一般的なBD-XL（4層）で100Gが書き換えらしいので、それに対応したドライブとメディアを購入した。 BD-XLの4層は弱点があって、書き込み速度が飛んでもなく遅い。 昨今MicroSDとかでも読み書きが早いのに、BD-DISKだけはレーザー光線という仕組み上、相当遅い。 ただ、頻繁には取得数必要がないバックアップとしては、耐用年数もそこそこで非常に安心感はある。 ただ、やはり凄くショックだ。 OneDriveが快適過ぎて、ついでにOfficeも使える事もあって、契約していたのに、ここまでの値上がりとは。 運の良いことに、WEB版であれば、MicrosoftOffice製品は無償で使えるらしいので、ギリギリそっちでOfficeは代用できそうだけれども。 まぁ、でも結局 Libre...
続きを読む

ACCESSのVBAでADOを利用したバインド変数を利用したデータベース連携方法

-
イメージ
ACCESSのVBAでバインド変数の利用方法 | 備忘録 今のACCESSのADOは、.NETとほぼほぼ手順が同じ。 参照設定は、[ Microsoft ActiveX Data Objects 6.1 Library ] 色々な言語をやると、久しぶりにACCESSで、しかもレガシーなVB6系であるVBAをやると、色々忘却している。 今回は、バリバリVBAをメインに使ったシステムを作るので、ADOでバインド変数を利用したデータベース連携のサンプルを載せてみる。 データ取得の例 Dim sql_con As New ADODB.Connection Dim sql_rs As New ADODB.Recordset Dim sql_cmd As New ADODB.Command Dim sql_prm As New ADODB.Parameter Set sql_con = CurrentProject.Connection 'sql_con.Open Dim rs As Object sql_cmd.ActiveConnection = sql_con sql_cmd.CommandText = "select * from test where test = ?" Set sql_prm = sql_cmd.CreateParameter("test", adBSTR, adParamInput) sql_cmd.Parameters.Append sql_prm sql_cmd.Parameters("test").Value = "aa" Set sql_rs = sql_cmd.Execute MsgBox sql_rs.Fields(1) データ取得もデータ挿入も全く同じ。 ’ Ins...
続きを読む