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

2020-04-162023-04-05

Google Analytics/AdSense WordPress 連携

トラッキングコード取得

Google AdSense
広告＞コードを取得

Google Analytics (UA)
管理＞トラッキング情報＞トラッキングコード

Google Analytics (GA4)
管理＞データストリーム＞サイト選択(サイト名の部分をクリック)＞タグ設定手順を表示する＞手動でインストールする

WordPress設定

wp-content>themes>xxx>header.php

<head>の下へ

Google AdSense設定

左側メニュー＞広告＞サマリー＞編集(サイト名の右側)
をクリックし
右側の広告設定＞
ページ内広告
モバイル全画面広告
をオフにする。
(利用方法を調べることが目的のため)

Search Console

WordPressは関係ないが、Search Consoleも登録する場合。

・プロパティタイプ
ドメインを選択する。

・DNSの確認
指定されたTXTレコードを入力。

Xserverの場合
サーバーパネル＞対象ドメインを設定する＞DNSレコード設定＞DNSレコード追加

2020-03-312020-05-06

某CADビューワーでの不具合発生

某CADビューワーでファイルドラッグだと開くがダブルクリックだと開かないという状況が発生した。

>assoc .mdg
.mdg=MdrafWin.Document

>ftype MdrafWin.Document
MdrafWin.Document=C:\Program Files\Mutoh\M-Draf Viewer 2020\PROGRAM\MDVIEWER64.EXE /dde
となっていた。

マイナーソフトで情報が少ないので、とりあえず
>ftype MdrafWin.Document=C:\Program Files\Mutoh\M-Draf Viewer 2020\PROGRAM\MDVIEWER64.EXE %1
とした。

バッチにする場合

ftype MdrafWin.Document="C:\Program Files\Mutoh\M-Draf Viewer 2020\Program\MDViewer64.exe" "%%1"
pause

1 2	ftype MdrafWin.Document="C:\Program Files\Mutoh\M-Draf Viewer 2020\Program\MDViewer64.exe" "%%1" pause

2020-03-262020-05-05

TypeScript 初期設定

・node.jsをインストール

以下、Visual Studio Codeのターミナルで実行。

・インストール
npm install -g typescript

・利用方法

・ウォッチ

監視したいフォルダに移動し、
tsc –init
を実行する。

tsconfig.json
が作成されたら、
Ctrl + Shift + B
でウォッチを指定する。

・フォーマット

Alt + Shift + F

2020-03-19

VBA VBAからPOSTする方法

Sub test()

'参照設定する場合(Microsoft XML, v6.0)

Dim xml As XMLHTTP60
Set xml = New XMLHTTP60

'参照設定しない場合

'Set 変数名 = CreateObject("MSXML2.XMLHTTP")

url = "https://appbay.org/"
param = ""

xml.Open "POST", url, False
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send (param)

Do While xml.readyState < 4
  DoEvents
Loop

Debug.Print xml.Status
Debug.Print xml.responseText

Set xml = Nothing

End Sub

Sub test()

'参照設定する場合(Microsoft XML, v6.0)

Dim xml As XMLHTTP60

Set xml = New XMLHTTP60

'参照設定しない場合

'Set 変数名 = CreateObject("MSXML2.XMLHTTP")

url = "https://appbay.org/"

param = ""

xml.Open "POST", url, False

xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xml.send (param)

Do While xml.readyState < 4

DoEvents

Loop

Debug.Print xml.Status

Debug.Print xml.responseText

Set xml = Nothing

End Sub

2020-03-182020-05-07

C# FFmpegにコマンド投げる③

以前も同じものを作ったのだけれど、もっと簡単に。

C# FFmpegにコマンド投げる①

C# FFmpegにコマンド投げる②

        public Form1()
        {
            InitializeComponent();

            実行.Click += (s, e) =>
            {
                DateTime.TryParse(開始.Text, out var start);
                DateTime.TryParse(終了.Text, out var end);

                TimeSpan interval = end - start;
                TimeSpan startPosition = new TimeSpan(start.Hour, start.Minute, start.Second);

                string cmd = "-ss " + startPosition.TotalSeconds.ToString() + " -i \"i.mp4\" -t " + interval + " \"o.mp4\"";
                System.Diagnostics.Process p =
                System.Diagnostics.Process.Start(Application.StartupPath + @"\ffmpeg.exe", cmd);

                p.WaitForExit();
            };
            
        }

public Form1()

{

InitializeComponent();

実行.Click += (s, e) =>

{

DateTime.TryParse(開始.Text, out var start);

DateTime.TryParse(終了.Text, out var end);

TimeSpan interval = end - start;

TimeSpan startPosition = new TimeSpan(start.Hour, start.Minute, start.Second);

string cmd = "-ss " + startPosition.TotalSeconds.ToString() + " -i \"i.mp4\" -t " + interval + " \"o.mp4\"";

System.Diagnostics.Process p =

System.Diagnostics.Process.Start(Application.StartupPath + @"\ffmpeg.exe", cmd);

p.WaitForExit();

};

}

2020-03-032020-03-06

C# ガントチャート試作

C# DataGridView セルの結合

前回の記事でDataGridViewの結合を色々試しており、その流れで当初、進捗をセルの塗りつぶしで表現する感じのスケジュール管理用のソフトを作ろうかと考えていた。

作業の途中でふとセルの塗りつぶしではなくコントロールのLabelを置いたらどうだろうと思いついて、少し作業を進めてみた。

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;

using System.Diagnostics;

namespace ProductionManagement
{
    public partial class GanttChart : Form
    {
        private int _StartMainColumn;

        private int _HeaderHeight = 20;
        private int _DateColumnWidth = 16;
        private DateClass _DateClass = new DateClass();

        private Bitmap[] _BitmapArrayDay = new Bitmap[32];
        private Bitmap[] _BitmapArrayWeekday = new Bitmap[7];

        public GanttChart()
        {
            InitializeComponent();

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

            SetupDataGridView();
            AttachEvent();

            CreateBitmap();
        }

        private void p(string target) { Debug.Print(target); }

        private void AttachEvent()
        {
            CreateChart.Click += (s, e) => CreateDataGridView();
            CreateBar.Click += (s, e) => CreateLabeBar(s, e);

            DataGridView.CellPainting += (s, e) => SetupCellPainting(s, e);
            DataGridView.Scroll += (s, e) => AllBarLabelTransparent();
            DataGridView.SizeChanged += (s, e) => AllBarLabelTransparent();
            DataGridView.RowPrePaint += (s, e) => { e.PaintParts &= ~DataGridViewPaintParts.Focus; };
            DataGridView.SelectionChanged += (s, e) => DataGridViewHeaderLock();
        }

        private void CreateLabeBar(object s, EventArgs e)
        {
            var lb = new MyLabel()
            {
                Font = DataGridView.Font,
                Text = "テスト",
                TextAlign = ContentAlignment.MiddleLeft ,
                BackColor = Color.Bisque,
                Height = DataGridView.RowTemplate.Height - 1,
                Width = (_DateColumnWidth * 15) - 1,
                rowIndex = 4,
                columnIndex = _StartMainColumn
                // ID,追番,開始日は初期化時点では未設定
            };

            this.Controls.Add(lb);
            lb.BringToFront();

            lb.MouseDoubleClick += (s1, e1) => EditLabelTextOrDelete(s1, e1);
            lb.MouseDown += (s2, e2) => LabelMouseDown(s2, e2);
            lb.MouseUp += (s3, e3) => LabelMouseUp(s3, e3);
            lb.MouseMove += (s4, e4) => LabelMouseMove(s4, e4);

            ListMyLabel.Add(lb);

            // barLabelもtargetCellもLabelMouseMove()でアクティブなインスタンスが入る
            // 明示的に破棄はしていない

            barLabel = lb;
            targetCell = DataGridView.Rows[4].Cells[_StartMainColumn];
            DropBarLabel();
        }

        private int GetMaxDisplayColumnIndex()
        {
            for (int c = DataGridView.Columns.Count - 1; c >= 0; c--)
            {
                if (DataGridView.Rows[DataGridView.FirstDisplayedScrollingRowIndex].Cells[c].Displayed) return c - 1;
            }
            return DataGridView.Columns.Count - 1;
        }

        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 lb = new Label()
                {
                    Text = i.ToString().PadLeft(2, '0'),
                    Width = _DateColumnWidth * 3,
                    Height = _HeaderHeight,
                    Font = DataGridView.Font,
                    TextAlign = ContentAlignment.MiddleCenter,
                    BackColor = Color.AliceBlue
                };
                var bitmap = new Bitmap(lb.Width, lb.Height);
                lb.DrawToBitmap(bitmap, lb.Bounds);
                _BitmapArrayDay[i] = bitmap;
            }

            int j = 0;
            foreach (string w in new string[] { "月","火","水","木","金","土","日" })
            {
                var lb = new Label()
                {
                    Text = w,
                    Width = _DateColumnWidth * 3,
                    Height = _HeaderHeight,
                    Font = DataGridView.Font,
                    TextAlign = ContentAlignment.MiddleCenter,
                    BackColor = Color.AliceBlue
                };
                var bitmap = new Bitmap(lb.Width, lb.Height);
                lb.DrawToBitmap(bitmap, lb.Bounds);
                _BitmapArrayWeekday[j] = bitmap;
                j++;
            }
        }

        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 string WeekdayNumber(string target)
        {
            if (target.Contains("月")) return "0";
            if (target.Contains("火")) return "1";
            if (target.Contains("水")) return "2";
            if (target.Contains("木")) return "3";
            if (target.Contains("金")) return "4";
            if (target.Contains("土")) return "5";
            if (target.Contains("日")) return "6";
            return "";
        }

        private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e, bool isWeekday = false)
        {
            // 画像上で切り取る位置(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 (isWeekday)
            {
                refer = WeekdayNumber(refer);
                referMinus1 = WeekdayNumber(referMinus1);
                referMinus2 = WeekdayNumber(referMinus2);
            }

            if (refer != "")
            {
                if (isWeekday)
                {
                    e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(refer)], dst, src, GraphicsUnit.Pixel);
                }
                else
                {
                    e.Graphics.DrawImage(_BitmapArrayDay[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;

                if (isWeekday)
                {
                    e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(referMinus1)], dst, src, GraphicsUnit.Pixel);
                }
                else
                {
                    e.Graphics.DrawImage(_BitmapArrayDay[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;

                if (isWeekday)
                {
                    e.Graphics.DrawImage(_BitmapArrayWeekday[int.Parse(referMinus2)], dst, src, GraphicsUnit.Pixel);
                }
                else
                {
                    e.Graphics.DrawImage(_BitmapArrayDay[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.RowIndex == 2)
                {
                    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 SetupCellPainting(object s, DataGridViewCellPaintingEventArgs e)
        {
            if (e.RowIndex == 0)
            {
                if (e.ColumnIndex < _StartMainColumn)
                {
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }

                if (e.ColumnIndex >= _StartMainColumn)
                {
                    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;
                    }
                    DrawMergeImage(s, e);
                }
            }

            if (e.RowIndex == 1)
            {
                if (e.ColumnIndex < _StartMainColumn)
                {
                    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;
                }

                if (e.ColumnIndex >= _StartMainColumn)
                {
                    DrawMergeImage(s, e);
                }
            }

            if (e.RowIndex == 2)
            {
                if (e.ColumnIndex >= _StartMainColumn)
                {
                    DrawMergeImage(s, e, true);
                }
            }

            if (e.RowIndex > 3)
            {
                if (e.ColumnIndex >= _StartMainColumn)
                {
                    DrawBorder(s, e);
                }
            }
        }

        private void EditLabelTextOrDelete(object s, MouseEventArgs e)
        {
            var lb = (MyLabel)s;

            if ((ModifierKeys & Keys.Control) == Keys.Control)
            {
                var yesNo = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo);
                if (yesNo == DialogResult.Yes) lb.Dispose();
                return;
            }
            
            var txt = new TextBox()
            {
                Font = DataGridView.Font,
                Multiline = true,
                Left = lb.Left,
                Top = lb.Top,
                Width = lb.Width,
                Height = lb.Height,
                Text = lb.Text,
            };

            lb.Visible = false;
            Controls.Add(txt);
            txt.BringToFront();
            txt.Focus();

            txt.LostFocus += (s1, e1) =>
            {
                lb.Text = txt.Text;
                lb.Visible = true;
                txt.Dispose();
            };
        }

        private bool isBarDrag;
        private Point startPoint;

        private void LabelMouseDown(object s, MouseEventArgs e)
        {
            if (e.Button == MouseButtons.Left)
            {
                isBarDrag = true;
                Cursor.Current = Cursors.Hand;
                startPoint.X = e.Location.X;
                startPoint.Y = e.Location.Y;
            }

            if (e.Button == MouseButtons.Right)
            {
                isBarDrag = true;
                Cursor.Current = Cursors.SizeWE;
                startPoint.X = e.Location.X;
                startPoint.Y = e.Location.Y;
            }
        }

        private void LabelMouseUp(object s, MouseEventArgs e)
        {
            isBarDrag = false;
            Cursor.Current = Cursors.Default;

            if (e.Button == MouseButtons.Left)
            {
                DropBarLabel();
            }

            if (e.Button == MouseButtons.Right)
            {
                var diff = barLabel.Width % _DateColumnWidth;

                if ( (_DateColumnWidth / 2) <= diff)
                {
                    barLabel.Width = barLabel.Width - diff + _DateColumnWidth - 1;
                }
                else
                {
                    barLabel.Width = barLabel.Width - diff - 1;
                }

                int x = barLabel.Location.X + barLabel.Width;
                int y = barLabel.Location.Y;

                // 座標系変換
                x = x - DataGridView.Left;
                y = y - DataGridView.Top;

                var hitInfo = DataGridView.HitTest(x, y);
                SetValueBarLabelEndSide(hitInfo);
            }
        }

        private void SetValueBarLabelEndSide(DataGridView.HitTestInfo hitInfo)
        {
            if (hitInfo.ColumnIndex == -1) return;

            // 追番
            barLabel.endDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);
            // 終了日
            var tmp = hitInfo.ColumnIndex;
            if (barLabel.endDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;
            if (barLabel.endDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;
            barLabel.endDay = Convert.ToString(DataGridView.Columns[tmp].Name);

            //todo del
            barLabel.Text = barLabel.endDay +
            " / " + barLabel.endDayOrderNumber;
        }

        private void SetValueBarLabel(DataGridView.HitTestInfo hitInfo)
        {
            barLabel.rowIndex = hitInfo.RowIndex;
            barLabel.columnIndex = hitInfo.ColumnIndex;

            // ID
            barLabel.ID = Convert.ToString(DataGridView.Rows[hitInfo.RowIndex].Cells["ID"].Value);
            // 追番
            barLabel.startDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);
            // 開始日
            var tmp = hitInfo.ColumnIndex;
            if (barLabel.startDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;
            if (barLabel.startDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;
            barLabel.startDay = Convert.ToString(DataGridView.Columns[tmp].Name);

            //todo del
            barLabel.Text = barLabel.ID +
                " / " + barLabel.startDay +
                " / " + barLabel.startDayOrderNumber;
        }

        List<MyLabel> ListMyLabel = new List<MyLabel>();
        MyLabel barLabel;
        DataGridViewCell targetCell;

        private void LabelMouseMove(object s, MouseEventArgs e)
        {
            if (!isBarDrag) return;

            barLabel = (MyLabel)s;
            var rightBarLabel = barLabel.Left + barLabel.Width; // BarLabel右端

            var rect = DataGridView.GetCellDisplayRectangle(GetMaxDisplayColumnIndex(),
                DataGridView.FirstDisplayedScrollingRowIndex, true);

            var rightDataGridView = DataGridView.Left + rect.X + rect.Width; // DataGridView右端

            if (e.Button == MouseButtons.Left)
            {
                if (rightBarLabel < rightDataGridView)
                {
                    var x = barLabel.Location.X + e.Location.X - startPoint.X;
                    var y = barLabel.Location.Y + e.Location.Y - startPoint.Y;

                    PointingCell(x, y); // Formの座標系
                    barLabel.Location = new Point(x, y);
                }
                else if (rightBarLabel >= rightDataGridView)
                {
                    var diff = rightBarLabel - rightDataGridView;
                    PointingCell(barLabel.Location.X - diff, barLabel.Location.Y);
                    barLabel.Location = new Point(barLabel.Location.X - diff, barLabel.Location.Y);

                    isBarDrag = false;
                    Cursor.Current = Cursors.Default;
                    DropBarLabel();
                }
            }

            if (e.Button == MouseButtons.Right)
            {
                if (barLabel.Width >= _DateColumnWidth - 1 && rightBarLabel < rightDataGridView)
                {
                    barLabel.Width += (e.Location.X - startPoint.X);
                    startPoint.X = e.Location.X;
                }
            }
        }

        private void PointingCell(int x, int y)
        {
            // 座標系の変換
            x = x - DataGridView.Left;
            y = y - DataGridView.Top;

            var hitInfo = DataGridView.HitTest(x, y + DataGridView.RowTemplate.Height / 2); // ここではDgvの座標系

            if (hitInfo.ColumnIndex >= _StartMainColumn && hitInfo.RowIndex >= 4)
            {
                if (targetCell != null && 
                    targetCell != DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex])
                {
                    targetCell.Style.BackColor = Color.White;
                }

                // アクティブなインスタンスを入れるのがLabelMouseMove()ではない理由は
                // BackColorを戻す処理があるため

                targetCell = DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex];
                targetCell.Style.BackColor = Color.GreenYellow;

                SetValueBarLabel(hitInfo);
            }
        }

        private void DropBarLabel()
        {
            if (targetCell == null) return;

            targetCell.Style.BackColor = Color.White;
            var rect = DataGridView.GetCellDisplayRectangle(targetCell.ColumnIndex, targetCell.RowIndex, true);

            // 座標系の変換
            int x = rect.X + DataGridView.Left;
            int y = rect.Y + DataGridView.Top;

            BarTransparent(barLabel, x, y);
            barLabel.Location = new Point(x, y);
        }

        private void BarTransparent(MyLabel bar, int x, int y)
        {
            var leftGap = x - DataGridView.Left;
            var rightGap = (DataGridView.Left + DataGridView.Width) - (x + bar.Width);
            var topGap = y - DataGridView.Top;
            var bottomGap = DataGridView.Bottom - (y + bar.Height);

            if (leftGap <= 5 || rightGap <= 5 || topGap <= 5 || bottomGap <= 5)
            {
                bar.Visible = false;
            }
            else if (leftGap > 5 && rightGap > 5 && topGap > 5 && bottomGap > 5)
            {
                bar.Visible = true;
            }
        }

        private void AllBarLabelTransparent()
        {
            foreach (MyLabel bar in ListMyLabel)
            {
                var rect = DataGridView.GetCellDisplayRectangle(bar.columnIndex, bar.rowIndex, true);

                // 座標系の変換
                int x = rect.X + DataGridView.Left; 
                int y = rect.Y + DataGridView.Top;

                BarTransparent(bar, x, y);
                bar.Location = new Point(x, y);
            }
        }

        private void DataGridViewHeaderLock()
        {
            if (DataGridView.Rows.Count >= 2)
            {
                DataGridView.Rows[0].Selected = false;
                DataGridView.Rows[1].Selected = false;
            }
        }

        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>();
            string[] mainColumn = new string[] { "ID", "型式", "工番", "数量", "追番" };

            foreach (var e in mainColumn)
            {
                listColumn.Add(new DataGridViewTextBoxColumn
                {
                    Name = e,
                    HeaderText = ""
                });
            }

            _StartMainColumn = mainColumn.Count();

            while (startDay <= endDay) // 列作成
            {
                for (int i = 1; i <= 3; i++)
                {
                    listColumn.Add(new DataGridViewTextBoxColumn
                    {
                        Name = startDay.ToString("yyyy/MM/dd"),
                        HeaderText = "",
                        Width = _DateColumnWidth
                    });
                }
                startDay = startDay.AddDays(1);
            }

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

            // ヘッダー追加
            for (int i = 0; i < 4; i++)
            {
                DataGridView.Rows.Add("");
                DataGridView.Rows[i].Height = _HeaderHeight;
            }

            int k = 1;
            for (int c = 0; c < listColumn.Count; c++)
            {
                if (c < _StartMainColumn)
                {
                    DataGridView.Rows[1].Cells[c].Value = listColumn[c].Name; 
                }

                if (c >= _StartMainColumn)
                {
                    DataGridView.Rows[3].Cells[c].Value = k++.ToString(); // 1,2,3
                    if (k == 4) k = 1;

                    if (DataGridView.Rows[3].Cells[c].Value.ToString() == "1")
                    {
                        DateTime.TryParse(listColumn[c].Name, out DateTime result);

                        DataGridView.Rows[1].Cells[c].Value = result.ToString("dd"); // 日付
                        DataGridView.Rows[2].Cells[c].Value = result.ToString("dddd"); // 曜日

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

        private void DataLoad()
        {
            DataGridView.RowTemplate.Height = 100;
            //todo ダミー
            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("");

            int id = 11;
            for (int i = 4; i < DataGridView.Rows.Count; i++)
            {
                DataGridView.Rows[i].Cells["ID"].Value = id++.ToString();
            }
        }

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

            DataGridView.Rows[0].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[1].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[2].DefaultCellStyle.BackColor = Color.AliceBlue;
            DataGridView.Rows[3].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.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 MyLabel : Label
    {
        // 保存
        public string ID;
        public string yearMonth;
        public string startDay;
        public string startDayOrderNumber;
        public string endDay;
        public string endDayOrderNumber;

        // スクロール
        public int rowIndex;
        public int columnIndex;
    }

    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

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

707

708

709

710

711

712

713

714

715

716

717

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

746

747

748

749

750

751

752

753

754

755

756

757

758

759

760

761

762

763

764

765

766

767

768

769

770

771

772

773

774

775

776

777

778

779

780

781

782

783

784

785

786

787

788

789

790

791

792

793

794

795

796

797

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;

using System.Diagnostics;

namespace ProductionManagement

{

public partial class GanttChart : Form

{

private int _StartMainColumn;

private int _HeaderHeight = 20;

private int _DateColumnWidth = 16;

private DateClass _DateClass = new DateClass();

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

private Bitmap[] _BitmapArrayWeekday = new Bitmap[7];

public GanttChart()

{

InitializeComponent();

Binding();

InitializeTextBox();

CreateDataGridView();

SetupDataGridView();

AttachEvent();

CreateBitmap();

}

private void p(string target) { Debug.Print(target); }

private void AttachEvent()

{

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

CreateBar.Click += (s, e) => CreateLabeBar(s, e);

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

DataGridView.Scroll += (s, e) => AllBarLabelTransparent();

DataGridView.SizeChanged += (s, e) => AllBarLabelTransparent();

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

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

}

private void CreateLabeBar(object s, EventArgs e)

{

var lb = new MyLabel()

{

Font = DataGridView.Font,

Text = "テスト",

TextAlign = ContentAlignment.MiddleLeft ,

BackColor = Color.Bisque,

Height = DataGridView.RowTemplate.Height - 1,

Width = (_DateColumnWidth * 15) - 1,

rowIndex = 4,

columnIndex = _StartMainColumn

// ID,追番,開始日は初期化時点では未設定

};

this.Controls.Add(lb);

lb.BringToFront();

lb.MouseDoubleClick += (s1, e1) => EditLabelTextOrDelete(s1, e1);

lb.MouseDown += (s2, e2) => LabelMouseDown(s2, e2);

lb.MouseUp += (s3, e3) => LabelMouseUp(s3, e3);

lb.MouseMove += (s4, e4) => LabelMouseMove(s4, e4);

ListMyLabel.Add(lb);

// barLabelもtargetCellもLabelMouseMove()でアクティブなインスタンスが入る

// 明示的に破棄はしていない

barLabel = lb;

targetCell = DataGridView.Rows[4].Cells[_StartMainColumn];

DropBarLabel();

}

private int GetMaxDisplayColumnIndex()

{

for (int c = DataGridView.Columns.Count - 1; c >= 0; c--)

{

if (DataGridView.Rows[DataGridView.FirstDisplayedScrollingRowIndex].Cells[c].Displayed) return c - 1;

}

return DataGridView.Columns.Count - 1;

}

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 lb = new Label()

{

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

Width = _DateColumnWidth * 3,

Height = _HeaderHeight,

Font = DataGridView.Font,

TextAlign = ContentAlignment.MiddleCenter,

BackColor = Color.AliceBlue

};

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

lb.DrawToBitmap(bitmap, lb.Bounds);

_BitmapArrayDay[i] = bitmap;

}

int j = 0;

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

{

var lb = new Label()

{

Text = w,

Width = _DateColumnWidth * 3,

Height = _HeaderHeight,

Font = DataGridView.Font,

TextAlign = ContentAlignment.MiddleCenter,

BackColor = Color.AliceBlue

};

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

lb.DrawToBitmap(bitmap, lb.Bounds);

_BitmapArrayWeekday[j] = bitmap;

j++;

}

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 string WeekdayNumber(string target)

{

if (target.Contains("月")) return "0";

if (target.Contains("火")) return "1";

if (target.Contains("水")) return "2";

if (target.Contains("木")) return "3";

if (target.Contains("金")) return "4";

if (target.Contains("土")) return "5";

if (target.Contains("日")) return "6";

return "";

}

private void DrawMergeImage(object s, DataGridViewCellPaintingEventArgs e, bool isWeekday = false)

{

// 画像上で切り取る位置(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 (isWeekday)

{

refer = WeekdayNumber(refer);

referMinus1 = WeekdayNumber(referMinus1);

referMinus2 = WeekdayNumber(referMinus2);

}

if (refer != "")

{

if (isWeekday)

{

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

}

else

{

e.Graphics.DrawImage(_BitmapArrayDay[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;

if (isWeekday)

{

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

}

else

{

e.Graphics.DrawImage(_BitmapArrayDay[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;

if (isWeekday)

{

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

}

else

{

e.Graphics.DrawImage(_BitmapArrayDay[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.RowIndex == 2)

{

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 SetupCellPainting(object s, DataGridViewCellPaintingEventArgs e)

{

if (e.RowIndex == 0)

{

if (e.ColumnIndex < _StartMainColumn)

{

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

if (e.ColumnIndex >= _StartMainColumn)

{

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;

}

DrawMergeImage(s, e);

}

if (e.RowIndex == 1)

{

if (e.ColumnIndex < _StartMainColumn)

{

e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None;

}

if (e.ColumnIndex >= _StartMainColumn)

{

DrawMergeImage(s, e);

}

if (e.RowIndex == 2)

{

if (e.ColumnIndex >= _StartMainColumn)

{

DrawMergeImage(s, e, true);

}

if (e.RowIndex > 3)

{

if (e.ColumnIndex >= _StartMainColumn)

{

DrawBorder(s, e);

}

private void EditLabelTextOrDelete(object s, MouseEventArgs e)

{

var lb = (MyLabel)s;

if ((ModifierKeys & Keys.Control) == Keys.Control)

{

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

if (yesNo == DialogResult.Yes) lb.Dispose();

return;

}

var txt = new TextBox()

{

Font = DataGridView.Font,

Multiline = true,

Left = lb.Left,

Top = lb.Top,

Width = lb.Width,

Height = lb.Height,

Text = lb.Text,

};

lb.Visible = false;

Controls.Add(txt);

txt.BringToFront();

txt.Focus();

txt.LostFocus += (s1, e1) =>

{

lb.Text = txt.Text;

lb.Visible = true;

txt.Dispose();

};

}

private bool isBarDrag;

private Point startPoint;

private void LabelMouseDown(object s, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

isBarDrag = true;

Cursor.Current = Cursors.Hand;

startPoint.X = e.Location.X;

startPoint.Y = e.Location.Y;

}

if (e.Button == MouseButtons.Right)

{

isBarDrag = true;

Cursor.Current = Cursors.SizeWE;

startPoint.X = e.Location.X;

startPoint.Y = e.Location.Y;

}

private void LabelMouseUp(object s, MouseEventArgs e)

{

isBarDrag = false;

Cursor.Current = Cursors.Default;

if (e.Button == MouseButtons.Left)

{

DropBarLabel();

}

if (e.Button == MouseButtons.Right)

{

var diff = barLabel.Width % _DateColumnWidth;

if ( (_DateColumnWidth / 2) <= diff)

{

barLabel.Width = barLabel.Width - diff + _DateColumnWidth - 1;

}

else

{

barLabel.Width = barLabel.Width - diff - 1;

}

int x = barLabel.Location.X + barLabel.Width;

int y = barLabel.Location.Y;

// 座標系変換

x = x - DataGridView.Left;

y = y - DataGridView.Top;

var hitInfo = DataGridView.HitTest(x, y);

SetValueBarLabelEndSide(hitInfo);

}

private void SetValueBarLabelEndSide(DataGridView.HitTestInfo hitInfo)

{

if (hitInfo.ColumnIndex == -1) return;

// 追番

barLabel.endDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);

// 終了日

var tmp = hitInfo.ColumnIndex;

if (barLabel.endDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;

if (barLabel.endDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;

barLabel.endDay = Convert.ToString(DataGridView.Columns[tmp].Name);

//todo del

barLabel.Text = barLabel.endDay +

" / " + barLabel.endDayOrderNumber;

}

private void SetValueBarLabel(DataGridView.HitTestInfo hitInfo)

{

barLabel.rowIndex = hitInfo.RowIndex;

barLabel.columnIndex = hitInfo.ColumnIndex;

// ID

barLabel.ID = Convert.ToString(DataGridView.Rows[hitInfo.RowIndex].Cells["ID"].Value);

// 追番

barLabel.startDayOrderNumber = Convert.ToString(DataGridView.Rows[3].Cells[hitInfo.ColumnIndex].Value);

// 開始日

var tmp = hitInfo.ColumnIndex;

if (barLabel.startDayOrderNumber == "3") tmp = hitInfo.ColumnIndex - 2;

if (barLabel.startDayOrderNumber == "2") tmp = hitInfo.ColumnIndex - 1;

barLabel.startDay = Convert.ToString(DataGridView.Columns[tmp].Name);

//todo del

barLabel.Text = barLabel.ID +

" / " + barLabel.startDay +

" / " + barLabel.startDayOrderNumber;

}

List<MyLabel> ListMyLabel = new List<MyLabel>();

MyLabel barLabel;

DataGridViewCell targetCell;

private void LabelMouseMove(object s, MouseEventArgs e)

{

if (!isBarDrag) return;

barLabel = (MyLabel)s;

var rightBarLabel = barLabel.Left + barLabel.Width; // BarLabel右端

var rect = DataGridView.GetCellDisplayRectangle(GetMaxDisplayColumnIndex(),

DataGridView.FirstDisplayedScrollingRowIndex, true);

var rightDataGridView = DataGridView.Left + rect.X + rect.Width; // DataGridView右端

if (e.Button == MouseButtons.Left)

{

if (rightBarLabel < rightDataGridView)

{

var x = barLabel.Location.X + e.Location.X - startPoint.X;

var y = barLabel.Location.Y + e.Location.Y - startPoint.Y;

PointingCell(x, y); // Formの座標系

barLabel.Location = new Point(x, y);

}

else if (rightBarLabel >= rightDataGridView)

{

var diff = rightBarLabel - rightDataGridView;

PointingCell(barLabel.Location.X - diff, barLabel.Location.Y);

barLabel.Location = new Point(barLabel.Location.X - diff, barLabel.Location.Y);

isBarDrag = false;

Cursor.Current = Cursors.Default;

DropBarLabel();

}

if (e.Button == MouseButtons.Right)

{

if (barLabel.Width >= _DateColumnWidth - 1 && rightBarLabel < rightDataGridView)

{

barLabel.Width += (e.Location.X - startPoint.X);

startPoint.X = e.Location.X;

}

private void PointingCell(int x, int y)

{

// 座標系の変換

x = x - DataGridView.Left;

y = y - DataGridView.Top;

var hitInfo = DataGridView.HitTest(x, y + DataGridView.RowTemplate.Height / 2); // ここではDgvの座標系

if (hitInfo.ColumnIndex >= _StartMainColumn && hitInfo.RowIndex >= 4)

{

if (targetCell != null &&

targetCell != DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex])

{

targetCell.Style.BackColor = Color.White;

}

// アクティブなインスタンスを入れるのがLabelMouseMove()ではない理由は

// BackColorを戻す処理があるため

targetCell = DataGridView.Rows[hitInfo.RowIndex].Cells[hitInfo.ColumnIndex];

targetCell.Style.BackColor = Color.GreenYellow;

SetValueBarLabel(hitInfo);

}

private void DropBarLabel()

{

if (targetCell == null) return;

targetCell.Style.BackColor = Color.White;

var rect = DataGridView.GetCellDisplayRectangle(targetCell.ColumnIndex, targetCell.RowIndex, true);

// 座標系の変換

int x = rect.X + DataGridView.Left;

int y = rect.Y + DataGridView.Top;

BarTransparent(barLabel, x, y);

barLabel.Location = new Point(x, y);

}

private void BarTransparent(MyLabel bar, int x, int y)

{

var leftGap = x - DataGridView.Left;

var rightGap = (DataGridView.Left + DataGridView.Width) - (x + bar.Width);

var topGap = y - DataGridView.Top;

var bottomGap = DataGridView.Bottom - (y + bar.Height);

if (leftGap <= 5 || rightGap <= 5 || topGap <= 5 || bottomGap <= 5)

{

bar.Visible = false;

}

else if (leftGap > 5 && rightGap > 5 && topGap > 5 && bottomGap > 5)

{

bar.Visible = true;

}

private void AllBarLabelTransparent()

{

foreach (MyLabel bar in ListMyLabel)

{

var rect = DataGridView.GetCellDisplayRectangle(bar.columnIndex, bar.rowIndex, true);

// 座標系の変換

int x = rect.X + DataGridView.Left;

int y = rect.Y + DataGridView.Top;

BarTransparent(bar, x, y);

bar.Location = new Point(x, y);

}

private void DataGridViewHeaderLock()

{

if (DataGridView.Rows.Count >= 2)

{

DataGridView.Rows[0].Selected = false;

DataGridView.Rows[1].Selected = false;

}

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>();

string[] mainColumn = new string[] { "ID", "型式", "工番", "数量", "追番" };

foreach (var e in mainColumn)

{

listColumn.Add(new DataGridViewTextBoxColumn

{

Name = e,

HeaderText = ""

});

}

_StartMainColumn = mainColumn.Count();

while (startDay <= endDay) // 列作成

{

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

{

listColumn.Add(new DataGridViewTextBoxColumn

{

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

HeaderText = "",

Width = _DateColumnWidth

});

}

startDay = startDay.AddDays(1);

}

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

// ヘッダー追加

for (int i = 0; i < 4; i++)

{

DataGridView.Rows.Add("");

DataGridView.Rows[i].Height = _HeaderHeight;

}

int k = 1;

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

{

if (c < _StartMainColumn)

{

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

}

if (c >= _StartMainColumn)

{

DataGridView.Rows[3].Cells[c].Value = k++.ToString(); // 1,2,3

if (k == 4) k = 1;

if (DataGridView.Rows[3].Cells[c].Value.ToString() == "1")

{

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

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

DataGridView.Rows[2].Cells[c].Value = result.ToString("dddd"); // 曜日

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

{

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

}

SetupRowColumn();

DataLoad();

}

private void DataLoad()

{

DataGridView.RowTemplate.Height = 100;

//todo ダミー

DataGridView.Rows.Add("");

int id = 11;

for (int i = 4; i < DataGridView.Rows.Count; i++)

{

DataGridView.Rows[i].Cells["ID"].Value = id++.ToString();

}

private void SetupRowColumn()

{

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

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

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

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

DataGridView.Rows[3].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.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 MyLabel : Label

{

// 保存

public string ID;

public string yearMonth;

public string startDay;

public string startDayOrderNumber;

public string endDay;

public string endDayOrderNumber;

// スクロール

public int rowIndex;

public int columnIndex;

}

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; }

}

＊＊＊

中小の製造業で工程表・計画表ってなるとだいたいガントチャートに類するもので管理するのが定番で、PERTのようなものが出てくることは少ない。
さらに製品マスタ(BOM)も整っていないことが多く、生産計画も手動計算か良くても半自動程度という場合が多い。

生産計画については、内示もなく多品種少量を短納期で作っているので、そもそも計画なんてできないという理由もある。

製品マスタ(BOM)がなく、短納期対応で頻繁に調整が必要な工程表・計画表なら、わざわざ専用ソフトではなくてエクセル+VBAの方が楽ということもあるようで、実際、VBAで魔改造した工程表が便利で乗り換えられないという話もあった。

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