テックメモ – 当ブログは自分用のメモです。昔のメモをそのまま移行しただけの記事もあり一部不正確な記述もあります。

2020-08-05

C# IEnumerable/IEnumerator メモ

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

            // IEnumerable
            // GetEnumerator()の返値はIEnumerator
            // 反復子が使える

            // IEnumerator
            // Current, MoveNext(), Reset()

            var test = new Test(new string[] { "a", "b", "c" });
            foreach (var t in test)
            {
                MessageBox.Show(t); // a, b, c
            }
        }
    }

    public class Test : IEnumerable<string>
    {
        private string[] stringList;

        public Test(string[] s)
        {
            stringList = s;
        }

        public IEnumerator<string> GetEnumerator()
        {
            return new MyEnumerator(stringList); 
            // こちらが呼ばれている
        }

        IEnumerator IEnumerable.GetEnumerator()
        {
            return this.GetEnumerator();
            // こちらは呼ばれない
            // IEnumerator<T>がIEnumeratorを継承しているため両方のGetEnumeratorが必要
        }
    }

    public class MyEnumerator: IEnumerator<string>
    {
        int p = -1;
        string[] stringList;

        public MyEnumerator(string[] s)
        {
            stringList = s;
        }

        string IEnumerator<string>.Current
        {
            get
            {
                return stringList[p];
            }
        }

        object IEnumerator.Current
        {
            get
            {
                return stringList[p];
            }
        }

        void IDisposable.Dispose()
        {

        }

        bool IEnumerator.MoveNext()
        {
            p++;
            if (p >= stringList.Length)
            {
                return false;
            }
            return true;
        }

        void IEnumerator.Reset()
        {
            p = -1;
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

// IEnumerable

// GetEnumerator()の返値はIEnumerator

// 反復子が使える

// IEnumerator

// Current, MoveNext(), Reset()

var test = new Test(new string[] { "a", "b", "c" });

foreach (var t in test)

{

MessageBox.Show(t); // a, b, c

}

public class Test : IEnumerable<string>

{

private string[] stringList;

public Test(string[] s)

{

stringList = s;

}

public IEnumerator<string> GetEnumerator()

{

return new MyEnumerator(stringList);

// こちらが呼ばれている

}

IEnumerator IEnumerable.GetEnumerator()

{

return this.GetEnumerator();

// こちらは呼ばれない

// IEnumerator<T>がIEnumeratorを継承しているため両方のGetEnumeratorが必要

}

public class MyEnumerator: IEnumerator<string>

{

int p = -1;

string[] stringList;

public MyEnumerator(string[] s)

{

stringList = s;

}

string IEnumerator<string>.Current

{

get

{

return stringList[p];

}

object IEnumerator.Current

{

get

{

return stringList[p];

}

void IDisposable.Dispose()

{

}

bool IEnumerator.MoveNext()

{

p++;

if (p >= stringList.Length)

{

return false;

}

return true;

}

void IEnumerator.Reset()

{

p = -1;

}

2020-08-04

C# 例外メモ

Try句の中では階層が深いところの例外でもキャッチできる。

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

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message); // 0で除算しようとしました。
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            new Test2();
        }
    }

    class  Test2
    {
        public Test2()
        {
            int i = 0;
            int ii = 1 / i;
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show(e.Message); // 0で除算しようとしました。

}

class Test

{

public void TestMethod()

{

new Test2();

}

class Test2

{

public Test2()

{

int i = 0;

int ii = 1 / i;

}

Try句自体が階層になっている場合は上位に通知されない。

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

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message); // ①
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            try
            {
                int i = 0;
                int ii = 1 / i;
            }
            catch (Exception e)
            {
                MessageBox.Show(e.Message); // ②
                // 0で除算しようとしました。
                // ①ではキャッチされない
            }
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show(e.Message); // ①

}

class Test

{

public void TestMethod()

{

try

{

int i = 0;

int ii = 1 / i;

}

catch (Exception e)

{

MessageBox.Show(e.Message); // ②

// 0で除算しようとしました。

// ①ではキャッチされない

}

上位に通知する場合はCatch句の中でThrowする。

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

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message); // 0で除算しようとしました。
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            try
            {
                int i = 0;
                int ii = 1 / i;
            }
            catch (Exception e)
            {
                MessageBox.Show(e.Message); // 0で除算しようとしました。
                
                throw; // これでメッセージが2度表示される

            }
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show(e.Message); // 0で除算しようとしました。

}

class Test

{

public void TestMethod()

{

try

{

int i = 0;

int ii = 1 / i;

}

catch (Exception e)

{

MessageBox.Show(e.Message); // 0で除算しようとしました。

throw; // これでメッセージが2度表示される

}

メッセージを持って上位に通知することもできる。①、②と表示される。

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

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show("②" + e.Message); // ②エラー
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            try
            {
                int i = 0;
                int ii = 1 / i;
            }
            catch (Exception e)
            {
                MessageBox.Show("①" + e.Message); // ①0で除算しようとしました。

                throw new Exception("エラー");
            }
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show("②" + e.Message); // ②エラー

}

class Test

{

public void TestMethod()

{

try

{

int i = 0;

int ii = 1 / i;

}

catch (Exception e)

{

MessageBox.Show("①" + e.Message); // ①0で除算しようとしました。

throw new Exception("エラー");

}

2020-08-032020-08-05

C# Delegate メモ

基本

    public partial class Form1 : Form
    {
        // 宣言
        // 戻値の型 デリゲート名 (引数)
        delegate int TestDelegate(string s);

        // デリゲートとメソッドは引数/返値が同じにする

        private int TestMethod (string msg)
        {
            return msg.Length;
        }

        public Form1()
        {
            InitializeComponent();

            // 生成
            // 引数にはメソッドを渡す
            TestDelegate td1 = new TestDelegate(TestMethod);
            // C#2.0からはnew不要(TestDelegate td2 = TestMethod)とも書ける

            // 実行
            System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3
        }
    }

public partial class Form1 : Form

{

// 宣言

// 戻値の型デリゲート名 (引数)

delegate int TestDelegate(string s);

// デリゲートとメソッドは引数/返値が同じにする

private int TestMethod (string msg)

{

return msg.Length;

}

public Form1()

{

InitializeComponent();

// 生成

// 引数にはメソッドを渡す

TestDelegate td1 = new TestDelegate(TestMethod);

// C#2.0からはnew不要(TestDelegate td2 = TestMethod)とも書ける

// 実行

System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3

}

複数代入できる(マルチキャスト)

    public partial class Form1 : Form
    {
        delegate void TestDelegate();

        private void TestMethod1 ()
        {
            System.Diagnostics.Debug.Print("hello");
        }
        private void TestMethod2 ()
        {
            System.Diagnostics.Debug.Print("world");
        }

        public Form1()
        {
            InitializeComponent();

            TestDelegate td = TestMethod1;
            td += TestMethod2;
            td(); // hello world

        }
    }

public partial class Form1 : Form

{

delegate void TestDelegate();

private void TestMethod1 ()

{

System.Diagnostics.Debug.Print("hello");

}

private void TestMethod2 ()

{

System.Diagnostics.Debug.Print("world");

}

public Form1()

{

InitializeComponent();

TestDelegate td = TestMethod1;

td += TestMethod2;

td(); // hello world

}

匿名関数(匿名メソッド・ラムダ式)

C#2.0から匿名メソッド、C#3.0ラムダ式

    public partial class Form1 : Form
    {
        delegate int TestDelegate(string x);

        public Form1()
        {
            InitializeComponent();

            // 匿名メソッド
            TestDelegate td1 = delegate (string x)
            {
                return x.Length;
            };

            System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3

            // ラムダ式
            TestDelegate td2 = (x) =>
            {
                return x.Length;
            };

            System.Diagnostics.Debug.Print(td1("hello").ToString()); // 5

        }
    }

public partial class Form1 : Form

{

delegate int TestDelegate(string x);

public Form1()

{

InitializeComponent();

// 匿名メソッド

TestDelegate td1 = delegate (string x)

{

return x.Length;

};

System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3

// ラムダ式

TestDelegate td2 = (x) =>

{

return x.Length;

};

System.Diagnostics.Debug.Print(td1("hello").ToString()); // 5

}

C#2.0でジェネリック(型パラーメータ)が導入。Action,Func(返値有)を使うとDelegateの定義も不要になる。
Action,Func等を定義済みデリゲートと呼ぶ。

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

            Func<string,int> td = delegate (string x)
            {
                return x.Length;
            };

            System.Diagnostics.Debug.Print(td("abc").ToString()); // 3
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

Func<string,int> td = delegate (string x)

{

return x.Length;

};

System.Diagnostics.Debug.Print(td("abc").ToString()); // 3

}

実用性はないけど、ラムダ式と定義済みデリゲートで即時実行もできる。

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

            // ラムダ式をFunc<string>にキャストして即時実行している
            MessageBox.Show(
            ((Func<string>)(() => { return "hello1"; }))()
            );
            
            // 引数をとることもできる。
            MessageBox.Show(
            ((Func<string,string>)((string x) => { return x; }))("hello2")
            );
            
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

// ラムダ式をFunc<string>にキャストして即時実行している

MessageBox.Show(

((Func<string>)(() => { return "hello1"; }))()

);

// 引数をとることもできる。

MessageBox.Show(

((Func<string,string>)((string x) => { return x; }))("hello2")

);

}

イベント

    public partial class Form1 : Form
    {
        // EventHandlerはデリゲート型
        
        public event EventHandler TestEvent1;
        // 引数はobjectとEventArgsの２つだが、2つ目を指定することもできる

        public event EventHandler<string> TestEvent2;
        //これだとobjectとstringが引数となる

        public Form1()
        {
            InitializeComponent();

            TestEvent2 = (s, e) => { MessageBox.Show(e); };
            TestEvent2(this, "hello");
        }
    }

public partial class Form1 : Form

{

// EventHandlerはデリゲート型

public event EventHandler TestEvent1;

// 引数はobjectとEventArgsの２つだが、2つ目を指定することもできる

public event EventHandler<string> TestEvent2;

//これだとobjectとstringが引数となる

public Form1()

{

InitializeComponent();

TestEvent2 = (s, e) => { MessageBox.Show(e); };

TestEvent2(this, "hello");

}

2020-06-012020-06-01

VBA 仕入台帳から注文書

台帳に入力された内容を注文書の雛形に書き込み、指定したブックに新しいシートとして複写する。レジストリにパスを保存することでブックを記憶することができる。

Sub OrderSheet()

'HKEY_CURRENT_USER\Software\VB and VBA Program Setting

On Error GoTo exception

If (Not ActiveWorkbook Is ThisWorkbook) Then
  MsgBox msg("仕入台帳で起動してください")
  Exit Sub
End If

If ThisWorkbook.ReadOnly = True Then
  If MsgBox("仕入台帳が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub
End If

tRow = Selection(1).Row
bRow = Selection(Selection.Count).Row

If (bRow - tRow) + 1 > 12 Then
  If MsgBox("選択範囲が12行を超えていますが続けますか？", vbYesNo) = vbNo Then Exit Sub
End If

orderBookPath = GetSetting("注文書", "パス", Application.UserName)

If orderBookPath <> "" Then
  isUseRegPath = MsgBox("記憶した保存先を使用しますか？", vbYesNo)
End If

If isUseRegPath = vbYes Then

  Workbooks.Open Filename:=orderBookPath
  orderBookName = ActiveWorkbook.Name
  
Else ' vbNo, Falseの場合

  orderBookPath = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx;*.xlsm")
  If orderBookPath = False Then Exit Sub
  
  SaveSetting "注文書", "パス", Application.UserName, orderBookPath
  
  Workbooks.Open Filename:=orderBookPath
  orderBookName = ActiveWorkbook.Name
  
End If

If Workbooks(orderBookName).ReadOnly = True Then
  If MsgBox("注文書の保存先が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub
End If

Set thissheet = ThisWorkbook.ActiveSheet

If StrConv(thissheet.Range("E" & tRow & "").Text, vbNarrow) Like "*ﾗｷﾞﾝｸﾞ*" Then
  If MsgBox("ラギング注文書を使用しますか？", vbYesNo) = vbYes Then
    ThisWorkbook.Sheets("ラギング注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)
  Else
    ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)
  End If
Else
  ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)
End If

Set targetSheet = Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count) '注文書の複写後に代入

targetSheet.Range("G9").Value = Application.UserName
targetSheet.Range("A4").Value = thissheet.Range("C" & tRow & "").Text & "　御中"
targetSheet.Range("G15").Value = Format(thissheet.Range("D" & tRow & "").Text, "yymmdd")

If thissheet.Range("D" & tRow & "").Text = "" Then
  targetSheet.Range("G15").Value = Format(Now, "yymmdd")
End If

targetRow = 18
For r = tRow To bRow

  targetSheet.Range("A" & targetRow & "").Value = thissheet.Range("E" & r & "").Value & " " & thissheet.Range("F" & r & "").Value & " " & thissheet.Range("G" & r & "").Value
  targetSheet.Range("B" & targetRow & "").Value = thissheet.Range("M" & r & "").Value
  targetSheet.Range("C" & targetRow & "").Value = thissheet.Range("K" & r & "").Value
  targetSheet.Range("D" & targetRow & "").Value = thissheet.Range("L" & r & "").Value
  
  If thissheet.Range("H" & r & "").Value <> "" Then
    targetSheet.Range("F" & targetRow & "").Value = thissheet.Range("H" & r & "").Value & "へ納品"
  End If
  
  targetSheet.Range("G" & targetRow & "").Value = thissheet.Range("I" & r & "").Value
  targetSheet.Range("H" & targetRow & "").Value = thissheet.Range("J" & r & "").Value
  
targetRow = targetRow + 1

Next r

If MsgBox("仕入台帳を保存しますか？", vbYesNo) = vbYes Then
  ThisWorkbook.Save
End If

If MsgBox("注文書を保存しますか？", vbYesNo) = vbYes Then
  Workbooks(orderBookName).Save
End If

Exit Sub

exception:

MsgBox Err.Description

End Sub

100

101

102

103

104

105

Sub OrderSheet()

'HKEY_CURRENT_USER\Software\VB and VBA Program Setting

On Error GoTo exception

If (Not ActiveWorkbook Is ThisWorkbook) Then

MsgBox msg("仕入台帳で起動してください")

Exit Sub

End If

If ThisWorkbook.ReadOnly = True Then

If MsgBox("仕入台帳が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub

End If

tRow = Selection(1).Row

bRow = Selection(Selection.Count).Row

If (bRow - tRow) + 1 > 12 Then

If MsgBox("選択範囲が12行を超えていますが続けますか？", vbYesNo) = vbNo Then Exit Sub

End If

orderBookPath = GetSetting("注文書", "パス", Application.UserName)

If orderBookPath <> "" Then

isUseRegPath = MsgBox("記憶した保存先を使用しますか？", vbYesNo)

End If

If isUseRegPath = vbYes Then

Workbooks.Open Filename:=orderBookPath

orderBookName = ActiveWorkbook.Name

Else ' vbNo, Falseの場合

orderBookPath = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx;*.xlsm")

If orderBookPath = False Then Exit Sub

SaveSetting "注文書", "パス", Application.UserName, orderBookPath

Workbooks.Open Filename:=orderBookPath

orderBookName = ActiveWorkbook.Name

End If

If Workbooks(orderBookName).ReadOnly = True Then

If MsgBox("注文書の保存先が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub

End If

Set thissheet = ThisWorkbook.ActiveSheet

If StrConv(thissheet.Range("E" & tRow & "").Text, vbNarrow) Like "*ﾗｷﾞﾝｸﾞ*" Then

If MsgBox("ラギング注文書を使用しますか？", vbYesNo) = vbYes Then

ThisWorkbook.Sheets("ラギング注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)

Else

ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)

End If

Else

ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)

End If

Set targetSheet = Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count) '注文書の複写後に代入

targetSheet.Range("G9").Value = Application.UserName

targetSheet.Range("A4").Value = thissheet.Range("C" & tRow & "").Text & "　御中"

targetSheet.Range("G15").Value = Format(thissheet.Range("D" & tRow & "").Text, "yymmdd")

If thissheet.Range("D" & tRow & "").Text = "" Then

targetSheet.Range("G15").Value = Format(Now, "yymmdd")

End If

targetRow = 18

For r = tRow To bRow

targetSheet.Range("A" & targetRow & "").Value = thissheet.Range("E" & r & "").Value & " " & thissheet.Range("F" & r & "").Value & " " & thissheet.Range("G" & r & "").Value

targetSheet.Range("B" & targetRow & "").Value = thissheet.Range("M" & r & "").Value

targetSheet.Range("C" & targetRow & "").Value = thissheet.Range("K" & r & "").Value

targetSheet.Range("D" & targetRow & "").Value = thissheet.Range("L" & r & "").Value

If thissheet.Range("H" & r & "").Value <> "" Then

targetSheet.Range("F" & targetRow & "").Value = thissheet.Range("H" & r & "").Value & "へ納品"

End If

targetSheet.Range("G" & targetRow & "").Value = thissheet.Range("I" & r & "").Value

targetSheet.Range("H" & targetRow & "").Value = thissheet.Range("J" & r & "").Value

targetRow = targetRow + 1

Next r

If MsgBox("仕入台帳を保存しますか？", vbYesNo) = vbYes Then

ThisWorkbook.Save

End If

If MsgBox("注文書を保存しますか？", vbYesNo) = vbYes Then

Workbooks(orderBookName).Save

End If

Exit Sub

exception:

MsgBox Err.Description

End Sub

2020-05-102020-05-11

エクセル埋め込み設定

時々エクセルをブログに埋め込んでいるのだけれど、設定が統一できていなかったので、今度は統一していこうかな。

シート設定

・シート名は1～
・行列の先頭の空白削除
・高さは13、幅は8と入力
・メイリオ, 9px
・左揃え、上下中央揃え
・ズームは100%
・スクロールは先頭
・内容はG列までに入力

埋め込み

ファイル＞共有＞埋め込み

・外観と操作

常にこのセルが選択された状態で開始するをA1に変更し、その他のチェックは全て外す。

・大きさ

999と入力(700px×900px)

2020-05-102020-05-12

SQL実験

SQL実験の投稿が過去にいくつかあったのでまとめた。特に関連性はなく投稿日順にそのまま表示しただけ。

“SQL実験” の続きを読む

2020-05-042020-05-04

Chrome拡張機能新規タブにデータを渡す

右クリックにメニューを表示し、クリックするとアクティブタブのタイトルとURLを新しいタブ(ローカルhtml)に渡すサンプル。

フォルダには下記4つのファイルとjquery-3.5.0.min.jsを入れてある。

manifest.json

{
	"manifest_version": 2,
	"name": "右クリック",
	"description": "",
	"version": "1.0",
	"background" : {
		"scripts" : ["background.js"]
	},
	"permissions" : ["contextMenus","tabs","storage"]
}

{

"manifest_version": 2,

"name": "右クリック",

"description": "",

"version": "1.0",

"background" : {

"scripts" : ["background.js"]

"permissions" : ["contextMenus","tabs","storage"]

}

background.js

chrome.contextMenus.create({
  "title" : "Bookmark",
  "type"  : "normal",
  "contexts" : ["page"],
  "onclick" : () => {
		chrome.tabs.getSelected((currentTab) => {
			let values = {
				'title':currentTab.title,
				'url':currentTab.url
			};
			chrome.storage.sync.set(values, null);
			chrome.tabs.create({url: "test.html"}, null);
		});
	}
});

chrome.contextMenus.create({

"title" : "Bookmark",

"type" : "normal",

"contexts" : ["page"],

"onclick" : () => {

chrome.tabs.getSelected((currentTab) => {

let values = {

'title':currentTab.title,

'url':currentTab.url

};

chrome.storage.sync.set(values, null);

chrome.tabs.create({url: "test.html"}, null);

});

}

});

test.html

<p id="msg"></p>
<script src="jquery-3.5.0.min.js"></script>
<script src="test.js"></script>

test.js

$(window).on('load',function(){
  chrome.storage.sync.get(['title', 'url'], (items) => {
    alert(items.title);
    $("#msg").text(items.url);
  });
});

$(window).on('load',function(){

chrome.storage.sync.get(['title', 'url'], (items) => {

alert(items.title);

$("#msg").text(items.url);

});

2020-05-01

VBA 仕入シートコピー・マスタチェック

以前利用していたVBA

Sub Cp()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each w In Sheets
    If w.Name = "集計" Then Sheets("集計").Delete
Next w
Sheets.Add Before:=Sheets(1)
ActiveSheet.Name = "集計"
For Each w In Worksheets
    If w.Name <> "集計" And w.Name <> "注文書" And w.Name <> "マスタ" Then
        If Sheets("集計").UsedRange.Rows.Count = 1 Then
            r = 1
        Else
            r = Sheets("集計").UsedRange.Rows.Count + 1
        End If
        w.UsedRange.Copy
        Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteValues
        Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
        w.UsedRange.ClearContents
    End If
Next w
c = 16 '材料/外注 = 19, 運送=16
k = 2
For i = 1 To Sheets("集計").UsedRange.Rows.Count
    Application.StatusBar = "重複削除中 ... " & i
    If Sheets("集計").Cells(k, c).Value = "" Or Sheets("集計").Cells(k, c).Value = 0 Or IsNumeric(Sheets("集計").Cells(k, c).Value) = False Then
        Sheets("集計").Rows(k).Delete
    Else
        k = k + 1
    End If
Next i
For Each w In Sheets
    If w.Name <> "集計" Then w.Delete
Next w
Application.StatusBar = False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
MsgBox "done"
End Sub

Sub Cp()

Application.ScreenUpdating = False

Application.EnableEvents = False

Application.Calculation = xlCalculationManual

For Each w In Sheets

If w.Name = "集計" Then Sheets("集計").Delete

Next w

Sheets.Add Before:=Sheets(1)

ActiveSheet.Name = "集計"

For Each w In Worksheets

If w.Name <> "集計" And w.Name <> "注文書" And w.Name <> "マスタ" Then

If Sheets("集計").UsedRange.Rows.Count = 1 Then

r = 1

Else

r = Sheets("集計").UsedRange.Rows.Count + 1

End If

w.UsedRange.Copy

Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteValues

Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteFormats

Application.CutCopyMode = False

w.UsedRange.ClearContents

End If

Next w

c = 16 '材料/外注 = 19, 運送=16

k = 2

For i = 1 To Sheets("集計").UsedRange.Rows.Count

Application.StatusBar = "重複削除中 ... " & i

If Sheets("集計").Cells(k, c).Value = "" Or Sheets("集計").Cells(k, c).Value = 0 Or IsNumeric(Sheets("集計").Cells(k, c).Value) = False Then

Sheets("集計").Rows(k).Delete

Else

k = k + 1

End If

Next i

For Each w In Sheets

If w.Name <> "集計" Then w.Delete

Next w

Application.StatusBar = False

Application.ScreenUpdating = True

Application.EnableEvents = True

Application.Calculation = xlCalculationAutomatic

MsgBox "done"

End Sub

Dim supRange As Range

Sub MainLoop()

' アクティブシートで動作するので注意

Call SetMasterRange

Set w = ActiveSheet

r = 3
Do While w.Cells(r, 2).Value <> ""

  If MasterLoop(w.Cells(r, 2).Value, w.Cells(r, 3).Value) = False Then
    MsgBox r & "行にエラーがあります。"
    Exit Sub
  End If

r = r + 1
Loop

End Sub

Sub SetMasterRange()

' 行末ハードコーディングしているので注意

Set w = Sheets("マスタ")
Set supRange = w.Range("B2:C121")

End Sub

Function MasterLoop(supCode, supName)

For r = 2 To supRange.Rows.Count

  If supRange.Cells(r, 3).Value = supName And supRange.Cells(r, 2).Value = supCode Then
    MasterLoop = True
    Exit Function
  End If
  
Next

MasterLoop = False

End Function

Dim supRange As Range

Sub MainLoop()

' アクティブシートで動作するので注意

Call SetMasterRange

Set w = ActiveSheet

r = 3

Do While w.Cells(r, 2).Value <> ""

If MasterLoop(w.Cells(r, 2).Value, w.Cells(r, 3).Value) = False Then

MsgBox r & "行にエラーがあります。"

Exit Sub

End If

r = r + 1

Loop

End Sub

Sub SetMasterRange()

' 行末ハードコーディングしているので注意

Set w = Sheets("マスタ")

Set supRange = w.Range("B2:C121")

End Sub

Function MasterLoop(supCode, supName)

For r = 2 To supRange.Rows.Count

If supRange.Cells(r, 3).Value = supName And supRange.Cells(r, 2).Value = supCode Then

MasterLoop = True

Exit Function

End If

MasterLoop = False

End Function

2020-04-282020-04-30

WordPress 更新順ウィジット作成

WordPress カスタマイズ

以前は最新投稿ウィジットを更新順に並び替えるカスタマイズをしていたが、バージョンアップの時にもとに戻ってしまうので専用で作成することにした。

wp-includes/widgets/class-wp-widget-modified-posts.php
を作成する。

以下は手動で記入する。

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {
  register_widget( 'modified_widget' );
}

class modified_widget extends WP_Widget {

  function __construct() {
    $widget_ops = array(
      'classname' => 'modified_widget_class',
      'description' => ''
    );
    parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );
	}

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {

register_widget( 'modified_widget' );

}

class modified_widget extends WP_Widget {

function __construct() {

$widget_ops = array(

'classname' => 'modified_widget_class',

'description' => ''

);

parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );

}

残りの部分は、
wp-includes/widgets/class-wp-widget-recent-posts.php
からwidget,update,formをそのままコピーし、
以下の通り変更。

$r = new WP_Query()
の中にある配列に以下を追加する。
‘orderby’=>’modified’

<span class=”post-date”>
<?php echo get_the_date( ”, $recent_post->ID ); ?>
</span>
を
<span class=”post-date”><br>
更新：<?php echo get_the_modified_date(‘Y-m-d’,$recent_post->ID); ?>
 / 
投稿：<?php echo get_the_date(‘Y-m-d’,$recent_post->ID); ?>
</span>
に変更。

<?php

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {
  register_widget( 'modified_widget' );
}

class modified_widget extends WP_Widget {

  function __construct() {
    $widget_ops = array(
      'classname' => 'modified_widget_class',
      'description' => ''
    );
    parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );
	}
	
	public function widget( $args, $instance ) {

		if ( ! isset( $args['widget_id'] ) ) {
			$args['widget_id'] = $this->id;
		}

		$title = ( ! empty( $instance['title'] ) ) ? $instance['title'] : __( 'Recent Posts' );
		$title = apply_filters( 'widget_title', $title, $instance, $this->id_base );

		$number = ( ! empty( $instance['number'] ) ) ? absint( $instance['number'] ) : 5;
		if ( ! $number ) {
			$number = 5;
		}
		$show_date = isset( $instance['show_date'] ) ? $instance['show_date'] : false;

		$r = new WP_Query(

			apply_filters(
				'widget_posts_args',
				array(
					'posts_per_page'      => $number,
					'no_found_rows'       => true,
					'post_status'         => 'publish',
					'ignore_sticky_posts' => true,
					'orderby'             => 'modified',
				),
				$instance
			)
		);

		if ( ! $r->have_posts() ) {
			return;
		}

		?>
		<?php echo $args['before_widget']; ?>
		<?php
		if ( $title ) {
			echo $args['before_title'] . $title . $args['after_title'];
		}
		?>
		<ul>
			<?php foreach ( $r->posts as $recent_post ) : ?>
				<?php
				$post_title   = get_the_title( $recent_post->ID );
				$title        = ( ! empty( $post_title ) ) ? $post_title : __( '(no title)' );
				$aria_current = '';

				if ( get_queried_object_id() === $recent_post->ID ) {
					$aria_current = ' aria-current="page"';
				}
				?>

				<li>
					<a href="<?php the_permalink( $recent_post->ID ); ?>"<?php echo $aria_current; ?>><?php echo $title; ?></a>
					<?php if ( $show_date ) : ?>
						<span class="post-date"><br>
						更新：<?php echo get_the_modified_date('Y-m-d',$recent_post->ID); ?>
						&nbsp;&#047;&nbsp;
						投稿：<?php echo get_the_date('Y-m-d',$recent_post->ID); ?>
						</span>
					<?php endif; ?>
				</li>
			<?php endforeach; ?>
		</ul>
		<?php
		echo $args['after_widget'];
	}

	public function update( $new_instance, $old_instance ) {
		$instance              = $old_instance;
		$instance['title']     = sanitize_text_field( $new_instance['title'] );
		$instance['number']    = (int) $new_instance['number'];
		$instance['show_date'] = isset( $new_instance['show_date'] ) ? (bool) $new_instance['show_date'] : false;
		return $instance;
	}

	public function form( $instance ) {

		$title     = isset( $instance['title'] ) ? esc_attr( $instance['title'] ) : '';
		$number    = isset( $instance['number'] ) ? absint( $instance['number'] ) : 5;
		$show_date = isset( $instance['show_date'] ) ? (bool) $instance['show_date'] : false;

		?>
		<p><label for="<?php echo $this->get_field_id( 'title' ); ?>"><?php _e( 'Title:' ); ?></label>
		<input class="widefat" id="<?php echo $this->get_field_id( 'title' ); ?>" name="<?php echo $this->get_field_name( 'title' ); ?>" type="text" value="<?php echo $title; ?>" /></p>

		<p><label for="<?php echo $this->get_field_id( 'number' ); ?>"><?php _e( 'Number of posts to show:' ); ?></label>
		<input class="tiny-text" id="<?php echo $this->get_field_id( 'number' ); ?>" name="<?php echo $this->get_field_name( 'number' ); ?>" type="number" step="1" min="1" value="<?php echo $number; ?>" size="3" /></p>

		<p><input class="checkbox" type="checkbox"<?php checked( $show_date ); ?> id="<?php echo $this->get_field_id( 'show_date' ); ?>" name="<?php echo $this->get_field_name( 'show_date' ); ?>" />
		<label for="<?php echo $this->get_field_id( 'show_date' ); ?>"><?php _e( 'Display post date?' ); ?></label></p>
		<?php

	}
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

<?php

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {

register_widget( 'modified_widget' );

}

class modified_widget extends WP_Widget {

function __construct() {

$widget_ops = array(

'classname' => 'modified_widget_class',

'description' => ''

);

parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );

}

public function widget( $args, $instance ) {

if ( ! isset( $args['widget_id'] ) ) {

$args['widget_id'] = $this->id;

}

$title = ( ! empty( $instance['title'] ) ) ? $instance['title'] : __( 'Recent Posts' );

$title = apply_filters( 'widget_title', $title, $instance, $this->id_base );

$number = ( ! empty( $instance['number'] ) ) ? absint( $instance['number'] ) : 5;

if ( ! $number ) {

$number = 5;

}

$show_date = isset( $instance['show_date'] ) ? $instance['show_date'] : false;

$r = new WP_Query(

apply_filters(

'widget_posts_args',

array(

'posts_per_page' => $number,

'no_found_rows' => true,

'post_status' => 'publish',

'ignore_sticky_posts' => true,

'orderby' => 'modified',

$instance

)

);

if ( ! $r->have_posts() ) {

return;

}

<?php echo $args['before_widget']; ?>

<?php

if ( $title ) {

echo $args['before_title'] . $title . $args['after_title'];

}

<ul>

<?php foreach ( $r->posts as $recent_post ) : ?>

<?php

$post_title = get_the_title( $recent_post->ID );

$title = ( ! empty( $post_title ) ) ? $post_title : __( '(no title)' );

$aria_current = '';

if ( get_queried_object_id() === $recent_post->ID ) {

$aria_current = ' aria-current="page"';

}

<li>

<?php if ( $show_date ) : ?>

更新：<?php echo get_the_modified_date('Y-m-d',$recent_post->ID); ?>

投稿：<?php echo get_the_date('Y-m-d',$recent_post->ID); ?>

</span>

<?php endif; ?>

</li>

<?php endforeach; ?>

</ul>

<?php

echo $args['after_widget'];

}

public function update( $new_instance, $old_instance ) {

$instance = $old_instance;

$instance['title'] = sanitize_text_field( $new_instance['title'] );

$instance['number'] = (int) $new_instance['number'];

$instance['show_date'] = isset( $new_instance['show_date'] ) ? (bool) $new_instance['show_date'] : false;

return $instance;

}

public function form( $instance ) {

$title = isset( $instance['title'] ) ? esc_attr( $instance['title'] ) : '';

$number = isset( $instance['number'] ) ? absint( $instance['number'] ) : 5;

$show_date = isset( $instance['show_date'] ) ? (bool) $instance['show_date'] : false;

<p><label for="<?php echo $this->get_field_id( 'title' ); ?>"><?php _e( 'Title:' ); ?></label>

<input class="widefat" id="<?php echo $this->get_field_id( 'title' ); ?>" name="<?php echo $this->get_field_name( 'title' ); ?>" type="text" value="<?php echo $title; ?>" /></p>

<p><label for="<?php echo $this->get_field_id( 'number' ); ?>"><?php _e( 'Number of posts to show:' ); ?></label>

<input class="tiny-text" id="<?php echo $this->get_field_id( 'number' ); ?>" name="<?php echo $this->get_field_name( 'number' ); ?>" type="number" step="1" min="1" value="<?php echo $number; ?>" size="3" /></p>

<p><input class="checkbox" type="checkbox"<?php checked( $show_date ); ?> id="<?php echo $this->get_field_id( 'show_date' ); ?>" name="<?php echo $this->get_field_name( 'show_date' ); ?>" />

<label for="<?php echo $this->get_field_id( 'show_date' ); ?>"><?php _e( 'Display post date?' ); ?></label></p>

<?php

}

＊＊＊

有効化について

wp-includes/default-widgets.php
に以下を追加。
require_once ABSPATH . WPINC . ‘/widgets/class-wp-widget-modified-posts.php’;

あるいは以下の方法。

wp-content/plugins
の中に
modified-posts.php
を作成し以下を記入。

<?php

//Plugin Name: Modified Posts

require_once ABSPATH . WPINC . '/widgets/class-wp-widget-modified-posts.php';

<?php

//Plugin Name: Modified Posts

require_once ABSPATH . WPINC . '/widgets/class-wp-widget-modified-posts.php';

そうすると、
管理画面＞プラグイン
にModified Postsと表示されるので有効化する。

2020-04-272020-05-10