ラベル – とりっぷぼうる

VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法

とりっぷぼうる — Wed, 11 Jul 2018 17:03:53 +0000

ラベル（Label）にVBAコードを記述する

ボウリング成績表でも使っているユーザーフォームに配置した文字を表示するための「ラベル（Label）」にも、実はVBAコードを記述してプログラムを実行することができます。

VBAコードを実行するのはコマンドボタン（CommandButton）だけではないのです。

一般的に「表の中から特定の指定したセルの値に応じて目的のデータを検索する」場合、VLOOKUP関数がとても有名ですね。

このVLOOKUP関数はそのままエクセルVBAで使うことはできません。

その為にVBAではFindメソッドを使ってVLOOKUP関数と同じことができるようになります。

そこで「ボウリング成績表選手登録方法～LTB個人リーグ編」では、ユーザーフォームに配置した参加選手名を表示している「ラベル（Label）」に、直接VBAコードを記述して【修正登録】ボタン（コマンドボタン）を押すと検索したいデータ（名前）を選択して、表に記載されている会員番号・名前・AVE・性別を変更修正できるようにしています。

下の図の説明に関しては下記ページに記載していますので、ここでは省略します。

https://tripbowl.net/manual-member-ltb/

ラベルに選手番号とFindメソッドで見つけて、修正登録で書き換える

VBAコードが反映されるワークシートです

画像スペースの都合で、１６行目まで（AA16まで）切り取って貼り付けています。実際は４２行目まであります。（AA42）

では、実際にはラベル（Label44）にはこのようなコードを記述しています

Private Sub Label44_Click()
Application.ScreenUpdating = False
Range(“AA1”).Value = “1”
msg = MsgBox(“選手1を修正しますか？”, Buttons:=vbYesNo + vbQuestion)
If msg = vbYes Then
Dim mycell As Range
Set mycell = Range(“AA3:AA42”).Find(What:=Range(“AA1”).Value, LookAt:=xlWhole)
If Not mycell Is Nothing Then
mycell.Select
UserForm1.TextBox1.Value = mycell.Offset(0, 1).Value
UserForm1.TextBox2.Value = mycell.Offset(0, 2).Value
UserForm1.TextBox3.Value = mycell.Offset(0, 4).Value
Else
End If
End If
Application.ScreenUpdating = True
End Sub

実際に記述しているVBAコードをそのまま書いているので、VLOOKUP関数をVBAのFindメソッド以外のコードもありますが、赤い下線の部分が表の中から探す部分です。

一応記述したVBAコードを順番に説明します。

「ラベル44をクリックしたら実行する」というマクロの記述を開始
画面のちらつき（無駄な移動）を停止する
検索値として選手１なので「1」をセル「AA1」に転記する
メッセージで「選手１を修正しますか？」と表示し、「はい」「いいえ」を選択させる
「はい」を選択したら下記を実行する
選手番号が変わるので、変数として「mycell」を宣言する
セルAA3からAA42の範囲でセルAA1と同じ値（選手番号）があるセルを検索して、見つけたセルを変数mycellに格納する
変数mycellの値（選手番号）が見つからない（Nothingでない場合）、要するに見つけた場合はIfステートメントの開始（もし見つけたらということになる）
見つけたセル「mycell」を選択する（ここ例では表の中の選手番号１はセルAA3にある）
ユーザーフォーム１のテキストボックス１に「mycell」の同じ行で右１列目（右隣）のセルの値を転記する（会員番号）
ユーザーフォーム１のテキストボックス２に「mycell」の同じ行で右２列目のセルの値を転記する（名前）
ユーザーフォーム１のテキストボックス３に「mycell」の同じ行で右４列目のセルの値を転記する（AVE）
そうでない場合（「はい」ではなく「いいえ」を選択した場合）
Ifステートメントの終了（見つける作業をしない）
Ifステートメントの終了（メッセージ終了）
画面のちらつき停止を解除する
マクロの記録終了

これで、名前（Label）をクリックするとその選手を表の中から探して、見つけたら「会員番号」「名前」「AVE」を見つけてユーザーフォームに表示するようになります。

ちょっと大変ですが

この作業を繰り返し選手分（40名）をラベル番号を変えながらコードを書いていけば、出来上がります。

これで修正したい表のデータが取り出せたので、次は書き換えです。

修正登録ボタンで表のデータを書き換える

それでは、この表示されたデータの書き換えを【修正登録】ボタン（コマンドボタン）でできるようにしましょう。

では、実際にはコマンドボタン（CommandButton2）にはこのようなコードが書いてあります。

Private Sub CommandButton2_Click()
If UserForm1.TextBox1.Value = “” Or UserForm1.TextBox2.Value = “” Or UserForm1.TextBox3.Value = “” Then
MsgBox “修正データが自動転記されていません”
End If
msg = MsgBox(“修正実行しますか？”, Buttons:=vbYesNo + vbExclamation)
If msg = vbYes Then
ActiveCell.Offset(0, 1).Value = UserForm1.TextBox1.Value
ActiveCell.Offset(0, 2).Value = UserForm1.TextBox2.Value
ActiveCell.Offset(0, 4).Value = UserForm1.TextBox3.Value
If OptionButton1.Value = True Then
ActiveCell.Offset(0, 3).Value = “1”
ElseIf OptionButton2.Value = True Then
ActiveCell.Offset(0, 3).Value = “2”
End If
For i = 44 To 83
With UserForm1.Controls(“Label” & i)
.Caption = Cells(i – 41, 29)
End With
Next i
For j = 84 To 123
With UserForm1.Controls(“Label” & j)
.Caption = Cells(j – 81, 31)
End With
Next j
End If
End Sub

「コマンドボタン２をクリックしたら実行する」というマクロの記述を開始
もしユーザーフォーム１のテキストボックス１または、ユーザーフォーム１のテキストボックス２または、ユーザーフォーム１のテキストボックス３が空欄だったら
メッセージで「修正データが自動転記されていません」と表示する
空欄の時のIfステートメント終了
各テキストボックスが入力されていたら、メッセージで「修正実行しますか？」を「はい」「いいえ」で選択させる
「はい」を選択したら
選択されているセル（ラベルを押した時に選手番号を検索した時にすでに選択しています）の同じ行の右に1列隣のセルに（会員番号）ユーザーフォーム１のテキストボックス１に入力されている値（書き換えた会員番号）を転記する（上書きして書き換える）
選択されているセル（ラベルを押した時に選手番号を検索した時にすでに選択しています）の同じ行の右に2列隣のセルに（選手名）ユーザーフォーム１のテキストボックス２に入力されている値（書き換えた選手名）を転記する（上書きして書き換える）
選択されているセル（ラベルを押した時に選手番号を検索した時にすでに選択しています）の同じ行の右に4列隣のセルに（会員番号）ユーザーフォーム１のテキストボックス３に入力されている値（書き換えたAVE）を転記する（上書きして書き換える）
もし（性別選択）オプションボタン１が選択されている場合
選択されているセル（ラベルを押した時に選手番号を検索した時にすでに選択しています）の同じ行の右に3列隣のセルに（性別）半角数字「1」を転記する（上書きして書き換える）
そうではなく、オプションボタン２が選択されている場合
選択されているセル（ラベルを押した時に選手番号を検索した時にすでに選択しています）の同じ行の右に3列隣のセルに（性別）半角数字「2」を転記する（上書きして書き換える）
オプションボタンに関するIfステートメント終了

15行目以下は、書き換えた内容が反映されているか確認できるために、再度各ラベルを再表示させる為のコードです。

これは、「複数のラベル名を一括で複数のセルの値に書き換える」ページで書いてあることと一緒になるので、ここでは省略します。

https://tripbowl.net/vba-label-change/

これで、簡単に言うと、データ修正ができます。

この方法を使いこなせるようになると、会員住所録などでも使えるようになるので、とても重宝しますよ。

[temp id=19]

複数のラベル名を一括で複数のセルの値に書き換える方法

とりっぷぼうる — Tue, 10 Jul 2018 03:50:43 +0000

ラベルキャプションをセルの値から一括取得

ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され、二人目を登録すると2番目に名前が表示されるのが当然ですが、エクセルでも似たようなことができます。

リーグ成績表でも使用している「選手登録フォーム」で【新規登録】ボタンを押すと入力した参加者名が表示されるという事です。

この【新規登録】ボタンに「コマンドボタン」と言いますが、次のような指示を書いています。

ユーザーフォームに配置した「会員番号」「選手名前」「AVE」を入力する枠（テキストボックス（TextBox））と「性別」を選択する（オプションボタン（OptionButton））に入力・選択された内容を指定したセルに転記して、さらに、名前「ラベル（Label）」といいますが、【新規登録】ボタンに自動的にあらかじめ指定したセルの値を取得して表示する

と、いう指示を書いています。

選手が誰も登録されていない状態はラベル（Label）はラベル番号で表示されています。

「会員番号」「選手名前」「AVE」と入力して「性別」を選択して、【新規登録】ボタンを押すと

登録済みの選手名に表示（ラベルキャプション）が一括で切り替わってくれます。

入力した名前が間違っていないかどうかが、入力後すぐに表示されているのでわざわざ、ワークシートのセルを探す必要が無くなるので時間の節約になりますね。

では、実際にはこのようなコードを記述しています

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = “” Or UserForm1.TextBox2.Value = “” Or UserForm1.TextBox3.Value = “” Then
MsgBox “会員番号・選手名前・AVEを入力してください”
Else
Range(“AB1”).Value = UserForm1.TextBox1.Value
Range(“AC1”).Value = UserForm1.TextBox2.Value
Range(“AE1”).Value = UserForm1.TextBox3.Value
If OptionButton1.Value = True Then
Range(“AD1”).Value = “1”
ElseIf OptionButton2.Value = True Then
Range(“AD1”).Value = “2”
End If
Range(“AB1”).End(xlDown).Offset(1).Value = Range(“AB1”).Value
Range(“AC1”).End(xlDown).Offset(1).Value = Range(“AC1”).Value
Range(“AD1”).End(xlDown).Offset(1).Value = Range(“AD1”).Value
Range(“AE1”).End(xlDown).Offset(1).Value = Range(“AE1”).Value
End If
For i = 44 To 83
With UserForm1.Controls(“Label” & i)
.Caption = Cells(i – 41, 29)
End With
Next i
For j = 84 To 123
With UserForm1.Controls(“Label” & j)
.Caption = Cells(j – 81, 31)
End With
Next j
UserForm1.TextBox1.Value = “”
UserForm1.TextBox2.Value = “”
UserForm1.TextBox3.Value = “”
End Sub

「コマンドボタン１をクリックしたら実行する」というマクロの記述を開始
もしユーザーフォーム１のテキストボックス１が空欄または、ユーザーフォーム１のテキストボックス２が空欄または、ユーザーフォーム１のテキストボックス３が空欄だったら
「会員番号・選手名前・AVEを入力してください」とメッセージを表示する
そうでなかったら（全て入力されていたら）以下のコードを実行する
セル「AB1」にユーザーフォーム１のテキストボックス１の入力値を転記する
セル「AC1」にユーザーフォーム１のテキストボックス２の入力値を転記する
セル「AE1」にユーザーフォーム１のテキストボックス３の入力値を転記する
もしオプションボタン１（男）が選択されていたら
セル「AD1」に半角数字の「1」を転記する
そうではなくもしオプションボタン２（女）が選択されていたら
セル「AD1」に半角数字の「2」を転記する
オプションボタンに関するIfステートメント終了
セル「AB1」の入力済み最終行を見つけてその下の行にセル「AB1」の値を記述する
セル「AC1」の入力済み最終行を見つけてその下の行にセル「AC1」の値を記述する
セル「AD1」の入力済み最終行を見つけてその下の行にセル「AD1」の値を記述する
セル「AE1」の入力済み最終行を見つけてその下の行にセル「AE1」の値を記述する
テキストボックスが空欄でなかった場合のIfステートメント終了
繰り返し処理の変数「i」を宣言し、変数「i」は44～83とする（書き換えたいラベル番号）
Withステートメント開始し、ユーザーフォーム１に配置された「ラベル番号「i」」の名前をセル（i-41行目の29列目）より順に取得して書き換える
名前の書き換えるWithステートメント終了
変数「i」を指定した範囲で繰り返す
繰り返し処理の変数「j」を宣言し、変数「j」は84～123とする（書き換えたいラベル番号）
Withステートメント開始し、ユーザーフォーム１に配置された「ラベル番号「j」」の名前をセル（j-81行目の31列目）より順に取得して書き換える
AVEの書き換えるWithステートメント終了
変数「j」を指定した範囲で繰り返す
ユーザーフォーム１のテキストボックス１を空欄にする
ユーザーフォーム１のテキストボックス２を空欄にする
ユーザーフォーム１のテキストボックス３を空欄にする
マクロの記述終了

変数ってのが、ややこしいいかな？

変数「i」は44～83になっているのは、参加選手名の1番～40番に相当するラベル番号が実は最初の図のように44～83なのです。

その為にラベルの名前を書き換えるのは当然44～83なので、ラベルの番号が変わるから「変数」なんです。

そして取得したいセルは見えないのですが、セルAB1には転記した名前が、セルAB2には「選手名」と記載しています。その為最初に入力された選手名は必ず、セル「AB3」に入力されるようになっています。

なぜならば、入力済み最終行を見つけてその下のセルに入力されるようになっているからです。

ということで、1番目の選手名はセル「AB3」なので3行目。

ということで、

選手番号１はラベル44でセルは3行目になり、44引く3は、-41となります。

また、AB列はAから数えると29番目の列なので列番号は29です。

これがCells(i-41,29）という意味です。

[temp id=19]