| |
参考にして、がんばってください。
Option Explicit
Private Sub CommandButton1_Click()
Dim myNo As String
Dim FindData As Range
Dim chStr1 As String
Dim chStr2 As String
myNo = Application.InputBox("編集する会員番号を入力して下さい。", "編集", Type:=2)
If myNo = "False" Then
MsgBox "キャンセルされました。"
Exit Sub
End If
Set FindData = Range("D:D").Find(What:=myNo, LookIn:=xlValues, LookAt:=xlWhole)
If FindData Is Nothing Then
MsgBox "見つかりませんでした。"
Exit Sub
End If
FindData.Select
FindData.Offset(0, -2).Select
chStr1 = Application.InputBox("年齢を入力して下さい。", _
"年齢編集", FindData.Offset(0, -2).Value, Type:=2)
If chStr1 = "False" Then
MsgBox "キャンセルされました。"
Exit Sub
End If
FindData.Offset(0, -1).Select
chStr2 = Application.InputBox("所属を入力して下さい。", _
"所属編集", FindData.Offset(0, -1).Value, Type:=2)
If chStr2 = "False" Then
MsgBox "キャンセルされました。"
Exit Sub
End If
ActiveSheet.Unprotect
FindData.Offset(0, -2).Value = chStr1
FindData.Offset(0, -1).Value = chStr2
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "編集終了"
End Sub
|
|
