1

マクロを使用して、ドキュメントを MS Excel から Open Office に移行する必要があります。この機能以外はすべて正常に動作します

 If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Then
   MsgBox "Nesprávne zadané číslo účtu alebo kód banky!", vbCritical
   ActiveSheet.Protect Password:="****", DrawingObjects:=True, Contents:=True, Scenarios:=True
   Exit Sub
 End If

ユーザーが挿入した値をチェックします。しかし、私はこのエラーだけを受け取ります:

BASIC ランタイム エラー オブジェクトの変数が設定されていません

そのため、セル E12 が空ではなく、入力されているかどうか、ドキュメントを再確認しました。Open Office で入力形式を確認する別の方法はありますか? ありがとう

4

2 に答える 2

1

Excel Visual Basicの番号は、ooのように異なります。getCellByName（ "E12"）。Valueを使用してみてください。この関数はNumberを返します。

于 2011-02-11T11:29:40.263 に答える
0

行If Application.WorksheetFunction.IsNumber(Cells(12, 5)) = False Thenが と言って失敗し、が値を返すobject not setことを確認した場合、私が考えることができる唯一の可能性は、またはです。Cells(12, 5)ApplicationApplication.WorksheetFunctionNothing

于 2011-02-11T10:19:59.467 に答える