c#

要メンテ

Q

c#でWindows Formアプリを作成しています。 Ctrl+ Shift+ マウスホイールスクロールで、panelを水平スクロールしたいです。 どうしたらよいですか？

A

Panelコントロールの水平スクロールをマウスホイール操作で行いたい場合、マウスホイールイベントのカスタムハンドラを作成することで実現できます。

まず、新しいMouseEventHandlerを作成し、それをPanelのMouseWheelイベントに接続します。次に、MouseEventArgsのDeltaプロパティを使ってスクロール量を計算し、PanelのHorizontalScrollプロパティを操作します。

以下に具体的なコードを示します。なお、Ctrl+Shiftキーが同時に押されていることを確認するために、Control.ModifierKeysプロパティも使用しています。

public Form1()
{
    InitializeComponent();

    // MouseWheelイベントにカスタムハンドラを接続
    panel1.MouseWheel += new MouseEventHandler(panel1_MouseWheel);
}

private void panel1_MouseWheel(object sender, MouseEventArgs e)
{
    // Ctrl+Shiftが同時に押されているか確認
    if (Control.ModifierKeys == (Keys.Control | Keys.Shift))
    {
        // e.Deltaは通常、-120か120です（ユーザーが下にスクロールすると-120、上にスクロールすると120）
        // そのため、ここではスクロール方向を反転し、適切なスクロール量を得るために120で割っています
        int newScrollValue = panel1.HorizontalScroll.Value + e.Delta / 120;

        // スクロール値が0未満にならないように、最小値を0に設定
        newScrollValue = Math.Max(0, newScrollValue);

        // スクロール値が最大値を超えないように、最大値を設定
        newScrollValue = Math.Min(newScrollValue, panel1.HorizontalScroll.Maximum);

        // 新しいスクロール値を設定
        panel1.HorizontalScroll.Value = newScrollValue;

        // イベントが親コントロールにバブルアップするのを防ぐ
        ((HandledMouseEventArgs)e).Handled = true;
    }
}

Q

Formで表をつくったら、デフォルトの挙動でCtrl + マウスホイールで水平スクロールされました。 これをCtrl Shift Scrollに上書きできますか？

A

マウスのホイール操作とキーボードの修飾キー（CtrlやShift）との組み合わせでスクロール動作を変更したい場合、PanelコントロールのMouseWheelイベントを扱うカスタムハンドラを作成することができます。具体的には、Control.ModifierKeysプロパティを使用して特定のキーが押されているかどうかを判断し、それに応じてスクロール操作を行います。

以下に、Ctrl+Shiftとマウスホイールの組み合わせで水平スクロールする例を示します：

public Form1()
{
    InitializeComponent();

    // MouseWheelイベントにカスタムハンドラを接続
    panel1.MouseWheel += new MouseEventHandler(panel1_MouseWheel);
}

private void panel1_MouseWheel(object sender, MouseEventArgs e)
{
    // Ctrl+Shiftが同時に押されているか確認
    if (Control.ModifierKeys == (Keys.Control | Keys.Shift))
    {
        // e.Deltaは通常、-120か120です（ユーザーが下にスクロールすると-120、上にスクロールすると120）
        // そのため、ここではスクロール方向を反転し、適切なスクロール量を得るために120で割っています
        int newScrollValue = panel1.HorizontalScroll.Value + e.Delta / 120;

        // スクロール値が0未満にならないように、最小値を0に設定
        newScrollValue = Math.Max(0, newScrollValue);

        // スクロール値が最大値を超えないように、最大値を設定
        newScrollValue = Math.Min(newScrollValue, panel1.HorizontalScroll.Maximum);

        // 新しいスクロール値を設定
        panel1.HorizontalScroll.Value = newScrollValue;

        // イベントが親コントロールにバブルアップするのを防ぐ
        ((HandledMouseEventArgs)e).Handled = true;
    }
    else if(Control.ModifierKeys == (Keys.Control))
    {
        // Ctrlが押されている場合、イベントを無視
        ((HandledMouseEventArgs)e).Handled = true;
    }
}

「イベントが親コントロールにバブルアップする」について説明します。

Windows Formsでは、コントロールが階層的に配置されている場合、特定のイベントは「バブルアップ」または「伝播」します。これは、子コントロールでイベントが処理されず、そのイベントが親コントロールまで伝わるというプロセスを指します。

たとえば、ネストされたPanelコントロール（つまり、他のPanelコントロールの内部にあるPanel）があるとします。この内部のPanelでMouseWheelイベントが発生した場合、そのイベントはまずそのPanelに伝わります。しかし、そのPanelでイベントが処理（Handled）されなかった場合、そのイベントは外側のPanelに「バブルアップ」します。これが続き、最終的にはFormレベルまでイベントが伝播します。

このバブルアップの挙動を制御するために、HandledMouseEventArgsクラスのHandledプロパティが提供されています。このプロパティがtrueに設定されると、そのイベントは「処理済み（Handled）」とみなされ、それ以上バブルアップしないようになります。

したがって、コードのこの部分：

((HandledMouseEventArgs)e).Handled = true;

は、「このイベントはすでに処理済みであるため、それ以上バブルアップさせない」という意味を持ちます。この結果、イベントが上位のコントロール（親コントロール）に伝播するのを防ぎ、予期せぬ動作を避けることができます。

Q

表などのテキストが小さいので大きくしたいという要望がありました。 フォントのサイズを大きくするにはどうしたらよいですか？

A

フォームや特定のコントロール（テキストボックス、ラベル、ボタンなど）のフォントサイズを変更するには、Fontプロパティを使用します。

たとえば、Form全体のフォントサイズを変更するには以下のようにします：

this.Font = new Font(this.Font.FontFamily, 20);  // FontFamilyは同じままで、サイズを20に変更

特定のコントロール（ここではtextBox1）のフォントサイズを変更するには：

textBox1.Font = new Font(textBox1.Font.FontFamily, 20);  // FontFamilyは同じままで、サイズを20に変更

また、DataGridView（表）のフォントサイズを変更するには：

dataGridView1.DefaultCellStyle.Font = new Font("Arial", 20);

この例では、Fontクラスの新しいインスタンスを作成し、そのインスタンスを対象のコントロールのFontプロパティに設定しています。Fontクラスのコンストラクタは、フォント名（FontFamily）とフォントサイズを引数として受け取ります。フォント名は既存のものをそのまま使用し（this.Font.FontFamilyやtextBox1.Font.FontFamily）、フォントサイズのみを新たに指定しています。

これにより、対象のコントロールのテキストが指定したサイズで表示されるようになります。

this.Font = new Font(this.Font.FontFamily, 20);  // FontFamilyは同じままで、サイズを20に変更

このコードは通常、フォームがロードされるときに実行したいので、フォームの Load イベントハンドラに追加することが一般的です。

フォームのデザイナビューで、フォームを右クリックし、「プロパティ」ウィンドウを開いてください。そのウィンドウで「イベント」タブ（通常は稲妻のアイコン）をクリックし、「Load」イベントを探します。その隣の空欄をダブルクリックすると、イベントハンドラのスケルトンコードが自動的に作成され、コードビューが開きます。この Load イベントハンドラ内に、以下のコードを追加します：

private void Form1_Load(object sender, EventArgs e)
{
    this.Font = new Font(this.Font.FontFamily, 20);  // FontFamilyは同じままで、サイズを20に変更
}

これにより、フォームがロードされるときにフォントサイズが変更されます。

ただし、フォーム内に配置した各コントロール（テキストボックス、ラベル、ボタンなど）が個別にFontプロパティを設定している場合、それらのコントロールのフォントサイズはフォームのフォントサイズ設定の影響を受けません。その場合、各コントロールに対して個別にFontプロパティを設定する必要があります。

AtCoder入門 3-3

AtCoder入門

ABC

問題リンク↓

回答

回答リンク↓

振り返り

ABC 220 b

問題リンク↓
B - Base K

回答

回答リンク↓
Submission #41598161 - AtCoder Beginner Contest 220

振り返り

  • 答えをint型でやってたら最初 WA がでた
  • 10 ^9 以上になりうるならば long long 型にするのが良さそう。

ABC 090 b

問題リンク↓
B - Palindromic Numbers

回答

回答リンク↓

Submission #41597002 - AtCoder Beginner Contest 090

振り返り

  • エディタに考えを書きながらコーディングしてみた。
  • 結構いい感じかもなので続けてみる。
  • string型久しぶりに扱って忘れてたけど、ぱぱっと調べながらできてよかった。
    • 文字列長取得できるよね？とか、配列的にアクセスできるよね？とからへんは覚えてたのはよかった。

ABC 068 b

B - Break Number

回答

Submission #41596543 - AtCoder Beginner Contest 068

振り返り

  • 特になし。

ABC 093 B B - Small and Large Integers

回答

Submission #41528487 - AtCoder Beginner Contest 093

振り返り

  • もっと瞬殺で解ける様になりたい
  • 頭の中だけで考えると全然考えがまとまらないので、今わかっている範囲で良いので、まずは書き出して行くことが大事だと思う。
  • いきなり最適解を出す必要はなくて、分かっている条件とかパターンをつらつらと書き出していって、書き出したあと、まとめれるところまとめてきれいにすれば良いんだと思う。

ABC 208 B B - Factorial Yen Coin

回答

Submission #41501940 - AtCoder Beginner Contest 208

振り返り

  • 急に難易度高くない？
  • 少し時間かかったが、答えみずにとけた。
  • vectorの使い方とか忘れていた。添字で一個ミスってた。よくありがち。
  • 解説見ると難しいこと書いてあった。あとでよむと良いかも。

ABC 164 B - B - Battle

回答

Submission #41480333 - AtCoder Beginner Contest 164

振り返り

  • とくに振り返ることなし。

ABC 200 B - B - 200th ABC-200

回答

Submission #41464806 - KYOCERA Programming Contest 2021（AtCoder Beginner Contest 200）

振り返り

  • なんなく正解できた。
  • もっとも大きい答えの場合のデータサイズの見積もりについては、あまり考慮できていない。
  • とりあえず long longでやっときゃいけるやろ。とざっくり解いてしまっている。

ABC162 B - FizzBuzzSum

  • ansの型をどうすれば良いのかわからなくてchatgptに質問した
  • 結果、long long型にすればOKだった。
  • はじめはdouble型にしていたが、倍精度浮動小数点になるので、2.66666e+11 とか出力されて駄目だった。
  • longlong型は64bit整数型なので、答えは絶対整数になるはずだし、それでOKだった。

ABC206 B - Savings

問題

B - Savings

回答

Submission #41273909 - AtCoder Beginner Contest 206（Sponsored by Panasonic）

振り返り

  • どの型だったら答えの値の最大値でも耐えうるかわからんかったのでとりあえずlong long型とした
  • long long型の最大値はLONG_LONG_MAXでいけた。
  • 問題自体は独力で解けた。

ABC165 B - 1%

問題

B - 1%

回答

Submission #41310512 - AtCoder Beginner Contest 165

振り返り

  • 正解できず。
  • ans = ans * 1.01; はNG
  • ans = ans + ans /100; はOK
  • その違いは、小数点以下切り捨てるかどうか
  • ChatGPTさんいわく下記

これらの2つのコードの主な違いは、入力値xに到達するまでansを増加させる方法にあります。

  • コード1では、ansはその値の1%を加算することで増加します（ans = ans + ans / 100;）。この方法は整数算術を使用していて、ans / 100が整数除算であるため、小数点以下の値は切り捨てられます。したがって、この方法ではansの増加はかなり遅くなります。

  • コード2では、ansはその値を1.01倍することで増加します（ans = ans * 1.01;）。これは浮動小数点数算術を使用しており、ansの増加はより速くなります。

したがって、入力値xが非常に大きい場合（例えば、あなたが提供したような974755271730884810）、コード1はコード2よりもはるかに多くのループを必要とします。これは、コード1がansの増加を整数算術で計算するため、小数点以下の値が切り捨てられ、増加が遅くなるためです。

  • ans * 101 / 100;はNGだった。大きくなりすぎるのか？
  • 少数切り捨てというところを正しく汲み取る必要がある。
  • 1.01で割った瞬間、浮動小数点演算になってしまうので、少数切り捨てじゃなくなっちゃうらしい
  • 丸め誤差が発生しちゃうよ。ということらしい

AtCoder入門 3-2

AtCoder入門

結果

033 - Not Too Bright（★2）

これ以外は解けた

振り返り

  • まだ初級のところなので解けるが、典型90問のやつは駄目だった。
  • 10minぐらい考えた?が解ける気がしない。
  • 場合分け考えるときに偶数、奇数の場合分けしてみればいけるのでは？
    • みたいな発想がない。
  • 1列のときはどうなるんだろう？みたいな境界値について検討する発想がない。
    • 発想があったとして、1列のときどうなるか、問題からは読み取れなくね？

  • 典型の問題はtwitterにも解説が投稿されているっぽい。

  • 問題文には下記文言がある。

    • イルミネーション全体に完全に含まれる 縦 2 × 横 2 の、4 つの LED を含む領域であって、点灯している LED が領域内に 2 つ以上あるものが存在する。
  • 1行のときはここでいう 4つのLEDを含む領域であって というところに該当しないのでOKということっぽい。
  • あと割り算、切り上げのときは＋1して除算する。っていうのはなるほどなって感じ。
    • 毎回 if文で分けてたので、今度からそれでやってみよう。

その他の感想

  • 継続し易い構成になっている本だと思うので、ちびちびやっていきたい。
  • 2周目やるときに、成長知ている感をエられれば嬉しいなぁ。
  • んでもってまずは茶色になりたい

VBA

VBA

ChatGPTとの会話ログ。あとで精査

前提

下記のエクセルの表があります。

Excel表

MCompGrp
| ID    | GName | Code       |
| ----- | ----- | ---------- |
| Head  | 本社  | 〒xxx-xxxx |
| Tokyo | 東京  | 〒yyy-yyyy |

実施したいこと

このエクセルシートを読み込んでXMLを出力VBAマクロを作成したいです。 上記の表の場合出力したいXMLは下記です。

<MCompGrp>      
    <CompGrp>  
        <ID>Head</ID>
        <GName>ソリューション</GName>
        <Code>〒xxx-xxxx</Code>
    </CompGrp> 
    <CompGrp>  
        <ID>Tokyo</ID>
        <GName>東京</GName>
        <Code>〒yyy-yyyy</Code>
    </CompGrp> 
</MCompGrp>

どの様にVBAコードを書けばいいですか？

ANS

以下に、指定されたエクセル表からXMLを出力するVBAマクロのコード例を示します。

Sub ExportToXML()

    Dim ws As Worksheet
    Dim xml As String
    Dim i As Long
    Dim lastRow As Long
    
    ' シート "MCompGrp" を選択
    Set ws = ThisWorkbook.Sheets("MCompGrp")
    
    ' 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' XMLのヘッダー
    xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
    xml = xml & "<MCompGrp>" & vbCrLf
    
    ' 表のデータをXML形式に変換
    For i = 2 To lastRow
        xml = xml & vbTab & "<CompGrp>" & vbCrLf
        xml = xml & vbTab & vbTab & "<ID>" & ws.Cells(i, 1).Value & "</ID>" & vbCrLf
        xml = xml & vbTab & vbTab & "<GName>" & ws.Cells(i, 2).Value & "</GName>" & vbCrLf
        xml = xml & vbTab & vbTab & "<Code>" & ws.Cells(i, 3).Value & "</Code>" & vbCrLf
        xml = xml & vbTab & "</CompGrp>" & vbCrLf
    Next i
    
    ' XMLのフッター
    xml = xml & "</MCompGrp>" & vbCrLf
    
    ' XMLをファイルに出力
    Dim fileName As String
    Dim fso As Object
    Dim outputFile As Object
    
    fileName = ThisWorkbook.Path & "\output.xml"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set outputFile = fso.CreateTextFile(fileName, True, True)
    
    outputFile.Write xml
    outputFile.Close
    
    MsgBox "XMLファイルが出力されました。"

End Sub

このコードは、以下の手順で動作します。

  • "MCompGrp" シートを選択し、最終行を取得します。
  • XMLのヘッダー部分を作成します。
  • 表のデータを読み取り、XML形式に変換します。
  • XMLのフッター部分を作成します。
  • 変換したXMLをファイルに出力します。
  • このマクロを実行すると、エクセルファイルと同じディレクトリに "output.xml" という名前のXMLファイルが生成されます。

Q

VBAマクロは表があるシートのExcel Object上に作成する予定です。 その場合はシートの選択は不要でしょうか？

A

Sub ExportToXML()

    Dim xml As String
    Dim i As Long
    Dim lastRow As Long
    
    ' 最終行を取得
    lastRow = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row
    
    ' XMLのヘッダー
    xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
    xml = xml & "<MCompGrp>" & vbCrLf
    
    ' 表のデータをXML形式に変換
    For i = 2 To lastRow
        xml = xml & vbTab & "<CompGrp>" & vbCrLf
        xml = xml & vbTab & vbTab & "<ID>" & Me.Cells(i, 1).Value & "</ID>" & vbCrLf
        xml = xml & vbTab & vbTab & "<GName>" & Me.Cells(i, 2).Value & "</GName>" & vbCrLf
        xml = xml & vbTab & vbTab & "<Code>" & Me.Cells(i, 3).Value & "</Code>" & vbCrLf
        xml = xml & vbTab & "</CompGrp>" & vbCrLf
    Next i
    
    ' XMLのフッター
    xml = xml & "</MCompGrp>" & vbCrLf
    
    ' XMLをファイルに出力
    Dim fileName As String
    Dim fso As Object
    Dim outputFile As Object
    
    fileName = ThisWorkbook.Path & "\output.xml"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set outputFile = fso.CreateTextFile(fileName, True, True)
    
    outputFile.Write xml
    outputFile.Close
    
    MsgBox "XMLファイルが出力されました。"

End Sub

このコードは、上記のコード例と同じように動作しますが、シート選択部分が Me キーワードを使用している点が異なります。これにより、マクロが配置されているシートに直接アクセスできます。

Q

エクセルのテーブル機能を使って、表にはテーブル名として「MCompGrp」と設定する予定です。 その場合、表から値を取得する方法は変わりますか？

A

Sub ExportToXML()

    Dim tbl As ListObject
    Dim xml As String
    Dim i As Long
    
    ' テーブル "MCompGrp" を選択
    Set tbl = Me.ListObjects("MCompGrp")
    
    ' XMLのヘッダー
    xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
    xml = xml & "<MCompGrp>" & vbCrLf
    
    ' 表のデータをXML形式に変換
    For i = 1 To tbl.ListRows.Count
        xml = xml & vbTab & "<CompGrp>" & vbCrLf
        xml = xml & vbTab & vbTab & "<ID>" & tbl.DataBodyRange(i, 1).Value & "</ID>" & vbCrLf
        xml = xml & vbTab & vbTab & "<GName>" & tbl.DataBodyRange(i, 2).Value & "</GName>" & vbCrLf
        xml = xml & vbTab & vbTab & "<Code>" & tbl.DataBodyRange(i, 3).Value & "</Code>" & vbCrLf
        xml = xml & vbTab & "</CompGrp>" & vbCrLf
    Next i
    
    ' XMLのフッター
    xml = xml & "</MCompGrp>" & vbCrLf
    
    ' XMLをファイルに出力
    Dim fileName As String
    Dim fso As Object
    Dim outputFile As Object
    
    fileName = ThisWorkbook.Path & "\output.xml"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set outputFile = fso.CreateTextFile(fileName, True, True)
    
    outputFile.Write xml
    outputFile.Close
    
    MsgBox "XMLファイルが出力されました。"

End Sub

このコードは、以下の手順で動作します。

"MCompGrp" テーブルを選択します。 XMLのヘッダー部分を作成します。 テーブルのデータを読み取り、XML形式に変換します。 XMLのフッター部分を作成します。 変換したXMLをファイルに出力します。 このマクロを実行すると、エクセルファイルと同じディレクトリに "output.xml" という名前のXMLファイルが生成されます。

Q

  • VBAでXMLフォーマットを扱うには「MSXML」というライブラリを使用すると良いとききました。

    • 参照設定から 「Microsoft XML, v6.0」を選択しておく必要はないですか？

  • VBAでXMLオブジェクトを扱う場合は「XML DOMオブジェクト」を作成したほうが良いとききました。その必要はないですか？

A

おっしゃる通り、VBAでXMLを扱う場合、「MSXML」ライブラリを使用することが一般的です。また、XML DOMオブジェクトを使ってXML構造を操作することもできます。

上記のコード例では、シンプルなXMLを文字列として扱っていますが、XML DOMオブジェクトを使用してXMLを作成・操作することも可能です。

以下に、「Microsoft XML, v6.0」ライブラリを使用し、XML DOMオブジェクトを作成してXMLを出力するVBAマクロのコード例を示します。

Sub ExportToXML()

    Dim tbl As ListObject
    Dim i As Long
    
    ' テーブル "MCompGrp" を選択
    Set tbl = Me.ListObjects("MCompGrp")
    
    ' XML DOMオブジェクトの初期化
    Dim xmlDoc As New MSXML2.DOMDocument60
    Dim xmlMCompGrp As IXMLDOMElement
    Dim xmlCompGrp As IXMLDOMElement
    Dim xmlNode As IXMLDOMElement
    
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.resolveExternals = False
    
    ' ルート要素の作成
    Set xmlMCompGrp = xmlDoc.createElement("MCompGrp")
    xmlDoc.appendChild xmlMCompGrp
    
    ' 表のデータをXML形式に変換
    For i = 1 To tbl.ListRows.Count
        
        Set xmlCompGrp = xmlDoc.createElement("CompGrp")
        
        Set xmlNode = xmlDoc.createElement("ID")
        xmlNode.Text = tbl.DataBodyRange(i, 1).Value
        xmlCompGrp.appendChild xmlNode
        
        Set xmlNode = xmlDoc.createElement("GName")
        xmlNode.Text = tbl.DataBodyRange(i, 2).Value
        xmlCompGrp.appendChild xmlNode
        
        Set xmlNode = xmlDoc.createElement("Code")
        xmlNode.Text = tbl.DataBodyRange(i, 3).Value
        xmlCompGrp.appendChild xmlNode
        
        xmlMCompGrp.appendChild xmlCompGrp
    Next i
    
    ' XMLをファイルに出力
    Dim fileName As String
    Dim fso As Object
    Dim outputFile As Object
    
    fileName = ThisWorkbook.Path & "\output.xml"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set outputFile = fso.CreateTextFile(fileName, True, True)
    
    outputFile.Write xmlDoc.XML
    outputFile.Close
    
    MsgBox "XMLファイルが出力されました。"

End Sub

Q

XMLファイルの改行コードは"LF"である必要があるとききました。 上記VBAマクロで生成されるXMLファイルは問題ないですか？

A

ご指摘の通り、XMLファイルの改行コードは通常、"LF"（\n）が推奨されています。しかし、上記のVBAマクロでは、改行コードとして "CrLf"（\r\n）が使用されています。これは、Windows環境で一般的な改行コードです。

XMLファイルの改行コードを "LF" に統一するには、以下のようにコードを修正します。

Sub ExportToXML()

    ' 他のコードは変更なし

    ' XMLをファイルに出力
    Dim fileName As String
    Dim fso As Object
    Dim outputFile As Object
    
    fileName = ThisWorkbook.Path & "\output.xml"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set outputFile = fso.CreateTextFile(fileName, True, True)
    
    ' 改行コードを LF に変更
    Dim xmlLF As String
    xmlLF = Replace(xmlDoc.XML, vbCrLf, vbLf)
    
    outputFile.Write xmlLF
    outputFile.Close
    
    MsgBox "XMLファイルが出力されました。"

End Sub

VBAで別シートの関数を呼び出す方法

VBA

前提

下記構成のエクセルファイルがある

  • シート

    • Sheets1
    • シート名: "シート1"

  • VBAの構成

    • Sheets1(シート1)のマクロ
Public Function SheetOneFunc()
    MsgBox "This is SheetOneFunc."
End Function

このとき標準モジュールから、SheetOneFunc()を呼び出したい

標準モジュールの関数の書き方

Sub Func()
    Application.Run ThisWorkbook.Worksheets("シート1").CodeName & ".SheetOneFunc"
End Sub

このコードでは、ThisWorkbook.Worksheets("シート1") を使って "シート1" シートにアクセスし、その後に CodeName と .CParamMakeXML を連結して、Application.Run を使って SheetOneFunc 関数を直接呼び出している。

作業シート作成VBA

VBA

完成形イメージ

コード

Sub 作業用シート作成()
    ' シートのすべてのセルの幅を設定
    Cells.ColumnWidth = 2.2
    
    ' 見出しのスタイルと値を設定
    With Range("A1")
        .Style = "見出し 1"
        .Value = "1"
    End With
    With Range("B1")
        .Style = "見出し 2"
        .Value = "2"
    End With
    With Range("C1")
        .Style = "見出し 3"
        .Value = "3"
    End With
    With Range("D1")
        .Style = "見出し 4"
        .Value = "4"
    End With
    
    ' 疑問のセルを設定
    With Range("G1")
        .Value = "疑問"
        .Style = "どちらでもない"
    End With
    
    ' Todoのセルを設定
    With Range("J1")
        .Value = "Todo"
        .Style = "悪い"
    End With
    
    ' 解決のセルを設定
    With Range("M1")
        .Value = "解決"
        .Style = "良い"
    End With
    
    ' 2行目を固定
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    
    ' A2セルにシート名を出力
    Range("A2").FormulaR1C1 = "=MID(CELL(""filename"",R1C1),FIND(""]"",CELL(""filename"",R1C1))+1,99)"

    ' A2セルのスタイルを"見出し 1"に変更
    Range("A2").Style = "見出し 1"
        
    ' 最後にA2セルを選択
    Range("A2").Select
End Sub

シート名表示のところの補足

FormulaR1C1プロパティは、R1C1形式の参照を使った数式を設定するためのプロパティです。
R1C1形式は、行番号と列番号をR（行）とC（列）で表現する形式で、A1形式とは異なります。

例えば、A1形式のセル参照A1は、R1C1形式ではR1C1と表されます。
A1形式では、Aが1列目を示し、1が1行目を示します。
一方、R1C1形式では、R1が1行目を示し、C1が1列目を示します。

このため、以下の数式で使用されているA1をR1C1形式に変換する必要がありました。

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)

この数式をR1C1形式に変換すると、以下のようになります。

=MID(CELL("filename",R1C1),FIND("]",CELL("filename",R1C1))+1,99)

この変換により、数式がFormulaR1C1プロパティを使って適切に設定されます。

シェルワンライナー #2.1.e クォートと変数

shell

1. 2.1.e. クォートと変数

  • awkを使う際に引数に与えるAWKコードを シングルクォート('') で囲っていたが、これには2つ意味がある
    • {print 1+1}の様に空白の入った引数を一つにまとめて引き渡し
      • {printと1+1} の2つの引数として渡さない
    • $1 などのAWKの変数が、シェルの変数として解釈されることを防止
  • 特殊な場合を除き、Bashでは ''で囲われた文字に手を加えない
  • 逆にいうと、引数にbashの変数を使いたいときはクォートしては駄目ということ
    • これだと困っちゃうのでダブルクォートで囲うクォートも用意されている""
    • ダブルクォートで囲うとその中のBashの変数は解釈される。
    • 変数以外の~(ホームディレクトリ)とかも解釈される
  • 話変わって、シェルスクリプトは変数を使うときに、ダブルクォートで囲うかどうかでシェルスクリプトの挙動が変わるパターンあり。
  • ${変数名}と{}で変数名を囲う表記が用意されている

1.1. 練習問題

1.1.1. 問題と答え

----準備----
$ p=pen
$ re="" #←変数reの文字列は長さ0の空文字になる
----ここから答え----
#1
$ echo $p "$p" '$p'
pen pen $p
#2
$ echo "This is a ${p}cil" 'That is a $p.'
This is a pencil That is a $p.
#3
$ echo "This is a ${p}cil." That is a "$p"cil. "That was a $pcil."
This is a pencil. That is a pencil. That was a .
#4-1
$ grep "$re" /etc/passwd
root:x:0:0:root:/root:/bin/bash
daemon:x:1:1:daemon:/usr/sbin:/usr/sbin/nologin
bin:x:2:2:bin:/bin:/usr/sbin/nologin
sys:x:3:3:sys:/dev:/usr/sbin/nologin
...
#4-2
$ grep $re /etc/passwd
止まった...

1.1.2. 補足

  • #3について
    • That is a $pcil. は Bashはpsilが変数だと解釈する。
    • psilという変数は定義されていないので、Bashはこれを空文字に置き換える。
    • 防ぎたければ、That is a ${p}cil. とすればOK
  • #4-1について
    • grep "" /etc/passwdが実行される
      • 検索語が空文字なので、全部ヒットする
  • #4-2について
    • grep /etc/passwdが実行される
      • 不適切な形で引数が渡されることになるので、grepは止まる。
      • Ctrl-Cで復帰
      • 変数はなるべく""で囲っておくべし