hide_kichiの情報

気になる情報を適当にアップしていきます

2018-01-01から1年間の記事一覧

【EXCEL_VBA】文字をFORMAT使って揃えます

EXCEL_VBAで文字を結合、計算結果の列を揃える方法を説明します。 FORMAT文を使います。 Format(厚, "0.0") & " x " & Format(幅, "#") & " x " & Format(長, "#") & " " & Format(NDATE, "mmdd") 5.0 x 150 x 3000 1213 以上

【TYPESCRIPT】インストール

TYPESCRIPTのインストールは以下です WINDOWSの場合 コマンドプロンプトで >npm install -g typescript コンパイルは >tsc xxxxx.ts 実行は <html lang="ja"> <head> <meta charset="utf-8" /> <script src="sample1.js"></script> </head> <body> </body> </html> 以上

今年のXMASプレゼントは

今年のXMASプレゼントは、スマートウォッチかな?? スマートウォッチ、Yamay 1.54インチHD画面スマートブレスレット 心拍計 活動量計 多機能腕時計 Bluetooth通話機能搭載(SIMカードなし) SMS通知 歩数計 消費カロリー ストップウォッチ 睡眠検測 座りっぱ…

【WINDOWS10】トラブル 自動修復を実行しても再起動するだけ

【WINDOWS10】トラブル 自動修復を実行しても再起動するだけで何も解決しない。 1.セーフモードでWINDOWS10を起動 自動修復ー「詳細オプション」選択 「オプションの選択」-「トラブルシューティング」選択 「トラブルシューティング」ー「詳細オプション…

【VBA】500件ごと実行ログを画面表示

VBAのバッチ処理で途中経過を確認したいとき、以下の処理をよく使います。 1.ソース If ins_cnt < 5 Or (ins_cnt Mod 500) = 0 Then If run_flgz = 0 Then MsgBox (ins_cnt & " " & 管理番号 & ":" & ID1 & " 追加成功") End If End If

【AUTOCAD】公差入力

公差入力について 1.寸法クリックー「オブジェクト管理」-「寸法値優先」フィールドに ”<> \H0.8X;\S+0.1;” <> \H0.8X;\S+0.1^-0.2;の場合 <>は寸法 H0.8は高さ 以上

【EXCEL VBA】SHEET追加

【EXCEL VBA】SHEET追加 ' On Error Resume Next'Sheet1をコピーSheet2を作成work_s0 = "Sheet1 (2)"work_s1 = "Sheet1"work_s2 = "Sheet2"Sheets(work_s2).SelectSheets(work_s2).DeleteSheets(work_s0).Delete Sheets(work_s1).Copy Before:=Sheets(1) 'Sh…

acer aspire v5 biosを表示する方法

IT

【acer aspire v5 biosを表示する方法】 1.電源を完全に切る(batteryは抜いた状態) 2.電源を入れた直後【F2】キーを連打(ロゴ以前がキー) 以上 ただしWINDOWS10の場合、OSから指示することでBIOSが表示される。 [スタートメニュー],[設定],[更新とセ…

autocad 重複要素の選択

1.[Shift]+[Spacebar]1で選択

【EXCEL VBA】EXCELからCMDを実行(ファイルCOPY)

【EXCEL VBA】EXCELからCMDを実行(ファイルCOPY) 1.Shell "cmd /c copy C:\aaa\FILE_ORG.xls C:\aaaa\data\FILE_フォーム.xls /y"

【EXCEL VBA】フィルター操作をF1キーにセット

よく使う操作をF1キーにセットする方法 重宝します。 Application.OnKey "{F1}", "autofil" 以上

スマホ買い替えました

IT

スマホXperiaがトラブルで新規スマホにしました。 昨年から思っていたものがアマゾンで安くなっていたので注文しました。 ZTE Blade V7 Lite です。9000円くらいかなあ。 触った感じGood! デザインもGood 軽さ・レスポンス・カメラなど問題なしです。 SI…

ANGULAR4 開発 (テストPRG起動について)

1.TEST開発中ディレクトリ コマンドプロンプトでCD 例えば: (1)cd\data\test9 (2)ng serve 2. URLで (1)”localhost:4200" 実行

VBA+ACCESS2016で「引数が無効です」のエラーメッセージ

VBA+ACCESS2016で「引数が無効です」のエラーメッセージ プログラムテスト中なので バックアップしていたDBをコピーして解決。 じつはかなり悩みました。 バックアップはこまめにとらないといけませんね!!

おしゃれな オートバックス

おしゃれな オートバックスがあり おしゃれな オートバックスがありました。 店員さんに「写真とってもいいですか?」と聞いたら快く「どうぞどうぞ」と言ってくださいました。 全国にここしかないらしいです。

中日松坂頑張れ!!

今日は、巨人戦 中日松坂頑張れ!! なかなか結果がでない人が多いと思います。 その中の私も一人。 松坂を応援しています。

【少しECOな話】100均のノリを今まで使っていた入れ物に移しました。

今まで使っていた物に100均で買ったノリを入れ替えました。 100均のものは少し使い勝手がよくないのです。 ノリが出すぎていつも困ってました。 これで気が楽になりました。

リコーの複合機 MP-C2801 WINDOWS10にSCAN保存できなくなった。

IT

リコーの複合機 MP-C2801 WINDOWS10にSCAN保存できなくなりました。 「パスが見つかりません」 「接続エラー」 以下の操作で解決しました。 1・WINDOWS10で以下の作業をします [コントロール パネル] ―[プログラム]―[Windows の機能の有効化または無効化] S…

お風呂の水垢が簡単にとれた!

100均のステンレスたわしできれいに水垢がとれました。 いままでカビ取り剤で歯ブラシなどいろいろ試してました。 ステンレスたわし軽くとれます。 お風呂の浴槽まわり。 洗面器。 扉まわり。 など 鏡まで大丈夫!!でした。

駅の自転車置き場

駅に近い置場は、自転車の出し入れは最悪です。 でも少し離れた(10Mくらい)場所になると空いてます。 2Fも穴場です 自転車の出し入れ楽々!! 是非是非!!

【VBA】文字を検索(InStr)、分解(Split)

1.変数の文字を検索する関数【instr】です。 n = InStr(1, work_s1, work_s2) InStr ( 開始位置 , 変数 , 検索する文字) Do While n > 0 cnt = cnt + 1 n = InStr(n + 1, work_s1, work_s2) Loop ソースは以下です。 ------------------------------------…

【VBA】ボタンの文字を変更する

ボタンの文字を変更する場合。 ソースは以下です。 ------------------------------------------------------------------------------ ActiveSheet.CMD1.Caption = "A1" ActiveSheet.cmd2.Caption = "B1" ------------------------------------------------…

いいもの見つけた!【USENのバラード】

会社帰り駅ビルで流れている有線のバラード。 毎日3曲聞いて帰ってるのですが曲名がわからないので少し残念に思っていました。 でも、USENのホームページを見ると曲名がリアルタイムにわかるようになっていました。 music.usen.com 最高です!! 良かった!…

子供のプレゼントに Micro:bit

IT

Micro:bitに興味があります。 イギリスBBCが主体となって教育用に作られたマイコンボードで、イギリスでは11歳〜12歳の100万人の生徒に無償で配布されているものです プログラムの勉強に手軽でシンプルでかつ未来を創造できます。 価格も2000円程度で安く購…

ADDRESS V100 のセルモータ10年ぶりに復活

アドレスV100のセルモーターが10年ぶりに復活しました。 (※YOUTUBE ADRESSがADDRESSの間違いです) 最高にうれしい!! 今冬眠中のアドレス、昨年の年末からセルモーター取り外し作業にかかりました。 合間にネットでセルモーターの中古を探していると1…

簡単なTABLEのカウント(重複データを除いた)

VBAのTABLE内、重複データを除いた件数を計算します。 ソースは以下です。menber2()テーブル内に重複したデータが存在したら””(ブランク)にします。------------------------------------------------------------------------------ work_i = mem_cnt2 Fo…

簡単なVBAだけど重宝してます。

シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。 Public Sub シート削除リネーム() Dim sss Dim shtname1 Dim shtname2 sss = Range("A1") shtname1 = sss & "注文データ" shtname2 = sss & "注文データ (2)" Worksheets(shtna…

WORDPRESS TABLEPRESSの見出し文字の大きさ調整

【WORDPRESS TABLEPRESSの見出し文字の大きさ調整】 1.TABLEPRESS プラグインのオプションに以下を追加 #tablepress-4 th { font-size: 18px; } #tablepress-6 th { font-size: 18px; } 固定ページで文字サイズがなかなか反映されませんでしたが 私の場合…

ECOなホッカイロの使い方

ホッカイロを利用しない時、密封容器に保存しよう!! 保存中は発熱しないので利用時間0となります。 会社に着いたら密閉容器に! 3日くらい利用できます。