hide_kichiの情報

気になる情報,その他役立つ情報をアップしていきます

【TYPESCRIPT】インストール

TYPESCRIPTのインストールは以下です

WINDOWSの場合

コマンドプロンプト

>npm install -g typescript

コンパイル

tsc  xxxxx.ts

実行は

<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8" />
<script src="sample1.js"></script>
</head>
<body>
</body>
</html>

 

以上

 

 

 

今年のXMASプレゼントは

今年のXMASプレゼントは、スマートウォッチかな??

 

 

 

 

 

値引きが大きく手に入れやすくなりました。

なんか面白いことができそう!!

 

 

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

【WINDOWS10】トラブル 自動修復を実行しても再起動するだけで何も解決しない。

1.セーフモードでWINDOWS10を起動

  自動修復ー「詳細オプション」選択
  「オプションの選択」-「トラブルシューティング」選択
  「トラブルシューティング」ー「詳細オプション」選択
  「詳細オプション」ー「スタートアップ設定」選択
  「スタートアップ設定」ー「再起動」選択
  「4」キー

2.追加したアプリを削除(「コントロールパネル」ー「アプリケーション削除」)

3.再起動

4.解決

解決方法は、たくさんあるようですが私はこの方法を利用しました。

トラブルの前に準備しておくこと。

(A)USBに回復ディスクを作成しておく

(B)システム保護(復元ポイント)を作成する

(C)システムバックアップイメージを作成

などなど

 

 

【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;”

f:id:hide_kichi:20181109092400p:plain

<> \H0.8X;\S+0.1^-0.2;の場合

<>は寸法

H0.8は高さ

 

f:id:hide_kichi:20181109092617p:plain

f:id:hide_kichi:20181109092651p:plain

 

以上

【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).Select
Sheets(work_s2).Delete
Sheets(work_s0).Delete

Sheets(work_s1).Copy Before:=Sheets(1) 'Sheet1をコピー
Sheets(work_s2).Select
Sheets(work_s2).Delete
Sheets(work_s0).Name = work_s2 'Rename