okamura – ページ 38 – テックメモ

2017-05-252024-05-03

Windows Explorer 設定

アップデート事に環境を調整するのが面倒なのでデフォルト基本
･登録されている拡張子は表示しない
･保護されたオペレーティングシステムファイルを表示しない
だけ外す｡

･リセットは､
プロパティ>カスタマイズ>フォルダの種類選ぶ
オプション>表示>フォルダをリセット>フォルダに適用

~~●オプション>表示>ナビゲーションウィンドウ~~

~~･すべてのフォルダを表示~~
~~･開いているフォルダまで展開~~
~~の2つにチェック｡~~

~~●オプション>表示>ファイルおよびフォルダー~~

~~･隠しファイル、隠しフォルダー、および隠しドライブを表示する~~
~~･別のプロセスでフォルダーウィンドウを開く~~
~~チェックする｡~~

~~･フォルダーとデスクトップの項目の説明をポップアップで表示する~~
~~･フォルダーのヒントにファイルサイズを表示する~~
~~･プレビューウィンドウでプレビューのハンドラーを表示する~~
~~･登録されている拡張子は表示しない~~
~~･保護されたオペレーティングシステムファイルを表示しない~~
~~･同期プロバイダーの通知を表示する~~
~~チェックを外す。~~

●表示を同じ種類のフォルダに適用

オプション＞表示＞フォルダーに適用
詳細表示(名前、作成日時、更新日時、アクセス日時、サイズ、属性)
として設定。

●フォルダの種類

フォルダ右クリック＞カスタマイズ
から確認できる。
・全般
・ドキュメント
・ピクチャ
・ミュージック
・ビデオ
が存在する。

●フォルダ･ファイルが更新されるタイミング

・作成日時
作成
コピー

・更新日時
作成
保存

・アクセス日時
作成
移動
コピー
保存

●マイコンピュータ以下のミュージックやピクチャなど削除

HKEY_LOCAL_MACHINE>SOFTWARE>Microsoft>Windows>CurrentVersion>Explorer>MyComputer>NameSpace
以下を消す。

3Dオブジェクト：{0DB7E03F-FC29-4DC6-9020-FF41B59E513A}
ダウンロード：{088e3905-0323-4b02-9826-5d99428e115f}
ダウンロード：{374DE290-123F-4565-9164-39C4925E467B}
ピクチャ：{24ad3ad4-a569-4530-98e1-ab02f9417aa8}
ピクチャ：{3ADD1653-EB32-4cb0-BBD7-DFA0ABB5ACCA}
ミュージック：{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}
ミュージック：{1CF1260C-4DD0-4ebb-811F-33C572699FDE}
ドキュメント：{d3162b92-9365-467a-956b-92703aca08af}
ドキュメント：{A8CDFF1C-4878-43be-B5FD-F8091C1C60D0}
ビデオ：{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}
ビデオ：{A0953C92-50DC-43bf-BE83-3742FED03C9C}
デスクトップ：{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}

●OneDrive、Creative Cloud Files、Dropbox非表示

HKEY_CURRENT_USER>Software>Classes>CLSID>
以下を修正。

OneDrive：{018D5C66-4533-4307-9B53-224DE2ED1FE6}
Creative Cloud Files：{0E270DAA-1BE6-48F2-AC49-4D4FA7552B34}
Dropbox：{E31EA727-12ED-4702-820C-4B6445F28E1A}
の
System.IsPinnedToNameSpaceTree
を0へ

・Regファイルの場合

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Classes\CLSID\{0E270DAA-1BE6-48F2-AC49-4D4FA7552B34}]
"System.IsPinnedToNameSpaceTree"=dword:00000000

[HKEY_CURRENT_USER\Software\Classes\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}]
"System.IsPinnedToNameSpaceTree"=dword:00000000

[HKEY_CURRENT_USER\Software\Classes\CLSID\{04271989-C4D2-7DFD-3559-EB6A6AF3DF55}]
"System.IsPinnedToNameSpaceTree"=dword:00000000

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Classes\CLSID\{0E270DAA-1BE6-48F2-AC49-4D4FA7552B34}]

"System.IsPinnedToNameSpaceTree"=dword:00000000

[HKEY_CURRENT_USER\Software\Classes\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}]

"System.IsPinnedToNameSpaceTree"=dword:00000000

[HKEY_CURRENT_USER\Software\Classes\CLSID\{04271989-C4D2-7DFD-3559-EB6A6AF3DF55}]

"System.IsPinnedToNameSpaceTree"=dword:00000000

ここでは、Creative Cloud FilesとOneDrive(Personal+Business)を非表示にしている。

●CLSID調べ方①

Explorerで開いてアドレスバーから右クリック>住所をコピー

●CLSID調べ方②

HKEY_CURRENT_USER\Software\Classes\CLSID
以下にあるCLSIDがどこを指しているか確認する場合、
shell:::{}
ファイル名を指定して実行すれば確認できる。

●AutoHotkey 自分用ホームフォルダ作成

Runで対象フォルダを指定する｡
sc07B & e::Run “G:\Dropbox\Home”

対象フォルダの中で特殊フォルダのショートカットを作成する場合
explorer shell:MyComputerFolder
explorer shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

●Explorer(PC)からScanSnap Folderを削除

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\
{591C1901-C0DA-4776-8450-F9806F6E9687}
を適当にリネーム

レジストリ

・HKEY_CURRENT_USER(HKCU)：ログインユーザの設定
・HKEY_LOCAL_MACHINE(HKLM)：全ユーザの設定/規定の設定
・HKEY_CLASSES_ROOT(HKCR)：コンピュータが使う設定
・HKEY_USERS：ユーザに関する設定
・HKEY_CURRENT_CONFIG：起動時に読み込まれる設定

上３つは似た設定が多く、通常、HKCUの方が優先される。
HKLMでは再起動が必要だが、HKCUではログオン/オフ(AutoHotkeyなど)

HKLMはなるべく変更しない。

HKCRは、
HKEY_CURRENT_USER\Software\Classes
と
HKEY_LOCAL_MACHINE\SOFTWARE\Classes
を合わせたもの。ここを直接編集する必要はない模様。

・右クリックメニューを消す場合

reg delete HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\InputDirectorShellIntegration
reg delete HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\PDFelement.ContextMenu
reg delete HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\DropboxExt

reg delete HKLM\SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\DropboxExt
reg delete HKLM\SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\InputDirectorShellIntegration

reg delete HKLM\SOFTWARE\Classes\Directory\background\shellex\ContextMenuHandlers\DropboxExt

reg delete HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\DropboxExt
reg delete "HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\ESET Security Shell"
reg delete HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\NvAppShExt

reg delete HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\InputDirectorShellIntegration

reg delete HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\PDFelement.ContextMenu

reg delete HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\DropboxExt

reg delete HKLM\SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\DropboxExt

reg delete HKLM\SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\InputDirectorShellIntegration

reg delete HKLM\SOFTWARE\Classes\Directory\background\shellex\ContextMenuHandlers\DropboxExt

reg delete HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\DropboxExt

reg delete "HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\ESET Security Shell"

reg delete HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\NvAppShExt

2017-05-242020-05-04

簿記標準(総合)原価計算

個別原価計算、総合原価計算は実際原価計算の範囲。
予定計算も実際原価計算に含まれる計算方法。

標準原価計算は目標となる原価。
ただの概算予定ではなく、理想や統計などの根拠がある数字。

見積と標準原価の違い

見積は今現在の実力で計算する。売価設定に使ったり、リスクヘッジも考慮。
標準原価は目標となるため、原価を最小値で設定する。

実際原価計算との比較は必要。財務上では実際原価計算を利用する。
実際原価と比較するときは、「標準」ー「実際」となる。

原価標準の設定

期首に原価標準を決める。製品一つあたりの目標原価のことであり、
直接材料費、直接労務費、製造間接費のそれぞれ設定する。

直接材料　＝　標準単価　×　標準消費量
直接労務　＝　標準賃率　×　標準作業時間
製造間接費　＝　標準配賦率　×　標準操業度

標準操業度とは配賦基準のことで直接作業時間など。

標準原価カードにまとめる。

直接材料費　１２５＊８＝１０００
直接労務費　１５０＊１０＝１５００
製造間接費　２５０＊１０＝２５００
一個あたりの標準製造原価＝５０００
（一個あたり５０００で作るのが目標。）

標準原価の計算

完成品原価

原価標準　×　完成品数量　＝　完成品原価

月末仕掛品原価

原価標準　×　月末仕掛品数量　＝　月末仕掛品原価
（直接労務費、製造間接費は加工費なので換算数量を使う）

例）
生産データ
・月初仕掛品　４０（０．５）
・当月投入　２４０
・月末仕掛品　８０（０．５）
・完成品　２００

標準原価
・直接材料費　１２５×８＝１０００
・直接労務費　１５０×１０＝１５００
・製造間接費　２５０×１０＝２５００
・合計　５０００

完成品原価　１００００００
月末仕掛品原価　２４００００
月初仕掛品原価　１２００００

仕掛品勘定への記入

パーシャルプランとシングルプランがある。

仕掛品の当月投入以外は全て標準原価で記入し、
仕掛品の当月投入を標準原価にするか実際原価にするかの違い。

パーシャルプラン
当月投入を実際原価（原価差異は仕掛品勘定）

例）
生産データ
・月初仕掛品　４０　（０．５）
・当月投入　　２４０
・月末仕掛品　８０　（０．５）
・完成品　　　２００

標準原価
・直接材料費　１２５＊８＝１０００
・直接労務費　１５０＊１０＝１５００
・製造間接費　２５０＊１０＝２５００
・合計　５０００

・実際直接材料費　２７４３２０（１２７＊２１６０）
・実際直接労務費　２９０４００（１６５＊１７６０）
・実際製造間接費　５９４０００

仕掛品勘定への記入

仕訳）
前月繰越　　　　標準　｜　製品　　　標準
材料　　　　　　実際　｜　次月繰越　標準
賃金　　　　　　実際　｜　原価差異
製造間接費　　　実際　｜

仕訳）
前月繰越　　１２００００　｜　製品　　　１００００００
材料　　　　２７４３２０　｜　次月繰越　２４００００
賃金　　　　２９０４００　｜　原価差異　３８７２０
製造間接費　５９４０００　｜
＿　　　　　１２７８７２０　　　　　　　　１２７８７２０

シングルプラン

当月投入を標準原価で記入。仕掛品勘定は全て標準原価で記入。
原価差異は、材料勘定、賃金勘定、製造間接費勘定で計算される。

原価差異分析

パーシャルプランの場合、
原価差異を要素別（材料、労務、経費）に分ける必要がある。

標準原価と実際原価の差異は当月投入で発生するので、
当月投入で、標準と実際の金額を計算する。（加工費は労務費、製造間接費を別に計算する）

例）
前項と同じ内容。

直接材料費差異　２４００００　ー　２７４３２０　＝　ー３４３２０
直接労務費差異　３３００００　ー　２９０４００　＝　３９６００
製造間接費差異　５５００００　ー　５９４０００　＝　ー４４０００

直接材料費差異

直接材料費差異は、
価格差異と数量差異に分けられる。

直接労務費差異

直接労務費差異は、
賃率差異
時間差異
に分けられる。

製造間接費差異

製造間接費差異は、
・予算差異
・操業度差異
・能率差異（変動、固定）
に分けられる。

能率差異は、変動費能率差異と固定費能率差異に分ける場合もある。（ひじきで覚える）

例）

※操業度＝作業時間

標準間接費
￥２５０／時間　×　１０時間　＝　￥２５００

製造間接費の実際発生額
５９４０００

実際直接作業時間
１７６０

製造間接費の予算
４６２５００　（変動費率　１００，固定費予算　２７７５００）
※予算＝基準

基準操業度
１８５０

生産データ
・月初仕掛品　４０　（０．５）
・当月投入　　２４０
・月末仕掛品　８０　（０．５）
・完成品　　　２００

2017-05-222020-05-06

Slypheedのメールをコマンドで作成

添付やアドレス等をバッチで設定して起動。あとFOR文のメモ有り。

rem 通常forに近い処理

for /L %%i in (1,1,10) do (
echo %%i
)
pause

rem パスを渡す処理

rem カレントディレクトリのbat一覧を取得
for %%i in (C:\xxx\xxx\*.bat) do (
echo %%i
)
pause

rem 上記と同じだが変数iに入る時フルパスで入らない。

rem カレントディレクトリのbat一覧を取得
for %%i in (*.bat) do (
echo %%i
)
pause

rem Slypheedでメール自動作成。添付を直接指定

Sylpheed-3.5.1\sylpheed.exe --compose "mail@xxx.com,mail@xxx.com?subject=xxx&body=xxx" --attach "%~dp0Attach\a.pdf" "%~dp0Attach\b.pdf"

rem Slypheedでメール自動作成。forで指定

@echo off
setlocal enabledelayedexpansion

for %%i in (%~dp0Attach\*.pdf) do (
set var="%%i" !var!
)

Sylpheed-3.5.1\sylpheed.exe --compose "mail@xxx.com,mail@xxx.com?subject=xxx&body=xxx" --attach %var%

rem 通常forに近い処理

for /L %%i in (1,1,10) do (

echo %%i

)

pause

rem パスを渡す処理

rem カレントディレクトリのbat一覧を取得

for %%i in (C:\xxx\xxx\*.bat) do (

echo %%i

)

pause

rem 上記と同じだが変数iに入る時フルパスで入らない。

rem カレントディレクトリのbat一覧を取得

for %%i in (*.bat) do (

echo %%i

)

pause

rem Slypheedでメール自動作成。添付を直接指定

Sylpheed-3.5.1\sylpheed.exe --compose "mail@xxx.com,mail@xxx.com?subject=xxx&body=xxx" --attach "%~dp0Attach\a.pdf" "%~dp0Attach\b.pdf"

rem Slypheedでメール自動作成。forで指定

@echo off

setlocal enabledelayedexpansion

for %%i in (%~dp0Attach\*.pdf) do (

set var="%%i" !var!

)

Sylpheed-3.5.1\sylpheed.exe --compose "mail@xxx.com,mail@xxx.com?subject=xxx&body=xxx" --attach %var%

ちょっと修正。変数にまとめた。
bodyの中で改行したかったけど、改行コードもダメだし、一旦保留。
あとconfigの設定も指定しないとダメだった。

@echo off
setlocal enabledelayedexpansion
for %%i in (%~dp0Attach\*.pdf) do (
  set attach="%%i" !attach!
)

REM 送信先
set address=^
mail@xxx.com,mail@xxx.jp

set subject=xxx
set body=xxx
Sylpheed-3.5.1\sylpheed.exe --compose "%address%?subject=%subject%&body=%body%" --attach %attach% --configdir %~dp0Sylpheed-3.5.1\config

@echo off

setlocal enabledelayedexpansion

for %%i in (%~dp0Attach\*.pdf) do (

set attach="%%i" !attach!

)

REM 送信先

set address=^

mail@xxx.com,mail@xxx.jp

set subject=xxx

set body=xxx

Sylpheed-3.5.1\sylpheed.exe --compose "%address%?subject=%subject%&body=%body%" --attach %attach% --configdir %~dp0Sylpheed-3.5.1\config

相対パスのショートカットを作成

%windir%\System32\rundll32.exe url.dll,FileProtocolHandler “Sylpheed-3.5.1\sylpheed.exe”
として作業フォルダーを空白にする。

2017-05-19

C# コントロール関係実験

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace shape_app
{
    public partial class Form1 : Form
    {
        Rectangle r;

        //Paintイベント用
        int count = 0;

        public Form1()
        {
            InitializeComponent();
            r = new Rectangle(100, 100, 100, 100);

            //ブルブル用
            this.timer1.Start();
        }

        private void cloneToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //メニューのクリックでシェイプの追加(ユーザコントロール)
            Shape s = new Shape();
            s.Width = 100;
            s.Height = 100;
            this.Controls.Add(s);
        }

        private void Form1_MouseMove(object sender, MouseEventArgs e)
        {
            //マウスの座標を表示
            this.label1.Text = "X:" + e.Location.X.ToString() + " Y:" + e.Location.Y.ToString();
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            //シェイプをブルブルさせる
            if(this.shape1.Left < 100)
            {
                this.shape1.Left += 1;
            }
            else
            {
                this.shape1.Left -= 1;
            }
        }

        private void Form1_Paint(object sender, PaintEventArgs e)
        {
            /*
            FormのPaintイベント。何もしないと発動しないが、コントロールの移動など
            再描画の度に発動している。
            */
            System.Diagnostics.Debug.Print((count++).ToString());

            /*
            以下の長方形も実際はイベント毎に再描画している。
            サンプルなどではPaintイベントのeからGraphicsプロパティを取得する例がある。
            */
            Pen p1 = new Pen(Color.Red);
            e.Graphics.DrawRectangle(p1, new Rectangle(50, 50, 100, 10));

            //この長方形はマウスクリックが内外どちらか判定できる。
            Pen p2 = new Pen(Color.Blue);
            e.Graphics.DrawRectangle(p2, r);
        }

        private void Form1_MouseDown(object sender, MouseEventArgs e)
        {

            Point clickPoint = new Point(e.X, e.Y);

            if (r.Contains(clickPoint))
            {
                MessageBox.Show("内 です。");
            }
            else
            {
                MessageBox.Show("外 です。");
            }

        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace shape_app

{

public partial class Form1 : Form

{

Rectangle r;

//Paintイベント用

int count = 0;

public Form1()

{

InitializeComponent();

r = new Rectangle(100, 100, 100, 100);

//ブルブル用

this.timer1.Start();

}

private void cloneToolStripMenuItem_Click(object sender, EventArgs e)

{

//メニューのクリックでシェイプの追加(ユーザコントロール)

Shape s = new Shape();

s.Width = 100;

s.Height = 100;

this.Controls.Add(s);

}

private void Form1_MouseMove(object sender, MouseEventArgs e)

{

//マウスの座標を表示

this.label1.Text = "X:" + e.Location.X.ToString() + " Y:" + e.Location.Y.ToString();

}

private void timer1_Tick(object sender, EventArgs e)

{

//シェイプをブルブルさせる

if(this.shape1.Left < 100)

{

this.shape1.Left += 1;

}

else

{

this.shape1.Left -= 1;

}

private void Form1_Paint(object sender, PaintEventArgs e)

{

FormのPaintイベント。何もしないと発動しないが、コントロールの移動など

再描画の度に発動している。

System.Diagnostics.Debug.Print((count++).ToString());

以下の長方形も実際はイベント毎に再描画している。

サンプルなどではPaintイベントのeからGraphicsプロパティを取得する例がある。

Pen p1 = new Pen(Color.Red);

e.Graphics.DrawRectangle(p1, new Rectangle(50, 50, 100, 10));

//この長方形はマウスクリックが内外どちらか判定できる。

Pen p2 = new Pen(Color.Blue);

e.Graphics.DrawRectangle(p2, r);

}

private void Form1_MouseDown(object sender, MouseEventArgs e)

{

Point clickPoint = new Point(e.X, e.Y);

if (r.Contains(clickPoint))

{

MessageBox.Show("内です。");

}

else

{

MessageBox.Show("外です。");

}

2017-05-182017-05-19

C＋＋ Win環境でコマンドラインから

C#のコンパイラはcscで、
C:\windows\Microsoft.NET\Framework\v4.0.30319
にある。

C++は何かと思うと、cl.exeで、
C:\Program Files\Microsoft Visual Studio 14.0\VC\bin
にあるとのことなので、環境変数のパスに以下を加える。

その他の環境変数includeに以下を加える。
C:\Program Files\Microsoft Visual Studio 14.0\VC\include

この段階だと、
corecrt.h
が無いとエラーがでる。

以下のパスもincludeに加える。
C:\Program Files\Windows Kits\10\Include\10.0.10240.0\ucrt

その他の環境変数libに以下を加える。
C:\Program Files\Microsoft Visual Studio 14.0\VC\lib

この段階だと、
uuid.lib
が無いとエラーがでる。

環境変数libに以下を加える。
C:\Program Files\Microsoft SDKs\Windows\v7.1A\Lib

この段階だと、
libucrt.lib
が無いとエラーがでる。

環境変数libに以下を加える。
C:\Program Files\Windows Kits\10\Lib\10.0.10240.0\ucrt\x86

コンパイルのコマンドは以下。
cl /EHsc test.cpp
とりあえずここまでで動いた。

実際この辺りの処理は
C:\Program Files\Microsoft Visual Studio 14.0\Common7\Tools\vsvars32.bat
で自動化されている。

Windows.h
が無い場合、以下をinclude環境変数に追加。
C:\Program Files\Microsoft SDKs\Windows\v7.1A\Include

同時にLINK2019の未解決の外部シンボルのエラーがでる。
C:\Program Files\Windows Kits\8.1\Lib\winv6.3\um\x86
をlibに追加して、コンパイル時、
cl /EHsc test.cpp user32.lib
とする。

とりあえず最初に以下をやってみる。
https://msdn.microsoft.com/ja-jp/library/ff381409(v=vs.85).aspx

#ifndef UNICODE
#define UNICODE
#endif 

#include <windows.h>

LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

int WINAPI wWinMain(HINSTANCE hInstance, HINSTANCE, PWSTR pCmdLine, int nCmdShow)
{
    const wchar_t CLASS_NAME[]  = L"Sample Window Class";
    
    WNDCLASS wc = { };

    wc.lpfnWndProc   = WindowProc;
    wc.hInstance     = hInstance;
    wc.lpszClassName = CLASS_NAME;

    RegisterClass(&wc);
    HWND hwnd = CreateWindowEx(
        0,                              
        CLASS_NAME,                     
        L"Learn to Program Windows",    
        WS_OVERLAPPEDWINDOW,           


        CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,

        NULL,         
        NULL,      
        hInstance,  
        NULL        
        );

    if (hwnd == NULL)
    {
        return 0;
    }

    ShowWindow(hwnd, nCmdShow);


    MSG msg = { };
    while (GetMessage(&msg, NULL, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }

    return 0;
}

LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    switch (uMsg)
    {
    case WM_DESTROY:
        PostQuitMessage(0);
        return 0;

    case WM_PAINT:
        {
            PAINTSTRUCT ps;
            HDC hdc = BeginPaint(hwnd, &ps);

            FillRect(hdc, &ps.rcPaint, (HBRUSH) (COLOR_WINDOW+1));

            EndPaint(hwnd, &ps);
        }
        return 0;

    }
    return DefWindowProc(hwnd, uMsg, wParam, lParam);
}

#ifndef UNICODE

#define UNICODE

#endif

#include <windows.h>

LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

int WINAPI wWinMain(HINSTANCE hInstance, HINSTANCE, PWSTR pCmdLine, int nCmdShow)

{

const wchar_t CLASS_NAME[] = L"Sample Window Class";

WNDCLASS wc = { };

wc.lpfnWndProc = WindowProc;

wc.hInstance = hInstance;

wc.lpszClassName = CLASS_NAME;

RegisterClass(&wc);

HWND hwnd = CreateWindowEx(

CLASS_NAME,

L"Learn to Program Windows",

WS_OVERLAPPEDWINDOW,

CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,

NULL,

hInstance,

NULL

);

if (hwnd == NULL)

{

return 0;

}

ShowWindow(hwnd, nCmdShow);

MSG msg = { };

while (GetMessage(&msg, NULL, 0, 0))

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return 0;

}

LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)

{

switch (uMsg)

{

case WM_DESTROY:

PostQuitMessage(0);

return 0;

case WM_PAINT:

{

PAINTSTRUCT ps;

HDC hdc = BeginPaint(hwnd, &ps);

FillRect(hdc, &ps.rcPaint, (HBRUSH) (COLOR_WINDOW+1));

EndPaint(hwnd, &ps);

}

return 0;

}

return DefWindowProc(hwnd, uMsg, wParam, lParam);

}

2017-05-18

VBA 生産高集計

以前作った生産高を集計するファイルにそのまま機能を追加。

エクセルの工程管理でガントチャートっぽく運用している場合、
罫線で表を作って、色で進捗を管理する組み合わせは面倒になりやすい。

罫線をオンオフできると管理が楽になる。

Sub 罫線トグル()

Application.ScreenUpdating = False

asn = ActiveSheet.Name

Dim sc As Integer ' シート数

sc = ActiveWorkbook.Sheets.Count

ReDim sn(sc, 2) As String 'シート名,フォーム数

For i = 1 To sc Step 1
  If Sheets(i).Name <> "集計" Then
    sn(i, 1) = Sheets(i).Name
    sn(i, 2) = fcount(Sheets(i).Name)
    If sn(i, 2) = -1 Then
      MsgBox sn(i, 1) & "シートが適切な工程表ではないため罫線の描画ができません。"
      Exit Sub
    End If
  End If
Next i

If Sheets(1).Range("H5").Borders(xlEdgeRight).LineStyle = -4142 Then '罫線無し
  borderState = False
ElseIf Sheets(1).Range("H5").Borders(xlEdgeRight).LineStyle = -4118 Then '罫線有り
  borderState = True
End If

For i = 1 To sc Step 1
  Call BorderToggle(sn(i, 1), sn(i, 2), borderState) 'シート名,フォーム数
Next i

Sheets(asn).Activate

Application.ScreenUpdating = True
MsgBox "終了しました。"

End Sub

Sub BorderToggle(sheetName, formQty, borderState)

If sheetName = "" Then Exit Sub

With Sheets(sheetName)

If borderState = True Then '罫線有り

  rowTop = 5
  rowBtn = 24

  For f = 1 To formQty
  
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders.LineStyle = xlLineStyleNone
    '斜線は個別に処理しないと消えなかった。
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlDiagonalDown).LineStyle = -4142
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlDiagonalUp).LineStyle = -4142
    
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeTop).LineStyle = 1
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeRight).LineStyle = 1
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeBottom).LineStyle = 1
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeLeft).LineStyle = 1
    
    rowTop = rowTop + 25
    rowBtn = rowBtn + 25
  
  Next f

End If

If borderState = False Then '罫線無し

  rowTop = 5
  rowBtn = 24

  For f = 1 To formQty
  
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlInsideVertical).LineStyle = -4118
    .Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlInsideHorizontal).LineStyle = 1
        
    '縦のWeightが違う線の処理
    For col = 10 To 97 Step 3
    
      .Range(.Cells(rowTop, col), .Cells(rowBtn, col)).Borders(xlEdgeRight).LineStyle = 1
      
      Select Case col
      Case 22, 40, 55, 70, 85
        .Range(.Cells(rowTop, col), .Cells(rowBtn, col)).Borders(xlEdgeRight).Weight = -4138
      End Select
       
    Next col

    For col = 8 To 38 Step 3
        
    '月末部の斜線処理
    If .Cells(4, col).Value = "" Then
      .Range(.Cells(rowTop, col), .Cells(rowBtn, col + 2)).Borders(xlDiagonalUp).LineStyle = 1
    End If
       
    Next col
    
    rowTop = rowTop + 25
    rowBtn = rowBtn + 25
    
  Next f
  
End If

End With

End Sub

Sub 生産高集計()

'[集計]というシートがあると削除
'個別シートのフォーム数はA列で判断
'（24なら1つ49なら2つというように探す、フォームが崩れているとエラーを返す）
'B列が記入されていて、尚且つ[数量]と[単価]が記入されている行のみ処理
'日付はG列に記入があれば、そちらを使用、なければF列を使用

Application.ScreenUpdating = False

For Each ws In Worksheets
    If ws.Name = "集計" Then
        If vbYes = MsgBox("集計シートが存在します。削除しますか？", vbYesNo) Then
            Worksheets("集計").Delete
        Else
            Exit Sub
        End If
    End If
Next ws

Dim sc As Integer ' シート数

sc = ActiveWorkbook.Sheets.Count

ReDim sn(sc, 2) As String 'シート名,フォーム数

For i = 1 To sc Step 1
    
    sn(i, 1) = Sheets(i).Name
    sn(i, 2) = fcount(sn(i, 1)) ' fcount call
    
    If sn(i, 2) = -1 Then
        MsgBox sn(i, 1) & "シートが適切な工程表ではないため集計できません。"
        Exit Sub
    End If
    
Next i

Sheets.Add after:=ActiveSheet
ActiveSheet.Name = "集計"

If 納期集計(sn(1, 1)) = -1 Then Exit Sub '納期集計 call

For i = 1 To sc Step 1
  Call main(sn(i, 1), sn(i, 2), i) 'シート名,フォーム数,カウンタ
  Call main2(sn(i, 1), sn(i, 2), i) 'シート名,フォーム数,カウンタ
Next i

With Sheets("集計")
.Range("J1").Value = "班名"
.Range("K1").Value = "生産額"
.Range("L1").Value = "目盛"
.Range("M1").Value = "生産日数"
.Range("N1").Value = "生産額/日"
.Range("P1").Value = "目盛"
.Range("Q1").Value = "未生産日数"
.Columns("A:Q").AutoFit
.Activate
End With

Application.ScreenUpdating = True
MsgBox "終了しました。"

End Sub

Sub main(ByVal sn As String, ByVal fc As Integer, ByVal c As Integer) 'シート名,フォーム数,カウンタ

Worksheets("集計").Cells(c, 1).Value = sn

Worksheets("集計").Cells(c + 1, 10).Value = sn

Worksheets(sn).Activate

buf = 0

For r = (fc * 25 - 1) To 5 Step -1 '-

    If ActiveSheet.Range("B" & r & "").Value <> "" Then  '型式が記入されている '--
    
     'ActiveSheet.Range("B" & r & "").Select
     
        If IsNumeric(ActiveSheet.Range("E" & r & "").Value) And IsNumeric(ActiveSheet.Range("CZ" & r & "").Value) Then '数量と単価が数値 '---
        
            buf = buf + (ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value)
            
            'ここから顧客別金額 -------------------------------------------------
            
            If ActiveSheet.Range("CX" & r & "").Value = "" Then
                        
                cus = "空白"
                        
            Else

                cus = 文字列調整(ActiveSheet.Range("CX" & r & "").Value)
            
            End If
            
            pri = ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value
            
            i = 1
            
            Do While Worksheets("集計").Range("D" & i & "").Value <> ""
            
                If Worksheets("集計").Range("D" & i & "").Value = cus Then
                
                    Worksheets("集計").Range("E" & i & "").NumberFormatLocal = "#,##0"
                
                    Worksheets("集計").Range("E" & i & "").Value = Worksheets("集計").Range("E" & i & "").Value + pri
                    
                    pri = 0
                
                End If
                
                i = i + 1
            
            Loop
            
            If pri <> 0 Then
            
                Worksheets("集計").Range("D" & i & "").Value = cus
                
                Worksheets("集計").Range("E" & i & "").NumberFormatLocal = "#,##0"
                
                Worksheets("集計").Range("E" & i & "").Value = pri
            
            End If
            
            'ここまで顧客別金額  ここから納期別金額 -------------------------------------------------
            
            lt = ActiveSheet.Range("F" & r & "").Value

            If ActiveSheet.Range("G" & r & "").Value <> "" Then lt = ActiveSheet.Range("G" & r & "").Value
 
            If IsDate(lt) = False Then
            
                Worksheets("集計").Range("H13").NumberFormatLocal = "#,##0"
                
                Worksheets("集計").Range("H13").Value = Worksheets("集計").Range("H13").Value + (ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value)
            
            End If
            
            If IsDate(lt) Then
            
                m = Month(lt)
                    
                d = Day(lt)
                
                Select Case d
                
                    Case 21 To 31
                    
                        m = m + 1
                        
                        If m = 13 Then m = 1
                    
                    Case 1 To 20
                
                End Select
                
                For i = 1 To 12
                
                    If m = Worksheets("集計").Range("G" & i & "").Value Then
                    
                        Worksheets("集計").Range("H" & i & "").NumberFormatLocal = "#,##0"
                    
                        Worksheets("集計").Range("H" & i & "").Value = Worksheets("集計").Range("H" & i & "").Value + (ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value)
                    
                    End If
                
                Next i
                        
            End If
            
            'ここまで納期別金額 -------------------------------------------------
                    
        End If '---
    
    End If '--
    
    Select Case r
    
        Case 105, 80, 55, 30
    
        r = r - 5
    
    End Select
        
Next r ' -

Worksheets("集計").Cells(c, 2).NumberFormatLocal = "#,##0"
Worksheets("集計").Cells(c, 2).Value = buf
Worksheets("集計").Cells(c + 1, 11).NumberFormatLocal = "#,##0"
Worksheets("集計").Cells(c + 1, 11).Value = buf

End Sub

Function fcount(ByVal sn As String) As Integer

Dim rc As Integer '行数
Dim fc As Integer 'フォーム数

Sheets(sn).Activate

rc = ActiveSheet.UsedRange.Rows.Count

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 'フォーム数を確認(A列で判断)

    If Range("A" & i & "").Value <> "" Then Exit For

Next i

Select Case i

    Case 24
            
        fc = 1
    
    Case 49
        
        fc = 2
    
    Case 74
        
        fc = 3
    
    Case 99
        
        fc = 4
    
    Case 124
        
        fc = 5

    Case Else

        fc = -1
        
End Select

fcount = fc
    
End Function

Function 文字列調整(ByVal cus_str As String)

    cus_str = Replace(cus_str, vbLf, "")

    cus_str = StrConv(cus_str, vbWide)
    
    cus_str = Replace(cus_str, "　　　", "　") '空白4つまで1つに置換する
    
    cus_str = Replace(cus_str, "　　", "　")
    
    cus_str = Trim(cus_str)
    
    cus_str = Replace(cus_str, "㈱", "")
        
    cus_str = Replace(cus_str, "㈲", "")
    
    文字列調整 = cus_str

End Function

Function 納期集計(ByVal sn As String)

mth = Replace(Sheets(sn).Range("H2").Value, "月", "")

Select Case mth

    Case 1 To 12
    
        For i = 1 To 12
    
            Sheets("集計").Range("G" & i & "").Value = mth + i
            
            If Sheets("集計").Range("G" & i & "").Value > 12 Then
            
                Sheets("集計").Range("G" & i & "").Value = Sheets("集計").Range("G" & i & "").Value - 12
            
            End If
        
        Next i
    
    Case Else
    
        MsgBox "月が正しく記入されていません。"
    
        mth = -1

End Select

Sheets("集計").Range("G13").Value = "未定"

納期集計 = mth

End Function

Sub main2(ByVal sn As String, ByVal fc As Integer, ByVal c As Integer) 'シート名,フォーム数,カウンタ

Worksheets(sn).Activate

buf1 = 0

buf2 = 0

For cc = 8 To 100

    For r = 5 To (fc * 25 - 1)
    
        If ActiveSheet.Cells(4, cc).Interior.Color = RGB(255, 255, 0) Then Exit For
        
        If ActiveSheet.Cells(r, cc).Interior.Color = RGB(0, 0, 0) Then
        
            buf1 = buf1 + 1 '黒塗りつぶし
        
            Exit For
            
        End If
    
        'ActiveSheet.Cells(r, cc).Value = r & "," & cc
        
        If r = (fc * 25 - 1) Then buf2 = buf2 + 1 '塗りつぶしなし
    
        Select Case r
        
            Case 99, 74, 49, 24
        
            r = r + 5
        
        End Select
        
    Next r

Next cc

Worksheets("集計").Cells(c + 1, 12).Value = buf1 '目盛

Worksheets("集計").Cells(c + 1, 13).NumberFormatLocal = "0.0" '

Worksheets("集計").Cells(c + 1, 13).Value = buf1 / 3 '生産日数

Worksheets("集計").Cells(c + 1, 14).NumberFormatLocal = "#,##0"

If Worksheets("集計").Cells(c + 1, 13) <> 0 Then

    Worksheets("集計").Cells(c + 1, 14).Value = (Worksheets("集計").Cells(c + 1, 11)) / (Worksheets("集計").Cells(c + 1, 13)) '生産額/日

End If

Worksheets("集計").Cells(c + 1, 16).Value = buf2

Worksheets("集計").Cells(c + 1, 17).NumberFormatLocal = "0.0" '

Worksheets("集計").Cells(c + 1, 17).Value = buf2 / 3  '未生産日数

End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

Sub 罫線トグル()

Application.ScreenUpdating = False

asn = ActiveSheet.Name

Dim sc As Integer ' シート数

sc = ActiveWorkbook.Sheets.Count

ReDim sn(sc, 2) As String 'シート名,フォーム数

For i = 1 To sc Step 1

If Sheets(i).Name <> "集計" Then

sn(i, 1) = Sheets(i).Name

sn(i, 2) = fcount(Sheets(i).Name)

If sn(i, 2) = -1 Then

MsgBox sn(i, 1) & "シートが適切な工程表ではないため罫線の描画ができません。"

Exit Sub

End If

Next i

If Sheets(1).Range("H5").Borders(xlEdgeRight).LineStyle = -4142 Then '罫線無し

borderState = False

ElseIf Sheets(1).Range("H5").Borders(xlEdgeRight).LineStyle = -4118 Then '罫線有り

borderState = True

End If

For i = 1 To sc Step 1

Call BorderToggle(sn(i, 1), sn(i, 2), borderState) 'シート名,フォーム数

Next i

Sheets(asn).Activate

Application.ScreenUpdating = True

MsgBox "終了しました。"

End Sub

Sub BorderToggle(sheetName, formQty, borderState)

If sheetName = "" Then Exit Sub

With Sheets(sheetName)

If borderState = True Then '罫線有り

rowTop = 5

rowBtn = 24

For f = 1 To formQty

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders.LineStyle = xlLineStyleNone

'斜線は個別に処理しないと消えなかった。

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlDiagonalDown).LineStyle = -4142

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlDiagonalUp).LineStyle = -4142

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeTop).LineStyle = 1

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeRight).LineStyle = 1

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeBottom).LineStyle = 1

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlEdgeLeft).LineStyle = 1

rowTop = rowTop + 25

rowBtn = rowBtn + 25

Next f

End If

If borderState = False Then '罫線無し

rowTop = 5

rowBtn = 24

For f = 1 To formQty

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlInsideVertical).LineStyle = -4118

.Range(.Cells(rowTop, 8), .Cells(rowBtn, 100)).Borders(xlInsideHorizontal).LineStyle = 1

'縦のWeightが違う線の処理

For col = 10 To 97 Step 3

.Range(.Cells(rowTop, col), .Cells(rowBtn, col)).Borders(xlEdgeRight).LineStyle = 1

Select Case col

Case 22, 40, 55, 70, 85

.Range(.Cells(rowTop, col), .Cells(rowBtn, col)).Borders(xlEdgeRight).Weight = -4138

End Select

Next col

For col = 8 To 38 Step 3

'月末部の斜線処理

If .Cells(4, col).Value = "" Then

.Range(.Cells(rowTop, col), .Cells(rowBtn, col + 2)).Borders(xlDiagonalUp).LineStyle = 1

End If

Next col

rowTop = rowTop + 25

rowBtn = rowBtn + 25

Next f

End If

End With

End Sub

Sub 生産高集計()

'[集計]というシートがあると削除

'個別シートのフォーム数はA列で判断

'（24なら1つ49なら2つというように探す、フォームが崩れているとエラーを返す）

'B列が記入されていて、尚且つ[数量]と[単価]が記入されている行のみ処理

'日付はG列に記入があれば、そちらを使用、なければF列を使用

Application.ScreenUpdating = False

For Each ws In Worksheets

If ws.Name = "集計" Then

If vbYes = MsgBox("集計シートが存在します。削除しますか？", vbYesNo) Then

Worksheets("集計").Delete

Else

Exit Sub

End If

Next ws

Dim sc As Integer ' シート数

sc = ActiveWorkbook.Sheets.Count

ReDim sn(sc, 2) As String 'シート名,フォーム数

For i = 1 To sc Step 1

sn(i, 1) = Sheets(i).Name

sn(i, 2) = fcount(sn(i, 1)) ' fcount call

If sn(i, 2) = -1 Then

MsgBox sn(i, 1) & "シートが適切な工程表ではないため集計できません。"

Exit Sub

End If

Next i

Sheets.Add after:=ActiveSheet

ActiveSheet.Name = "集計"

If 納期集計(sn(1, 1)) = -1 Then Exit Sub '納期集計 call

For i = 1 To sc Step 1

Call main(sn(i, 1), sn(i, 2), i) 'シート名,フォーム数,カウンタ

Call main2(sn(i, 1), sn(i, 2), i) 'シート名,フォーム数,カウンタ

Next i

With Sheets("集計")

.Range("J1").Value = "班名"

.Range("K1").Value = "生産額"

.Range("L1").Value = "目盛"

.Range("M1").Value = "生産日数"

.Range("N1").Value = "生産額/日"

.Range("P1").Value = "目盛"

.Range("Q1").Value = "未生産日数"

.Columns("A:Q").AutoFit

.Activate

End With

Application.ScreenUpdating = True

MsgBox "終了しました。"

End Sub

Sub main(ByVal sn As String, ByVal fc As Integer, ByVal c As Integer) 'シート名,フォーム数,カウンタ

Worksheets("集計").Cells(c, 1).Value = sn

Worksheets("集計").Cells(c + 1, 10).Value = sn

Worksheets(sn).Activate

buf = 0

For r = (fc * 25 - 1) To 5 Step -1 '-

If ActiveSheet.Range("B" & r & "").Value <> "" Then '型式が記入されている '--

'ActiveSheet.Range("B" & r & "").Select

If IsNumeric(ActiveSheet.Range("E" & r & "").Value) And IsNumeric(ActiveSheet.Range("CZ" & r & "").Value) Then '数量と単価が数値 '---

buf = buf + (ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value)

'ここから顧客別金額 -------------------------------------------------

If ActiveSheet.Range("CX" & r & "").Value = "" Then

cus = "空白"

Else

cus = 文字列調整(ActiveSheet.Range("CX" & r & "").Value)

End If

pri = ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value

i = 1

Do While Worksheets("集計").Range("D" & i & "").Value <> ""

If Worksheets("集計").Range("D" & i & "").Value = cus Then

Worksheets("集計").Range("E" & i & "").NumberFormatLocal = "#,##0"

Worksheets("集計").Range("E" & i & "").Value = Worksheets("集計").Range("E" & i & "").Value + pri

pri = 0

End If

i = i + 1

Loop

If pri <> 0 Then

Worksheets("集計").Range("D" & i & "").Value = cus

Worksheets("集計").Range("E" & i & "").NumberFormatLocal = "#,##0"

Worksheets("集計").Range("E" & i & "").Value = pri

End If

'ここまで顧客別金額ここから納期別金額 -------------------------------------------------

lt = ActiveSheet.Range("F" & r & "").Value

If ActiveSheet.Range("G" & r & "").Value <> "" Then lt = ActiveSheet.Range("G" & r & "").Value

If IsDate(lt) = False Then

Worksheets("集計").Range("H13").NumberFormatLocal = "#,##0"

Worksheets("集計").Range("H13").Value = Worksheets("集計").Range("H13").Value + (ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value)

End If

If IsDate(lt) Then

m = Month(lt)

d = Day(lt)

Select Case d

Case 21 To 31

m = m + 1

If m = 13 Then m = 1

Case 1 To 20

End Select

For i = 1 To 12

If m = Worksheets("集計").Range("G" & i & "").Value Then

Worksheets("集計").Range("H" & i & "").NumberFormatLocal = "#,##0"

Worksheets("集計").Range("H" & i & "").Value = Worksheets("集計").Range("H" & i & "").Value + (ActiveSheet.Range("E" & r & "").Value * ActiveSheet.Range("CZ" & r & "").Value)

End If

Next i

End If

'ここまで納期別金額 -------------------------------------------------

End If '---

End If '--

Select Case r

Case 105, 80, 55, 30

r = r - 5

End Select

Next r ' -

Worksheets("集計").Cells(c, 2).NumberFormatLocal = "#,##0"

Worksheets("集計").Cells(c, 2).Value = buf

Worksheets("集計").Cells(c + 1, 11).NumberFormatLocal = "#,##0"

Worksheets("集計").Cells(c + 1, 11).Value = buf

End Sub

Function fcount(ByVal sn As String) As Integer

Dim rc As Integer '行数

Dim fc As Integer 'フォーム数

Sheets(sn).Activate

rc = ActiveSheet.UsedRange.Rows.Count

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 'フォーム数を確認(A列で判断)

If Range("A" & i & "").Value <> "" Then Exit For

Next i

Select Case i

Case 24

fc = 1

Case 49

fc = 2

Case 74

fc = 3

Case 99

fc = 4

Case 124

fc = 5

Case Else

fc = -1

End Select

fcount = fc

End Function

Function 文字列調整(ByVal cus_str As String)

cus_str = Replace(cus_str, vbLf, "")

cus_str = StrConv(cus_str, vbWide)

cus_str = Replace(cus_str, "　　　", "　") '空白4つまで1つに置換する

cus_str = Replace(cus_str, "　　", "　")

cus_str = Trim(cus_str)

cus_str = Replace(cus_str, "㈱", "")

cus_str = Replace(cus_str, "㈲", "")

文字列調整 = cus_str

End Function

Function 納期集計(ByVal sn As String)

mth = Replace(Sheets(sn).Range("H2").Value, "月", "")

Select Case mth

Case 1 To 12

For i = 1 To 12

Sheets("集計").Range("G" & i & "").Value = mth + i

If Sheets("集計").Range("G" & i & "").Value > 12 Then

Sheets("集計").Range("G" & i & "").Value = Sheets("集計").Range("G" & i & "").Value - 12

End If

Next i

Case Else

MsgBox "月が正しく記入されていません。"

mth = -1

End Select

Sheets("集計").Range("G13").Value = "未定"

納期集計 = mth

End Function

Sub main2(ByVal sn As String, ByVal fc As Integer, ByVal c As Integer) 'シート名,フォーム数,カウンタ

Worksheets(sn).Activate

buf1 = 0

buf2 = 0

For cc = 8 To 100

For r = 5 To (fc * 25 - 1)

If ActiveSheet.Cells(4, cc).Interior.Color = RGB(255, 255, 0) Then Exit For

If ActiveSheet.Cells(r, cc).Interior.Color = RGB(0, 0, 0) Then

buf1 = buf1 + 1 '黒塗りつぶし

Exit For

End If

'ActiveSheet.Cells(r, cc).Value = r & "," & cc

If r = (fc * 25 - 1) Then buf2 = buf2 + 1 '塗りつぶしなし

Select Case r

Case 99, 74, 49, 24

r = r + 5

End Select

Next r

Next cc

Worksheets("集計").Cells(c + 1, 12).Value = buf1 '目盛

Worksheets("集計").Cells(c + 1, 13).NumberFormatLocal = "0.0" '

Worksheets("集計").Cells(c + 1, 13).Value = buf1 / 3 '生産日数

Worksheets("集計").Cells(c + 1, 14).NumberFormatLocal = "#,##0"

If Worksheets("集計").Cells(c + 1, 13) <> 0 Then

Worksheets("集計").Cells(c + 1, 14).Value = (Worksheets("集計").Cells(c + 1, 11)) / (Worksheets("集計").Cells(c + 1, 13)) '生産額/日

End If

Worksheets("集計").Cells(c + 1, 16).Value = buf2

Worksheets("集計").Cells(c + 1, 17).NumberFormatLocal = "0.0" '

Worksheets("集計").Cells(c + 1, 17).Value = buf2 / 3 '未生産日数

End Sub

2017-05-172017-06-20

Bootstrap基礎

Gridシステムについて

containerクラスで囲うと余白ができる

全体の横幅12に分割すると考える。

先ず、rowクラスを作り、その中に
col-sm-12クラスのようにして追加いく。

col-sm-12のsmの部分は、該当px以下のときに適応される。
xs = auto
sm = 750px
md = 970px
lg = 1170px
が種類。

hidden-xs
visible-xs
のように該当サイズになると見せたり消したりもできる。

tableタグ

tableタグにtableクラスを付けるだけで見た目が変わる。
その他にも、tableクラスと合わせて
table-stripedクラス（色分）
table-borderedクラス（枠線）
table-hoverクラス（カーソル反応）
table-condensed（縮小）
などがある。

trタグではwarningクラスと付けると行に色が付く。

formタグ

先ずform-groupクラスで囲う。
その中にlabelタグとinputタグを入れる。
labeタグにはcontrol-labelクラスを付けて、
inputタグには、form-controlクラスを付ける。

buttonタグには、
btn btn-primaryクラス等を付ける。

formタグにform-inlineクラスを付けと横並び。

glyphiconsとボタン

<i class=”glyphicon glyphicon-book”></i>
のように使う。

btn btn-primaryクラス等でボタンとなる。

ボタンをグループ化スル場合、要素を
btn-groupクラスで囲う。

dropdown

ボタングループを作って、ボタンを入れて、そのボタンに、
dropdown-toggleクラスを付けのと、
data-toggle属性にdropdownを付ける。

メニューは、ulタグにdropdown-menuクラスを付ける。

<button class=”btn btn-primary dropdown-toggle” data-toggle=”dropdown” >
xxx <span class=”caret”></span>
</button>
<ul>
<li class=”dropdown-menu”>xxx</li>
</ul>
のような感じ。

最大幅を固定

@media(min-width:750px){.container{max-width:750px;}}
この場合750pxより大きい場合に適用。

グリッドのネスト

ネストさせる場合。
.row > .col > .row > .col
にする。

子になった方も12で分割される。

適当に実験

<!DOCTYPE html>
<html lang="ja">
  <head>
    <meta charset="utf-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <title>Bootstrap 101 Template</title>
    <link href="css/bootstrap.min.css" rel="stylesheet">
    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
    <!-- WARNING: Respond.js doesn't work if you view the page via file:// -->
    <!--[if lt IE 9]>
      <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
    <![endif]-->
  </head>
  <body>

  <?php
  if(array_key_exists("n",$_GET) && $_GET["n"] !== ""){
    echo $_GET["n"];
  }
  ?>

  <div class="container">
  <div class="row">
  <div class="col-sm-4" style="background:red;">

    <form method="get" class="form-horizontal row">

      <div class="form-group">
        <label class="control-label col-sm-4">名前</label>
        <div class="col-sm-8">
          <input type="text" class="form-control" name="n">
        </div>
      </div>

      <div class="form-group">
        <div class="col-sm-offset-4 col-sm-12">
          <input type="submit" class="btn">
        </div>
      </div>

    </form>

  </div>
  <div class="col-sm-8" style="background:gray;">right</div>
  </div>
  </div>

    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.4/jquery.min.js"></script>
    <script src="js/bootstrap.min.js"></script>

  </body>
</html>

<!DOCTYPE html>

<head>

<title>Bootstrap 101 Template</title>

<!--[if lt IE 9]>

<![endif]-->

</head>

<body>

<?php

if(array_key_exists("n",$_GET) && $_GET["n"] !== ""){

echo $_GET["n"];

}

</div>

</div>

</form>

</div>

<div class="col-sm-8" style="background:gray;">right</div>

</div>

</body>

</html>

2017-05-152020-05-04

簿記工業簿記財務諸表

製造原価報告書

製造原価報告書は、仕掛品勘定と対応している。
損益計算書の売上原価の内訳は製品勘定と対応している。

例）

直接材料
・月初有高　３００
・当月仕入高　１２００
・月末有高　２５０

賃金　直接工賃
・月初未払額　３７５
・当月支払額　１８００
・月末未払額　３２５

賃金　間接工賃
・月初未払額　５０
・当月支払額　４５０
・月末未払額　１００

経費
・水道光熱費（測定額）　４５０
・保険料（支払額）　８５０
・減価償却費（月額）　１５００

製造間接費実際配賦額　３３００

仕掛品
・月初有高　３２５０
・月末有高　２３５０

製品
・月初有高　３８００
・月末有高　３１５０

販管費　６５０

製造原価報告書

直接材料費
＿月初材料棚卸高　３００
＿当月材料仕入高　１２００
＿合計　　　　　　＝１５００
＿月末材料棚卸高　ー２５０　　＝１２５０
直接労務費　　　　　　　　　１７５０
製造間接費
＿間接高賃金　　　５００
＿水道光熱費　　　４５０
＿保険料　　　　　８５０
＿減価償却費　　　１５００　　＝３３００
当月総製造費用　　　　　　　６３００
月初仕掛品棚卸高　　　　　　３２５０
合計　　　　　　　　　　　　＝９５５０
月末仕掛品棚卸高　　　　　　ー２３５０
当月製品製造原価　　　　　　７２００

損益計算書

売上高　　　　　　　　　　　　　　１５０００
売上原価
＿月初製品棚卸高　　　３８００
＿当月製品製造原価　　７２００
＿合計　　　　　　　　＝１１０００
＿月末製品棚卸高　　　３１５０　　　＝７８５０
売上総利益　　　　　　　　　　　　７１５０
販売費及び一般管理費　　　　　　　ー６５０
営業利益　　　　　　　　　　　　　６５００

2017-05-152020-05-04

簿記工程別、組別、等級別総合原価計算

工程別総合原価計算（累加法）

各工程毎に総合原価計算を行うこと。複数回総合原価計算を行うイメージ。

第一工程にて、
・月末仕掛品原価
・工程完了品原価
を計算する。そして、完了品原価を第二工程の始点に投入。

ここで、第一工程の完了品原価が前工程費と名前を変え、第二工程の直接材料となる。
この直接材料は始点投入なので完成品換算はしない。

例）
生産データ（第一工程）
・月初仕掛品　１００　（０．２）
・当月投入　１５０
・月末仕掛品　５０　（０．８）
・完成品　２００

生産データ（第二工程）
・月初仕掛品　１００　（０．４）
・当月投入　２００
・月末仕掛品　８０　（０．５）
・完成品　２２０

原価データ（第一工程）　（材料｜加工費）
・月初仕掛品　２６７０　｜　５４０
・当月投入　４０８０　｜　７２６０

原価データ（第二工程）　（材料｜加工費）
・月初仕掛品　６０６０　｜　１７２５
・当月投入　？　｜　７９７５

材料：　始点投入
第一工程：　平均法
第二工程：　先入先出法

半製品

半製品とは、工程と工程の間で、次工程に投入せず保管されたもの。半製品勘定。

例）
第一工程完了品２００（＠５９．５）のうち、１５０は第二へ５０は倉庫へ。

仕訳）
第二工程仕掛品　８９２５　｜　第一工程仕掛品　１１９００
半製品　２９７５　｜

組別総合原価計算

勘定連絡図

複数の製品を連続大量に生産

製品毎に集計できる費用、組直接費は製品毎に賦課し、製品毎に集計できない場合、組間接費として、各組に配賦する。

ポイントは組間接費を配賦基準によって当月投入に配賦すること。

例）

生産データ　A組
・月初仕掛品　１００（１／５）
・当月投入　１５０
・月末仕掛品　５０（４／５）
・完成品　２００
・運転時間　１０００時間

生産データ　B組
・月初仕掛品　２０（３／４）
・当月投入　１２０
・月末仕掛品　４０（１／２）
・完成品　１００
・運転時間　４００時間

原価データ　A組
・月初仕掛品　直接材料費　２６７０
・月初仕掛品　加工費　５４０
・当月投入　直接材料費　４０８０
・当月投入　加工費　直接　２２６０

原価データ　B組
・月初仕掛品　直接材料費　１８００
・月初仕掛品　加工費　１６００
・当月投入　直接材料費　９０６０
・当月投入　加工費　直接　４６００

・組間接費　２８０００

・A組仕掛品　平均法
・B組仕掛品　先入先出法

等級別総合原価計算

同じ種類の製品で等級(大きさ、厚さ、重量などの種類)がある場合の原価計算。
（組別は別のモノ、等級別は同じモノ）

等価係数
数量で按分ができないため、原価の負担割合に利用し基準を１とする。

流れとしては、最初に単純総合原価計算をする。
次に、各等級の生産量に等価係数をかける。積数の算出。
単純総合原価計算の結果を積数の割合で各等級に按分する。
按分された数字を各等級の生産量で割る。

勘定連絡図

例）

生産データ
・月初仕掛品　１００（１／５）
・当月投入　１５０
・月末仕掛り品　５０（４／５）
・完成品　２００

原価データ　（　直接材料　｜　加工費　）
・月初仕掛品　２６７０　｜　５４０
・当月投入　４０８０　｜　７２６０

材料　始点投入
等級　A＝４０、B＝８０、C＝８０
等価係数　１　：　０．７５　：　０．５

平均法

１１９００を按分計算する。

生産量×等価係数＝積数
４０＊１＝４０
８０＊０．７５＝６０
８０＊０．５＝４０

積数の比率を使って按分する。
完成品原価
A＝３４００
B＝５１００
C＝３４００

2017-05-152020-05-04

簿記単純総合原価計算

同じ規格を大量に見込み生産をおこなう企業用の原価計算。
（単純とつくので1種類の製品のみを作ることを前提としている）

種類として、個別原価計算、総合原価計算とある。

勘定連絡図

勘定に製造間接費がないのは、
単純の場合一種類だけを作るのでどの製品か分かるため。

月末仕掛品原価、完成品原価の計算

月末に全て完成した場合（仕掛品がない）
当月投入数量の原価がイコール完成品原価となる。

月末仕掛品がある場合。
仕掛品と完成品は同じ原価としない。仕掛品は作業途中のため原価が低い。
まず材料を準備するため、直接材料費は、仕掛品でも完成品でも同じと考える。
加工費は作業に応じて変わると考え、仕掛品の方が加工費は少ないと考える。

単純総合原価計算では、直接材料費とそれ以外(加工費)の2つに分ける。
直接材料費→直接材料費
間接材料費→加工費
直接労務費→加工費
間接労務費→加工費
直接経費→加工費
間接経費→加工費

例）
１．月末仕掛品原価
２．完成品原価
３．完成品単位原価
の３つを求めることが多い。

生産データを与えられる。
月初仕掛品：０
当月投入量：４
月末仕掛　：２　（加工進捗０．５）
完成品　　：２

原価データを与えられる。

月初仕掛、直接材料：０
月初仕掛、加工費　：０
当月投入、直接材料：１２００
当月投入、加工費　：６００

材料は始点投入。

計算方法

先ずボックス図を書く。
進捗度をかけて、完成品換算数量にする。

月末仕掛品原価＝８００
完成品原価　　＝１０００
完成品単位原価＝５００（１０００／２）

仕掛品の総勘定元帳

T仕掛品）
前月繰越　０　　　｜　製品　　　１０００
材料　　　１２００　｜　次月繰越　８００
加工費　　６００

月初仕掛品がある場合の計算方法

平均法と先入先出法がある。

平均法
月初仕掛品原価と当月投入原価で平均を出す。

例）
生産データ
月初仕掛品　１００　（０．２）
当月投入　１５０
月末仕掛　５０　（０．８）
完成品　２００

原価データ
直接材料費　｜　加工費
月初仕掛品　２６７０　｜　５４０
当月投入　４０８０　｜　７２６０

月末仕掛品原価＝２６５０
完成品原価＝１１９００
完成品単位原価＝５９．５

先入先出法の場合（例は同じ条件）

月末仕掛品原価＝２６８０
完成品原価＝１１８７０
完成品単位原価＝５９．３５

直接材料の投入方法

始点で投入
製造を開始する段階で材料が全て揃うこと。これがメイン。

平均的に投入
工程の進行とともに平均的に投入されていく。
違いは、加工費と同じく完成品換算量の計算が必要。

特定点で投入
月末仕掛品が投入点を通過しているかどうかで判断。

終点で投入
終点で投入する場合は完成品のみに含めて計算する。
月末仕掛品に含めない。

減損

蒸発などに原材料の一部が消失してしまうこと、あるいは無価値な部分が発生してしまうこと。

正常減損
通常発生する程度の減損。減損した費用は正常減損費として良品の原価に含める。

どこで発生したかによって完成費原価か仕掛品か判断する。
完成品のみ負担、両者負担、のどちらか。

完成品のみ負担
正常減損が、工程の終点あるいは仕掛品の加工進捗度より後の場合、完成品のみ負担となる。

両者負担
逆に正常減損が仕掛品の加工進捗より前で発生したら両者負担となる。

例）

生産データ
月初仕掛品　０
当月投入　１０
減損　１
月末仕掛品　３　（０．２）
完成品　６
材料投入点　始点投入
減損発生地点　０．７

原価データ　(材料費｜加工費)
月初仕掛品　０
当月投入　２７００

今回は、仕掛品が発生地点の手前なので、完成品のみ負担。

月末仕掛品原料費　８１０
完成品原料費　１８９０　（１６２０＋２７０）

例）
生産データ
月初仕掛品　０
当月投入　１０
減損　１
月末仕掛品　３　（０．８）
完成品　６
材料投入点　始点投入
減損発生地点　０．５

原価データ　(材料費｜加工費)
月初仕掛品　０
当月投入　２７００

今回は、仕掛品が発生地点の後なので、両者負担。
両者負担は減損のボックスを消すだけ。

月末仕掛品原料費　９００
完成品原料費　１８００

減損で月初仕掛品がある場合（平均法）

例）
生産データ
月初仕掛品　１００（０．２）
当月投入　１７０
減損　２０
月末仕掛品　５０（０．８）
完成品　２００
材料投入点　始点投入
減損発生地点　終点

原価データ　(材料費｜加工費)
月初仕掛品　２６７０　｜　５４０
当月投入　４０８０　｜　７２６０

今回は、減損発生地点が終点なので完成品のみ負担。

月末仕掛品原価　２４５０
完成品原価　１２１００
完成品単位原価　６０．５

例）
月初仕掛品　１００　（０．２）
当月投入　１７０
減損　２０
月末仕掛　５０　（０．８）
完成品　２００

材料　始点投入
減損地点　０．５

原価データ（直接材料　｜　加工費）
月初仕掛品　２６７０　｜　５４０
当月投入　４０８０　｜　７２６０

減損地点を仕掛品が過ぎているので両者負担。

月末仕掛品原価　２６５０
完成品原価　１１９００
完成品単位原価　５９．５

減損で月初仕掛品がある場合（先入先出法）

減損は当月投入分のみから生じている。

先入先出法で完成品のみ負担。

例）
月初仕掛品　１００　（０．２）
当月投入　１７０
減損　２０
月末仕掛　５０　（０．８）
完成品　２００

材料　始点投入
減損地点　終点

原価データ（直接材料　｜　加工費）
月初仕掛品　２６７０　｜　５４０
当月投入　４０８０　｜　７２６０

完成品のみ負担

月末仕掛品原価　２４１０
完成品原価　１２１４０
完成品単位原価　６０．７

先入先出法で両者負担

例）
月初仕掛品　１００　（０．２）
当月投入　１７０
減損　２０
月末仕掛　５０　（０．８）
完成品　２００

材料　始点投入
減損地点　０．５

原価データ（直接材料　｜　加工費）
月初仕掛品　２６７０　｜　５４０
当月投入　４０８０　｜　７２６０

両者負担

月末仕掛品原価　２６８０
完成品原価　１１８７０
完成品単位原価　５９．３５

仕損

失敗等の不合格品（仕損品）のこと。
減損は形がない。仕損は形があると考える。

補修したりして回復しない前提なので、ある程度仕損は発生する前提。この仕損を正常仕損という。
正常仕損は原価に含める。減損と同じ処理。

ただ、仕損品が売却できる場合があり、これを仕損品評価額とする点が大きな違い。
（かかった原価をいくらか減らせるということ）

完成品のみの場合

通常通り減損の処理をして、最後に完成品原価から正常仕損品評価額をマイナスする。

例）
生産データ
・月初仕掛品　１００（０．２）
・当月投入　１７０
・仕損　２０
・月末仕掛品　５０（０．８）
・完成品　２００

・材料　始点投入
・仕損　終点発生
・仕損　３０

原価データ（材料｜加工）
・月初仕掛品　２６７０　｜　５４０
・当月投入　４０８０　｜　７２６０

正常仕損品の評価額＝３０＊２０＝６００

・月末仕掛品原価　２４５０
・完成品原価（ここから仕損評価額を引く）　＝　１２１００－６００　＝　１１５００
・完成品単位原価　５７．５

両者負担の場合

当月投入原価から正常仕損品評価額をマイナスしてから、
月末仕掛品原価、完成品原価を計算する。

例）
生産データ
・月初仕掛品　１００（０．２）
・当月投入　１７０
・仕損　２０
・月末仕掛品　５０（０．８）
・完成品　２００

・材料　始点投入
・仕損発生　０．５
・仕損　３０（材料費で控除）

原価データ（材料｜加工）
・月初仕掛品　２６７０　｜　５４０
・当月投入　４０８０　｜　７２６０

正常仕損品の評価額＝３０＊２０＝６００

・月末仕掛品原価　２５３０
・完成品原価　１１４２０
・完成品単位原価　５７．１