2つの変数が同じ仕事でない場合は、なぜ私の文は求めていますか?

ジョー・ゴダード:
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)

おすすめ

転載: http://10.200.1.11:23101/article/api/json?id=399289&siteId=1
おすすめ