テックメモ – ページ 38 – 自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。

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

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仕掛品）
前月繰越　０　　　｜　製品　　　１０００
材料　　　１２００　｜　次月繰越　８００
加工費　　６００

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

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

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

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

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

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

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

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

直接材料の投入方法

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

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

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

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

減損

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

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

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

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

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

例）

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

完成品のみ負担

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

先入先出法で両者負担

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

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

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

両者負担

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

仕損

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

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

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

完成品のみの場合

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

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

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

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

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

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

両者負担の場合

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

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

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

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

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

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

2017-05-122020-05-04

簿記個別原価計算

個別原価計算とは受注に対して個別に生産する製造業での原価計算。
製造指図書を利用し、原価計算表を作成する。

製造指図書には顧客名、納入場所、納期等が記載され、
製造指図書と原価計算表は共通の通し番号で関連付けされる。

製造指図書毎、仕掛品勘定に集計していき、完成した製造指図書の原価は完成品原価となり、
未完成の製造指図書の原価は月末仕掛品原価となる。

原価計算表

費目／指図書　　００１　｜　００２　｜　００３　｜　合計
月初仕掛品原価　１００　｜　０００　｜　０００　｜　１００
直接材料費　　　１５０　｜　０４０　｜　１２０　｜　３１０
直接労務費　　　０８０　｜　０６０　｜　１００　｜　２４０
直接経費　　　　１００　｜　０３０　｜　０８０　｜　２１０
製造間接費　　　１２０　｜　１００　｜　０３０　｜　２５０
合計　　　　　　５５０　｜　２３０　｜　３３０　｜
備考　　　　　　完成　　　完成　　　仕掛

T仕掛品）
前月繰越　　１００　｜　製品　　　７８０
材料　　　　３１０　｜　次月繰越　３３０
労務費　　　２４０
経費　　　　２１０
製造間接費　２５０

製造直接費の賦課（ふか）または直課（ちょっか）

通し番号が付いていると直接費、通し番号がないと間接費で、
間接費は除き直接費を原価計算表に記入することを賦課または直課という。

製造間接費の実際配賦

製造間接費を通し番号ごとに配分することを配賦という。
配賦基準には金額や時間をもとに配分する方法があり、配賦率を算出する。

配賦率＝製造間接費の合計を配賦基準としたいもので割る。
配賦額＝配賦率×配賦基準数値

例）
製造間接　１３２００
配賦基準　作業時間
No1　　　12時間
No2　　　10時間

１３２００　÷　（１２＋１０）　＝　６００／１H　（配賦率）
No1　＝　１２×６００　＝　７２００
No2　＝　１０×６００　＝　６０００

配賦率とは、１基準単位あたりの製造間接費（金額）

製造間接費の予定配賦

前述の方法は製造間接費の実際配賦という。
通常以下の予定配賦（正常配賦）をすることが原則と考える。
（材料、労務費の予定計算はする・しない場合もある）

問題点として製造間接費の集計には時間がかかり、製品はできているが原価計算が遅れるという問題。
また、製造間接費は月により違うため、製造間接費の実際配賦額は毎月違う。

期首に予定配賦率を決定。
予定配賦率＝１年間の予定製造間接費（製造間接費予算）　÷　１年間の予定配賦基準（基準操業度）

予定配賦率に実際の配賦基準をかけて予定配賦額を計算する。

実際発生額を集計

予定配賦額と実際発生額の差から製造間接費配賦差異を求める。
その差異を期末に売上原価に加減算する。

例）
年間予定直接作業時間　２８８
年間予定製造間接費　　１４４０００
直接作業時間を配賦基準とし予定配賦率を計算

１４４０００÷２８８＝５００／１H　（予定配賦率）

直接作業時間２３時間

仕訳）
仕掛品　１１５００　｜　製造間接費　１１５００

製造間接費の予定配賦の場合、仕掛品スタート。

例）
間接材料３０００、間接労務３０００、間接経費７０００を製造間接費勘定へ振替。

製造間接経費　１３２００　｜　材料　３０００
・　　　　　　　　　　　｜　賃金　３０００
・　　　　　　　　　　　｜　経費　７２００

予定と実際の差額を差異勘定へ

製造間接費配賦差異　１７００　｜　製造間接費　１７００

売上原価勘定に振替

売上原価　１７００　｜　製造間接費配賦差異　１７００

製造間接費配賦差異の差異分析

材料費、労務費、製造間接費の予定額と実際額の差異が原価差異。
原価差異のうち製造間接費だけは発生原因を分析する。

基準操業度
一年間の予定配賦基準値の合計。

製造間接費予算
基準操業度での製造間接費の積み上げ。固定と変動がある。
計算のためには基準操業度が必要。

固定予算（固定費ではない）
操業度が変化して変化しない決定方法。
当初決定した製造間接費を、操業度が変化して予算を変えない。

変動予算
変動費と固定費に分け、変動費は変動費率を用いる。
操業度が変われば、変動費は操業度に応じて変わるということ。
（公式法変動予算）

差異分析の公式法変動予算

予算差異と操業度差異に分けられる。（差異分析図を作成する）

予算差異
予算許容額と実際発生額の差異のこと。予算許容額とは実際操業度における予算額。

操業度差異
実際操業度と基準操業度その差。

差異分析図

例）
年間基準操業度２８８直接時間
年間固定費８６４００
変動比率２００

実際直接作業時間２３時間
製造間接費実際発生額１３２００

固定予算による製造間接費配賦差異

例）
年間基準操業度２８８直接時間
年間固定費８６４００
固定予算による製造間接費１４４０００
（公式法の場合、固定費と変動費率の２つが提示される。）

実際直接作業時間２３時間
製造間接費実際発生額１３２００

部門別個別原価計算

部門ごとに製造間接費の発生内容も変わってくるので、
製造間接費をいきなり製品に配賦するのではなく、まず部門毎に集計。
（製造間接費のみ）

部門を製造部門・補助部門に分ける。

製造部門は直接加工する部門。補助部門は、工場事務、生産管理等。

勘定連絡図での違い

第一次集計では、
製造間接費として一つに集計したあと、それぞれの製造部門・補助部門に分けていく。

仕訳）
切削部門費　　　｜　製造間接費
組立部門費　　　｜
動力部門費　　　｜
修繕部門費　　　｜
工場事務部門費　｜

第二次集計では、
その後、補助部門に集計された金額を製造部門に再度集計していく。

仕訳）
切削部門費　　　｜　動力部門費
組立部門費　　　｜　修繕部門費
＿　　　　　　　｜　工場事務部門費

最終的に仕掛品への配賦。

仕訳）
仕掛品　　　　　｜　切削部門費
＿　　　　　　　｜　組立部門費

第一次集計

先ず、部門個別費と部門共通費に分ける。

部門個別費とはどの部門で発生した製造間接費か分かる費用のこと。
(特定部門に設置した機械の減価償却等)

逆に分からないのが部門共通費。
（工場の減価償却費等）

部門共通費は部門費集計表を作成し、部門に対して指定のある配賦基準で配賦する。

例）
工場全体の製造間接費１３２００を
製造部門、補助部門に集計する。

仕訳）
切削部門　５６００　｜　製造間接費　１３２００
組立部門　５３６０　｜
動力部門　８００　　｜
修繕部門　８４０　　｜
事務部門　６００　　｜

第二次集計

補助部門から製造部門へ配賦基準を用いて配賦する。
配賦基準は、補助部門の用役をどの程度製造部門が利用したか。
（動力消費量、修繕時間等）

補助部門同士のやりとり

補助部門から製造部門だけへ用役を提供するわけではなく、他の補助部門へ用役を提供する場合もあり、直接配賦法、相互配賦法がある。

直接配配賦法

補助部門同士のやりとりをなかったと仮定して配賦率を計算する。

仕訳）
切削部門　１１２０　｜　動力部門　　　８００
組立部門　１１２０　｜　修繕部門　　　８４０
＿　　　　　　　　｜　工場事務部門　６００

相互配賦法（簡便法）

２回配賦を行う。（第一次配賦、第二次配賦）
１度だけ補助部門同士やりとりを認め２回目の配賦計算では直接配賦法と同じように処理する

仕訳）
切削部門　１１１０　｜　動力部門　　　８００
組立部門　１１３０　｜　修繕部門　　　８４０
＿　　　　　　　　｜　工場事務部門　６００

製造部門費の仕掛品への実際配賦（指図書毎への配賦）

現時点で製造間接費は製造部門に集計されている。
実際配賦とは製造間接費が各製造部門から仕掛品に配賦していくこと。

指図書ごとに配賦するとき配賦基準は与えられる。

例）
第二次集計後
製造部門費　切削　６７２０
製造部門費　組立　６４８０
配賦基準　　　　　直接作業時間

仕訳）
仕掛品　１３２００　｜　切削部門　６７２０
・　　　　　　　　｜　組立部門　６４８０

指図書毎の原価は仕掛品勘定では分かれていない。
原価計算表のみで分かれている。

予定配賦(製造部門費)

製造間接費は通常予定配賦する。
期首に予定配賦率を決定する。

（１）第一次、製造間接費を全ての部門に配賦
（２）第二次、補助部門費を製造部門に配賦
（３）製造部門費を仕掛品へ

この流れで（３）から始める。
部門費の貸方に予定額を仕訳して始める。

予定配賦率を決める。
予定配賦率　＝　年間予算÷配賦基準の合計
予定配賦額　＝　予定配賦額×実際配賦基準の数値
実際発生額の集計（第一次集計、第二次集計）
配賦差異　＝予定配賦額－実際発生額
売上原価に賦課

例）
予定配賦率を求める。
切削＝配賦基準は運転時間
組立＝配賦基準は作業時間

切削予定配賦率＝２６２．５
組立予定配賦率＝４７５

実際配賦基準の数値

運転時間２４時間
No1=１６時間
No2=８時間
作業時間１６時間
No1＝８時間
No2＝８時間

原価計算表

No　｜　No１　｜　No1
切削　｜　４２００　｜　２１００
組立　｜　３８００　｜　３８００

仕訳）
仕掛品　１３９００　｜　切削部門費　６３００
｜　組立部門費　７６００

実際発生額

切削＝６７２０
組立＝６４８０

差異勘定へ

６３００－６７２０＝△４２０
７６００－６４８０＝１１２０

仕訳）
製造部門費配賦差異　４２０　｜　切削　４２０
組立　１１２０　｜　製造部門費配賦差異　１１２０

差異は借方がマイナス。貸方プラス。

2017-05-112020-05-04

簿記経費

材料費と労務費以外の原価要素。
材料費は具体的な物品、労務費は人の力と考える。

直接経費、間接経費

経費はほとんど間接経費。直接経費は大半が外注化工賃。
(特許権の使用料も直接経費で出題実績あり)

減価償却費、水道光熱費などは間接経費になるが、
工場のものだけが原価となるので注意。

経費の消費

消費額の計算方法は４つに分類。

支払経費

支払額を消費額とする。原価集計期間とのズレによる調整が必要。
労務費は給料で後払いなので未払いのみ、経費は前払分が発生する場合がある。

前月前払　｜　前月未払
当月支払　｜　当月消費
当月未払　｜　当月前払

ぜんぜんぜんみ・とうみとうぜん。

月割経費

総額が決まっていて月割する経費。減価償却費など。
年額なら１２で割る。

測定経費

支払額とは関係なく、メーターで測定。水道光熱費など。
支払額は無視して使用料を利用する。

発生経費

材料の棚卸減耗損のこと。（発生額＝消費額となる）
材料から発生しているが材料費と考えがちだが間接経費となる。

2017-05-112020-05-04

簿記労務費

労務費分類

直接工の直接作業だけが直接労務費で、直接工の間接作業費は間接労務費。
その他の給料、雑給、賞与等は全て間接労務費。

賃金の支払、消費

支払額は借方で、消費額を貸方へ。

給与計算期間＝前月２１~当月２０日まで
原価計算期間＝１日~月末

当月支払（支給）額（９/２１~１０/２0）　｜　前月未払額（９/２１~９/３０）
当月未払額（１０/２１~１０/３1）　｜　当月消費額（労務費）（１０/１~１０/３１）

（当月支払額＋当月未払額）ー前月未払＝当月消費

未払分の処理

前述の通り未払額をの調整が必要になり、その調整方法には、
未払賃金勘定で処理、賃金勘定のみで処理の二通りある。

賃金勘定と、未払賃金勘定の場合。例として前月末に未払賃金を５００計上済み。

未払いは負債なので、前月は
賃金　｜　未払賃金
のように仕訳されているはず。月初に逆仕訳。

月初仕訳）
未払賃金　５００　｜　賃金　５００

支払ったら分
当月賃金は７３００。預り金８００を差し引いて現金支給。

仕訳）
賃金　７３００　｜　預り金　８００
｜　現金　６５００

消費計算
消費賃金は７４００とされ、直接作業が５９００，間接作業が１５００。

仕訳）
仕掛品　５９００　｜　賃金　７４００
製造間接費　１５００　｜

当月の未払い分の計上

月末仕訳）
賃金　６００　｜　未払賃金　６００

直接工の消費賃金

直接工の賃金消費額は、
消費賃率×作業時間で算出。
作業時間には、直接作業時間と間接作業時間がある。

消費賃率＝直接工への支払総賃金÷同期間の直接工の総作業時間

間接工の賃金は全て間接労務費になる。賃率や時間などの計算は不要。

例）
未払賃金勘定を利用しており、前月未払賃金５００００がある。

月初仕訳）
未払賃金　５００００　｜　賃金　５００００

当月支給３３００００、預り金４００００を差し引き現金。

仕訳）
賃金　３３００００　｜　預り金　４００００
｜　現金　２９００００

消費額の計算は賃率１１００
直接作業時間２９０時間、間接作業時間３０時間。

仕訳）
仕掛品　３１９０００　｜　賃金　３５２０００
製造間接費　３３０００　｜

当月未払賃金７２０００

仕訳）
賃金　７２０００　｜　未払賃金　７２０００

作業時間分類

実働時間以外の手待時間も間接労務費になる。

間接工の消費賃金

全て間接労務費となり賃率、作業時間は不要。
直接工は、直接労務費なのか間接労務費なのか分ける必要があるが、間接工は不要。

予定消費賃率

材料では予定消費価格を利用した。それの労務費版。

期首において予定消費賃率を決定し消費計算をおこなう。
それに実際作業時間をかける。

予定消費賃金と実際消費賃金の賃率差異を計算。
賃率差異＝予定消費賃金－実際消費賃金

期末に売上原価に加減算する。
期末に実際の数字に修正されるということ。

例）
予定賃率￥８００
直接８時間。間接２時間だった。

仕訳）
仕掛品　６４００｜　賃金　８０００
製造間接費　１６００　｜

実際消費額７４００だった。
（前月未払５００、当月支払７３００、当月未払６００）

予定８０００で実際７４００だった。
賃率差異勘定へ。

仕訳）
賃金　６００　｜　賃率差異　６００

期末仕訳）
賃率差異　６００　｜　売上原価　６００