ラベル – とりっぷぼうる https://tripbowl.net 観光地にはお得なフリーパスあり Thu, 28 Sep 2023 08:36:18 +0000 ja hourly 1 https://wordpress.org/?v=6.6.1 https://tripbowl.net/wp-content/uploads/2021/09/cropped-9363d75a338bc1796f4d8b21a4a8670f-32x32.jpg ラベル – とりっぷぼうる https://tripbowl.net 32 32 2つのセルの値を足し算など加減乗除してラベル名に表示させるVBA https://tripbowl.net/function-plus_minus/ Thu, 28 Sep 2023 02:10:07 +0000 https://tripbowl.net/?p=39180

]]>

エクセル検索
エクセル
キーワード
HOMEUserForm印刷画面ファイル図形
日付・時刻データセル色関数VBA関数

ユーザーフォームに配置したラベルの文字をプロパティのキャプションで指定するのではなく、セルの値を取得して表示させたいことありませんか？

そしてさらに、2つのセルの値を足した合計値をラベル表示させられたら、もって便利ですよね。

単純な足し算・引き算・掛け算・割り算ならば、難しいことは全くないので基本となる加減乗除した値をラベルのキャプションに書き換えるVBAコードをご紹介します。

ラベル名＝セル番地　加減乗除　セル番地

ラベル名をセルの値の合計値で書き換えたいならば、単純に「セル番地」「加減乗除」「セル番地」で完成です。

ここでは、ユーザーフォームに配置したラベルをクリックすると計算したセルの値がラベルに表示されるようにします。

普段のエクセル関数と全く同じなのでとても簡単ですよ。

足し算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) + Range(“A2”)
End Sub

解説
  1. ラベル1がクリックされたら
  2. ラベル1のラベル名をセルA1とセルA2を足し算した値にする
  3. マクロ記録終了

引き算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) – Range(“A2”)
End Sub

掛け算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) * Range(“A2”)
End Sub

割り算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) / Range(“A2”)
End Sub

波乗りアヒル

とこのように解説の必要がなくてもVBAに取り組もうという方ならば大丈夫ですよね。

関連記事

どこかにビューーン
ちょっとの工夫で往復無料の時代が来た！！

新着ページ

もっと見る

よく見られているページ

大容量無料ファイル転送サービス【ACデータ】 無料イラスト【イラストAC】

フリーきっぷ TOP

紅葉スポット

もっと見る
]]> 2つ別々のセルの値を1つのラベルに結合して表示するVBA https://tripbowl.net/label-caption_bond/ Sun, 24 Sep 2023 04:58:11 +0000 https://tripbowl.net/?p=39163

]]>

エクセル検索
エクセル
キーワード
HOMEUserForm印刷画面ファイル図形
日付・時刻データセル色関数VBA関数

ユーザーフォームに配置したラベル（Label）を使う時は、テキストボックスなどと一緒に説明書きやタイトルに使う事が多いですが、ラベル名（キャプション）を検索結果やセルの値を取得して書き換えたいと思ったことありませんか？

そして2つの別々のセルの値を1つのラベルにまとめて表示させることもできたら便利だと思いませんか？

この方法は意外と簡単でセル番地の間に「＆」を入力するだけでできるようになるので、VBAコードをご紹介します。

セル番地や”名前”を「＆」で結合

ここでは、ラベル（label）のプロパティにあるキャプションを「登録者数」とすることで、ユーザーフォームが開くとラベル名が「登録者数」と当然表示されます。

そして、新規追加登録をする（コマンドボタンを押す）と自動的にラベル名が「登録者数＋セルの値＋名」で表示させるようにします。

これにより、今何名登録されているのかが分かるようになりますが、ここではラベルのキャプション取得に絞って記載します。

ラベル名結合表示１
VBAコード

Private Sub CommandButton1_Click()
Label1.Caption = “登録者数　” & Range(“A2”).Value & “　名”
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. ラベル1の文字を「登録者数　セルA2の値　名」と書き換える
  3. マクロ記録終了
ラベル名結合表示2
波乗りアヒル

全角スペースを入れておくと上記のように見やすくなりますよ！

また、2つのセルの値を結合するならば（セルA2とセルB2の場合）下記のように「セル番地 ＆ セル番地」にするだけですよ！

VBAコード

Private Sub CommandButton1_Click()
Label1.Caption = Range(“A2”).Value & Range(“B2”).Value
End Sub

関連記事

どこかにビューーン
ちょっとの工夫で往復無料の時代が来た！！

新着ページ

もっと見る

よく見られているページ

大容量無料ファイル転送サービス【ACデータ】 無料イラスト【イラストAC】

フリーきっぷ TOP

紅葉スポット

もっと見る
]]> ユーザーフォームを開く時にラベルの名前を書き換えて表示する方法 https://tripbowl.net/vba-userformcaption-kakikae-open/ Fri, 14 Sep 2018 03:10:30 +0000 https://tripbowl.net/?p=1231

]]>

エクセル検索
エクセル
キーワード
HOMEUserForm印刷画面ファイル図形
日付・時刻データセル色関数VBA関数

ユーザーフォームに配置したラベル名「Label1」が、フォーム表示と同時に名前や日付などに自動的に表示を変えることができるのをご存知ですか？

方法は簡単で指定したセルの値を読み込ませてから表示させるように、エクセルのVBAコードを書き込むだけなのでご紹介します。

ユーザーフォーム（UserForm)

オリジナルの入力フォームが作れるユーザーフォームの基本表示方法からおさらいです。

ここでは、ユーザーフォームに配置したコマンドボタンにVBAコードを配置することを前提に書きます。

ユーザーフォームを表示する

VBAコード

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. ユーザーフォーム1を表示する
  3. マクロ記録終了

ユーザーフォームを閉じる

VBAコード

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. ユーザーフォーム1を閉じる
  3. マクロ記録終了

ユーザーフォームを閉じて別のユーザーフォームを表示する

VBAコード

Private Sub CommandButton1_Click()
Unload UserForm1
UserForm2.Show
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. ユーザーフォーム1を閉じる
  3. ユーザーフォーム2を表示する
  4. マクロ記録終了

ここまでが基本的なユーザーフォームほ表示・閉じる方法です。

次にユーザーフォームを開く時に、配置されているラベル名をセルの値から読み込んで表示させるようにしましょう。

ユーザーフォームを開く時にラベル名を書き換えて表示

VBAコードは、上から順番にプログラムを実行しますので、UserForm2.Showの前に読み込むVBAコードを書かなくてはいけません。

ここでは、ユーザーフォーム1に配置されたコマンドボタン1を押すと、セルA1の値を読み込んでラベル1を書き換えてからユーザーフォーム2を表示する方法です。

VBAコード

Private Sub CommandButton1_Click()
Unload Me
UserForm2.Label1.Caption = Range(“A1”).Value
UserForm2.Show
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. 表示中のユーザーフォームを閉じる（UserForm1を省略してMe）
  3. ユーザーフォーム2に配置したラベル1の名前をセルA1の値とする
  4. ユーザーフォーム2を表示する
  5. マクロ記録終了

となり、これでユーザーフォーム2が表示されるとラベル名がセルA1の値に書き換えられて表示されます。

ところが、実際にはユーザーフォームに配置されたラベルは1個って事ありませんので、並べて複数書き換えることも可能です。

ラベル書き換えが複数

ここではラベル3つを書き換える方法ですが、これぐらいの数ならばWithステートメントでまとめて書いても平気ですよね。

VBAコード

Private Sub CommandButton1_Click()
Unload Me
With UserForm2
.Label1.Caption = Range(“A1”).Value
.Label2.Caption = Range(“A2”).Value
.Label3.Caption = Range(“A3”).Value
End With
UserForm2.Show
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. 表示中のユーザーフォームを閉じる
  3. ユーザーフォーム2の下記操作をする
  4. ラベル1の名前をセルA1の値とする
  5. ラベル2の名前をセルA2の値とする
  6. ラベル3の名前をセルA3の値とする
  7. Withステートメント
  8. ユーザーフォーム2を表示する
  9. マクロ記録終了

ただ、このラベルの数が30個ぐらいあったら、かなり面倒なので繰り返し処理を使うと楽ですよ。

VBAコード

Private Sub CommandButton1_Click()
Unload Me
For i = 1 To 30
With UserForm2.Controls(“Label” & i)
.Caption = Cells(i, 1).Value
End With
Next i
UserForm2.Show
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. 表示中のユーザーフォームを閉じる
  3. 繰り返し処理の変数「i」を宣言し、変数は1～30とする
  4. ユーザーフォーム2に配置したラベル「i」の
  5. 文字をセルi行目の1列目（A列）の値とする
  6. Withステートメント終了
  7. 指定回数、繰り返し処理をする
  8. ユーザーフォーム2を表示する
  9. マクロ記録終了

このようにすると、書き換えたいラベルが複数あっても簡単にVBAコードを書くことができてしまいますので、ぜひマスターしてくださいね。

波乗りアヒル

ラベルは本来はテキストボックスなどの用途を知らせるだけなのですが、使い方次第で意外と便利なアイテムになりますよ。

関連記事

どこかにビューーン
ちょっとの工夫で往復無料の時代が来た！！

新着ページ

もっと見る

よく見られているページ

大容量無料ファイル転送サービス【ACデータ】 無料イラスト【イラストAC】

フリーきっぷ TOP

紅葉スポット

もっと見る
]]> VLOOKUPをVBAラベルを活用してデータ検索・修正をする方法 https://tripbowl.net/vba-label-vlookup/ Wed, 11 Jul 2018 17:03:53 +0000 https://tripbowl.net/?p=143

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

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

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

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

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

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

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

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

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

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

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コードを順番に説明します。

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

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

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

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

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

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

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

[temp id=19]

]]> 複数のラベル名を一括で複数のセルの値に書き換える方法 https://tripbowl.net/vba-label-change/ Tue, 10 Jul 2018 03:50:43 +0000 https://tripbowl.net/?p=103

ラベルキャプションをセルの値から一括取得 ボウリングの大会や予約でASで名前登録作業を行っていて、一人目の名前を入れると、空欄の部分に登録した名前が表示され、二人目を登録すると2番目に名前が表示されるのが当然ですが、エク […]]]>

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

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

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

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

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

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

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

LTB選手登録

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

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

変数「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]

]]>