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

2020-08-202020-08-20

VBA ビット演算

各ビットごとの条件式(True/False)として考えるとわかりやすい。

And
左右がTrueでTrue

Or
左右いずれかTrueでTrue

Not
TrueならFalse、FalseならTrue

Xor
左右が違う場合True

VBAでは10進法のまま計算する。

2進法から10進法へは各フラグを下記の数値を足すだけ。
128,64,32,16,8,4,2,1

例えば、
10進法で3なら、00 00 00 11
10進法で6なら、00 00 01 10
なので、Andで計算すると2のフラグのみTrueとなる。

Sub TEST2()

Debug.Print 3 And 6 ' 2

End Sub

Sub TEST2()

Debug.Print 3 And 6 ' 2

End Sub

2,8のフラグを立たせたければ10とすればいい。

Sub TEST2()

f = 10

If f And 1 Then Debug.Print 1
If f And 2 Then Debug.Print 2
If f And 4 Then Debug.Print 4
If f And 8 Then Debug.Print 8
If f And 16 Then Debug.Print 16

' 2, 8

End Sub

Sub TEST2()

f = 10

If f And 1 Then Debug.Print 1

If f And 2 Then Debug.Print 2

If f And 4 Then Debug.Print 4

If f And 8 Then Debug.Print 8

If f And 16 Then Debug.Print 16

' 2, 8

End Sub

2020-08-202020-08-20

VBA 時刻計算で問題

時刻の処理を考えていて、1分ずつ加算するループを試してみたときのこと。

Sub TEST1()

s = TimeValue("2:00 PM")
e = TimeValue("3:15 PM")

t = 0
b = 0

Do While DateDiff("n", s, e) > 0

  If s >= TimeValue("3:00 PM") And s < TimeValue("3:15 PM") Then b = b + 1 '-15

  s = DateAdd("n", 1, s)
  t = t + 1
  
Loop

MsgBox b ' 14

' --------------------------------------------------------

s = TimeValue("2:50 PM")
e = TimeValue("3:15 PM")

t = 0
b = 0

Do While DateDiff("n", s, e) > 0

  If s >= TimeValue("3:00 PM") And s < TimeValue("3:15 PM") Then b = b + 1 '-15

  s = DateAdd("n", 1, s)
  t = t + 1
  
Loop

MsgBox b ' 15

End Sub

Sub TEST1()

s = TimeValue("2:00 PM")

e = TimeValue("3:15 PM")

t = 0

b = 0

Do While DateDiff("n", s, e) > 0

If s >= TimeValue("3:00 PM") And s < TimeValue("3:15 PM") Then b = b + 1 '-15

s = DateAdd("n", 1, s)

t = t + 1

Loop

MsgBox b ' 14

' --------------------------------------------------------

s = TimeValue("2:50 PM")

e = TimeValue("3:15 PM")

t = 0

b = 0

Do While DateDiff("n", s, e) > 0

If s >= TimeValue("3:00 PM") And s < TimeValue("3:15 PM") Then b = b + 1 '-15

s = DateAdd("n", 1, s)

t = t + 1

Loop

MsgBox b ' 15

End Sub

上と下ではスタート(s)の開始時刻が違うだけなのだが、3:00から3:15までというIFに対して上と下で判定が違って、bの値が同じにならない。

比較をDateDiffにすることで解決した。

Sub TEST1()

s = TimeValue("2:00 PM")
e = TimeValue("3:15 PM")

t = 0
b = 0

Do While DateDiff("n", s, e) > 0

  If 0 >= DateDiff("n", s, TimeValue("3:00 PM")) And 0 < DateDiff("n", s, TimeValue("3:15 PM")) Then ' 3:00 - 3:14
    b = b + 1 '-15
  End If
  
  s = DateAdd("n", 1, s)
  t = t + 1
  Debug.Print s & "  _  " & t & "  _  " & b
Loop

MsgBox b ' 15

' --------------------------------------------------------

s = TimeValue("2:50 PM")
e = TimeValue("3:15 PM")

t = 0
b = 0

Do While DateDiff("n", s, e) > 0

  If 0 >= DateDiff("n", s, TimeValue("3:00 PM")) And 0 < DateDiff("n", s, TimeValue("3:15 PM")) Then ' 3:00 - 3:14
    b = b + 1 '-15
  End If

  s = DateAdd("n", 1, s)
  t = t + 1
  
Loop

MsgBox b ' 15

End Sub

Sub TEST1()

s = TimeValue("2:00 PM")

e = TimeValue("3:15 PM")

t = 0

b = 0

Do While DateDiff("n", s, e) > 0

If 0 >= DateDiff("n", s, TimeValue("3:00 PM")) And 0 < DateDiff("n", s, TimeValue("3:15 PM")) Then ' 3:00 - 3:14

b = b + 1 '-15

End If

s = DateAdd("n", 1, s)

t = t + 1

Debug.Print s & " _ " & t & " _ " & b

Loop

MsgBox b ' 15

' --------------------------------------------------------

s = TimeValue("2:50 PM")

e = TimeValue("3:15 PM")

t = 0

b = 0

Do While DateDiff("n", s, e) > 0

If 0 >= DateDiff("n", s, TimeValue("3:00 PM")) And 0 < DateDiff("n", s, TimeValue("3:15 PM")) Then ' 3:00 - 3:14

b = b + 1 '-15

End If

s = DateAdd("n", 1, s)

t = t + 1

Loop

MsgBox b ' 15

End Sub

2020-08-122020-08-12

C# Event メモ

一般的にイベントハンドラーというのはイベント発生を待ち受けるイベントループに対して実際の処理の部分のこと。

EventHandler型というのは定義済みのデリゲート型のこと。EventHandler型の1つめの引数はObject型で2つめの引数がEventArgs型となる。

呼び出しは自身のクラスからのみ可能で、直接デリゲート型を公開せずに外部から登録/解除できる仕組み。

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

}

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            new ReceiverClass();
        }
    }

    public class TestEventArgs : EventArgs
    {
        public string Msg;
    }

    public class SenderClass // Sender(イベント発生側)
    {
        public event EventHandler<TestEventArgs> TestEvent;
       
        protected virtual void OnTestEvent(TestEventArgs e) 
        // protected virtual void OnXXXは慣例
        {
            TestEvent?.Invoke(this, e); 
            // TestEventを呼べるのはSenderClassのみなのでOnXXXが必要
        }

        public void Start()
        {
            var e = new TestEventArgs()
            {
                Msg = "Hello"
            };

            OnTestEvent(e);
        }
    }

    public class ReceiverClass // Receiver(イベント受取側)
    {
        public ReceiverClass()
        {
            var s = new SenderClass();
            s.TestEvent += SayHello; // Subscribe
            s.Start();
        }

        private void SayHello (object s, TestEventArgs e)
        {
            MessageBox.Show(e.Msg);
        }

    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

new ReceiverClass();

}

public class TestEventArgs : EventArgs

{

public string Msg;

}

public class SenderClass // Sender(イベント発生側)

{

public event EventHandler<TestEventArgs> TestEvent;

protected virtual void OnTestEvent(TestEventArgs e)

// protected virtual void OnXXXは慣例

{

TestEvent?.Invoke(this, e);

// TestEventを呼べるのはSenderClassのみなのでOnXXXが必要

}

public void Start()

{

var e = new TestEventArgs()

{

Msg = "Hello"

};

OnTestEvent(e);

}

public class ReceiverClass // Receiver(イベント受取側)

{

public ReceiverClass()

{

var s = new SenderClass();

s.TestEvent += SayHello; // Subscribe

s.Start();

}

private void SayHello (object s, TestEventArgs e)

{

MessageBox.Show(e.Msg);

}

2020-08-052020-08-12

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;

}

C#2.0からイテレータ構文が導入され簡単に実装できるようなった。

戻り値は、IEnumerableを返す必要がある。

yield returnは処理を継続、yield breakはそこで処理が終了する。

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

            foreach (var s in TestMethod())
            {
                MessageBox.Show(s);
            }
        }

        public IEnumerable<string> TestMethod()
        {
            yield return "Hello";
            yield return "World";
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

foreach (var s in TestMethod())

{

MessageBox.Show(s);

}

public IEnumerable<string> TestMethod()

{

yield return "Hello";

yield return "World";

}

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-11

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")

);

}

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-102023-03-08

ブログ用Excel/画像 OneDrive埋め込み設定

Excel

シート設定

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

埋め込み

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

・外観と操作

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

・大きさ

999と入力(700px×900px)

画像

ローカルOneDrive内
右クリック＞オンラインで表示＞埋め込み＞生成
HTMLタグを含めるにチェック。

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