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

2017-07-13

VBA 外注管理用工程チャート作成機能

列数が多くなると管理しづらくなるので、マクロから列幅をコントロールできるようにすること。
一覧表の形式からチャート形式を作成できるようした。

UserForm1

Private Sub CommandButton1_Click()

Application.DisplayAlerts = False

If UserForm1.ComboBox1.Value = "" Or UserForm1.ComboBox2.Value = "" Then Exit Sub

If UserForm1.ComboBox5.Value = "" Or UserForm1.ComboBox5.Value = "全て出力" Then
  suppKey = "全て出力"
Else
  suppKey = UserForm1.ComboBox5.Text
End If

f = UserForm1.ComboBox1.Value & "/" & UserForm1.ComboBox2.Value & "/1"
t = UserForm1.ComboBox3.Value & "/" & UserForm1.ComboBox4.Value & "/1"

If IsDate(f) = False Or IsDate(t) = False Then Exit Sub
If CDate(f) > CDate(t) Then Exit Sub

For Each w In Sheets
  If w.Name = "工程" Then yn = MsgBox("工程シートが存在します。削除して続行しますか？", vbYesNo)
  If yn = vbNo Then Exit Sub
Next w

If yn = vbYes Then Sheets("工程").Delete

Set w = Sheets.Add
w.Name = "工程"

Application.DisplayAlerts = True

Call CreateProcessChart(UserForm1.ComboBox1.Value, UserForm1.ComboBox2.Value, UserForm1.ComboBox3.Value, UserForm1.ComboBox4.Value, suppKey)
Unload UserForm1

End Sub

Private Sub UserForm_Initialize()

UserForm1.ComboBox1.AddItem Year(Now)
UserForm1.ComboBox1.AddItem Year(DateAdd("yyyy", 1, Now))
UserForm1.ComboBox1.AddItem Year(DateAdd("yyyy", 2, Now))

UserForm1.ComboBox3.AddItem Year(Now)
UserForm1.ComboBox3.AddItem Year(DateAdd("yyyy", 1, Now))
UserForm1.ComboBox3.AddItem Year(DateAdd("yyyy", 2, Now))

For m = 1 To 12

  UserForm1.ComboBox2.AddItem m
  UserForm1.ComboBox4.AddItem m
  
Next m

UserForm1.ComboBox1.Text = Year(Now)
UserForm1.ComboBox2.Text = Month(Now)
UserForm1.ComboBox3.Text = Year(Now)
UserForm1.ComboBox4.Text = Month(Now)

'UserForm1.ComboBox3.Text = Year(DateAdd("m", 3, Now))
'UserForm1.ComboBox4.Text = Month(DateAdd("m", 3, Now))

Dim dic: Set dic = CreateObject("Scripting.Dictionary")

For r = 6 To Sheets("入力").UsedRange.Rows.Count
  If Not dic.Exists(Sheets("入力").Cells(r, 4).Value) Then dic.Add Sheets("入力").Cells(r, 4).Value, ""
Next r

If Not dic.Exists("全て出力") Then dic.Add "全て出力", ""

Keys = dic.Keys
For i = 0 To dic.Count - 1
  UserForm1.ComboBox5.AddItem Keys(i)
Next i

Set dic = Nothing

UserForm1.ComboBox5.Text = "全て出力"

End Sub

Private Sub CommandButton1_Click()

Application.DisplayAlerts = False

If UserForm1.ComboBox1.Value = "" Or UserForm1.ComboBox2.Value = "" Then Exit Sub

If UserForm1.ComboBox5.Value = "" Or UserForm1.ComboBox5.Value = "全て出力" Then

suppKey = "全て出力"

Else

suppKey = UserForm1.ComboBox5.Text

End If

f = UserForm1.ComboBox1.Value & "/" & UserForm1.ComboBox2.Value & "/1"

t = UserForm1.ComboBox3.Value & "/" & UserForm1.ComboBox4.Value & "/1"

If IsDate(f) = False Or IsDate(t) = False Then Exit Sub

If CDate(f) > CDate(t) Then Exit Sub

For Each w In Sheets

If w.Name = "工程" Then yn = MsgBox("工程シートが存在します。削除して続行しますか？", vbYesNo)

If yn = vbNo Then Exit Sub

Next w

If yn = vbYes Then Sheets("工程").Delete

Set w = Sheets.Add

w.Name = "工程"

Application.DisplayAlerts = True

Call CreateProcessChart(UserForm1.ComboBox1.Value, UserForm1.ComboBox2.Value, UserForm1.ComboBox3.Value, UserForm1.ComboBox4.Value, suppKey)

Unload UserForm1

End Sub

Private Sub UserForm_Initialize()

UserForm1.ComboBox1.AddItem Year(Now)

UserForm1.ComboBox1.AddItem Year(DateAdd("yyyy", 1, Now))

UserForm1.ComboBox1.AddItem Year(DateAdd("yyyy", 2, Now))

UserForm1.ComboBox3.AddItem Year(Now)

UserForm1.ComboBox3.AddItem Year(DateAdd("yyyy", 1, Now))

UserForm1.ComboBox3.AddItem Year(DateAdd("yyyy", 2, Now))

For m = 1 To 12

UserForm1.ComboBox2.AddItem m

UserForm1.ComboBox4.AddItem m

Next m

UserForm1.ComboBox1.Text = Year(Now)

UserForm1.ComboBox2.Text = Month(Now)

UserForm1.ComboBox3.Text = Year(Now)

UserForm1.ComboBox4.Text = Month(Now)

'UserForm1.ComboBox3.Text = Year(DateAdd("m", 3, Now))

'UserForm1.ComboBox4.Text = Month(DateAdd("m", 3, Now))

Dim dic: Set dic = CreateObject("Scripting.Dictionary")

For r = 6 To Sheets("入力").UsedRange.Rows.Count

If Not dic.Exists(Sheets("入力").Cells(r, 4).Value) Then dic.Add Sheets("入力").Cells(r, 4).Value, ""

Next r

If Not dic.Exists("全て出力") Then dic.Add "全て出力", ""

Keys = dic.Keys

For i = 0 To dic.Count - 1

UserForm1.ComboBox5.AddItem Keys(i)

Next i

Set dic = Nothing

UserForm1.ComboBox5.Text = "全て出力"

End Sub

Module2

Sub RestContext()

On Error Resume Next

Application.CommandBars("cell").Controls("列幅").Delete
Application.CommandBars("cell").Controls("列幅").Delete
Application.CommandBars("cell").Controls("工程フォーム表示").Delete
Application.CommandBars("cell").Controls("工程フォーム表示").Delete

End Sub

Sub SetContext()

With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)

.Caption = "列幅"

  With .Controls.Add(Type:=msoControlButton) ' (Type:=msoControlButton)はなくてもOK
  .Caption = "列幅取得"
  .OnAction = "getColsWidth"
  End With
  
  With .Controls.Add
  .Caption = "列幅指定(1)"
  .OnAction = "'setCols(2)'" '引数を渡すなら ' が必要。あるいは、ActionControl.Captionにて
  End With

  With .Controls.Add
  .Caption = "列幅指定(2)"
  .OnAction = "'setCols(3)'"
  End With

  With .Controls.Add
  .Caption = "列幅指定(3)"
  .OnAction = "'setCols(4)'"
  End With

End With

With Application.CommandBars("cell").Controls.Add
  .Caption = "工程フォーム表示"
  .OnAction = "UserFormShow"
End With

End Sub

Sub setCols(k As Integer)

For i = 3 To 51
  If Sheets("設定").Cells(i, k).Value = "" Then
    MsgBox "設定に不正があります。"
    Exit Sub
  End If
Next

Sheets("入力").Activate

For i = 3 To 51

  Sheets("入力").Columns(i - 2).ColumnWidth = Sheets("設定").Cells(i, k).Value

Next

End Sub

Sub getColsWidth()

Sheets("設定").Activate
Sheets("設定").Range("E3:E51").Value = ""

For i = 3 To 51

  Sheets("設定").Cells(i, 5).Value = Sheets("入力").Columns(i - 2).ColumnWidth

Next

End Sub

Sub RestContext()

On Error Resume Next

Application.CommandBars("cell").Controls("列幅").Delete

Application.CommandBars("cell").Controls("工程フォーム表示").Delete

End Sub

Sub SetContext()

With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)

.Caption = "列幅"

With .Controls.Add(Type:=msoControlButton) ' (Type:=msoControlButton)はなくてもOK

.Caption = "列幅取得"

.OnAction = "getColsWidth"

End With

With .Controls.Add

.Caption = "列幅指定(1)"

.OnAction = "'setCols(2)'" '引数を渡すなら ' が必要。あるいは、ActionControl.Captionにて

End With

With .Controls.Add

.Caption = "列幅指定(2)"

.OnAction = "'setCols(3)'"

End With

With .Controls.Add

.Caption = "列幅指定(3)"

.OnAction = "'setCols(4)'"

End With

With Application.CommandBars("cell").Controls.Add

.Caption = "工程フォーム表示"

.OnAction = "UserFormShow"

End With

End Sub

Sub setCols(k As Integer)

For i = 3 To 51

If Sheets("設定").Cells(i, k).Value = "" Then

MsgBox "設定に不正があります。"

Exit Sub

End If

Sheets("入力").Activate

For i = 3 To 51

Sheets("入力").Columns(i - 2).ColumnWidth = Sheets("設定").Cells(i, k).Value

End Sub

Sub getColsWidth()

Sheets("設定").Activate

Sheets("設定").Range("E3:E51").Value = ""

For i = 3 To 51

Sheets("設定").Cells(i, 5).Value = Sheets("入力").Columns(i - 2).ColumnWidth

End Sub

Module3

Sub UserFormShow()

UserForm1.Show
    
End Sub

Sub CreateProcessChart(y, m, yy, mm, suppKey)

Sheets("工程").Cells(1, 1).Value = "製作先"
Sheets("工程").Cells(1, 2).Value = "工番"
Sheets("工程").Cells(1, 3).Value = "型式"
Sheets("工程").Cells(1, 4).Value = "数量"
Sheets("工程").Cells(1, 5).Value = "客先"

ymd = DateAdd("m", -1, CDate(y & "/" & m & "/21"))
ymdymd = CDate(yy & "/" & mm & "/20")
c = 6

Do While CDate(ymd) <= CDate(ymdymd)

  Sheets("工程").Cells(1, c).Value = ymd
  
  ymd = DateAdd("d", 1, ymd)
  c = c + 1

Loop

i = 2

For r = 6 To Sheets("入力").UsedRange.Rows.Count

  flg = True
  If suppKey <> "全て出力" And suppKey <> Sheets("入力").Range("D" & r).Value Then flg = False

  If Sheets("入力").Range("AK" & r).Value = "有" And flg = True Then
  
    Sheets("工程").Range("A" & i).Value = Sheets("入力").Range("D" & r).Value
    Sheets("工程").Range("B" & i).Value = Sheets("入力").Range("H" & r).Value
    Sheets("工程").Range("C" & i).Value = Sheets("入力").Range("J" & r).Value
    Sheets("工程").Range("D" & i).Value = Sheets("入力").Range("M" & r).Value
    Sheets("工程").Range("E" & i).Value = Sheets("入力").Range("N" & r).Value
    
    rangeAddress = Split("E,F,R,T,U", ",")
    chartText = Split("完成期日,本納期,出図日,製缶検査,完成検査", ",")
    ChartColor = Split("&HCC99FF,&HCC99FF,&H99CCFF,&H99CCFF,&H99CCFF", ",")
    For a = 0 To 4
      If IsDate(Sheets("入力").Range(rangeAddress(a) & r).Value) = True Then
        c = 6
        Do While Sheets("工程").Cells(1, c).Value <> ""
          If CDate(Sheets("工程").Cells(1, c).Value) = CDate(Sheets("入力").Range(rangeAddress(a) & r).Value) Then
            Sheets("工程").Cells(i, c).Value = chartText(a)
            Sheets("工程").Cells(i, c).Interior.Color = ChartColor(a)
          End If
          c = c + 1
        Loop
      End If
    Next a
  
    fromRangeAddress = Split("AM,AP,AS,AV", ",")
    toRangeAddress = Split("AN,AQ,AT,AW", ",")
    chartTextAddress = Split("AL,AO,AR,AU", ",")
    ChartColor = Split("&H663399,&HFF6633,&H00CC99,&H00CCFF", ",")
    For a = 0 To 3
      fromDate = Sheets("入力").Range(fromRangeAddress(a) & r).Value
      toDate = Sheets("入力").Range(toRangeAddress(a) & r).Value
      chartText = Sheets("入力").Range(chartTextAddress(a) & r).Value
      textFlag = False
      If IsDate(fromDate) = True Then
        If IsDate(toDate) = False Then toDate = fromDate
        c = 6
        Do While Sheets("工程").Cells(1, c).Value <> ""
          If CDate(Sheets("工程").Cells(1, c).Value) >= CDate(fromDate) And _
             CDate(Sheets("工程").Cells(1, c).Value) <= CDate(toDate) Then
            If textFlag = False Then
              Sheets("工程").Cells(i, c).Value = Sheets("工程").Cells(i, c).Value & " " & chartText
              textFlag = True
            End If
            Sheets("工程").Cells(i, c).Interior.Color = ChartColor(a)
          End If
          c = c + 1
        Loop
      End If
    Next a
    
    i = i + 1
  
  End If

Next r

Sheets("工程").Rows(1).NumberFormatLocal = "dd"
Sheets("工程").Rows(1).ShrinkToFit = True
Sheets("工程").Rows(1).HorizontalAlignment = xlCenter
Sheets("工程").Columns.AutoFit

c = 6
Do While Sheets("工程").Cells(1, c).Value <> ""
  Sheets("工程").Columns(c).ColumnWidth = 3.4
  If c = 6 Or Day(Sheets("工程").Cells(1, c).Value) = 1 Then
    Sheets("工程").Cells(1, c).NumberFormatLocal = "mm/dd"
  End If
  If Weekday(Sheets("工程").Cells(1, c).Value) = 1 Then Sheets("工程").Cells(1, c).Font.Color = RGB(255, 0, 0)
  c = c + 1
Loop

Sheets("工程").UsedRange.Borders.LineStyle = True
Sheets("工程").Cells(2, 1).Select
ActiveWindow.FreezePanes = True

End Sub

100

101

102

103

104

105

106

107

108

109

110

Sub UserFormShow()

UserForm1.Show

End Sub

Sub CreateProcessChart(y, m, yy, mm, suppKey)

Sheets("工程").Cells(1, 1).Value = "製作先"

Sheets("工程").Cells(1, 2).Value = "工番"

Sheets("工程").Cells(1, 3).Value = "型式"

Sheets("工程").Cells(1, 4).Value = "数量"

Sheets("工程").Cells(1, 5).Value = "客先"

ymd = DateAdd("m", -1, CDate(y & "/" & m & "/21"))

ymdymd = CDate(yy & "/" & mm & "/20")

c = 6

Do While CDate(ymd) <= CDate(ymdymd)

Sheets("工程").Cells(1, c).Value = ymd

ymd = DateAdd("d", 1, ymd)

c = c + 1

Loop

i = 2

For r = 6 To Sheets("入力").UsedRange.Rows.Count

flg = True

If suppKey <> "全て出力" And suppKey <> Sheets("入力").Range("D" & r).Value Then flg = False

If Sheets("入力").Range("AK" & r).Value = "有" And flg = True Then

Sheets("工程").Range("A" & i).Value = Sheets("入力").Range("D" & r).Value

Sheets("工程").Range("B" & i).Value = Sheets("入力").Range("H" & r).Value

Sheets("工程").Range("C" & i).Value = Sheets("入力").Range("J" & r).Value

Sheets("工程").Range("D" & i).Value = Sheets("入力").Range("M" & r).Value

Sheets("工程").Range("E" & i).Value = Sheets("入力").Range("N" & r).Value

rangeAddress = Split("E,F,R,T,U", ",")

chartText = Split("完成期日,本納期,出図日,製缶検査,完成検査", ",")

ChartColor = Split("&HCC99FF,&HCC99FF,&H99CCFF,&H99CCFF,&H99CCFF", ",")

For a = 0 To 4

If IsDate(Sheets("入力").Range(rangeAddress(a) & r).Value) = True Then

c = 6

Do While Sheets("工程").Cells(1, c).Value <> ""

If CDate(Sheets("工程").Cells(1, c).Value) = CDate(Sheets("入力").Range(rangeAddress(a) & r).Value) Then

Sheets("工程").Cells(i, c).Value = chartText(a)

Sheets("工程").Cells(i, c).Interior.Color = ChartColor(a)

End If

c = c + 1

Loop

End If

Next a

fromRangeAddress = Split("AM,AP,AS,AV", ",")

toRangeAddress = Split("AN,AQ,AT,AW", ",")

chartTextAddress = Split("AL,AO,AR,AU", ",")

ChartColor = Split("&H663399,&HFF6633,&H00CC99,&H00CCFF", ",")

For a = 0 To 3

fromDate = Sheets("入力").Range(fromRangeAddress(a) & r).Value

toDate = Sheets("入力").Range(toRangeAddress(a) & r).Value

chartText = Sheets("入力").Range(chartTextAddress(a) & r).Value

textFlag = False

If IsDate(fromDate) = True Then

If IsDate(toDate) = False Then toDate = fromDate

c = 6

Do While Sheets("工程").Cells(1, c).Value <> ""

If CDate(Sheets("工程").Cells(1, c).Value) >= CDate(fromDate) And _

CDate(Sheets("工程").Cells(1, c).Value) <= CDate(toDate) Then

If textFlag = False Then

Sheets("工程").Cells(i, c).Value = Sheets("工程").Cells(i, c).Value & " " & chartText

textFlag = True

End If

Sheets("工程").Cells(i, c).Interior.Color = ChartColor(a)

End If

c = c + 1

Loop

End If

Next a

i = i + 1

End If

Next r

Sheets("工程").Rows(1).NumberFormatLocal = "dd"

Sheets("工程").Rows(1).ShrinkToFit = True

Sheets("工程").Rows(1).HorizontalAlignment = xlCenter

Sheets("工程").Columns.AutoFit

c = 6

Do While Sheets("工程").Cells(1, c).Value <> ""

Sheets("工程").Columns(c).ColumnWidth = 3.4

If c = 6 Or Day(Sheets("工程").Cells(1, c).Value) = 1 Then

Sheets("工程").Cells(1, c).NumberFormatLocal = "mm/dd"

End If

If Weekday(Sheets("工程").Cells(1, c).Value) = 1 Then Sheets("工程").Cells(1, c).Font.Color = RGB(255, 0, 0)

c = c + 1

Loop

Sheets("工程").UsedRange.Borders.LineStyle = True

Sheets("工程").Cells(2, 1).Select

ActiveWindow.FreezePanes = True

End Sub

2017-07-122020-05-06

Rainmeter & VClouds Weather 2インストール

本体

Rainmeterはインストール。
ポータブルを設定。

http://vclouds.deviantart.com/art/VClouds-Weather-2-179058977
からVClouds Weather 2
を保存し、保存した*.rmskinを
C:\Rainmeter（ポータブルのデフォルトパス）にある
SkinInstaller.exeで実行する。

VClouds Weather 2

https://weather.com/
にアクセスし表示したい住所を開いてアドレスの末尾を控える。

設定ファイルの
UserVariables(H).inc
の中で、
Location=控えたアドレス
Language=Japanese
とする。

日本語化する場合、Languageの中にJapanese.incを入れる。
（標準では存在しない）

試しにインストールまでしたが、曜日の表示がずれるので利用はしない。

2017-07-122017-08-02

C# Webサイト読込

レンダリングがIEになるようで、IEのバージョン変更はレジストリからのみ。
毎回、DocumentCompletedが走るので無限ループになってしまったりするので注意。

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 WindowsFormsApp1
{
    public partial class Form1 : Form
    {

        public Form1()
        {
            InitializeComponent();
            webBrowser1.ScriptErrorsSuppressed = true;
            webBrowser1.Navigate("https://weather.yahoo.co.jp/weather/jp/xxx");
            webBrowser1.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(tenki);
        }

        private void tenki(object sender, WebBrowserDocumentCompletedEventArgs e)
        {

            HtmlElementCollection hec = webBrowser1.Document.All;

            foreach (HtmlElement he in hec)
            {

                if (he.GetAttribute("className").ToString() == "forecastCity")
                {
                    /* 以下のように直接CSSを書いても大丈夫
                    webBrowser1.DocumentText =
                        "<style>" +
                        "*{font: normal 12px;}" +
                        "th,tr,td{padding: 10px; border: 1px solid #ccc;}" +
                        "table{border-collapse: collapse; text-align: center}" +
                        "</style>" +
                        "<table>" + he.InnerHtml + "</table>";
                    */
                    webBrowser1.DocumentText = "<html><head>" +
                        "<link rel='stylesheet' href='//s.yimg.jp/images/weather/pc/v2/css/weatherCommon-2.1.0.css'>" + 
                        "<link href='https://s.yimg.jp/yui/jp/mh/pc/1.4.8/css/std.css' rel='stylesheet' type='text/css' media='all'>" + 
                        "</head>" +
                        "<body><div>" + he.InnerHtml + "</div></body></html>";

                }
            }
        }
    }
}

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 WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

webBrowser1.ScriptErrorsSuppressed = true;

webBrowser1.Navigate("https://weather.yahoo.co.jp/weather/jp/xxx");

webBrowser1.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(tenki);

}

private void tenki(object sender, WebBrowserDocumentCompletedEventArgs e)

{

HtmlElementCollection hec = webBrowser1.Document.All;

foreach (HtmlElement he in hec)

{

if (he.GetAttribute("className").ToString() == "forecastCity")

{

/* 以下のように直接CSSを書いても大丈夫

webBrowser1.DocumentText =

"<style>" +

"*{font: normal 12px;}" +

"th,tr,td{padding: 10px; border: 1px solid #ccc;}" +

"table{border-collapse: collapse; text-align: center}" +

"</style>" +

"<table>" + he.InnerHtml + "</table>";

webBrowser1.DocumentText = "<html><head>" +

"<link rel='stylesheet' href='//s.yimg.jp/images/weather/pc/v2/css/weatherCommon-2.1.0.css'>" +

"<link href='https://s.yimg.jp/yui/jp/mh/pc/1.4.8/css/std.css' rel='stylesheet' type='text/css' media='all'>" +

"</head>" +

"<body><div>" + he.InnerHtml + "</div></body></html>";

}

こんな感じで読み込むことも可能。

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 WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        Boolean isLoad = false;

        public Form1()
        {
            InitializeComponent();

            webBrowser1.ScriptErrorsSuppressed = true;
            
            webBrowser1.Navigate("xxx");
            webBrowser1.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(LoadPage);

            timer1.Start();
        }

        private void LoadPage(object sender, WebBrowserDocumentCompletedEventArgs e)
        {
            if (isLoad== true) return;

            HtmlElementCollection hec = webBrowser1.Document.Body.All;

            string body = "";

            //class
            foreach(HtmlElement he in hec)
            {
                if(he.GetAttribute("className").ToString() == "xxx")
                {
                    body += he.InnerHtml;
                }
            }

            /* ID
            foreach (HtmlElement he in hec)
            {
                if (he.Id == "xxx") body += he.InnerHtml;
            }
            */

            webBrowser1.Document.Body.InnerHtml = body;
            isLoad = true;

        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            this.Text = DateTime.Now.ToString();

            if (isLoad == true && DateTime.Now.Minute.ToString() == "59" && DateTime.Now.Second.ToString() == "59") isLoad = false;
            if (isLoad == false && DateTime.Now.Minute.ToString() == "1" && DateTime.Now.Second.ToString() == "1") webBrowser1.Refresh();

        }
    }
}

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 WindowsFormsApp1

{

public partial class Form1 : Form

{

Boolean isLoad = false;

public Form1()

{

InitializeComponent();

webBrowser1.ScriptErrorsSuppressed = true;

webBrowser1.Navigate("xxx");

webBrowser1.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(LoadPage);

timer1.Start();

}

private void LoadPage(object sender, WebBrowserDocumentCompletedEventArgs e)

{

if (isLoad== true) return;

HtmlElementCollection hec = webBrowser1.Document.Body.All;

string body = "";

//class

foreach(HtmlElement he in hec)

{

if(he.GetAttribute("className").ToString() == "xxx")

{

body += he.InnerHtml;

}

/* ID

foreach (HtmlElement he in hec)

{

if (he.Id == "xxx") body += he.InnerHtml;

}

webBrowser1.Document.Body.InnerHtml = body;

isLoad = true;

}

private void timer1_Tick(object sender, EventArgs e)

{

this.Text = DateTime.Now.ToString();

if (isLoad == true && DateTime.Now.Minute.ToString() == "59" && DateTime.Now.Second.ToString() == "59") isLoad = false;

if (isLoad == false && DateTime.Now.Minute.ToString() == "1" && DateTime.Now.Second.ToString() == "1") webBrowser1.Refresh();

}

2017-07-072020-11-20

簿記 3級現金

現金の論点

・現金の範囲
・現金過不足
・小口現金

通貨代用証券として以下を現金として扱う。

・他人振出小切手
・郵便為替証書
・送金小切手
・支払期日到来の公社債利札
・配当金領収書

例）商品５０００販売し、小切手で受け取った。
現金　５０００　｜　売上　５０００

例）仕入代金１０００を送金小切手で支払った
仕入　１０００　｜　現金　１０００

例）社債利札２０００期日到来
現金　２０００　｜　有価証券利息　２０００

例）配当金領収書３０００
現金　３０００　｜　受取配当金　３０００

現金出納帳

現金過不足

現金の実際有高と帳簿残高が一致しない場合、一時的に、
現金化不足勘定（仮勘定）
で計算する。

考え方は、実際の現金に合わせる仕訳をする。

例）現金実際有高が帳簿より少ない（現金不足）の場合。
帳簿５０００、実際４５００
現金過不足　５００　｜　現金　５００

不一致原因が分かった場合。原因を先ず仕訳。その後現金過不足を消す。

例）通信費４００記入漏れ。
通信費　４００　｜　現金過不足　４００

この時点で借方（多い方）に１００残っている。
決算まで、判明しない場合、
現金過不足＞雑損
に振替える。
雑損　１００　｜　現金過不足　１００

＊＊＊

例）実際有高のほうが多い場合。
帳簿５０００、実際５５００
現金　５００　｜　現金過不足　５００

原因は受取家賃４００記入漏れ。
現金過不足　４００　｜　受取家賃　４００

この時点で貸方（多い方）に１００残っている。
決算まで、判明しない場合、
現金過不足＞雑益
に振替える。
現金過不足　１００　｜　雑益　１００

小口現金

正式名称は定額資金前渡制度。小口現金出納帳に記入し、仕訳は本社でおこなう。

例）現金にて小口現金２００００を前渡しした。
小口現金　２００００　｜　現金　２００００

例）郵便切手１０００、タクシー１００００、コピー用紙１５００、お茶５００を小口現金にて支払った。
(小口現金で処理したため、この時点では仕訳無し)
通信費１０００、交通費１００００、消耗品１５００、雑費５００の報告を小口現金係より受けた。
通信費　　１０００　　｜　小口現金　１３０００
交通費　　１００００
消耗品費　１５００
雑費　　　５００

例）現金１３０００を小口現金に補給した。
小口現金　１３０００　｜　現金　１３０００

＊＊＊

当日に小口現金を補給した場合、上記２つを足したような仕訳になる。
通信費　　１０００　　｜　小口現金　１３０００
交通費　　１００００
消耗品費　１５００
雑費　　　５００
小口現金　１３０００　｜　現金　１３０００

になり結果、小口現金を消すので以下のようになる。
通信費　　１０００　　｜　現金　１３０００
交通費　　１００００
消耗品費　１５００
雑費　　　５００

＊＊＊

小口現金出納帳

小口現金係が記入。

当月補給の場合。

2017-07-072020-05-04

簿記基礎

個人は期末が年末のことが多い。
所得税で確定申告が必要で、確定申告は２／１６~３／１５のため。

３／５つの基本要素

貸借対照表項目は、資産、負債、純資産の３つ。

資産　｜　負債　（他人資本）
＿　　｜　純資産（自己資本）

借方が資金の運用形態で、貸方が資金の調達源泉。

資産

資産で注意点は権利（貸付金等）も資産。
実務では、備品と消耗品の差は金額が多い。

負債

主に債務（借入金等、何かをしなければいけない義務）

純資産

資産総額ー負債総額のこと

例）
貸借対照表作成

現金　　２０００００　｜　買掛金　１２００００
売掛金　１４００００　｜　借入金　８００００
商品　　１００００　　｜　資本金　２０００００
備品　　５００００
ー
４０００００　｜　４０００００
＝

２／５つの基本要素

損益計算書項目は、収益、費用の２つ。
その差によって、当期純利益、当期純損失を計算する。

費用　｜　収益
利益　｜

あるいは

費用　｜　収益
＿　　｜　損失

収益

メインの勘定は売上。受取手数料なども収益となる。

収益勘定の特徴としては、受取○○○、○○○益とつく。

費用

一般的に１０万などで備品と消耗品を判断する。

費用勘定の特徴として、支払○○○、○○○損、○○○費とつく。

簿記一巡

日時
１．仕訳帳へ仕訳
２．総勘定元帳へ転記

月次
１．試算表
２．精算表
３．貸借対照表、損益計算書

帳簿

仕訳帳と総勘定元帳を合わせて主要簿という。

仕訳帳

例）
６／１　現金５００００を元入
６／５　商品３０００００を仕入。１０００００現金支払。残は掛け。
６／８　家賃１００００、水道光熱費５０００を現金。

勘定科目は括弧を付ける。
小書きは省略。

総勘定元帳

勘定科目ごとに作成される。
資産、負債、純資産、収益、費用の順番で作成される。
標準式と残高式がある。
（学習上は標準式、実務的には残高式が多い）

摘要欄には相手勘定を記入する。
相手勘定が複数の場合、諸口と記入。
仕丁は仕訳帳のページを記入。

例）

簡略版のT勘定は、日付、相手勘定、金額のみ。

現金

６／１　資本金　５０００００　｜　６／５　仕入　１０００００
・　　　　　　　　　　　　｜　　　８　諸口　１５０００

さらに省略して相手勘定も省略して書く場合もある。

2017-06-222020-05-04

人物像・自分自身を商品として売れる人

・普通はある程度の年齢で諦めてしまうので、諦めないほどにその目標が自己のアイデンティティの一部となっていること。それを原動力とする情熱。

・持って生まれた対人的な振る舞い。小さい頃から集団の中でのポジションや人に与える影響力の強さには個人差がある。

・どのような形であれその業界に入り込んでいて選択肢の中に入っている。どんなに才能があっても選択肢に入っていなければダメだし、その選択肢というのは結構採用側から見える狭い世界。で、特にこれが重要な気がする。少なくても他の条件にくらべて自分次第という部分でもある。

・考え方、性格で何かしら突出している。どんなに容姿が良くても、いわゆる普通の人だと長期にわたって自分自身を商品とする世界にいない。

・商品として未完成はダメ。磨けば光るはダメ（特に自分で思ってては）。誰も磨いてくれないし、足りない部分を補ってはくれない。例え荒削りであっても商品として完成している必要がある。

・魅力の源泉は意識できない。例えば意識して良く見せようとした場合、結果よく見えるから魅力があるのではなく、よく見せようと考える意識から魅力がにじみ出てきているようなイメージ。

・コイントスと同じようにかならず評価される（成功）人間はでてくるし、評価されなかった人間は誰も知ろうとしないので、努力、才能と同じぐらいの割合で運も必要だろうと思う。

・作品が伴う世界の場合、特にアートよりの世界の作品は、作品の品質で売れる売れないは決まらない。作った人間や、作品にまつわるストーリーが必要。それは人為的の場合もあるし偶然の場合もある。

・微細な表情の変化等を含む容姿は精神を表している。例えは悪いが精神疾患が与える影響を考えると分かる。なので、写真だけでは魅力の一部しか確認できない。

・魅力の一つは自分に無いものを持っているかどうかだと思うので、少し家庭環境が悪い方が魅力的になる。悪さの定義は難しいけど、完璧な家庭環境では突出した部分ができない。

・人として魅力が十分ならそれで売れるかというと、先ずビジネス側から選択されないとダメで、選択する側が魅力というパラメータを十分に見分けることができないので、そこに運が必要になってしまう。例えば、AとBといて、ビジネス側の意図でAを選択したけど実際はBの方が魅力があったと言うことも往々にある。

・売れるかどうかを理論にするのは難しい。ベンチャーから成功した起業と廃業した起業を並べて後付で分析しているようなもの。（過去に起こったことを分析して理論体系にまとめても将来は予測できない）

・エンタメ系の商品は人で、それを支える側は製造業とかと同じビジネスロジックが必要。だけど、商品が人なのでゼロから作れないし、魅力的な人を見つける機械はないので、結局人の判断力が頼りになってしまう。

・時代の大きな流れとして、嗜好の細分化＆意図的な流行が作りづらい時代で、大スターにみんなが声援という感じはなくなってきている。

・人となりを知りたいなら、その人の周りの人を見ればいい、は有名な言葉。ということは、時代が求める雰囲気みたいなものは意図的に作ろうとして作れるものではなく、集団が望んだ結果とも考えらえる。

2017-06-152021-11-02

基本コマンド

・起動

CentOS6まで
/etc/init.d/xxx start　（7は使えない）
service xxx start　（７はsystemctlにリダイレクト）
CentOS7では
systemctlとなる。

・自動起動

CentOS6まで
chkconfig xxx on | off　（７はsystemctlにリダイレクト）
CentOS7では
systemctlとなる。

yumとrpm

yumの内部でrpmが呼ばれている。

利用可能かどうかと、インストール済み両方表示。
yum list xxx

パッケージを探す
yum search xxx

パッケージ情報
yum info

yum -y install php
(-yは全てyes回答)

yum remove xxx
削除する場合

アップデート
yum update
yum update xxx

インストール済みでアップデートがあるかどうか
yum check-update

SSHの設定

基本はそのまま接続できるはず、VirtualBoxに接続の場合、
設定＞ネットワーク＞割り当て
をブリッジアダプターに変更して、自動取得のIPに繋げれば大丈夫。

・SSHの状態確認
systemctl status sshd.service

・ファイアーウォールの確認
firewall-cmd –list-all

・rootのパスワード認証を不可にする。

PasswordAuthentication no
ChallengeResponseAuthentication no

になっているかどうか確認。

ユーザーを追加し、
PermitRootLogin no
にするかrootのままにするなら、
PermitRootLogin without-password
にする。

・ポート番号変更(49152 – 65535辺り)

firewall-cmd –add-port=49152/tcp –zone=public –permanent
firewall-cmd –reload
ポートを開ける。

systemctl restart sshd

現在の接続を切る前に接続できるか試す。

問題なければポートを閉じる。

firewall-cmd –remove-service=ssh –zone=public –permanent
firewall-cmd –reload

・再起動

systemctl restart sshd
systemctl enable sshd

firewalld

publicゾーンにnicが割り当ててあるか確認。
(active)は有効かどうかという意味ではなく、ゾーン指定しないときの対象かどうかという意味。

定義されているサービス
firewall-cmd –get-services

許可されている情報
firewall-cmd –list-all –zone=public
–list-all
–list-services
–list-port

リロード
firewall-cmd –reload

サービスを許可する
firewall-cmd –add-service=http –zone=public –permanent

許可したサービスを削除
firewall-cmd –remove-service=http –zone=public –permanent

許可するポートの追加
firewall-cmd –add-port=22/tcp –zone=public –permanent

ポートを追加。(接続元を指定する場合)
firewall-cmd –permanent –zone=public –add-rich-rule=”rule family=ipv4 source address=192.168.13.2 port protocol=tcp port=80 accept”

許可するポートの削除
firewall-cmd –remove-port=22/tcp –zone=public –permanent

定義済みサービス(編集はしない)
/usr/lib/firewalld/services

定義済みゾーンの確認
firewall-cmd –list-all-zones

アクティブなゾーンの確認
firewall–cmd —get–active–zones

Nicに対するデフォルトゾーンの確認
firewall-cmd –get-default-zone

NICのゾーンを変える(permanetが不要という記事ある要確認)
firewall-cmd –change-interface=lo –zone=public

NICをゾーンから削除(permanetが不要という記事ある要確認)
firewall-cmd –remove-interface=lo

だいたいの流れ。本来サービス登録なんだろうけど。

登録済みのサービスを消す。
firewall-cmd –remove-service=http –zone=public –permanent
firewall-cmd –remove-service=ssh –zone=public –permanent
firewall-cmd –remove-service=dhcpv6-client –zone=public –permanent

必要なポート追加。
firewall-cmd –add-port=54424/tcp –zone=public –permanent
firewall-cmd –add-port=80/tcp –zone=public –permanent

・ターゲット

定義にマッチしないパケットをどうするかをターゲットといい、ACCEPT,DROP,REJECT(default)がある。

ACCEPT：全て許可。
DROP：拒否ルールに該当すると拒否。
REJECT：拒否ルールに該当すると拒否。(エラーコードを返す)

vimrc

vimrcを作成し以下を記述。
Ubuntuとほぼ同じで自動補完の部分を削除。

set t_Co=256

autocmd VimEnter,ColorScheme * highlight cursorline cterm=none ctermbg=darkblue | highlight pmenu ctermbg=darkgrey | highlight pmenusel ctermbg=grey

colorscheme pablo
syntax enable

set enc=utf8
set ignorecase
set incsearch
set hlsearch
set showmatch
set number
set visualbell
set cursorline

set autoindent
set shiftwidth=2
set tabstop=2
set softtabstop=0

set nowritebackup
set nobackup
set noswapfile

set completeopt=menuone

set t_Co=256

autocmd VimEnter,ColorScheme * highlight cursorline cterm=none ctermbg=darkblue | highlight pmenu ctermbg=darkgrey | highlight pmenusel ctermbg=grey

colorscheme pablo

syntax enable

set enc=utf8

set ignorecase

set incsearch

set hlsearch

set showmatch

set number

set visualbell

set cursorline

set autoindent

set shiftwidth=2

set tabstop=2

set softtabstop=0

set nowritebackup

set nobackup

set noswapfile

set completeopt=menuone

bashrc

Ubuntuから必要最低限のみ持ってきた。

alias f='clear;stat --format "%a %U:%G %n" * '
alias l="clear;ls -lh --color=always | less -F -R -S -X"
alias h="clear;history | sort -r | less -F -R -S -X"
alias c="clear;cd $1"

alias f='clear;stat --format "%a %U:%G %n" * '

alias l="clear;ls -lh --color=always | less -F -R -S -X"

alias h="clear;history | sort -r | less -F -R -S -X"

alias c="clear;cd $1"

LAMP

CentOS(ConoHa) 初期設定 LAMP

.NET Core

https://www.microsoft.com/net/learn/dotnet/hello-world-tutorial
を参考にする。

sudo rpm -Uvh https://packages.microsoft.com/config/rhel/7/packages-microsoft-prod.rpm
sudo yum install dotnet-sdk-2.1

基本アプリ

dotnet new console -o myapp
cd myapp
dotnet run

ASP.NET CoreWeb

ASP.NET CoreWebアプリケーションのプロジェクトを作成。
Webアプリケーション(モデルビューコントローラー)を選択。
HTTPS用の構成のチェックを外す。

ビルド＞xxxの発行
にて作成されたファイルを転送し、転送フォルダにて、
dotnet xxx.dll
のように実行する。

その他

dotnet –info
でバージョン確認できる。

FTPの設定

VSから発行したいのでFTPを入れる。

インストール
yum install -y vsftpd

設定ファイル
/etc/vsftpd/vsftpd.conf

変更
anonymous_enable=NO
listen=YES
listen_ipv6=NO
tcp_wrappers=NO

コメントアウト削除
ascii_upload_enable=YES
ascii_download_enable=YES
chroot_local_user=YES
ls_recurse_enable=YES

追加
use_localtime=YES
allow_writeable_chroot=YES

起動
systemctl start vsftpd

スタートアップ
systemctl enable vsftpd

ファイアーウォール
firewall-cmd –add-service=ftp –zone=public –permanent
firewall-cmd –reload
firewall-cmd –list-all –zone=public

ユーザー制御
userlist_enableを有効にすると、userlist_denyも有効になる。
ブラックリストがデフォなので対象のユーザー名を削除のみ実行。

ブラックリスト(デフォルト)
userlist_enable=YES
userlist_deny=YES or 記述なし

ホワイトリスト
userlist_enable=YES
userlist_deny=NO

ファイルのパス(必要なら)
userlist_file=/etc/vsftpd/user_list

userlist_enableを優先度が高い禁止リスト
/etc/vsftpd/ftpusers

user_listとftpusersから対象のユーザー名を削除する。

2017-06-152020-05-05

パーティションタイプ

パーティションタイプにMBRとGPTがあり、
MBRは2TB以下×4まで、GPTだと2TB以上×128可能

GPTに対応したOSじゃないと(Vista～64bit)じゃないと使えない
さらにUEFIじゃないと起動できない。

UEFIはBIOSの後継。

2017-06-092022-07-28

金融メモ

雑多なメモ

・円安／円高

輸出企業＝円安を望む、輸入企業＝円高を望むというをよく見る。輸入は中小企業もできるが、輸出できるのは大企業のように限られるので単純ではないけど、近隣窮乏化政策として円安の方がいいという意見が多い。

円安は物価上昇(名目GDPも増える)を招くという話もよくでる。資源高騰のインフレと、需要が増えたインフレでは質が違うのは事実。

・増税

消費税は仕入控除があるので徴収漏れが起きにくい。

・為替、金利のコントロール

通貨は介入など僅かにしかコントロールできない。長期金利はマーケットがコントロールできる。短期金利のみある程度コントロールできる。

・失業率

インフレ率2%を目指すのは、失業率を下げるのが目的。金融緩和で失業率が下がる。

・金利

金利引上げ(金融引締)
├通貨高
└インフレ対策

金利引下げ(金融緩和)
├通貨安
└デフレ対策

・債権

債権を売る＝債権の価格が下がる＝金利が上がる
債権を買う＝債権の価格が上がる＝金利が下がる

・インフレ／デフレ

インフレ＝物価が上がる(通貨の価値が下がる)
デフレ＝物価が下がる(通貨の価値が上がる)

インフレ率=物価上昇率。
スタグフレーション＝景気停滞＋インフレ

2017-06-092023-09-05

生産形態

生産形態は原材料から製品までのサプライチェーンで、どの時点で在庫リスクをとするかに注目する。一般的には、見込生産、(繰返)受注生産、個別受注生産などある

実際、日本のメーカーのほとんどは内示で動き発注書がないので、繰返受注生産とはいえず在庫リスクは自社で抱えていることが多い。

また、同じ規模の中小企業でも、自社で営業部門を持って独立しているか、大手の下請けなのかでは、リスクの質が全く違う点に注意。

BOM(Bill of material)

製品の共通部品、生産計画の設計、購買、在庫管理、原価計算など、BOMは全ての部署から必要とされる。一般的には、設計のE-BOM、製造のM-BOMが有名。

E-BOMは設計図に使われ、M-BOMは生産計画、生産指示に使われる。具体的には、製品を構成要素に分解していき、設計図で管理する明細までがE-BOMで、そのE-BOMの明細をさらに分解し、部品の調達、製作をM-BOMで管理するということ。

多くの企業で、E-BOMとM-BOMの乖離が問題として指摘されている。だからといって、あまり無理に統一をすると手間ばかり増えてしまってメリットを感じないというも多いが。

乖離してしまうことによる問題点の１つに、M-BOMで管理している調達コストや調達日数をE-BOMの変更で素早く確認できなくなるということがある。例えば、設計側での部品をAからBに変え調達コストを下げようと考えたが製造側ではAの代替品を使っていて、Bに変えると実際はコストが増えてしまっているなど。

簿記原価計算ざっくり復習

在庫

在庫を増やすと、売上高に対する原価が下がり利益が増えて見える。当期の費用を資産と評価するだけで、当然、翌期の原価を押し上げてしまう。逆に、在庫を減らすと、売上高に対する原価が増え、利益が減って見える。

・在庫回転計算

棚卸資産回転率
売上 ÷ 在庫

・在庫の種類

次工程の利用が紐付いているものをフロー在庫と呼び、次工程の利用が未定のものをストック在庫と呼ぶ。減らすべきはストックで、フローは必要在庫。

・在庫と部門の関係

営業部門は納期対応のため、購買部門は一度に沢山買った方が安く、製造部門は一度に沢山作った方が安いので在庫に前向き。

ただし、在庫が増えれば、保管工数は物流部門の問題となり、在庫金利（運転資金肥大）が増えれば財務部門の問題となる。

在庫削減の指示があっても同時にコストダウンの指示があったりすると、コストダウンと在庫削減のトレードオフ(上記の例から)がある。

・棚卸の目的

在庫受払管理ができているなら、帳簿棚と実際棚のチェックであり、品質チェック棚卸減耗のチェック。できていない場合は、在庫数量を把握する方法として機能する。

・在庫金利、保管コスト

在庫が悪という理論は、製品や半製品は資産なので、相当額を銀行に預ければ金利が(理論上の話)発生する。さらにそれらを作るために借り入れがあれば、その分の支払金利もある。また保管コストもかかるというもの。

しかし、余ったスペースに保管するなら実質コストはかからないし、現状金利は低い。在庫はゼロにもできない。

ただし、不良在庫となってしまうことはリスク。

・仕訳

材料、仕掛品など勘定が変化しながら資産として評価される。
最終的には費用となる。

製品(資産)｜
仕入(費用)｜製品(資産)

減価償却

購入時に資産として計上し、毎年少しずつ費用にする。

無形)減価償却費(費用)｜固定資産(資産)
直接固定資産をマイナスする。

有形)減価償却費(費用)｜減価償却累計額(資産の評価勘定)
資産のマイナスを累積する。

引当金

資産のマイナス(資産の評価勘定)または負債勘定。
将来の費用を見越して費用を計上しておくこと。
実際に発生したタイミングで引当金戻入で収益とする。

引当金繰入(費用)｜引当金(負債)
引当金(負債)　　｜引当金戻入(収益)

プロフィットセンターとコストセンター

あまり明確ではないが、一般的にプロフィットセンターは営業部門など、利益で評価される部門、コストセンターは利益がなく費用と品質で評価される部門。

部門の貢献度

失敗のリスクが高い（難易度が高い）部門の方が貢献度が高い。

作れば売れる時代での貢献度は、設計・製造の部門の方が大きいため、販売部門は貢献度が低かった。販売も子会社化する会社もあった。現在はモノあまりで販売が難しいため販売部門の貢献度が高くなった。

限界利益

売上高ー変動費＝限界利益
限界利益の合計が固定費を超える点を損益分岐点という。

賃率

式)
労働賃率=直接作業者の賃金÷直接作業者の労働時間

材料費
├ 直接材料費
└ 間接材料費
労務費
├ 直接労務費 (労働賃率×時間)
└ 間接労務費 (配賦)
経費
├ 間接経費
└ 直接経費
 　└機械賃率×時間

材料費

├ 直接材料費

└ 間接材料費

労務費

├ 直接労務費 (労働賃率×時間)

└ 間接労務費 (配賦)

経費

├ 間接経費

└ 直接経費

　└機械賃率×時間

・機械賃率

減価償却は間接経費なので、通常、販売価格などで配賦してしまうが、機械の比重が高い場合、機械賃率をだして直接労務費のように計算することもできる。

式)
機械賃率=設備原価償却費÷(総操業時間×稼働率)

例）
総操業時間：2000H
減価償却：20,000,000/年
稼働率：50%
機械賃率＝20,000/H

2000×0.5=1000
20,000,000÷1000 = 20,000

稼働率100%の場合
2000×1=2000
20,000,000÷2000 = 10,000

分かりやすい様にと操業度を100%で計算してしまうと、現実で機械稼働率が下がり原価が上がるので、実際より原価を安く算出してしまう。

投入量と処理速度

待ち行列理論
ρ(平均利用率)=λ(平均到着率)/μ(平均サービス率)
待ち時間 = ρ/(1-ρ)

例）
来店は１０分間隔
サービス提供は８分

０．８＝（１／１０）／（１／８）
４＝０．８／（１－０．８）
４＊８＝３２分が待ち時間

ρが1に近づくと（稼働率があがると）待ち時間が増加する。

運転資金

債権(売掛金,受取手形) + 在庫 – 債務(買掛金,支払手形)

例)
100 + 10 – 100 = 10
100 + 10 – 90 = 20

・債権+在庫：お金がまだ手元にない状態
・債務：お金がまだ手元にある状態

なので、債権+在庫の110という金額に対して、債務+運転資金でバランスさせると考えるとわかりやすい。

債権+在庫の金額と債務の金額の開きが大きいことを、立替の金額が大きいと考え、原価が低いととらえない点に注意。(将来110入ってくるので、それまで110をどういう状態でカバーするか、100は支払が猶予されているので10必要というような感じ)

現在価値

年利7%で一年後の40万の価値は、
400,000 / 1.07 = 373,832

予算

固定費、変動費、損益分岐点にて売上目標を計画する。
売上目標に対して必要となる貸借対照表、損益計算書の状態を計画する。

損益分岐点

固定費 / ( 1 – 変動費用/売上高 )

例)
売上高　８０
変動費　２５
固定費　４０

変動費率　（売上高に対する変動費の割）
２５　／　８０　＝　０．３１２５

限界利益率
１　－　変動費率　＝　０．６８７５

固定費を限界利益率で割る（固定費／限界利益率＝損益分岐点売上高）
４０　／　０．６８７５　＝　５８．１８

売上高　５８．２
変動費　１８．２
固定費　４０

変動費は売上高に応じて変化する。利益が固定費をカバーできる最低限の売上高。

手形

割引は銀行側では貸付となる。（不渡りリスクは残る）

1億の手形を金利5%で30日割り引いた場合。

割引手数料
100,000,000 * 0.05 * (30/365) = 410,958円

企業手取額
100,000,000 – 410,958 = 99,589,042円

サイト計算は30日。
例えば、120日 = 4ヶ月。130日なら、4ヶ月+10日なので、20日締め末払い等。

為替

外貨取引が発生すると、どちらの通貨建てであってもどこかで必ず通貨交換を行われているので、通貨の建ては、どちらの通貨側が為替変動のリスクを負うかという話。例えば、円建てなら円にリスクはないと考えられる。

一般的にはドル建てだが、条件によって他のメジャー通貨建ての取引も少なくない。

外貨で支払いを受取る場合、そのタイミングで日本円にすれば同時に両替が行われるし、そのまま外貨で受取ることもできる。

外貨を保有すると運用を外貨で行うので、円と外貨の金利差(スワップ)が受け取れる。そのかわり為替変動のリスクがある。

帳簿に関しては、外貨取引は取引日、外貨資産については決算時のレートで評価する。

消費税

預かった消費税 – 支払った消費税 = 納付税額

ファイナンスリース

リース満期前に解約損害金を契約するような、所有権は持たないが、実質的に購入しているようなもの。
メリットとして、初期費用の軽減。資産の圧縮。費用の平準化(減価償却より長い期間のリース等)

仕切値・卸値

業界によって慣習があるのでこれは基本。

製造元　→　卸売店　＝　仕切値
卸売店　→　小売店　＝　卸値
小売店　→　消費者　＝　小売価格

卸売店がない場合もあり、卸値／仕切値が同義の場合も多い。そういう場合製造元から小売店までの流通過程での価格を仕切値／卸値と表現する。

ただ、あくまで定価があるときの表現であり、定価＊掛率が仕切価格と表現されることが多い。

現在、業種や人によって使い方が様々で使わないほうがいい表現。例えば、社内的に製造部門から販売部門への価格を仕切値といったりもする。

合併

資産、負債を時価で受け入れ、対価を払う。(現預金、株式)
一致しない貸借はのれんで処理する。
対価は貸方に入り最終的に、
・貸方の方が大きくなる場合、のれんは(固定資産)
・借方の方が大きくなる場合、負ののれん(収益)

時価で受けいれる場合、パーチェス法。
資産の商品は仕入にする。
債権債務がある場合、相殺処理する。

会計年度

日本は期の始まりの年月が属する年で年度を呼ぶことが多い。
例えば、2021年4月～2022年3月であれば、2018年度。

アメリカは締めの年月が属する年で年度を呼ぶことが多い。
2021年4月～2022年3月であればFY 2022となる。
(多くの会社では1月～12月を会計年度としているので気づきづらい)

決算書

・自己資本比率

純資産(自己資本) / 負債+純資産(総資本)
(自己資本：資本金と資本剰余金、利益剰余金)

簡単に考えると、BSの右側の上下(他人資本、自己資本)の割合というだけ。

・実質長期債務

売掛 400
在庫 600
固定資産 500
= 1500

買掛 200
借入 600
–
純資産 700
= 1500

正常運転資金：
売掛＋在庫-買掛 / 400 + 600 – 200 = 800
(貰う予定-払う予定)

実質長期借入：
１．借入 – 正常運転資金 / 600 – 800 = -200
２．固定資産 – 純資産 / 500 – 700 = -200

・借入

短期借入は運転資金として常に存在していることが多い。
長期借入は固定資産購入のための借入と考えられ、当期純利益がないと返済できないと見られる。

借入の返済原資 = 税引き後純利益+減価償却
(減価償却費は先に支出を済ませていてその分現金があると考える)

・流動資産、負債

換金性が高いのは売掛金と現預金。
それに対して、買掛金と1年以内返済予定返済金なので
これらを比較。

・純資産

資本金
資本剰余金
　├ 資本準備金
　└ その他資本剰余金
利益剰余金
　├ 利益準備金
　└ その他利益剰余金
　　└ 任意積立金(○○積立金)
　　└ 繰越利益剰余金
自己株式

・資本金：
株主から払い込まれた金額の合計。
・資本準備金：
株主から払い込まれた金額のうち資本金にしなかった金額の合計。(株主から払い込まれた金額の1/2を超えない額を準備金とすることが可能)
・その他資本剰余金：
資本取引で生じる剰余金。配当原資にできる。
・利益準備金：
配当する場合に配当金額の1/10を利益準備金として積み立てることが義務(資本準備金＋利益準備金が資本金の1/4になるまで)
・任意積立金：
会社が独自の判断で積み立てられる積立金。
・繰越利益剰余金：
会社の過年の利益の累積に当期の利益を加算した金額。

・出資
出資があると、資本金と資本準備金に振り替える。

・利益
利益がでると先ず繰越利益剰余金に入る。
配当を出す場合、繰越利益剰余金から未払配当＋利益準備金に振り替える。そこから未払配当を預金などに振り替える。
任意積立をする場合、繰越利益剰余金から○○積立金に振り替える。

ファイナンス

・種類
銀行借入、社債発行：デットファイナンス
株式発行：エクイティファイナンス
資産売却(セール・アンド・リースバックや、証券化など)：アセットファイナンス

・利益の蓄積でも株式の調達でも同じく自己資本が厚くなる。
・返済の優先度では債権者＞株主、リターンは株主＞債権者
・一度株主になってもらうと辞めさせられないので、シード期でも数百万で数%に抑える。
・Exit時の条件をフェアにするため残余財産の付いた優先株式を利用する。
・単元による議決権の違いを利用したDual Classが存在する。

・デットの梯子効果(レバレッジ)
通常の融資で言うと、運転資金と固定資産購入での固定資産購入と考えると分かりやすい。

・LBO
買収される側に資金を調達させるファイナンス。
買収する側はノンリコース。(遡及できない)買収用に設立された中間会社と買収される側のみ返済義務を負う。銀行側はその代わり高めの金利を設定する。

システム・設備投資について

・設備投資をする必要性
投資をしないと長期的に競争力が低下する。
(償却負担、金利負担があるので、投資をしないほうが目先の利益は増える)

競争力向上とは

売上増加
└品種拡大
└品質向上
└納期短縮
コストダウン
└作業性向上(時間短縮)
└情報共有
継続性確保
└セキュリティパッチの配布停止
└保守部品の生産停止
└データフォーマット互換性確保

など。このような効果が見込めない場合、無駄になる。

・属人化排除について
優秀な人は属人化する。
(例えば属人化しない仕組みを作り上げること自体、普通の人はできない)
属人化排除より、優秀な人を確保することが優先。

自社の情報

自社(業種によってクライアント)の情報は最低限把握しておく。

創業者：
創業年度：
沿革(過去の大きな出来事の年度)：
現在の代表者・役員：
決算月：
決算売上規模：
月・クォーターごとの売上規模のばらつき：
部門ごとの売上比率：
資産、負債、純資産：
従業員数：
競合会社：
競合製品：
自社の課題：
自社の強み：
製品の課題：
製品の強み：
月平均の新規契約数：
(サービスの場合)現在契約中の顧客数：
月単位で販売した得意先数：
月単位で販売した商品数：
月単位で仕入れた仕入先数：
月単位で仕入れた商品数：
(上場の場合)株主構成：