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