C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe /target:winexe /out:ExcelShortcutKeysDisplay.exe ExcelShortcutKeysDisplay.vb

 

Imports System

Imports System.Windows.Forms

 

Public Class ExcelShortcutKeysDisplay

    Inherits Form

 

    Private richTextBox As New RichTextBox()

    Private alwaysOnTopCheckBox As New CheckBox()

 

    Public Sub New()

        ' フォームの設定

        Me.Text = "Excelのすべてのショートカットキー"

        Me.Size = New Drawing.Size(800, 600)

        Me.MinimumSize = New Drawing.Size(400, 300) ' ウィンドウの最小サイズ

 

        ' RichTextBoxの設定

        richTextBox.Dock = DockStyle.Fill

        richTextBox.ReadOnly = True

        richTextBox.ScrollBars = RichTextBoxScrollBars.Vertical

 

        ' ショートカットキー情報の追加(太字設定)

        AddShortcutKeys()

 

        ' チェックボックスの設定

        alwaysOnTopCheckBox.Text = "常に最前面に表示"

        alwaysOnTopCheckBox.Dock = DockStyle.Top

        AddHandler alwaysOnTopCheckBox.CheckedChanged, AddressOf AlwaysOnTopCheckBox_CheckedChanged

 

        ' フォームにコントロールを追加

        Me.Controls.Add(richTextBox)

        Me.Controls.Add(alwaysOnTopCheckBox)

    End Sub

 

    ' ショートカットキーのリストを追加し、太字に設定

    Private Sub AddShortcutKeys()

        Dim keys As String() = {

            "Excelのすべてのショートカットキー一覧:",

            "基本操作:",

            "Ctrl + N : 新しいブックを開く",

            "Ctrl + O : 既存のブックを開く",

            "Ctrl + S : ブックを保存",

            "F12 : 名前を付けて保存",

            "Ctrl + P : 印刷",

            "Ctrl + Z : 元に戻す",

            "Ctrl + Y : やり直す",

            "Ctrl + X : 切り取り",

            "Ctrl + C : コピー",

            "Ctrl + V : 貼り付け",

            "Ctrl + A : すべて選択",

            "Ctrl + F : 検索",

            "Ctrl + H : 置換",

            "Ctrl + B : 太字",

            "Ctrl + I : 斜体",

            "Ctrl + U : 下線",

            "Ctrl + 1 : セルの書式設定",

            "Ctrl + 9 : 行を非表示",

            "Ctrl + Shift + 9 : 行を再表示",

            "Ctrl + 0 : 列を非表示",

            "Ctrl + Shift + 0 : 列を再表示",

            "Ctrl + Shift + L : フィルタのオン/オフ",

            "Ctrl + ; : 今日の日付を入力",

            "Ctrl + Shift + : : 現在時刻を入力",

            "Alt + Enter : セル内で改行",

            "Shift + Space : 行全体を選択",

            "Ctrl + Space : 列全体を選択",

            "Ctrl + Arrow Keys : データの終端に移動",

            "Ctrl + Shift + + : 挿入メニューを表示",

            "Ctrl + - : 削除メニューを表示",

            "Ctrl + Page Up : 前のシートに移動",

            "Ctrl + Page Down : 次のシートに移動",

            "Ctrl + Home : A1セルに移動",

            "Ctrl + End : 最終セルに移動",

            "Alt + = : SUM関数を自動入力",

            "F2 : セルの編集",

            "F4 : 絶対参照の切り替え",

            "F7 : スペルチェック",

            "Ctrl + Shift + $ : 通貨の書式を適用",

            "Ctrl + Shift + % : パーセンテージの書式を適用",

            "Ctrl + Shift + # : 日付の書式を適用",

            "Ctrl + Shift + @ : 時刻の書式を適用",

            "Ctrl + Shift + ^ : 指数の書式を適用",

            "Ctrl + Shift + ! : 数値の書式を適用",

            "Ctrl + Alt + V : 貼り付けオプションを表示"

        }

 

        ' 太字で追加

        For Each key As String In keys

            richTextBox.SelectionFont = New Drawing.Font(richTextBox.Font, Drawing.FontStyle.Bold)

            richTextBox.AppendText(key & Environment.NewLine)

        Next

    End Sub

 

    ' 常に最前面に表示のチェックボックス変更イベント

    Private Sub AlwaysOnTopCheckBox_CheckedChanged(sender As Object, e As EventArgs)

        Me.TopMost = alwaysOnTopCheckBox.Checked

    End Sub

 

    <STAThread>

    Public Shared Sub Main()

        Application.EnableVisualStyles()

        Application.SetCompatibleTextRenderingDefault(False)

        Application.Run(New ExcelShortcutKeysDisplay())

    End Sub

End Class