教えて！ExcelVBA！

【ExcelVBA フォーム＆コントロール】リストボックスで選択されているデータをセルに入力する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 ' 選択されたデータのインデックスを取得リストボックス名.ListIndex' リストボックスの中から選択されたデータを取得リストボックス名.List(行, 列) 解説 リストボックスで選択されている行位置を取得するには、ListIndexプロパティを使用します。ListIndexプロパティが返す値は、リストの先頭行を｢0｣として上から数えた行位置を表す数値となります。また、ListIndexプロパティは、リストボックスで何も選択されていない状態では｢-1｣を返します。この性質を利用して、リストボックス上でデータが選択されて…

2024/01/19 08:35

【ExcelVBA フォーム＆コントロール】リストボックス内の列幅を設定する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 リストボックス名.ColumnWidths = "幅1, 幅2, 幅3, ..." 解説 リストボックスの各列の表示幅を設定するには、ColumnWidthsプロパティを使用します。幅1, 幅2, 幅3, ...はポイント単位で指定し、各列の幅を｢,｣で区切って記述します。 使い方 具体的な使い方を紹介します。 Private Sub UserForm_Initialize() ' リストボックスの列幅を設定 ListBox1.ColumnWidths = "100, 200, 150"End Sub 上記は、3つの列幅をそ…

2024/01/18 11:57

【ExcelVBA フォーム＆コントロール】リストボックスに列見出しを表示する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 リストボックス名.ColumnHeads = True / False 解説 リストボックスに列見出しを表示するには、ColumnHeadsプロパティを使用します。設定値をTrueにすると列見出しを表示し、Falseを指定すると列見出しを非表示にします。列見出しを表示する事で、データが整然と表示され、ユーザーが情報を迅速に理解できるようになります。 使い方 具体的な使い方を紹介します。 Private Sub UserForm_Initialize() ' フォームが初期化されたときに実行されるコード ListBox1.Co…

2024/01/17 16:59

【ExcelVBA フォーム＆コントロール】リストボックスに複数列のデータを表示する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 リストボックス名.List = 表示するデータ範囲 リストボックスに表示されるデータを管理するには、Listプロパティを使用します。Listプロパティには、データを格納するための二次元配列を指定できます。表示するデータ範囲には、リストボックスに表示する実際のデータが入る領域を指定します。これは通常、ワークシート上のセル範囲や配列になります。例えば Worksheets("Sheet1").Range("A1:B10").Value のように、シート名、セル範囲を指定します。 使い方 具体的な使い方を紹介します。 Privat…

2024/01/16 08:32

【ExcelVBA フォーム＆コントロール】スピンボタンをクリックした時に指定した範囲内のデータのみ表示する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 スピンボタン名.Min = 値1 ' 最小値スピンボタン名.Max = 値2 ' 最大値スピンボタン名.SmallChange = 値3 ' 値の変化量 解説 スピンボタンの最大値および最小値を設定するには、MaxプロパティおよびMinプロパティを使用します。スピンボタンの矢印ボタンをクリックした時に増減させる値の幅を設定するには、SmallChangeプロパティを使用します。値1にはスピンボタンの最小値を、値2には最大値を、値3には増減値を設定します。 使い方 具体的な使い方を紹介します。 Private Sub User…

2024/01/15 08:13

【ExcelVBA フォーム＆コントロール】スピンボタンとテキストボックスを連動させる方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 Private Sub SpinButton1_Change() ' スピンボタンが変更された時の処理 TextBox1.Value = SpinButton1.ValueEnd Sub 解説 スピンボタンがクリックされてValueプロパティの値が変わると、Changeイベントが発生します。Changeイベントが発生した時に実行されるChangeイベントプロシージャを使用すると、「スピンボタンがクリックされた時にスピンボタンの値を表示しているテキストボックスの表示を変更する」といった処理を実行できます。 使い方 具体的な使い…

2024/01/12 16:23

【ExcelVBA フォーム＆コントロール】スクロールボックスのスクロール幅を設定する方法②を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 スクロールバー名.SmallChange = 値 解説 スクロールバーの両端にある矢印ボタンをクリックした時のスクロール幅を設定するには、SmallChangeプロパティを使用します。値にはスクロール幅を設定します。これにより、スクロールバーが1回の移動でどれだけ移動するかが決まります。 使い方 具体的な使い方を紹介します。 Private Sub UserForm_Initialize() ' フォーム初期化時にスクロール単位を設定 Me.ScrollBar1.SmallChange = 20End Sub このようにする…

2024/01/09 09:55

【ExcelVBA フォーム＆コントロール】スクロールボックスのスクロール幅を設定する方法①を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 スクロールバー名.LargeChange = 値 解説 スクロールバー内のスクロールボックス以外の部分をクリックした時のスクロール幅を設定するには、LargeChangeプロパティを使用します。値にはスクロール幅を設定します。これにより、スクロールバーが1回の移動でどれだけ移動するかが決まります。 使い方 具体的な使い方を紹介します。 Private Sub UserForm_Initialize() ' フォーム初期化時にスクロール幅を設定 ScrollBar1.LargeChange = 10End Sub 例えば、スク…

2024/01/07 08:38

【ExcelVBA フォーム＆コントロール】スクロールバーの値とラベルの表示を連動させる方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 Private Sub ScrollBar1_Change() Dim scrollValue As Integer scrollValue = ScrollBar1.Value ' スクロールバーの値を取得し、必要な処理を実行する ' 例えば、ラベルに表示するなどEnd Sub 解説 上記は、スクロールイベントを使用してスクロールバーの値を取得し、結果をラベルに表示します。ラベルに取得した値を表示するには、Captionプロパティを使用します。スクロールバーのスクロール位置を表す値を取得するには、Valueプロパティを使用…

2024/01/06 22:05

【ExcelVBA フォーム＆コントロール】スクロールバーの最大値と最小値を設定する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 ' 最小値の設定スクロールバー名.Min = 値' 最大値の設定スクロールバー名.Max = 値 解説 スクロールバーの最小値と最大値を設定するには、MixプロパティとMaxプロパティを使用します。値には「-2,147,483,648」～「2,147,483,647」の範囲値を設定することが可能です。 使い方 具体的な使い方を紹介します。 Private Sub UserForm_Initialize() ' フォームが初期化されたときに実行されるコード ' スクロールバーの最小値と最大値を設定 ' スクロールバー1の最小値…

2024/01/06 21:22

【ExcelVBA フォーム＆コントロール】[ファイルを開く]ダイアログボックスで指定した画像ファイルをイメージに表示する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 Private Sub CommandButton1_Click() Dim myFilePath As String ' ファイルを選択するダイアログボックスを表示 myFilePath = Application.GetOpenFilename() ' ファイルが選択された場合 If myFilePath <> "False" Then Image1.Picture = LoadPicture(myFilePath) End IfEnd Sub 解説 上記の構文では、Application.GetOpenFilename…

2024/01/05 07:56

【ExcelVBA フォーム＆コントロール】イメージコントロールの外枠を非表示にする方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 イメージ名.BorderStyle = 定数 解説 イメージコントロールの外枠を表示/非表示にするには、BorderStyleプロパティを使用します。定数には以下のいずれかを指定します。 定数 値 内容 fmBorderStyleNone 0 外枠を非表示にする fmBorderStyleSingle 1 外枠を表示する 使い方 具体的な使い方を紹介します。 1.外枠を表示する場合 Image1.BorderStyle = fmBorderStyleSingle 2.外枠を非表示にする場合 Image1.BorderStyl…

2024/01/04 09:10

【ExcelVBA フォーム＆コントロール】イメージの大きさに合わせてた画像の縦横比率を設定する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 イメージ名.PictureSizeMode = 定数 解説 ImageコントロールのPictureSizeModeプロパティは、画像のサイズ調整が可能です。定数には、画像サイズの表示方法を指定します。定数には以下のいずれかを指定します。 定数 値 内容 fmPictureSizeModeClip 0 画像を切り取り、コントロールに収めます。コントロールのサイズを超える部分は表示されません。 fmPictureSizeModeStretch 1 画像をコントロールに合わせて引き伸ばします。縦横比が崩れる可能性があります。 fm…

2024/01/04 08:37

【ExcelVBA フォーム＆コントロール】コマンドボタンをクリックした時にマウスポインタの形状を変更する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 コマンドボタン名.MousePointer = 定数 解説 マウスポインタの形を変更するには、コマンドボタンのMousePointerプロパティを使用します。このプロパティには、さまざまな定数があります。定数について以下で紹介します。 定数 値 内容 fmMousePointerDefault 0 デフォルトのマウスポインタを使用します。通常は矢印です。 fmMousePointerArrow 1 矢印のマウスポインタを表示します。 fmMousePointerCrosshair 2 十字線のマウスポインタを表示します。 f…

2024/01/03 20:23

【ExcelVBA フォーム＆コントロール】Shiftキーを押しながらクリックした時だけ処理を実行するコマンドボタンを設定する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ' Shiftキーが押されているか確認 If Shift And vbShiftMask Then ' Shiftキーが押されている時の処理を記述 MsgBox "Shiftキーを押しながらクリックしました。" ' ここに実行したい処理を追加 End IfEnd Sub Shiftキー…

2024/01/03 17:25

【ExcelVBA フォーム＆コントロール】コマンドボタンの表示/非表示を切り替える方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 コマンドボタン名.Visible = True / False コマンドボタンの表示/非表示を切り替えるためには、Visibleプロパティを使用します。表示する場合はTrueを、非表示とする場合はFalseを設定します。 使い方 具体的な使い方を紹介します。 Private Sub ToggleButton_Click() If UserForm1.CommandButton1.Visible = True Then UserForm1.CommandButton1.Visible = False ' 非表示にする Else…

2024/01/03 17:02

【ExcelVBA フォーム＆コントロール】マルチページにタブを追加する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 マルチページ名.Pages.Add "新しいタブの名前" 解説 マルチページにタブを追加するには、Pages.Addメソッドを使用します。"新しいタブの名前"には、追加したタブに付ける名前を指定します。 使い方 具体的な使い方を紹介します。 Private Sub AddTabToMultiPage() ' マルチページに新しいタブを追加 myMultiPage.Pages.Add "新しいタブ"End Sub このコードは、myMultiPage.Pages.Add "新しいタブ"の部分で、マルチページにタブを追加していま…

2024/01/03 14:35

【ExcelVBA フォーム＆コントロール】タブストリップにタブを追加する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 ダブストリップ名.Tabs.Add("新しいタブの名前") 解説 タブストリップにタブを追加するには、Tabs.Addメソッドを使用します。"新しいタブの名前"には、追加したタブに付ける名前を指定します。 使い方 具体的な使い方を紹介します。 Private Sub UserForm_Initialize() ' フォームが初期化されたときに実行されるコード ' 新しいタブを追加 TabStrip1.Tabs.Add("新しいタブ")End Sub このコードは、ユーザーフォームが初期化される際に自動的に実行されます。Tab…

2024/01/03 13:55

【ExcelVBA フォーム＆コントロール】フレーム内で選択されたオプションボタンを取得する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 ' フレーム内の選択されたオプションボタンを取得するFunction GetSelectedOptionButton(frame As Object) As Object Dim optionButton As Object ' フレーム内のコントロールを順に確認 For Each optionButton In frame.Controls If TypeName(optionButton) = "OptionButton" And optionButton.Value = True Then ' 選択されたオプションボタ…

2024/01/03 13:23

【ExcelVBA フォーム＆コントロール】オプションボタンの状態を取得する方法を教えて！

構文 使い方 プログラミング例 まとめ 構文 構文は以下の通りです。 オプションボタン名.Value 解説 オプションボタンの状態を取得するためには、Valueプロパティを使用します。オプションボタンが選択されていればTrue、選択されていなければFalseが返されます。 使い方 具体的な使い方を紹介します。 Sub CheckOptionButtonStatus() Dim status As Boolean status = OptionButton1.Value If status = True Then MsgBox "オプションボタンは選択されています。" Else MsgBox "…

2024/01/03 12:55