質問: VBA ユーザーフォームからのセルの指定について教えてください 【前提】 Sheet1のA5:K列(最終行は変動)に管理表があり、5行目が項目行でA6以下には降順で項番が振られています。 UserFoam1のCommandButton1をクリックした時の動きで 1TextBox1で表示されている名前をSheet1管理表のB列から探す 2Sheet1のB列には同じ名前が複数存在する為、その中で一番上にあるセルを指定 3その指定したセルの行番号を変数nに代入 こちらのコードを教えていただけないでしょうか? 行き詰まってしまい困っています... どうぞ宜しくお願い致します。
回答: CommandButton1_Clickイベントに以下を。 指定名が存在しない場合は、変数nの内容はゼロです。 Dim n '<---必要なら宣言セクションでPublicで Dim Namae, LastR, R Dim WS As Worksheet 'UserFormの表示がSheet1では無いかもしれないので Set WS = Worksheets("Sheet1") Namae = TextBox1 If Namae = "" Then MsgBox "名前の記入がありません。" Exit Sub End If n = 0 LastR = WS.Cells(Rows.Count, "B").End(xlUp).Row For R = 6 To LastR If WS.Cells(R, "B") = Namae Then n = R Exit For End If Next R If n = 0 Then MsgBox "指定の名前は存在しません。" Else MsgBox n & " 行目です。" End If