すごろくメモ３

Sub 進む_Click()
'キャラクタを取得
With DropDowns("ドロップ 11")
person = .List(.ListIndex)
End With

'集計
'選択した人の列を取得
clm = 0
For i = 12 To 30
If person = ActiveSheet.Cells(16, i).Value Then
clm = i
Exit For
End If
Next i
MsgBox clm

'最終行を取得
last_row_flame = ActiveSheet.Cells(Rows.Count, 14).End(xlUp).Row
last_row_person = ActiveSheet.Cells(Rows.Count, clm).End(xlUp).Row
MsgBox (last_row_flame & "aaa" & last_row_person)


' Call キャラクタ_進む("icon_yuki")
End Sub