ジョー・ゴダード:
Private Sub CommandButtonUndo_Click()
Dim Answer As Integer, LastRow As Variant, PreviousLastRow As Variant
LastRow = Worksheets("DATA").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
PreviousLastRow = Names("PreviousLastRow").Value
If PreviousLastRow = LastRow Then
MsgBox "Can only undo Once"
Else
If LastRow > 1 Then
Answer = MsgBox("Are you sure you want to Undo the Previous Input?", vbYesNo + vbQuestion, "New Job")
If Answer = vbYes Then
Worksheets("DATA").Rows(LastRow).ClearContents
Names("PreviousLastRow").Value = LastRow - 1
End If
End If
End If
End Sub
コードのアイデアは、複数回アンドゥボタンをクリックすることができるというユーザーを停止することです。これは私をトリップされる具体的な部分がありIf PreviousLastRow = LastRow Then
、私は二つの変種が同じである知っている場合でも、単に無視しているようだと、常に他のパスに続きます
コードで同じことを見ていない二つの数字を行うには、これはありますか?
ビッグベン :
以下からのName.Value
ドキュメント:
取得または設定する文字列名を参照するために定義されている式を表す値。
PreviousLastRow = Names("PreviousLastRow").Value
このリターンは=10
、これを取り除く=
とCLng
結果:
PreviousLastRow = Names("PreviousLastRow").Value
PreviousLastRow = Replace(PreviousLastRow, "=","")
PreviousLastrow = Clng(PreviousLastRow)