セルの操作 – とりっぷぼうる

日付選んで番号選択すると指定したセルに移動させる方法

とりっぷぼうる — Sat, 25 Aug 2018 11:10:35 +0000

ユーザーフォームを使っていると便利な反面、フォームの数が増えすぎて困ったことありませんか？

同じフォームなのに用途が微妙に違うので、やむを得ず複数作成して使っているとか。

ボウリングのリーグ戦での成績入力でも、スコアー入力する日付は全選手一緒だけど、個人別の入力は当然ながらスコアーが混じってはいけないので一緒にできない。

だからと言って入力フォームを参加選手分同じものを作るのも面倒で大変で非効率。

Select Caseを使ってみたら意外と出来たぞ！

Select Caseの2段重ね

やりたいことは、こんな感じ。

日付を選択すると各参加選手それぞれの個人成績表で日付と同じセルを選択させる。
次にスコアーを入力したい選手（会員番号）を選択すると、指定された選手の個人成績表に移動する
入力が終わると、次に入力する選手を選択するフォームに戻る
繰り返す

これを簡単にVBAコードで書くと、

最初の日付選択がひとつ目の条件なので、Select Caseを使います。

1回目の日付を「１」、2回目の日付を「２」・・・とすると、

Select Case
Case Is =1
指定した日付のセル番号
Case Is = 2
指定した日付のセル番号
Case Is = 3
指定した日付のセル番号
End Select

と、なりますが、2つ目の条件を加えると、ひとつ目の条件で日付を選び、尚且つ2つ目の条件で選手番号を指定するので、
Case Is =1 の次にもう一度Select Caseを加えます。

そうすると、

Select Case Range(“AA1”).Value
Case Is = 1
指定した1番目の日付のセル番号
Select Case Range(“AO1”).Value
Case Is = 1
指定した会員番号のセル番号
Case Is = 2
指定した会員番号のセル番号
Case Is = 3
指定した会員番号のセル番号
End Select
Case Is = 2
指定した2番目のひづけのセル番号
Select Case Range(“AO1”).Value
Case Is = 1
指定した会員番号のセル番号
Case Is = 2
指定した会員番号のセル番号
Case Is = 3
指定した会員番号のセル番号
End Select
Case Is = 2
指定した3番目のひづけのセル番号
Select Case Range(“AO1”).Value
Case Is = 1
指定した会員番号のセル番号
Case Is = 2
指定した会員番号のセル番号
Case Is = 3
指定した会員番号のセル番号
End select
End Select

となります。黄色い最初のSelect Caseの中にもう1回Select Caseを挟み込んだら完成です。

これができたおかげで、ボウリングのリーグ戦での参加者の成績を入力するのに、回戦数を入力して、選手選択ボタンを押すと、

この画面が表示されて会員番号を入力して、選択ボタンを押せば、個人のスコアー入力セルに一気に移動します。

そして、入力すべく日付のセル（行）にカーソルが指定されているので、マウスでいちいちセルを選択する必要がなくなり、誤って他の日付の欄に誤記入することもなくなりました。

チョットしたことだけど使い勝手が良くなりました！

[temp id=19]

複数のセルの値を別のセルにコピーする

とりっぷぼうる — Sun, 15 Jul 2018 04:05:36 +0000

VLOOKUPでは数式の値は検索不能？

ボウリングのリーグ戦の成績表をエクセルで作っていて、リーグ戦では一般的に初回はレーン抽選によって対戦相手が決まり、2週目以降は対戦表に従って総当たり戦を行います。

波乗りアヒル

レーン抽選したら番号入れたら成績表から個人データを読み取ってレコードシートすぐに印刷できないものかな？

エクセルで作っているリーグ成績表スタンディングに、ボウリングレーン抽選機能を付け加えるまでは、初回リーグ戦が終わった後にエクセルで作っている成績表に抽選番号順に選手登録をして、同時に初回の成績を入力していました。

「ボウリングレーン抽選機能」って勝手に読んでいますが、これができたことにより、あらかじめ選手登録をエクセルに入力しておいて、当日レーン抽選を行って練習ボールをしている間に、レーン番号を入力するだけで勝手に並び変わってレコードシートが印刷されるのです。

ボウリングASで入力している感覚ね

この「ボウリングレーン抽選機能」を既存のエクセルに付け加えるのは、非常に難しい。

なぜなら、レーン抽選によりエクセルでの選手登録順が並び変わる事が当然発生するのです。

その辺の話はまた別の機会に書くとして、レーン抽選をするにあたって検索に使うエクセル関数のVLOOKUP関数を使うのですが、検査値が計算式で求められた数値だと（見た目）エラー【#N/A】になっちゃいました。

直接数字を入力すると、正しくVLOKUP関数が働いてくれて検索してくれました。

そこで、レーンと投球順を表すセルを値だけにしてコピーすれば解決できるので、エクセルVBAで複数のセルの値を別の複数のセルへコピーというか、値を転記するって事をしました。

VBAでセルを別のセルへ転記方法

普段使いませんが、基本です。

この図は、実際にボウリング成績表でレーン抽選機能の一部のワークシートですが、セルBD103の値をセルAX103に値だけコピー（転記）するVBAコードは、シンプルです。

Private Sub CommandButton1_Click()
Range(“AX103”).Value = Range(“BD103”).Value
End Sub

「コマンドボタン１をクリックしたら実行する」というマクロの記述を開始
セルAX103の値はセルBD103の値にする
マクロの記述終了

とてもシンプルで簡単ですね。

これで数式の入っている値も単なる数字になって転記されます。

VBAで2つのセルを別の2つのセルへ転記方法

こんどは2つの場合です。

セルBD103の値をセルAX103に、セルBD104の値をセルAX104に、値だけコピー（転記）するVBAコードです。

Private Sub CommandButton1_Click()
Range(“AX103”).Value = Range(“BD103”).Value
Range(“AX104”).Value = Range(“BD104”).Value
End Sub

「コマンドボタン１をクリックしたら実行する」というマクロの記述を開始
セルAX103の値はセルBD103の値にする
セルAX103の値はセルBD103の値にする
マクロの記述終了

2つ並べるだけなので簡単ですね。

3つ以上の複数のセルの値を連続して転記する

先ほどの図のようにここでは選手は最大40名までで作っているので、コピーするのは40回。

VBAでひとつのセルの値を別のセルに転記する方法で40回続けて書くも良し、ただ面倒なので、指定した回数繰り返し処理を行ってくれるFor～Nextステートメントを使いましょう。

書き写したいセルは、BD103～BD142の値をAX103～AX42へそれぞれ転記します。

Private Sub CommandButton1_Click()
For i = 103 To 142
Cells(i, 50).Value = Cells(i, 56).Value
Next i
End Sub

「コマンドボタン１をクリックしたら実行する」というマクロの記述を開始
繰り返し処理の変数「i」を宣言し、変数「i」は103～142とする（転記したいセル行番号）
セル行番号iの50列目の値（AX列）はセル行番号iの56列目の値（BD列）を転記する
指定分（103～142）を繰り返して行う
マクロの記述終了

こうすることで、計算された数式の表示された数字（文字列）が数字に置き換わるので、VLOOKUP関数が働くようになり、検査値として認識されます。

[temp id=19]

入力済み最終行を見つけて追記・削除する方法

とりっぷぼうる — Wed, 11 Jul 2018 18:12:36 +0000

エクセルVBAのユーザーフォームで一発検索する

ボウリング場のリーグ戦成績表でも使っているエクセル。

エクセルには参加者のスコアーなど様々なデータを入力しますが、まず最初に行う作業が選手登録です。

当然ワークシートに直接入力して、間違ったらクリアすればいいのですが、エクセルシートをわざわざクリックしてスクロールしたりするのが面倒で時間の無駄です。

そこで、オリジナル入力兼修正画面を作ってしまえば、見つける手間が省けて作業効率がアップします。

ここでは、「ボウリング成績表選手登録方法～LTB個人リーグ編」でも使用している【入力取消】ボタン（コマンドボタン）を押すと、自動的に選手登録済みデータの中（表）から一番最後に入力されたデータを見つけて入力済みデータをクリアしてくれるようにします。

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

この図は【新規登録】（コマンドボタン）を使って30名を登録した状態です。

登録方法のVBAコードに関しては、別のページで書いてありますのでこのページでは省略します。

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

また、入力済みデータの修正方法のVBAコードに関しても別のページで書いてありますので、これもここでは省略します。

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

ここでは、普段の作業で参加者の書いてある紙を見ながらエクセルに新規登録している途中で、

ひとり飛ばして間違って入力してしまった時に、最後に入力した人を削除する方法です。

コマンドボタンにEnd(xlDown)を使ったコードを書いて最終行の値をクリア

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

では実際に、入力取消ボタンにはこのようなコードが書いてあります。

Private Sub CommandButton3_Click()
msg = MsgBox(“最終入力選手を取消しますか？”, Buttons:=vbYesNo + vbQuestion)
If msg = vbYes Then
Range(“AB2”).End(xlDown).Value = “”
Range(“AC2”).End(xlDown).Value = “”
Range(“AD2”).End(xlDown).Value = “”
Range(“AE2”).End(xlDown).Value = “”
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

「コマンドボタン３をクリックしたら実行する」というマクロの記述を開始
メッセージで「最終入力選手を取り消しますか？」と表示して「はい」「いいえ」を選択させる
もし「はい」を選択したら
セルAB2（会員番号）の入力済み最終行の値を空欄にする
セルAC2（名前）の入力済み最終行の値を空欄にする
セルAD2（性別）の入力済み最終行の値を空欄にする
セルAE2（AVE）の入力済み最終行の値を空欄にする

8行目以下はワークシートに入力されているセルの値を読み込んで、この画面に（選手登録ユーザーフォーム）表示するというコードですが、これも別のページで書いてありますので、ここでは省略します。

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

これで、最終入力済みセルを見つけて空欄にすることができるようになります。

当然、【入力取消】ボタンを押した回数分、次々と入力済み最終行が空欄になりますが、AB2のように2行目を指定しているので、全部消せたとしても3行目までで、2行目の「会員番号」自体は消せないようになっています。

消えたら困ります！

セルAB1としてしまうと、2行目の「会員番号」自体も消せるようになります！

[temp id=19]