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

2020-02-192024-05-03

C# DataGridView セルの結合

今回は標準ヘッダーを利用せず1行目2行目をヘッダーとして利用しており、試しに1行目の1列目2列目を擬似的結合してみた。

どこのサイトもだいたい同じ説明をしていて、CellPainting()で処理するのが基本という感じ。ちょっとつまづいたのが標準描画(セルの背景色とか文字列とか)で疑似的結合のRetangleが隠れてしまう現象で、回避するためにはe.Handled = trueで標準描画をキャンセルする必要があった。

例えば今回は利用しないけど、標準描画の一部をキャンセルする場合、e.Paint()で標準描画を呼び、e.Handled = trueで終了させる。
var p = e.PaintParts & ~DataGridViewPaintParts.Border;
e.Paint(e.ClipBounds, p);
e.Handled = true;
これでBorderの描画がキャンセルされる。

            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex != 0) return; // Rows[0]のみ

                if (e.ColumnIndex == 1)
                {
                    e.Handled = true;
                    // e.Handled = trueで描画をキャンセルできる。
                    // 描画をキャンセルしたセルのみRectangleの描画が優先される。
                    // ここでColumns[1]の描画をキャンセルしないと
                    // Columns[0]の描画が後ろになってしまう。

                    // DoubleBufferedが有効の場合スクロールなどで画面外になったときの
                    // Columns[1]の黒塗領域が直らない。
                }

                if (e.ColumnIndex == 0)
                {
                    DataGridView dgv = (DataGridView)s;

                    Rectangle newRect = new Rectangle(
                        e.CellBounds.X-1,
                        e.CellBounds.Y-1,
                        e.CellBounds.Width + dgv.Columns[e.ColumnIndex+1].Width,
                        e.CellBounds.Height);

                    e.Graphics.FillRectangle(Brushes.White, newRect);
                    e.Graphics.DrawRectangle(new Pen(dgv.GridColor), newRect);

                    StringFormat sf = new StringFormat();
                    sf.Alignment = StringAlignment.Center;
                    sf.LineAlignment = StringAlignment.Center ;
                    e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;
                    e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, newRect, sf);

                    e.Handled = true;
                    
                }

            };

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex != 0) return; // Rows[0]のみ

if (e.ColumnIndex == 1)

{

e.Handled = true;

// e.Handled = trueで描画をキャンセルできる。

// 描画をキャンセルしたセルのみRectangleの描画が優先される。

// ここでColumns[1]の描画をキャンセルしないと

// Columns[0]の描画が後ろになってしまう。

// DoubleBufferedが有効の場合スクロールなどで画面外になったときの

// Columns[1]の黒塗領域が直らない。

}

if (e.ColumnIndex == 0)

{

DataGridView dgv = (DataGridView)s;

Rectangle newRect = new Rectangle(

e.CellBounds.X-1,

e.CellBounds.Y-1,

e.CellBounds.Width + dgv.Columns[e.ColumnIndex+1].Width,

e.CellBounds.Height);

e.Graphics.FillRectangle(Brushes.White, newRect);

e.Graphics.DrawRectangle(new Pen(dgv.GridColor), newRect);

StringFormat sf = new StringFormat();

sf.Alignment = StringAlignment.Center;

sf.LineAlignment = StringAlignment.Center ;

e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;

e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, newRect, sf);

e.Handled = true;

}

};

＊＊＊

次は擬似的結合の範囲をループで動的に取得してみた。1行目1～5列目までは罫線Bottomを消すだけで、それ以降の1行目6列目以降(年月の部分)を疑似的結合している。

描画セル(1行目6列目)が画面から消えない(見えなくなることがない)作りならこれで問題ないのだけど、横スクロールなどで描画セルが画面から消えると疑似的結合のRectangleも消えて黒塗りになってしまうという厄介な問題が発生する。

スクロールの状態から描画セルを修正するような計算をすれば回避できるかもしれないけど、かなり面倒だしCellPainting()は頻繁に呼ばれているので、あまり複雑な計算もしたくない。

            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex != 0) return; // 1行目のみ
     
                if (e.ColumnIndex < _StartDateColumn)
                {
                    // 罫線非表示
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }
                else if (e.ColumnIndex >= _StartDateColumn)
                {
                    if (Convert.ToString(e.Value) == "")
                    {
                        e.Handled = true; // 通常の描画を呼ばない。
                    }
                    else
                    {
                        DataGridView dgv = (DataGridView)s;
                        int totalWidth = 0; 

                        int c = e.ColumnIndex;
                        do
                        {
                            totalWidth += dgv.Columns[c].Width;
                            c++;
                        }
                        while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

                        Rectangle rect = new Rectangle(e.CellBounds.X - 1, e.CellBounds.Y - 1, totalWidth, e.CellBounds.Height);
                        e.Graphics.FillRectangle(Brushes.AliceBlue, rect);
                        e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);
                        var stringFormat = new StringFormat();
                        stringFormat.Alignment = StringAlignment.Center;
                        stringFormat.LineAlignment = StringAlignment.Center;
                        e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;
                        e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, rect, stringFormat);

                        e.Handled = true; // 通常の描画を呼ばない。
                    }
                }
            };

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex != 0) return; // 1行目のみ

if (e.ColumnIndex < _StartDateColumn)

{

// 罫線非表示

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

else if (e.ColumnIndex >= _StartDateColumn)

{

if (Convert.ToString(e.Value) == "")

{

e.Handled = true; // 通常の描画を呼ばない。

}

else

{

DataGridView dgv = (DataGridView)s;

int totalWidth = 0;

int c = e.ColumnIndex;

{

totalWidth += dgv.Columns[c].Width;

c++;

}

while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

Rectangle rect = new Rectangle(e.CellBounds.X - 1, e.CellBounds.Y - 1, totalWidth, e.CellBounds.Height);

e.Graphics.FillRectangle(Brushes.AliceBlue, rect);

e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);

var stringFormat = new StringFormat();

stringFormat.Alignment = StringAlignment.Center;

stringFormat.LineAlignment = StringAlignment.Center;

e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;

e.Graphics.DrawString(e.Value.ToString(), e.CellStyle.Font, Brushes.Black, rect, stringFormat);

e.Handled = true; // 通常の描画を呼ばない。

}

};

＊＊＊

ちなみに、CellPainting()ではなくPaint()で処理することもできる。イベント引数からCellBoundsを取れないので、直接DataGridViewで指定するだけ。

            DataGridView.Paint += (s, e) =>
            {
                DataGridView dgv = (DataGridView)s;
                int totalWidth = 0;

                int c = 5;
                do
                {
                    totalWidth += dgv.Columns[c].Width;
                    c++;
                }
                while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

                Rectangle rect = new Rectangle(
                    dgv.GetCellDisplayRectangle(5, 0, true).X - 1,
                    dgv.GetCellDisplayRectangle(5, 0, true).Y - 1,
                    totalWidth,
                    dgv.GetCellDisplayRectangle(5, 0, true).Height
                    );

                e.Graphics.FillRectangle(Brushes.AliceBlue, rect);
                e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);
                var stringFormat = new StringFormat();
                stringFormat.Alignment = StringAlignment.Center;
                stringFormat.LineAlignment = StringAlignment.Center;
                e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;
                e.Graphics.DrawString("2000/01/01", dgv.Font, Brushes.Black, rect, stringFormat);
            };

DataGridView.Paint += (s, e) =>

{

DataGridView dgv = (DataGridView)s;

int totalWidth = 0;

int c = 5;

{

totalWidth += dgv.Columns[c].Width;

c++;

}

while (c < dgv.Columns.Count && Convert.ToString(dgv.Rows[0].Cells[c].Value) == "");

Rectangle rect = new Rectangle(

dgv.GetCellDisplayRectangle(5, 0, true).X - 1,

dgv.GetCellDisplayRectangle(5, 0, true).Y - 1,

totalWidth,

dgv.GetCellDisplayRectangle(5, 0, true).Height

);

e.Graphics.FillRectangle(Brushes.AliceBlue, rect);

e.Graphics.DrawRectangle(new Pen(dgv.GridColor), rect);

var stringFormat = new StringFormat();

stringFormat.Alignment = StringAlignment.Center;

stringFormat.LineAlignment = StringAlignment.Center;

e.Graphics.TextRenderingHint = TextRenderingHint.ClearTypeGridFit;

e.Graphics.DrawString("2000/01/01", dgv.Font, Brushes.Black, rect, stringFormat);

};

＊＊＊

色々考えたけど、結局、Rectangleの擬似的結合は止めて、CellPainting()では罫線だけ処理した。Alignmentで中央にできないし長い文字列も設定できないが、描画落ちするよりはいいかなという感じ。

            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex != 0) return;

                if (e.ColumnIndex < _StartDateColumn) e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                
                if (e.ColumnIndex >= _StartDateColumn)
                {
                    e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;
                    e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

                    if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&
                        Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")
                    {
                        e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;
                    }

                }
            };

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex != 0) return;

if (e.ColumnIndex < _StartDateColumn) e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex >= _StartDateColumn)

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&

Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")

{

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;

}

};

＊＊＊

数日後追記。

しばらく経ってから思いついたのが画像を利用するアイデアで、疑似的結合のサイズで動的に画像を生成して、それぞれのセルのサイズで抜き出して描画するという方法。

これだと見た目は結合されているけど、描画はセルごとなので黒塗りになってしまう問題も発生しない。

ただこの方法の場合、疑似的結合の範囲やサイズが固定なら問題ないけど、範囲やサイズが動的に変化するような仕様だとかなり複雑になってしまう。

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

namespace ProductionManagement
{
    public partial class GanttChart : Form
    {
        private int _StartDateColumn = 5;
        private int _DateColumnWidth = 13;
        private DateClass _DateClass = new DateClass();

        private Bitmap[] _BitmapArray = new Bitmap[32];

        public GanttChart()
        {
            InitializeComponent();

            Binding();
            InitializeTextBox();
            CreateDataGridView();

            SetupDataGridView();
            AttachEvent();

            CreateBitmap();
        }

        private void InitializeTextBox()
        {
            DateTime ym = DateTime.Now;
            if (ym.Day <= 20) ym = ym.AddMonths(-1);

            _DateClass.年月 = ym.ToString("yyyy年MM月");
            TargetYm.Text = ym.ToString("yyyy年MM月");
        }

        private void Binding()
        {
            TargetYm.DataBindings.Add("Text", _DateClass, "年月");
        }

        private void CreateBitmap()
        {
            for (int i = 1; i <= 31; i++)
            {
                var label = new Label()
                {
                    Text = i.ToString().PadLeft(2, '0'),
                    Width = _DateColumnWidth * 3,
                    Height = DataGridView.RowTemplate.Height,
                    Font = DataGridView.Font,
                    TextAlign = ContentAlignment.MiddleCenter,
                    BackColor = Color.AliceBlue
                };
                var bitmap = new Bitmap(label.Width, label.Height);
                label.DrawToBitmap(bitmap, label.Bounds);
                _BitmapArray[i] = bitmap;
            }
        }

        private void DrawBorder(object s, DataGridViewCellPaintingEventArgs e)
        {
            var refer = Convert.ToString(DataGridView.Rows[1].Cells[e.ColumnIndex].Value);

            if (refer != "")
            {
                e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble;
                // DrawLine()ではrightが上手く表示できない。
                // DividerWidthではヘッダー部分まで描画されてしまう。
            }
        }

        private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e)
        {
            // 画像上で切り取る位置(X,Y)とサイズを指定する。
            // ここでは生成済のWidth*3の画像があり、その画像上での位置とサイズを指定する。
            var src = new Rectangle(
                0,
                0,
                e.CellBounds.Width,
                e.CellBounds.Height
                );

            // フォーム上で描画する位置を指定する。
            var dst = new Rectangle(
                e.CellBounds.X,
                e.CellBounds.Y,
                e.CellBounds.Width,
                e.CellBounds.Height - 1
                );

            var refer = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex].Value);
            var referMinus1 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 1].Value);
            var referMinus2 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 2].Value);

            if (refer != "")
            {
                e.Graphics.DrawImage(_BitmapArray[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // left
                    e.CellBounds.X - 1,
                    e.CellBounds.Y,
                    e.CellBounds.X - 1,
                    e.CellBounds.Y + e.CellBounds.Height
                    // leftとrightの罫線が重複しているが、leftだけだとクリックしたときに罫線がなくなってしまう
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                e.Handled = true;
            }
            else if (referMinus1 != "")
            {
                src.X = e.CellBounds.Width;
                e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                e.Handled = true;
            }
            else if (referMinus2 != "")
            {
                src.X = e.CellBounds.Width + e.CellBounds.Width;
                e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top
                    e.CellBounds.X,
                    e.CellBounds.Y - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y - 1
                );

                e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom
                    e.CellBounds.X,
                    e.CellBounds.Y + e.CellBounds.Height - 1,
                    e.CellBounds.X + e.CellBounds.Width,
                    e.CellBounds.Y + e.CellBounds.Height - 1
                );

                if (e.RowIndex == 1)
                {
                    e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // right
                        e.CellBounds.X + e.CellBounds.Width - 1,
                        e.CellBounds.Y,
                        e.CellBounds.X + e.CellBounds.Width - 1,
                        e.CellBounds.Y + e.CellBounds.Height
                    );
                }
                e.Handled = true;
            }
        }

        private void AttachEvent()
        {
            DataGridView.CellPainting += (s, e) =>
            {
                if (e.RowIndex == 0 &&
                    e.ColumnIndex < _StartDateColumn)
                {
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }

                if (e.RowIndex == 0 && 
                    e.ColumnIndex >= _StartDateColumn)
                {
                    e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;
                    e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

                    if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&
                        Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")
                    {
                        e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;
                    }
                }

                if ((e.RowIndex == 0 || e.RowIndex == 1) && 
                    e.ColumnIndex >= _StartDateColumn)
                {
                    DrawMergeImage(s, e);
                }

                if (e.RowIndex > 1 &&
                    e.ColumnIndex >= _StartDateColumn)
                {
                    DrawBorder(s, e);
                }

            };

            DataGridView.Scroll += (s, e) => { DataGridView.Refresh(); };

            CreateChart.Click += (s, e) => CreateDataGridView();

            DataGridView.SelectionChanged += (s, e) =>
            {
                if (DataGridView.Rows.Count >= 2)
                {
                    DataGridView.Rows[0].Selected = false;
                    DataGridView.Rows[1].Selected = false;
                }
            };

            DataGridView.RowPrePaint += (s, e) =>
            {
                e.PaintParts &= ~DataGridViewPaintParts.Focus;
            };

        }

        private void CreateDataGridView()
        {
            if (TargetYm.Text == "") return;

            DataGridView.Rows.Clear();
            DataGridView.Columns.Clear();

            DateTime ym = DateTime.Parse(TargetYm.Text);
            DateTime startDay = new DateTime(ym.Year, ym.Month, 21);

            ym = ym.AddMonths(1);
            DateTime endDay = new DateTime(ym.Year, ym.Month, 20);

            List<DataGridViewColumn> listColumn = new List<DataGridViewColumn>();

            foreach (var e in new string[] { "ID", "型式", "工番", "数量", "追番" })
            {
                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Name = e,
                    HeaderText = ""
                });
            }

            while (startDay <= endDay)
            {
                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Name = startDay.ToString("yyyy/MM/dd"),
                    HeaderText = "",
                    Width = _DateColumnWidth
                });

                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Width = _DateColumnWidth
                });

                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Width = _DateColumnWidth
                });

                startDay = startDay.AddDays(1);
            }

            DataGridView.Columns.AddRange(listColumn.ToArray());

            for (int i = 0; i < 2; i++) DataGridView.Rows.Add("");

            for (int c = 0; c < listColumn.Count; c++)
            {
                if (c < _StartDateColumn)
                {
                    DataGridView.Rows[0].Cells[c].Value = listColumn[c].Name;
                }
                else
                {
                    if (listColumn[c].Name != "")
                    {
                        DateTime.TryParse(listColumn[c].Name, out DateTime result);

                        DataGridView.Rows[1].Cells[c].Value = result.ToString("dd");

                        if (c == _StartDateColumn || result.ToString("dd") == "01")
                        {
                            DataGridView.Rows[0].Cells[c].Value = result.ToString("MM");
                        }
                    }
                }
            }
            SetupRowColumn();
            DataLoad();
        }

        private void DataLoad()
        {
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
            DataGridView.Rows.Add("");
        }

        private void SetupRowColumn()
        {
            DataGridView.Columns["ID"].Visible = false;

            DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;

            foreach (DataGridViewColumn c in DataGridView.Columns) c.SortMode = DataGridViewColumnSortMode.NotSortable;
        }

        private void SetupDataGridView()
        {
            DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;
            DataGridView.RowHeadersWidth = 4;

            DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;
            DataGridView.ColumnHeadersHeight = 4;
            DataGridView.AllowUserToResizeColumns = false;

            //DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
            DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

            DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;
            DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

            DataGridView.Font = new Font("メイリオ", 9);
            DataGridView.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

            DataGridView.AllowUserToAddRows = false;
            DataGridView.MultiSelect = true;

            typeof(DataGridView).
            GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).
            SetValue(DataGridView, true, null);
        }
    }

    class DateClass
    {
        private string TargetYm;
        public object 年月
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    TargetYm = dt.ToString("yyyy年MM月");
                }
                catch
                {
                    TargetYm = "";
                }
            }
            get { return TargetYm; }
        }
    }
}

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

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Drawing.Text;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace ProductionManagement

{

public partial class GanttChart : Form

{

private int _StartDateColumn = 5;

private int _DateColumnWidth = 13;

private DateClass _DateClass = new DateClass();

private Bitmap[] _BitmapArray = new Bitmap[32];

public GanttChart()

{

InitializeComponent();

Binding();

InitializeTextBox();

CreateDataGridView();

SetupDataGridView();

AttachEvent();

CreateBitmap();

}

private void InitializeTextBox()

{

DateTime ym = DateTime.Now;

if (ym.Day <= 20) ym = ym.AddMonths(-1);

_DateClass.年月 = ym.ToString("yyyy年MM月");

TargetYm.Text = ym.ToString("yyyy年MM月");

}

private void Binding()

{

TargetYm.DataBindings.Add("Text", _DateClass, "年月");

}

private void CreateBitmap()

{

for (int i = 1; i <= 31; i++)

{

var label = new Label()

{

Text = i.ToString().PadLeft(2, '0'),

Width = _DateColumnWidth * 3,

Height = DataGridView.RowTemplate.Height,

Font = DataGridView.Font,

TextAlign = ContentAlignment.MiddleCenter,

BackColor = Color.AliceBlue

};

var bitmap = new Bitmap(label.Width, label.Height);

label.DrawToBitmap(bitmap, label.Bounds);

_BitmapArray[i] = bitmap;

}

private void DrawBorder(object s, DataGridViewCellPaintingEventArgs e)

{

var refer = Convert.ToString(DataGridView.Rows[1].Cells[e.ColumnIndex].Value);

if (refer != "")

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.OutsetDouble;

// DrawLine()ではrightが上手く表示できない。

// DividerWidthではヘッダー部分まで描画されてしまう。

}

private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e)

{

// 画像上で切り取る位置(X,Y)とサイズを指定する。

// ここでは生成済のWidth*3の画像があり、その画像上での位置とサイズを指定する。

var src = new Rectangle(

e.CellBounds.Width,

e.CellBounds.Height

);

// フォーム上で描画する位置を指定する。

var dst = new Rectangle(

e.CellBounds.X,

e.CellBounds.Y,

e.CellBounds.Width,

e.CellBounds.Height - 1

);

var refer = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex].Value);

var referMinus1 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 1].Value);

var referMinus2 = Convert.ToString(DataGridView.Rows[e.RowIndex].Cells[e.ColumnIndex - 2].Value);

if (refer != "")

{

e.Graphics.DrawImage(_BitmapArray[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // left

e.CellBounds.X - 1,

e.CellBounds.Y,

e.CellBounds.X - 1,

e.CellBounds.Y + e.CellBounds.Height

// leftとrightの罫線が重複しているが、leftだけだとクリックしたときに罫線がなくなってしまう

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

e.Handled = true;

}

else if (referMinus1 != "")

{

src.X = e.CellBounds.Width;

e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

e.Handled = true;

}

else if (referMinus2 != "")

{

src.X = e.CellBounds.Width + e.CellBounds.Width;

e.Graphics.DrawImage(_BitmapArray[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // top

e.CellBounds.X,

e.CellBounds.Y - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y - 1

);

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // bottom

e.CellBounds.X,

e.CellBounds.Y + e.CellBounds.Height - 1,

e.CellBounds.X + e.CellBounds.Width,

e.CellBounds.Y + e.CellBounds.Height - 1

);

if (e.RowIndex == 1)

{

e.Graphics.DrawLine(new Pen(DataGridView.GridColor), // right

e.CellBounds.X + e.CellBounds.Width - 1,

e.CellBounds.Y,

e.CellBounds.X + e.CellBounds.Width - 1,

e.CellBounds.Y + e.CellBounds.Height

);

}

e.Handled = true;

}

private void AttachEvent()

{

DataGridView.CellPainting += (s, e) =>

{

if (e.RowIndex == 0 &&

e.ColumnIndex < _StartDateColumn)

{

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

if (e.RowIndex == 0 &&

e.ColumnIndex >= _StartDateColumn)

{

e.AdvancedBorderStyle.Left = DataGridViewAdvancedCellBorderStyle.None;

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.None;

if (e.ColumnIndex < DataGridView.Columns.Count - 1 &&

Convert.ToString(DataGridView.Rows[0].Cells[e.ColumnIndex + 1].Value) != "")

{

e.AdvancedBorderStyle.Right = DataGridViewAdvancedCellBorderStyle.Single;

}

if ((e.RowIndex == 0 || e.RowIndex == 1) &&

e.ColumnIndex >= _StartDateColumn)

{

DrawMergeImage(s, e);

}

if (e.RowIndex > 1 &&

e.ColumnIndex >= _StartDateColumn)

{

DrawBorder(s, e);

}

};

DataGridView.Scroll += (s, e) => { DataGridView.Refresh(); };

CreateChart.Click += (s, e) => CreateDataGridView();

DataGridView.SelectionChanged += (s, e) =>

{

if (DataGridView.Rows.Count >= 2)

{

DataGridView.Rows[0].Selected = false;

DataGridView.Rows[1].Selected = false;

}

};

DataGridView.RowPrePaint += (s, e) =>

{

e.PaintParts &= ~DataGridViewPaintParts.Focus;

};

}

private void CreateDataGridView()

{

if (TargetYm.Text == "") return;

DataGridView.Rows.Clear();

DataGridView.Columns.Clear();

DateTime ym = DateTime.Parse(TargetYm.Text);

DateTime startDay = new DateTime(ym.Year, ym.Month, 21);

ym = ym.AddMonths(1);

DateTime endDay = new DateTime(ym.Year, ym.Month, 20);

List<DataGridViewColumn> listColumn = new List<DataGridViewColumn>();

foreach (var e in new string[] { "ID", "型式", "工番", "数量", "追番" })

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = e,

HeaderText = ""

});

}

while (startDay <= endDay)

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = startDay.ToString("yyyy/MM/dd"),

HeaderText = "",

Width = _DateColumnWidth

});

listColumn.Add(new DataGridViewTextBoxColumn

{

Width = _DateColumnWidth

});

listColumn.Add(new DataGridViewTextBoxColumn

{

Width = _DateColumnWidth

});

startDay = startDay.AddDays(1);

}

DataGridView.Columns.AddRange(listColumn.ToArray());

for (int i = 0; i < 2; i++) DataGridView.Rows.Add("");

for (int c = 0; c < listColumn.Count; c++)

{

if (c < _StartDateColumn)

{

DataGridView.Rows[0].Cells[c].Value = listColumn[c].Name;

}

else

{

if (listColumn[c].Name != "")

{

DateTime.TryParse(listColumn[c].Name, out DateTime result);

DataGridView.Rows[1].Cells[c].Value = result.ToString("dd");

if (c == _StartDateColumn || result.ToString("dd") == "01")

{

DataGridView.Rows[0].Cells[c].Value = result.ToString("MM");

}

SetupRowColumn();

DataLoad();

}

private void DataLoad()

{

DataGridView.Rows.Add("");

}

private void SetupRowColumn()

{

DataGridView.Columns["ID"].Visible = false;

DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;

DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;

foreach (DataGridViewColumn c in DataGridView.Columns) c.SortMode = DataGridViewColumnSortMode.NotSortable;

}

private void SetupDataGridView()

{

DataGridView.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing;

DataGridView.RowHeadersWidth = 4;

DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;

DataGridView.ColumnHeadersHeight = 4;

DataGridView.AllowUserToResizeColumns = false;

//DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;

DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;

DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

DataGridView.Font = new Font("メイリオ", 9);

DataGridView.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

DataGridView.AllowUserToAddRows = false;

DataGridView.MultiSelect = true;

typeof(DataGridView).

GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).

SetValue(DataGridView, true, null);

}

class DateClass

{

private string TargetYm;

public object 年月

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

TargetYm = dt.ToString("yyyy年MM月");

}

catch

{

TargetYm = "";

}

get { return TargetYm; }

}

2020-02-092020-02-26

C# DataGridView 操作基本

最近DataGridViewを扱う場合の流れ。

・内容の表示はモデルクラスのインスタンスをリスト化してバインドする。
入力内容をパースしたりする場合は、インスタンスのプロパティで処理。表示のスタイルについてはDataGridViewのセルで処理。

内部で保持するデータ型はstring型が多い。手入力される値はパースで弾いたときに空白に戻したいと思うことが多い。少し前はバインドせずパースの処理を間に入れていた。

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 ProductionManagement
{
    public partial class ScheduleListForm : Form
    {
        public ScheduleListForm()
        {
            InitializeComponent();
            SetTextBoxBind();
        }

        private void SetTextBoxBind()
        {
            StartYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");
            EndYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");
        }
    }

    class TextBoxBind
    {
        private string ymd;
        public object 年月日
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    ymd = dt.ToString("yyyy/MM/dd");
                }
                catch { ymd = ""; }
            }
            get { return ymd; }
        }
    }
}

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 ProductionManagement

{

public partial class ScheduleListForm : Form

{

public ScheduleListForm()

{

InitializeComponent();

SetTextBoxBind();

}

private void SetTextBoxBind()

{

StartYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");

EndYmd.DataBindings.Add("Text", new TextBoxBind(), "年月日");

}

class TextBoxBind

{

private string ymd;

public object 年月日

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

ymd = dt.ToString("yyyy/MM/dd");

}

catch { ymd = ""; }

}

get { return ymd; }

}

ここでは試しにテキストボックスのバインド処理だけ。

・カラムとDBスキーマはリフレクションで連動させ、一箇所で指定。DBのテーブル作成もコード化しておく。
(ここでは記載していない)

・検索ボックスがある場合のクエリもリフクションで作る。
(ここでは記載していない)

・値が変更された行は色を変える。

・更新のときはスクロール位置を戻す。新規のときは一番下へスクロール。

・行を追加するときは１行のみの表示に切り替える。
更新処理はフラグ用のカラムを見て判断。

・マスタ化しているカラムは、クリック時にフォームを表示させる。
(ここでは記載していない)

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 ProductionManagement
{
    public partial class ScheduleForm : Form
    {
        string _SalesID;
        string _SalesStaff;

        public ScheduleForm(string i, string n)
        {
            InitializeComponent();

            _SalesID = i;
            _SalesStaff = n;

            EventAttach();

            DataLoad();
            SetViewStyle();
        }
        private void SetViewStyle()
        {
            DataGridView.Columns["ID"].Visible = false;
            DataGridView.Columns["Modified"].Visible = false;
            DataGridView.Columns["外注一覧ID"].Visible = false;
            DataGridView.Columns["担当者名"].Visible = false;

            DataGridView.Columns["名称"].Width = 190;
            DataGridView.Columns["開始日"].Width = 120;
            DataGridView.Columns["終了日"].Width = 120;

            DataGridView.RowHeadersWidth = 50;
            DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
            DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;
            DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;
            DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;
            DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;
            DataGridView.Font = new Font("メイリオ", 10);
            DataGridView.RowTemplate.Height = 22;
            DataGridView.AllowUserToAddRows = false;
            DataGridView.MultiSelect = false;

            typeof(DataGridView).
                GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).
                SetValue(DataGridView, true, null);
        }

        private void DataLoad()
        {
            BindingList<ScheduleModel> models = new BindingList<ScheduleModel>();
            var currentScrollRowIndex = DataGridView.FirstDisplayedScrollingRowIndex;

            Query q = new Query()
            {
                QueryString = $"select * from 作業一覧 where 担当者名 = '{_SalesStaff}'"
            };

            DataTable dt = q.ExecuteQuery();

            for (int r = 0; r < dt.Rows.Count; r++)
            {
                models.Add(new ScheduleModel()
                {
                    ID = dt.Rows[r]["ID"],
                    外注一覧ID = dt.Rows[r]["外注一覧ID"],
                    担当者名 = dt.Rows[r]["担当者名"],
                    名称 = dt.Rows[r]["名称"],
                    開始日 = dt.Rows[r]["開始日"],
                    終了日 = dt.Rows[r]["終了日"]
                });
            }
            DataGridView.DataSource = models;

            if (currentScrollRowIndex > 0 && DataGridView.Rows.Count > 0 &&
                DataGridView.Rows.Count >= currentScrollRowIndex)
            {
                DataGridView.FirstDisplayedScrollingRowIndex = currentScrollRowIndex;
            }
        }

        private void RowModified(DataGridViewRow targetRow)
        {
            targetRow.HeaderCell.Value = "*";
            targetRow.DefaultCellStyle.ForeColor = Color.Blue;
            targetRow.DefaultCellStyle.Font = new Font("メイリオ", 10, FontStyle.Italic);
        }

        private void EventAttach()
        {
            DataGridView.CellValueChanged += (s, e) =>
            {
                DataGridViewRow targetRow = DataGridView.Rows[e.RowIndex];
                RowModified(targetRow);

                if (new Utility().CellToString(targetRow.Cells["Modified"]) == "新規") return; // Modifiedが新規の場合は変更にしない
                targetRow.Cells["Modified"].Value = "変更";
            };

            SaveButton.Click += (s, e) =>
            {
                List<string> listSql = new List<string>();

                bool existsNewRow = false;

                for (int r = 0; r < DataGridView.Rows.Count; r++)
                {
                    var u = new Utility();
                    if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "新規")
                    {
                        existsNewRow = true;
                        string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));
                        string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));
                        string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

                        if (startDate == "" && endDate != "")
                        {
                            startDate = endDate;
                        }
                        else if (startDate != "" && endDate == "")
                        {
                            endDate = startDate;
                        }

                        string sql = "insert into 作業一覧(担当者名,外注一覧ID,名称,開始日,終了日) values " + 
                        $"('{_SalesStaff}','{_SalesID}','{rowName}','{startDate}','{endDate}')";

                        listSql.Add(sql);
                    }
                    else if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "変更")
                    {
                        string id = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["ID"]));
                        string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));
                        string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));
                        string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

                        if (startDate == "" && endDate != "")
                        {
                            startDate = endDate;
                        }
                        else if (startDate != "" && endDate == "")
                        {
                            endDate = startDate;
                        }

                        string sql = "update 作業一覧 set " +
                        $"名称 = '{rowName}', 開始日 = '{startDate}', 終了日 = '{endDate}' where ID = " + id;

                        listSql.Add(sql);
                    }
                }
                new Query().ExecuteNonQuery(listSql);
                DataLoad();

                if (existsNewRow == true && DataGridView.Rows.Count > 0)
                {
                    DataGridView.FirstDisplayedScrollingRowIndex = DataGridView.Rows.Count - 1;
                }
            };

            NewRowButton.Click += (s, e) =>
            {                
                var u = new Utility();
                bool existsNewRow = DataGridView.Rows.OfType<DataGridViewRow>().Any(x => u.CellToString(x.Cells["Modified"]) == "新規");

                if (existsNewRow)
                {
                    var currentModels = (BindingList<ScheduleModel>)DataGridView.DataSource;
                    currentModels.Add(new ScheduleModel() { Modified = "新規" });
                }
                else
                {
                    var newModels = new BindingList<ScheduleModel>();
                    newModels.Add(new ScheduleModel() { Modified = "新規" });
                    DataGridView.DataSource = newModels;
                }
            };

            DeleteRowButton.Click += (s, e) =>
            {
                if (DataGridView.SelectedRows.Count <= 0) return;

                string id = new Utility().CellToString(DataGridView.CurrentRow.Cells["ID"]);
                if (id == "") return;

                DialogResult yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);
                if (yesNo == DialogResult.No) return;

                var listSql = new List<string>();
                listSql.Add("delete from 作業一覧 where ID = " + id);

                new Query().ExecuteNonQuery(listSql);

                MessageBox.Show("削除しました。");
                DataLoad();
            };
        }
    }

    public class ScheduleModel
    {
        private string id;
        public object ID
        {
            set { id = Convert.ToString(value); }
            get { return id; }
        }

        private string modified;
        public object Modified
        {
            set { modified = Convert.ToString(value); }
            get { return modified; }
        }

        private string parentID;
        public object 外注一覧ID
        {
            set { parentID = Convert.ToString(value); }
            get { return parentID; }
        }

        private string staffName;
        public object 担当者名
        {
            set { staffName = Convert.ToString(value); }
            get { return staffName; }
        }

        private string rowName;
        public object 名称
        {
            set { rowName = Convert.ToString(value); }
            get { return rowName; }
        }

        private string startDate;
        public object 開始日
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    startDate = dt.ToString("yyyy/MM/dd");
                }
                catch { startDate = ""; }
            }
            get { return startDate; }
        }

        private string endDate;
        public object 終了日
        {
            set
            {
                try
                {
                    var dt = DateTime.Parse(Convert.ToString(value));
                    endDate = dt.ToString("yyyy/MM/dd");
                }
                catch { endDate = ""; }
            }
            get { return endDate; }
        }

    }

}

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

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 ProductionManagement

{

public partial class ScheduleForm : Form

{

string _SalesID;

string _SalesStaff;

public ScheduleForm(string i, string n)

{

InitializeComponent();

_SalesID = i;

_SalesStaff = n;

EventAttach();

DataLoad();

SetViewStyle();

}

private void SetViewStyle()

{

DataGridView.Columns["ID"].Visible = false;

DataGridView.Columns["Modified"].Visible = false;

DataGridView.Columns["外注一覧ID"].Visible = false;

DataGridView.Columns["担当者名"].Visible = false;

DataGridView.Columns["名称"].Width = 190;

DataGridView.Columns["開始日"].Width = 120;

DataGridView.Columns["終了日"].Width = 120;

DataGridView.RowHeadersWidth = 50;

DataGridView.SelectionMode = DataGridViewSelectionMode.FullRowSelect;

DataGridView.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

DataGridView.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing;

DataGridView.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None;

DataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None;

DataGridView.Font = new Font("メイリオ", 10);

DataGridView.RowTemplate.Height = 22;

DataGridView.AllowUserToAddRows = false;

DataGridView.MultiSelect = false;

typeof(DataGridView).

GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic).

SetValue(DataGridView, true, null);

}

private void DataLoad()

{

BindingList<ScheduleModel> models = new BindingList<ScheduleModel>();

var currentScrollRowIndex = DataGridView.FirstDisplayedScrollingRowIndex;

Query q = new Query()

{

QueryString = $"select * from 作業一覧 where 担当者名 = '{_SalesStaff}'"

};

DataTable dt = q.ExecuteQuery();

for (int r = 0; r < dt.Rows.Count; r++)

{

models.Add(new ScheduleModel()

{

ID = dt.Rows[r]["ID"],

外注一覧ID = dt.Rows[r]["外注一覧ID"],

担当者名 = dt.Rows[r]["担当者名"],

名称 = dt.Rows[r]["名称"],

開始日 = dt.Rows[r]["開始日"],

終了日 = dt.Rows[r]["終了日"]

});

}

DataGridView.DataSource = models;

if (currentScrollRowIndex > 0 && DataGridView.Rows.Count > 0 &&

DataGridView.Rows.Count >= currentScrollRowIndex)

{

DataGridView.FirstDisplayedScrollingRowIndex = currentScrollRowIndex;

}

private void RowModified(DataGridViewRow targetRow)

{

targetRow.HeaderCell.Value = "*";

targetRow.DefaultCellStyle.ForeColor = Color.Blue;

targetRow.DefaultCellStyle.Font = new Font("メイリオ", 10, FontStyle.Italic);

}

private void EventAttach()

{

DataGridView.CellValueChanged += (s, e) =>

{

DataGridViewRow targetRow = DataGridView.Rows[e.RowIndex];

RowModified(targetRow);

if (new Utility().CellToString(targetRow.Cells["Modified"]) == "新規") return; // Modifiedが新規の場合は変更にしない

targetRow.Cells["Modified"].Value = "変更";

};

SaveButton.Click += (s, e) =>

{

List<string> listSql = new List<string>();

bool existsNewRow = false;

for (int r = 0; r < DataGridView.Rows.Count; r++)

{

var u = new Utility();

if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "新規")

{

existsNewRow = true;

string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));

string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));

string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

if (startDate == "" && endDate != "")

{

startDate = endDate;

}

else if (startDate != "" && endDate == "")

{

endDate = startDate;

}

string sql = "insert into 作業一覧(担当者名,外注一覧ID,名称,開始日,終了日) values " +

$"('{_SalesStaff}','{_SalesID}','{rowName}','{startDate}','{endDate}')";

listSql.Add(sql);

}

else if (u.CellToString(DataGridView.Rows[r].Cells["Modified"]) == "変更")

{

string id = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["ID"]));

string rowName = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["名称"]));

string startDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["開始日"]));

string endDate = u.QuoteReplace(u.CellToString(DataGridView.Rows[r].Cells["終了日"]));

if (startDate == "" && endDate != "")

{

startDate = endDate;

}

else if (startDate != "" && endDate == "")

{

endDate = startDate;

}

string sql = "update 作業一覧 set " +

$"名称 = '{rowName}', 開始日 = '{startDate}', 終了日 = '{endDate}' where ID = " + id;

listSql.Add(sql);

}

new Query().ExecuteNonQuery(listSql);

DataLoad();

if (existsNewRow == true && DataGridView.Rows.Count > 0)

{

DataGridView.FirstDisplayedScrollingRowIndex = DataGridView.Rows.Count - 1;

}

};

NewRowButton.Click += (s, e) =>

{

var u = new Utility();

bool existsNewRow = DataGridView.Rows.OfType<DataGridViewRow>().Any(x => u.CellToString(x.Cells["Modified"]) == "新規");

if (existsNewRow)

{

var currentModels = (BindingList<ScheduleModel>)DataGridView.DataSource;

currentModels.Add(new ScheduleModel() { Modified = "新規" });

}

else

{

var newModels = new BindingList<ScheduleModel>();

newModels.Add(new ScheduleModel() { Modified = "新規" });

DataGridView.DataSource = newModels;

}

};

DeleteRowButton.Click += (s, e) =>

{

if (DataGridView.SelectedRows.Count <= 0) return;

string id = new Utility().CellToString(DataGridView.CurrentRow.Cells["ID"]);

if (id == "") return;

DialogResult yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);

if (yesNo == DialogResult.No) return;

var listSql = new List<string>();

listSql.Add("delete from 作業一覧 where ID = " + id);

new Query().ExecuteNonQuery(listSql);

MessageBox.Show("削除しました。");

DataLoad();

};

}

public class ScheduleModel

{

private string id;

public object ID

{

set { id = Convert.ToString(value); }

get { return id; }

}

private string modified;

public object Modified

{

set { modified = Convert.ToString(value); }

get { return modified; }

}

private string parentID;

public object 外注一覧ID

{

set { parentID = Convert.ToString(value); }

get { return parentID; }

}

private string staffName;

public object 担当者名

{

set { staffName = Convert.ToString(value); }

get { return staffName; }

}

private string rowName;

public object 名称

{

set { rowName = Convert.ToString(value); }

get { return rowName; }

}

private string startDate;

public object 開始日

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

startDate = dt.ToString("yyyy/MM/dd");

}

catch { startDate = ""; }

}

get { return startDate; }

}

private string endDate;

public object 終了日

{

set

{

try

{

var dt = DateTime.Parse(Convert.ToString(value));

endDate = dt.ToString("yyyy/MM/dd");

}

catch { endDate = ""; }

}

get { return endDate; }

}

2020-01-302020-05-05

仕事に必要な文章について

小論文のような文章ではなく、メールや簡単な資料での文章についてメモ。

・パラグラフについて

パラグラフの先頭は字下げしない。
パラグラフごとに空白行を入れる。
パラグラフのサイズは小さくする。数センテンスで1つ。
パラグラフは1つのトピックセンテンスといくつかのサポートセンテンスで作られる。

・センテンスについて

センテンスは短くする。無駄な修飾はしない。

トピックセンテンスはいいたいこと。
トピックセンテンスを先頭にする。

サポートセンテンスはトピックセンテンスの補強。
サポートセンテンスの基本の３種類。

言い換える。　つまり～。
具体例を示す。　例えば～。
予測する。　～だろう。

トピックセンテンスが意見ならサポートセンテンスで理由や実体験に、トピックセンテンスが事実ならサポートセンテンスを意見にしてもいい。

・プロット(パラグラフ構造)について

３段階の構成にする。

何か聞かれている場合
①聞かれたことに対する回答を示す。
②根拠や理由を示す。
③どうすればいいかを示す。

③は立場や知識量によって違う。提案の場合もあれば指示のような場合もある。

提案の場合
①起こっている事実を示す。
②分析を示す。
③どうしたいかを示す。

②か③に理由を入れる。

・実際の書き方

思いついたこと書きたいことを忘れないうちにどんどん書いていって、最後に並べ替える。書きたいことを箇条書きにするのではなく、センテンスとして使える形にまでしておくこと。

・結論

文章は伝わりやすく。内容は空気を読んで必要ならぼかしたりする。

2020-01-262020-01-27

VBA 表からカレンダー形式に変換

前回はJavascript/C#版で今回はVBA版

○○表という感じの帳票を作る場合、行が単位で列が明細というのが一般的。

明細の中に納期や出荷日など日付に関わる情報が入っていることも多く、そこで問題になるのが、この日付情報同士の関係性がパッと把握できないこと。

日付情報がおまけの場合はいいけど、日付情報が重要な場合は把握しやすいフォーマットに変換してみようということで、表からカレンダーに変換する機能を作成してみた。

ループが２重になるので、行数が多い場合は工夫したほうがいいかもしれない。行数が少なければ問題ないと思う。

Sub CreateCalendar()

y = 2020
m = 1

For Each w In Sheets
  If w.Name = "カレンダ" Then
    w.Delete
    Exit For
  End If
Next

Set w = Sheets.Add
w.Name = "カレンダ"

' value

w.Cells(1, 1).Value = y & "年" & m & "月"

w.Cells(2, 1).Value = "日"
w.Cells(2, 2).Value = "月"
w.Cells(2, 3).Value = "火"
w.Cells(2, 4).Value = "水"
w.Cells(2, 5).Value = "木"
w.Cells(2, 6).Value = "金"
w.Cells(2, 7).Value = "土"

startWeekDay = Weekday(DateSerial(y, m, 1)) ' 日1, 月2, 火3, 水4, 木5, 金6, 土7

tmp = DateAdd("m", 1, DateSerial(y, m, 1))
endDay = Day(DateAdd("d", -1, tmp))

counter = 1

For r = 3 To 13 Step 2

  For c = 1 To 7
  
    If (r = 3 And c < startWeekDay) Or (counter > endDay) Then
    
    Else
    
      w.Cells(r, c).Value = counter
      w.Cells(r + 1, c).Value = GetValue(y, m, counter)
      
      counter = counter + 1
    
    End If
    
  Next

Next

' size

w.Columns("A:G").ColumnWidth = 17

w.Rows(1).RowHeight = 24

For Each r In Split("2,3,5,7,9,11,13", ",")
  w.Rows(r).RowHeight = 17
Next

For Each r In Split("4,6,8,10,12,14", ",")
  w.Rows(r).RowHeight = 69
Next

' position

w.Range("A2:G2").HorizontalAlignment = xlCenter

For Each r In Split("3,5,7,9,11,13", ",")
  w.Rows(r).HorizontalAlignment = xlLeft
Next

' border

For Each r In Split("2,3,5,7,9,11,13,15", ",")
  w.Range(w.Cells(CInt(r), 1), w.Cells(CInt(r), 7)).Borders(xlEdgeTop).LineStyle = xlContinuous
Next

For Each c In Split("1,2,3,4,5,6,7,8", ",")
  w.Range(w.Cells(2, CInt(c)), w.Cells(14, CInt(c))).Borders(xlEdgeLeft).LineStyle = xlContinuous
Next

End Sub

Function GetValue(y, m, d)

sheetName = "Sheet1"
matchColumn = 3
valueColumn = 2
startRow = 2
endRow = 11

For r = startRow To endRow

  If DateSerial(y, m, d) = Sheets(sheetName).Cells(r, matchColumn).Value Then
    GetValue = Sheets(sheetName).Cells(r, valueColumn).Value
    Exit Function
  End If

Next

End Function

100

101

102

103

104

105

Sub CreateCalendar()

y = 2020

m = 1

For Each w In Sheets

If w.Name = "カレンダ" Then

w.Delete

Exit For

End If

Set w = Sheets.Add

w.Name = "カレンダ"

' value

w.Cells(1, 1).Value = y & "年" & m & "月"

w.Cells(2, 1).Value = "日"

w.Cells(2, 2).Value = "月"

w.Cells(2, 3).Value = "火"

w.Cells(2, 4).Value = "水"

w.Cells(2, 5).Value = "木"

w.Cells(2, 6).Value = "金"

w.Cells(2, 7).Value = "土"

startWeekDay = Weekday(DateSerial(y, m, 1)) ' 日1, 月2, 火3, 水4, 木5, 金6, 土7

tmp = DateAdd("m", 1, DateSerial(y, m, 1))

endDay = Day(DateAdd("d", -1, tmp))

counter = 1

For r = 3 To 13 Step 2

For c = 1 To 7

If (r = 3 And c < startWeekDay) Or (counter > endDay) Then

Else

w.Cells(r, c).Value = counter

w.Cells(r + 1, c).Value = GetValue(y, m, counter)

counter = counter + 1

End If

' size

w.Columns("A:G").ColumnWidth = 17

w.Rows(1).RowHeight = 24

For Each r In Split("2,3,5,7,9,11,13", ",")

w.Rows(r).RowHeight = 17

For Each r In Split("4,6,8,10,12,14", ",")

w.Rows(r).RowHeight = 69

' position

w.Range("A2:G2").HorizontalAlignment = xlCenter

For Each r In Split("3,5,7,9,11,13", ",")

w.Rows(r).HorizontalAlignment = xlLeft

' border

For Each r In Split("2,3,5,7,9,11,13,15", ",")

w.Range(w.Cells(CInt(r), 1), w.Cells(CInt(r), 7)).Borders(xlEdgeTop).LineStyle = xlContinuous

For Each c In Split("1,2,3,4,5,6,7,8", ",")

w.Range(w.Cells(2, CInt(c)), w.Cells(14, CInt(c))).Borders(xlEdgeLeft).LineStyle = xlContinuous

End Sub

Function GetValue(y, m, d)

sheetName = "Sheet1"

matchColumn = 3

valueColumn = 2

startRow = 2

endRow = 11

For r = startRow To endRow

If DateSerial(y, m, d) = Sheets(sheetName).Cells(r, matchColumn).Value Then

GetValue = Sheets(sheetName).Cells(r, valueColumn).Value

Exit Function

End If

End Function

2020-01-242020-01-27

Javascript/C# 手作りカレンダー

一般的にカレンダーを自作する必要性はないと思うけど、作る必要がでてきたのでとりあえずメモ。

<!doctype html>
<html lang="ja">
<head>
<meta charset="utf-8" />
</head>
<body>
<script>

let year = '2020';
let month = '1';

let html = '<table>';

html += '<tr>';
let week = ['日', '月', '火', '水', '木', '金', '土'];
for (let col = 0; col < week.length; col++) {
    html += '<td>' + week[col] + '</td>';
}
html += '</tr>';

let startWeekDay = new Date(year, month - 1, 1).getDay();
let endDay = new Date(year, month,  0).getDate();
let counter = 1;

// startWeekDay: 日0, 月1, 火2, 水3, 木4, 金5, 土6
// endDay: 最終日
// counter: 書込日付

// 縦6(0～5), 横7(0～6)のループ

for (let row = 0; row < 6; row++) {

    html += '<tr>';
    for (let col = 0; col < 7; col++) {

        if ((row == 0 && col < startWeekDay) || (counter > endDay)) {

            // 第1週と最終週の判定
            // 第1週: colが増えていき、startWeekDay以上の場合は日付が書き込まれる
            // 最終週: counterが増えていき、endDay以上になると空白

            html += '<td></td>';
        } else {
            html += '<td>' + counter + '</td>';
            counter++;
        }
    }
    html += '</tr>';
}
html += '</table>';

document.body.innerHTML = html;

</script>
</body>
</html>

<!doctype html>

<head>

</head>

<body>

let year = '2020';

let month = '1';

let html = '<table>';

html += '<tr>';

let week = ['日', '月', '火', '水', '木', '金', '土'];

for (let col = 0; col < week.length; col++) {

html += '<td>' + week[col] + '</td>';

}

html += '</tr>';

let startWeekDay = new Date(year, month - 1, 1).getDay();

let endDay = new Date(year, month, 0).getDate();

let counter = 1;

// startWeekDay: 日0, 月1, 火2, 水3, 木4, 金5, 土6

// endDay: 最終日

// counter: 書込日付

// 縦6(0～5), 横7(0～6)のループ

for (let row = 0; row < 6; row++) {

html += '<tr>';

for (let col = 0; col < 7; col++) {

if ((row == 0 && col < startWeekDay) || (counter > endDay)) {

// 第1週と最終週の判定

// 第1週: colが増えていき、startWeekDay以上の場合は日付が書き込まれる

// 最終週: counterが増えていき、endDay以上になると空白

html += '<td></td>';

} else {

html += '<td>' + counter + '</td>';

counter++;

}

html += '</tr>';

}

html += '</table>';

document.body.innerHTML = html;

</script>

</body>

</html>

C#(DataGridView)版

using System;
using System.Collections.Generic;
using System.Windows.Forms;

namespace CreateCalendar
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            dataGridView1.AllowUserToAddRows = false;
            dataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True;

            List<DataGridViewTextBoxColumn> columns = new List<DataGridViewTextBoxColumn>();

            foreach(var s in new string[] { "日", "月", "火", "水", "木", "金", "土" })
            {
                columns.Add(new DataGridViewTextBoxColumn()
                {
                    HeaderText = s,
                    Width = 120,
                    SortMode = DataGridViewColumnSortMode.NotSortable
                });
            }

            dataGridView1.Columns.AddRange(columns.ToArray());

            int y = 2019;
            int m = 12;

            int startWeekDay = (int)new DateTime(y, m, 1).DayOfWeek; // 日=0, 月=1, 火=2, 水=3, 木=4, 金=5, 土=6
            int endDay = new DateTime(y, m, 1).AddMonths(1).AddDays(-1).Day;
            int counter = 1;

            for (int r = 0; r < 12; r++)
            {
                dataGridView1.Rows.Add();

                if (r % 2 == 0)
                {
                    dataGridView1.Rows[r].Height = 18;
                }
                else
                {
                    dataGridView1.Rows[r].Height = 80;
                }
            }

            for (int r = 0; r < 12; r = r + 2)
            {
                for (int c = 0; c < 7; c++)
                {
                    if ((r == 0 && c < startWeekDay) || counter > endDay)
                    {
                        dataGridView1.Rows[r].Cells[c].Value = "";
                    }
                    else
                    {
                        dataGridView1.Rows[r].Cells[c].Value = counter.ToString();
                        dataGridView1.Rows[r + 1].Cells[c].Value = "";

                        counter++;
                    }
                }
            }
        }
    }
}

using System;

using System.Collections.Generic;

using System.Windows.Forms;

namespace CreateCalendar

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

dataGridView1.AllowUserToAddRows = false;

dataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True;

List<DataGridViewTextBoxColumn> columns = new List<DataGridViewTextBoxColumn>();

foreach(var s in new string[] { "日", "月", "火", "水", "木", "金", "土" })

{

columns.Add(new DataGridViewTextBoxColumn()

{

HeaderText = s,

Width = 120,

SortMode = DataGridViewColumnSortMode.NotSortable

});

}

dataGridView1.Columns.AddRange(columns.ToArray());

int y = 2019;

int m = 12;

int startWeekDay = (int)new DateTime(y, m, 1).DayOfWeek; // 日=0, 月=1, 火=2, 水=3, 木=4, 金=5, 土=6

int endDay = new DateTime(y, m, 1).AddMonths(1).AddDays(-1).Day;

int counter = 1;

for (int r = 0; r < 12; r++)

{

dataGridView1.Rows.Add();

if (r % 2 == 0)

{

dataGridView1.Rows[r].Height = 18;

}

else

{

dataGridView1.Rows[r].Height = 80;

}

for (int r = 0; r < 12; r = r + 2)

{

for (int c = 0; c < 7; c++)

{

if ((r == 0 && c < startWeekDay) || counter > endDay)

{

dataGridView1.Rows[r].Cells[c].Value = "";

}

else

{

dataGridView1.Rows[r].Cells[c].Value = counter.ToString();

dataGridView1.Rows[r + 1].Cells[c].Value = "";

counter++;

}

2020-01-232020-05-06

業務支援ソフトを作成するときに考えること

今回は業務支援ソフトを作成するときに考えていることを書いてみたいと思います。前提として、作成するのは本業プログラマではない私１人で、日数は数日～数週間程度かける規模。直接の利用者は数人程度としています。

・何を解決したいのか明確にする。
できれば１～２つ、できるだけ少なくする。とりあえずソフトを作れば色々よくなると考えている人が多いので注意する。

・解決したい内容を大きく２つに分類しながら考える。
１．管理精度を上げること。２．楽になること、という２つに分類しながら考える。社内環境にもよるだろうけど、個人的にはこの２つの違いは結構大きくて、かなり進め方が違ってくる。

・管理精度を上げることについて。
例えば、現在の予測精度や集計誤差などの精度を向上したい。あるいは、今までにはない集計や指標を導入したいなど。管理精度を上げることは管理者のためという場合が多く、作業者(ソフト利用者)は興味ないことが多いので、話をするときに作業者の要望を一緒に聞いても(無駄とは言わないが)視点が違っていることが多い。

・楽になることについて。
作業者が望むことはだいたいこれ。作業の手間を減らするなど、あらゆる面倒くさいと思う部分を減らしていく。

・管理精度を上げること、楽になることについて、当然どちら一つだけではなく両方に効果がある場合も多い。例えば、複数で管理しているような情報を一元化するば、管理精度も上がるし楽にもなる。

・作業者は具体的な方法が分からないことも多いので、開発するときにこうすれば楽だろうと想像する。

・素早く試作を作ってフィードバックもらう。
素早く試作(特に重要なのがUI)を作ってフィードバックをもとに修正という流れで作っていく。ソフトを利用する人はUIが重要で見えない部分に興味はない。

・正しい業務手順に軌道修正していく。
正しい業務手順に軌道修正していくか、既存の社内フローを踏襲するか悩むときは結構あるが、将来的に効果がありそうなら、少しずつでも正しい業務手順に軌道修正していく。

＊＊＊

本末転倒な話ではあるけど、自分が作る程度(マクロレベル)の業務支援ソフトの場合、利用者側での業務改善の方がはるかに効果的なことが多い。誰も見ていない指標を計算するのに時間をかけていたり、手間のかかる承認フローだったり、簡単に改善できるポイントはたくさんある。

例えば、ある資料について作成に時間がかかっているから、システムで自動化という話はありがちだけど、そもそもその資料を作らないという話はまず出てこない。作らなくても業務上困らないのに、誰か１人でも欲しいなら止めれない。こういう状況はいたるところで見つけることができる。

結局、情報共有とか意思決定の高速化というとみんな喜ぶけど、価値のない情報をたくさん共有したり、思いつきと変わらない意思決定を高速にできるようにしても何も変わらない。

2020-01-212020-01-22

VBA 講座ワークシート関数を挿入

以前書いたエクセルVBA講座の続きです。

VBA 講座

今回は少し実用的なものとしてループでワークシート関数を挿入する方法をお伝えしたいと思います。

ワークシート関数だからといって挿入自体に特別な方法は必要ありません。そのまま文字として入力すれば大丈夫です。

Sheets("Sheet1").Cells(1, 1).Value = "=SUM(A2:A3)"

1	Sheets("Sheet1").Cells(1, 1).Value = "=SUM(A2:A3)"

これを実行すると、Sheet1というシートのA1セルにSUM関数が入ります。

ではもう少し便利にするためにForループのカウンター変数を利用してみます。

For r = 1 To 4
Sheets("Sheet1").Cells(r, 1).Value = "=SUM(B" & r & ":C" & r & ")"
Next

For r = 1 To 4

Sheets("Sheet1").Cells(r, 1).Value = "=SUM(B" & r & ":C" & r & ")"

細かく見ていきます。

先ずForループの中の処理は4回実行されます。そのときrというカウンタ変数は1,2,3,4というように変化していきます。

rの変化と指定しているセルの位置を考えてみると、
rが1のときCells(1,2)
rが2のときCells(2,2)
rが3のときCells(3,2)
rが4のときCells(4,2)
となります。Cellsの中身は行,列ですので、A1,A2,A3,A4セルを対象にして挿入していることが分かります。

“=SUM(B” & r & “:C” & r & “)”の部分について、文字としてそのまま利用したい部分はダブルクォーテーションで囲い、変数の中身を利用したい部分はダブルクォーテーションで囲わずそのまま記入します。それらを＆記号(左右に半角スペース必須)でつなぎます。

＊＊＊

この部分は分かりづらいのもう少し細かく解説すると、セルの中に書き込める値は２種類(実際はもっとありますが現時点では)あると考えてください。１つはダブルクォーテーションで囲った文字、もう１つは変数で、ダブルクォーテーションで囲った文字はそのまま書き込まれ、変数は中身が利用されます。

そしてその２種類は＆記号(左右に半角スペース必須)で、順番や数に制限なく自由につなぐことができます。

v1 = "hello"
v2 = "world"

MsgBox v1 & " " & v2

v1 = "hello"

v2 = "world"

MsgBox v1 & " " & v2

v1 = "hello"
v2 = " "
v3 = "world"

MsgBox v1 & v2 & v3

v1 = "hello"

v2 = " "

v3 = "world"

MsgBox v1 & v2 & v3

どちらも実行するとhello worldと表示されます。

＊＊＊

話を戻します。

具体的にrの変化を見ていくと、
rが1のとき、”=SUM(B1:C1)”
rが2のとき、”=SUM(B2:C2)”
rが3のとき、”=SUM(B3:C3)”
rが4のとき、”=SUM(B4:C4)”
となります。

結果として
rが1のとき、A1セルに”=SUM(B1:C1)”
rが2のとき、A2セルに”=SUM(B2:C2)”
rが3のとき、A3セルに”=SUM(B3:C3)”
rが4のとき、A4セルに”=SUM(B4:C4)”
が入るということになります。

Forループのカウンタ変数をループの中で利用することはよくあります。むしろループの中で固定の文字列を挿入することの方が少ないぐらいです。

さらにカウンタ変数を利用したワークシート関数を挿入する方法が使えるようになると、かなり複雑なことができるようになります。

2020-01-142020-05-10

VBA SQL実験用④(SQLite)

最近では専門家ではなくてもデータ分析ができたほうがいいという話をよく聞きます。そういう話の中で利用されているソフトはだいたい専用ソフトかエクセルといった感じでしょうか。

ただ数は少ないですがSQLを使おうというのもあるようです。実際SQLは非常に便利でエクセルより多少敷居は高いですが、少し使えればエクセルでは面倒な処理も簡単にできたりします。経験上、ワークシート関数、VBA、SQLを使い分ければほとんどの処理ができると思います。

ですが、いざSQLを使おうとするとどのソフトを使ったらいいのか迷うと思います。一般的にはAccess、SQL Server、MySQL(MariaDB)、SQLiteあたりがお勧めされていますが、もしPCにAccessが入っているならAccessが一番手軽に始められるのではないかと思います。今回はSQLiteを採用していますが、私も最初はAccessを使っていました。

中小企業で働いているとデータ分析やITの専門家がいない場合も多いので、自分たちで少しでもデータ分析ができると役に立つことが多いです。

Sub auto_open()

Application.CommandBars("cell").Reset

With Application.CommandBars("cell").Controls.Add
.OnAction = "CreateTable"
.Caption = "テーブル作成"
End With

With Application.CommandBars("cell").Controls.Add
.OnAction = "QuerySelect"
.Caption = "SQL実行"
End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 2
  Application.CommandBars("cell").Controls("テーブル作成").Delete
  Application.CommandBars("cell").Controls("SQL実行").Delete
Next i

End Sub

Function GetCon()

GetCon = "DRIVER=SQLite3 ODBC Driver; DataBase=" & ThisWorkbook.Path & "\dat"

End Function

Function GetType(s)

'型はSQLite以外の互換性のため

Select Case s
  Case "s"
  tmp = "varchar(255)"
  Case "i"
  tmp = "bigint"
  Case "m"
  tmp = "money"
  Case "d"
  tmp = "datetime"
End Select

GetType = tmp

End Function

Sub CreateTable()

Set cn = CreateObject("adodb.connection")
cn.Open GetCon

tbl = InputBox("テーブル名")
If tbl = "" Then Exit Sub

'テーブル削除

On Error Resume Next
cn.Execute "drop table " & tbl

'テーブル作成

On Error GoTo 0

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

  tmp = GetType(Right(ActiveSheet.Cells(Selection(1).Row, c).Value, 1))
  fld = fld & ActiveSheet.Cells(Selection(1).Row, c).Value & " " & tmp & ","

Next c

fld = Left(fld, Len(fld) - 1)

q = "create table " & tbl & " (id integer primary key," & fld & ")"
cn.Execute q: Debug.Print q

'データ登録

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column
  fld = fld & ActiveSheet.Cells(Selection(1).Row, c).Value & ","
Next c

fld = Left(fld, Len(fld) - 1)

For r = (Selection(1).Row) + 1 To Selection(Selection.Count).Row
  For cc = Selection(1).Column To Selection(Selection.Count).Column
    rec = rec & "'" & ActiveSheet.Cells(r, cc).Value & "'" & ","
  Next cc

  rec = Left(rec, Len(rec) - 1)
  
  q = "insert into " & tbl & " (" & fld & ") values (" & rec & ")"
  cn.Execute q: Debug.Print q

  rec = ""
Next r

If cn.State = 1 Then cn.Close
Set cn = Nothing

MsgBox "done"

End Sub

Sub ExecuteQuery(q)

Set cn = CreateObject("adodb.connection")
Set rn = CreateObject("adodb.recordset")

cn.Open GetCon
rn.Open q, cn

'フィールド作成

i = 0

For c = Selection(1).Column To (Selection(1).Column + rn.Fields.Count) - 1
  Cells(Selection(Selection.Count).Row + 1, c).Value = rn.Fields(i).Name
  i = i + 1
Next c

'データ読込

Cells(Selection(Selection.Count).Row + 2, Selection(1).Column).CopyFromRecordset rn

If rn.State = 1 Then rn.Close
Set rn = Nothing

If cn.State = 1 Then cn.Close
Set cn = Nothing

End Sub

Sub ExecuteNonQuery(q)

Set cn = CreateObject("adodb.connection")

cn.Open GetCon
cn.Execute q

If cn.State = 1 Then cn.Close
Set cn = Nothing

End Sub

Sub QuerySelect()

If Selection.Rows.Count = 1 Then
  q = ActiveCell.Value
Else
  For r = 1 To Selection.Rows.Count
    q = q & " " & Selection(r)
  Next r
End If

If Left(q, 1) = "s" Then
  ExecuteQuery (q)
Else
  ExecuteNonQuery (q)
End If

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

Sub auto_open()

Application.CommandBars("cell").Reset

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

.OnAction = "CreateTable"

.Caption = "テーブル作成"

End With

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

.OnAction = "QuerySelect"

.Caption = "SQL実行"

End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 2

Application.CommandBars("cell").Controls("テーブル作成").Delete

Application.CommandBars("cell").Controls("SQL実行").Delete

Next i

End Sub

Function GetCon()

GetCon = "DRIVER=SQLite3 ODBC Driver; DataBase=" & ThisWorkbook.Path & "\dat"

End Function

Function GetType(s)

'型はSQLite以外の互換性のため

Select Case s

Case "s"

tmp = "varchar(255)"

Case "i"

tmp = "bigint"

Case "m"

tmp = "money"

Case "d"

tmp = "datetime"

End Select

GetType = tmp

End Function

Sub CreateTable()

Set cn = CreateObject("adodb.connection")

cn.Open GetCon

tbl = InputBox("テーブル名")

If tbl = "" Then Exit Sub

'テーブル削除

On Error Resume Next

cn.Execute "drop table " & tbl

'テーブル作成

On Error GoTo 0

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

tmp = GetType(Right(ActiveSheet.Cells(Selection(1).Row, c).Value, 1))

fld = fld & ActiveSheet.Cells(Selection(1).Row, c).Value & " " & tmp & ","

Next c

fld = Left(fld, Len(fld) - 1)

q = "create table " & tbl & " (id integer primary key," & fld & ")"

cn.Execute q: Debug.Print q

'データ登録

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

fld = fld & ActiveSheet.Cells(Selection(1).Row, c).Value & ","

Next c

fld = Left(fld, Len(fld) - 1)

For r = (Selection(1).Row) + 1 To Selection(Selection.Count).Row

For cc = Selection(1).Column To Selection(Selection.Count).Column

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

Next cc

rec = Left(rec, Len(rec) - 1)

q = "insert into " & tbl & " (" & fld & ") values (" & rec & ")"

cn.Execute q: Debug.Print q

rec = ""

Next r

If cn.State = 1 Then cn.Close

Set cn = Nothing

MsgBox "done"

End Sub

Sub ExecuteQuery(q)

Set cn = CreateObject("adodb.connection")

Set rn = CreateObject("adodb.recordset")

cn.Open GetCon

rn.Open q, cn

'フィールド作成

i = 0

For c = Selection(1).Column To (Selection(1).Column + rn.Fields.Count) - 1

Cells(Selection(Selection.Count).Row + 1, c).Value = rn.Fields(i).Name

i = i + 1

Next c

'データ読込

Cells(Selection(Selection.Count).Row + 2, Selection(1).Column).CopyFromRecordset rn

If rn.State = 1 Then rn.Close

Set rn = Nothing

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

Sub ExecuteNonQuery(q)

Set cn = CreateObject("adodb.connection")

cn.Open GetCon

cn.Execute q

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

Sub QuerySelect()

If Selection.Rows.Count = 1 Then

q = ActiveCell.Value

Else

For r = 1 To Selection.Rows.Count

q = q & " " & Selection(r)

Next r

End If

If Left(q, 1) = "s" Then

ExecuteQuery (q)

Else

ExecuteNonQuery (q)

End If

End Sub

追記

ちょっと原因は分からないけど、SQLite標準のカラムのデータ型(textやinteger)でテーブルを作成するとCopyFromRecordsetで取得できなくなる。

varchar(255)をカラムのデータ型に指定しているとCopyFromRecordsetで問題なく取得できる。

CopyFromRecordsetはテーブル作成時の型の影響を受けているらしい。とりあえずCopyFromRecordsetを使わないパターン

Sub auto_open()

Application.CommandBars("cell").Reset

With Application.CommandBars("cell").Controls.Add
.OnAction = "CreateTable"
.Caption = "テーブル作成"
End With

With Application.CommandBars("cell").Controls.Add
.OnAction = "QuerySelect"
.Caption = "SQL実行"
End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 2
  Application.CommandBars("cell").Controls("テーブル作成").Delete
  Application.CommandBars("cell").Controls("SQL実行").Delete
Next i

End Sub

Function GetCon()

'GetCon = "DRIVER=SQLite3 ODBC Driver; DataBase=" & ThisWorkbook.Path & "\dat"
GetCon = "DRIVER=SQLite3 ODBC Driver; DataBase=" & Sheets("設定").Cells(1, 2).Value

End Function

Function GetType(s)

Select Case s
  Case "s"
  tmp = "text"
  Case "i"
  tmp = "integer"
End Select

GetType = tmp

End Function

Sub CreateTable()

Set cn = CreateObject("adodb.connection")
cn.Open GetCon

tbl = InputBox("テーブル名")
If tbl = "" Then Exit Sub

'テーブル削除

On Error Resume Next
cn.Execute "drop table " & tbl

'テーブル作成

On Error GoTo 0

Set topLeft = Selection(1)
Set bottomRight = Selection(Selection.Count)

head = ""
For c = topLeft.Column To bottomRight.Column
  tmp = GetType(Right(ActiveSheet.Cells(topLeft.Row, c).Value, 1))
  head = head & ActiveSheet.Cells(topLeft.Row, c).Value & " " & tmp & ","
Next c

head = Left(head, Len(head) - 1)

q = "create table " & tbl & " (id integer primary key," & head & ")"
cn.Execute q

'データ登録

head = ""
For c = topLeft.Column To bottomRight.Column
  head = head & ActiveSheet.Cells(topLeft.Row, c).Value & ","
Next c

head = Left(head, Len(head) - 1)
For r = topLeft.Row + 1 To bottomRight.Row

  For c = topLeft.Column To bottomRight.Column
    body = body & "'" & ActiveSheet.Cells(r, c).Value & "'" & ","
  Next c

  body = Left(body, Len(body) - 1)
  
  q = "insert into " & tbl & " (" & head & ") values (" & body & ")"
  cn.Execute q

  body = ""
  
Next r

If cn.State = 1 Then cn.Close
Set cn = Nothing

MsgBox "done"

End Sub

Sub ExecuteQuery(q)

Set cn = CreateObject("adodb.connection")
Set rn = CreateObject("adodb.recordset")

cn.Open GetCon
rn.Open q, cn

Set topLeft = Selection(1)
Set bottomRight = Selection(Selection.Count)

'見出

i = 0
For c = topLeft.Column To (topLeft.Column + rn.Fields.Count) - 1
  ActiveSheet.Cells(bottomRight.Row + 1, c).Value = rn.Fields(i).Name
  i = i + 1
Next c

'本体

r = 2
Do Until rn.EOF

  i = 0
  For c = topLeft.Column To (topLeft.Column + rn.Fields.Count) - 1
    ActiveSheet.Cells(bottomRight.Row + r, c).Value = rn.Fields(i)
    i = i + 1
  Next c
  
  rn.MoveNext
  r = r + 1
Loop

If rn.State = 1 Then rn.Close
Set rn = Nothing

If cn.State = 1 Then cn.Close
Set cn = Nothing

End Sub

Sub ExecuteNonQuery(q)

Set cn = CreateObject("adodb.connection")

cn.Open GetCon
cn.Execute q

If cn.State = 1 Then cn.Close
Set cn = Nothing

End Sub

Sub QuerySelect()

If Selection.Rows.Count = 1 Then
  q = ActiveCell.Value
Else
  For r = 1 To Selection.Rows.Count
    q = q & " " & Selection(r)
  Next r
End If

If Left(q, 1) = "s" Then
  ExecuteQuery (q)
Else
  ExecuteNonQuery (q)
End If

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

Sub auto_open()

Application.CommandBars("cell").Reset

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

.OnAction = "CreateTable"

.Caption = "テーブル作成"

End With

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

.OnAction = "QuerySelect"

.Caption = "SQL実行"

End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 2

Application.CommandBars("cell").Controls("テーブル作成").Delete

Application.CommandBars("cell").Controls("SQL実行").Delete

Next i

End Sub

Function GetCon()

'GetCon = "DRIVER=SQLite3 ODBC Driver; DataBase=" & ThisWorkbook.Path & "\dat"

GetCon = "DRIVER=SQLite3 ODBC Driver; DataBase=" & Sheets("設定").Cells(1, 2).Value

End Function

Function GetType(s)

Select Case s

Case "s"

tmp = "text"

Case "i"

tmp = "integer"

End Select

GetType = tmp

End Function

Sub CreateTable()

Set cn = CreateObject("adodb.connection")

cn.Open GetCon

tbl = InputBox("テーブル名")

If tbl = "" Then Exit Sub

'テーブル削除

On Error Resume Next

cn.Execute "drop table " & tbl

'テーブル作成

On Error GoTo 0

Set topLeft = Selection(1)

Set bottomRight = Selection(Selection.Count)

head = ""

For c = topLeft.Column To bottomRight.Column

tmp = GetType(Right(ActiveSheet.Cells(topLeft.Row, c).Value, 1))

head = head & ActiveSheet.Cells(topLeft.Row, c).Value & " " & tmp & ","

Next c

head = Left(head, Len(head) - 1)

q = "create table " & tbl & " (id integer primary key," & head & ")"

cn.Execute q

'データ登録

head = ""

For c = topLeft.Column To bottomRight.Column

head = head & ActiveSheet.Cells(topLeft.Row, c).Value & ","

Next c

head = Left(head, Len(head) - 1)

For r = topLeft.Row + 1 To bottomRight.Row

For c = topLeft.Column To bottomRight.Column

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

Next c

body = Left(body, Len(body) - 1)

q = "insert into " & tbl & " (" & head & ") values (" & body & ")"

cn.Execute q

body = ""

Next r

If cn.State = 1 Then cn.Close

Set cn = Nothing

MsgBox "done"

End Sub

Sub ExecuteQuery(q)

Set cn = CreateObject("adodb.connection")

Set rn = CreateObject("adodb.recordset")

cn.Open GetCon

rn.Open q, cn

Set topLeft = Selection(1)

Set bottomRight = Selection(Selection.Count)

'見出

i = 0

For c = topLeft.Column To (topLeft.Column + rn.Fields.Count) - 1

ActiveSheet.Cells(bottomRight.Row + 1, c).Value = rn.Fields(i).Name

i = i + 1

Next c

'本体

r = 2

Do Until rn.EOF

i = 0

For c = topLeft.Column To (topLeft.Column + rn.Fields.Count) - 1

ActiveSheet.Cells(bottomRight.Row + r, c).Value = rn.Fields(i)

i = i + 1

Next c

rn.MoveNext

r = r + 1

Loop

If rn.State = 1 Then rn.Close

Set rn = Nothing

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

Sub ExecuteNonQuery(q)

Set cn = CreateObject("adodb.connection")

cn.Open GetCon

cn.Execute q

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

Sub QuerySelect()

If Selection.Rows.Count = 1 Then

q = ActiveCell.Value

Else

For r = 1 To Selection.Rows.Count

q = q & " " & Selection(r)

Next r

End If

If Left(q, 1) = "s" Then

ExecuteQuery (q)

Else

ExecuteNonQuery (q)

End If

End Sub

2020-01-132020-05-06

Excel 仕入集計(簡易原価計算)

原価計算といえば製造業では特に重視されていてよく耳にするかと思います。一応、会計的に正しい計算法というのもあるのですが、中小企業ではカスタマイズしたルールを用いてエクセルでざっくり計算していることが多いように思います。

今回は、本格的な原価計算とまではいかないけど、仕入をエクセルで集計するためには、どのように入力していけばいいのか少し考えてみたいと思います。

・集計単位で番号を付加する

製造番号やシリアル番号など名称に違いはあっても、恐らくどの会社でも管理用の番号を付加していると思います。受注単位、製造単位、単品ごとなど付加する単位は会社によって違うと思いますが、重要なのは原価を求めたい単位で番号を付加することです。例えば、受注はA製品×2台で受注番号を付加しているが、原価集計したいのはA製品それぞれ1台という場合、受注番号とは別に番号が必要になるということです。

一般的にはこういう場合、枝番で単品ごとの単位にしていることが多いと思います。そこでよくあるのが枝番を無視する工程の存在です。無視している工程では原価集計ができなくなるので注意が必要です。

ここではA製品×2台に対して001というNoを割り振ったとします。

・原価発生時エクセルに入力

まず原価として集計したいものは全てエクセルに入力することとします。会社によっては販管費相当でも個別の原価に入れたりしていると思います。例えば、運送費を個別の原価に入れて集計したい場合、運送費も入力するということです。

・仕入入力について

買掛単位ではなく原価単位の行数で入力します。

例えば、A製品(No001)とB製品に使う材料を購入したら1行の明細で100円となった場合。2行に分けてA用に50円、B用に50円というように入力します。会計では買掛単位として扱うことが多いと思うので、必要であればそれぞれ別管理が必要になるかもしれません。

仕入が1行でも、計算するタイミングで何かしらの基準でA製品とB製品に対して按分して計算するばいいのでは？と思われるかもしれません。もちろん専用ソフトでしっかり管理されていれば可能ですが、そうでないなら、最初から明細を原価単位で入力しておくほうが楽だと思います。

・エクセルの作り方

今回は入力、単価マスタ、集計結果を作っています。実際はそれぞれ別シートにして項目も多くなるかと思います。

ポイントとなる関数はSUMIFS、VLOOKUP、INDIRECTです。関数自体は他のサイトに分かりやすい解説があるのでそちらを見ていただくとして、どのように使っているのかというと、入力から単価マスタの参照はVLOOKUPを使い、集計結果から入力の参照はSUMIFSを使い、それぞれ最終行をINDIRECTで指定しています。

この中でも一番重要なのがSUMIFSです。単価マスタはなくても大丈夫なので、もっと簡単にしたい場合は入力と集計結果だけ作って、SUMIFSで集計しても大丈夫かと思います。

2020-01-042020-01-13

VBA 講座

エクセルにはVBAという開発環境が付属しており、VBAを活用するとエクセル上の作業を自動化したりすることができます。

大手企業では業務ごとに専用ソフトを導入していたり、開発の専門部署があったりしますので、一般の従業員がVBAを使う機会は少ないかもしれませんが、中小企業ではVBAを使うと業務を効率化することができます。

私もそれほど詳しくありませんが、実際に今までいくつかVBAを業務に役立ててきましたので、ここではその経験を分かりやすくお伝えしていきたいと思います。

VBAを始めるにあたって何が大変なのかというと、面白くもない基礎知識を覚えなければいけないということがあります。VBAはプログラミング言語の一種なので、プログラミング未経験の人からすると、最初に覚えなければいけない内容もかなりの量になってしまいます。

やりたいことは明確なのに、すぐにそこに行けないのはもどかしいものです。ですので、ここではなるべく早く使えるようになることを目標にして、細かい部分は省き、必要なことは作りながら覚えればいいという考えで進めたいと思います。

また、VBAなどプログラミングではやりたいことに対して複数の方法が存在するのですが、これもあえて一つの方法を採用してしまおうかと思います。

VBAの実行方法

開発タブ＞挿入＞ActiveXコントロール＞コマンドボタン
追加されたコマンドボタンをダブルクリックします。

VBA用のエディタが表示されたと思います。

表示された
Private Sub CommandButton1_Click()
と
End Sub
の間に処理を記入していくことになります。

もし開発タブが表示されていない場合は、
ファイル＞オプション＞リボンのユーザー設定
開発にチェックを付けます。

ではどうやってVBAを実行するのか？ですが、開発タブの中にデザインモードというボタンがあり、これが押されている状態では今のようにVBAのエディタが開きます。

デザインモードのボタンをもう一度押すと、デザインモードが押されていない状態になり、その状態でコマンドボタンを押すとVBAが実行されます。

開発中にわざわざボタンを押さずに、素早く実行したい場合は、
Private Sub CommandButton1_Click()
と
End Sub
の間にカーソルがある状態で、VBA用エディタの再生ボタンを押すことで実行できます。

セルに値を入れる

Sheets(“Sheet1”).Cells(1, 1).Value = “1”

セルに値を入れるときはこのように書きます。どのシートなのか、どのセルなのかを指定し、そのセルの中身をValueで指定します。

ちなみ、セルを指定しているのだからわざわざValueは必要ないのでは？と思うかもしれません。(実際なくても動くのですが)なぜValueが必要なのかというと、セルの塗りつぶしなどセルの中身とは関係ない部分を指定することもあるので、中身はValueで操作できるよと覚えておいてください。

細かくみていくと、
Sheets(“シート名”)
でシート名を指定し、
Cells(行, 列)
で何行目の何列目にあるセルなのかを指定し、
Value
で指定したセルの値を操作できるという意味です。

ここでのイコールは代入(入れる)という意味です。つまりSheet1の1行目で1列目のセルに”1″を入れるという意味です。

数値と文字

VBAでは数値だったらそのまま直接(1など)書くことができます。文字だったらダブルクォーテーションで囲う(“1″など)必要があります。でも今回1をダブルクォーテーションで囲ってなかった？と思うかもしれません。

少し難しい話ですが、1と”1″は一般的なプログラミングでは数値の1と文字の1として区別されます。いくつか違いはありますが、数値の1は四則演算できて、文字の1は四則演算できないというような違いがあります。つまり上記では数値ではなく文字の1を代入したということです。

VBAの特徴として、文字の数値(“1″など)でも、どうやら数値として使ってるっぽいなとVBAが判断すると自動で数値として扱ってくれます。

このあたりを正確に理解しようとすると型というものが出てきてしまうので、今は数値と文字の違いはあるけど、VBAはいい具合に判断してくれる程度に理解しておけば大丈夫です。

値のコピー

セルの書式や文字色などもコピーできるのですが、最初は値だけコピーする方法を覚えておけば大丈夫です。Valueを使ってイコールで代入するだけです。

Sheets("Sheet1").Cells(1, 1).Value = Sheets("Sheet1").Cells(2, 2).Value

1	Sheets("Sheet1").Cells(1, 1).Value = Sheets("Sheet1").Cells(2, 2).Value

値の表示(MsgBox)

次はセルの値を表示してみます。

MsgBox Sheets(“Sheet1”).Cells(1, 1).Value

代入ではないのでイコールはありません。代わりにMsgBoxと書かれています。これで指定した値をダイアログで表示することができます。Sheet1の1行目1列目のセルの値が表示されます。

ちなみに
MsgBox “A”
などのように表示する値を直接指定することも可能です。

MsgBoxはデバッグとしても利用されます。例えばプログラムを作っている最中に変数の中身を確認したい場合など頻繁にMsgBoxは利用されます。

v = "1"
MsgBox v
v = "2"
MsgBox v

v = "1"

MsgBox v

v = "2"

MsgBox v

ループ(For文)

セルの値を１つずつ設定したり取得したりするだけでは手作業と大きな違いはありません。VBAのメリットは多くの処理を自動化できることですが、ループは自動化の基本の一つです。

For i = 1 To 10
Sheets("Sheet1").Cells(i, 1).Value = i
Next

For i = 1 To 10

Sheets("Sheet1").Cells(i, 1).Value = i

これを実行するとA列の1～10行目に1～10の値が入ります。

For 変数 = 開始値 to 終了値
　処理
Next

というのが基本です。

現時点では変数というのは入れ物と理解しておけば大丈夫です。名前も自由につけることができ、ここではiとしていますが、counterなどとしても大丈夫です。

変数iには1から10まで順番に代入され、そのたびに処理が実行されるということです。具体的にいうと
変数iが1のとき、
Sheets(“Sheet1”).Cells(1, 1).Value = 1
として処理されます。
変数iが2のとき、
Sheets(“Sheet1”).Cells(2, 1).Value = 2
として処理されます。
このように、iが10になるまで繰り返されていきます。

また、変数は1からの必要はありませんし、処理の中で使わなくても問題ありません。

For i = 2 To 3
MsgBox "A"
Next

For i = 2 To 3

MsgBox "A"

これだとAが2回表示されるだけです。処理でiは使っていません。ループを2回するだけです。

条件

次に説明するDo-WhileとIfで条件というのがでてきます。条件とは2つの変数あるいは直接の値を指定し、その2つの間に下記の式を書いてそれが満たされた場合、True(処理の実行)となり、満たされない場合、False(処理が実行されない)となります。

条件は
A = B (AとBが同じ)
A <> B (AとBが違う)
A >= B (AがB以上)
A <= B (AがB以下)
A > B (AがBより大きい)
A < B (AがBより小さい)
のような種類があります。

実際AとBには変数か値が入ります。
変数　条件　変数
変数　条件　　値
　値　条件　変数
　値　条件　　値
いずれの組み合わせてでも大丈夫です。

条件はOrとAndを使うことで複数同時に使うこともできます。意味はそのまま、Orであればどちらかの条件を満たす、Andであれば両方の条件を満たすという意味になります。

例えば
c = 5 Or r = 5
であれば、cという変数の中に5が入っている状態か、rという変数の中に5が入っている状態のどちらか一方でTrueとなります。

c = 5 And r = 5
であれば、cという変数の中に5が入っている状態であり、rという変数の中にも5が入っている状態ではじめてTrueとなります。

ループ(Do-While文)

Do While 条件
　処理
Loop
が基本です。

条件が満たされている間処理をします。

i = 1
Do While i <= 3
  MsgBox i
  i = i + 1
Loop

i = 1

Do While i <= 3

MsgBox i

i = i + 1

Loop

これで1から3まで表示されます。

同じループでForと何が違うの？と思うかもしれません。実際、同じことをしようと思えばどちらを使ってもできます。

使い分けとして、データ量が固定の範囲をループさせる場合はForを使い、データがどんどん追加されていくようなタイプの範囲をループさせる場合はDo-Whileを使うという感じです。

条件分岐(If文)

ある条件が満たされる場合のみ処理を実行することができます。

If 条件 Then
　処理
End If
が基本となります。

Sub test()

If 5 >= 5 Then
  MsgBox "Hello" '表示される
End If

If 5 > 5 Then
  MsgBox "World" ' 表示されない
End If

If "5" >= 5 Then
  MsgBox "!!!" ' 表示される
End If

End Sub

Sub test()

If 5 >= 5 Then

MsgBox "Hello" '表示される

End If

If 5 > 5 Then

MsgBox "World" ' 表示されない

End If

If "5" >= 5 Then

MsgBox "!!!" ' 表示される

End If

End Sub

このように書くことができます。

既に少し説明しましたが、VBAでは文字と数値をうまい具合に扱ってくれます。一般的なプログラミングでは数値と文字は比較できないので、例えば”5″と5は比較できません。この辺りの特徴は少し意識しておいたほうがいいかもしれません。

If文ではだいたい同時ElseIfやElseも説明されていることが多いですが、とりあえず今の段階では使わなくても大丈夫です。

実用例

ここまでの説明で少し実用的なものを作ってみます。Sheet1のデータに条件を1つ通してSheet2にコピーしてみます。

Sheet1には2列データが入っていて、1列目には名称、2列目には数量を入れてあります。1列目が空白になるまでループし、2列目が0の場合はコピーしないという処理をおこないます。

targetRow = 1 '書き込み対象行

r = 2
Do While Sheets("Sheet1").Cells(r, 1).Value <> ""

  n = Sheets("Sheet1").Cells(r, 1).Value
  q = Sheets("Sheet1").Cells(r, 2).Value
  
  If q <> "0" Then
    
    Sheets("Sheet2").Cells(targetRow, 1).Value = n
    Sheets("Sheet2").Cells(targetRow, 2).Value = q
    rr = rr + 1
    
  End If
  
  r = r + 1
Loop

targetRow = 1 '書き込み対象行

r = 2

Do While Sheets("Sheet1").Cells(r, 1).Value <> ""

n = Sheets("Sheet1").Cells(r, 1).Value

q = Sheets("Sheet1").Cells(r, 2).Value

If q <> "0" Then

Sheets("Sheet2").Cells(targetRow, 1).Value = n

Sheets("Sheet2").Cells(targetRow, 2).Value = q

rr = rr + 1

End If

r = r + 1

Loop

非常に簡単な例ですが、手作業では困難な程度の量になってくると自動化が役に立つと思います。