Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57063 / 76732

←次へ　｜　前へ→


	【24409】どなたかご指摘を!!

ポンタ - 05/4/21(木) 18:38 -


	引用なし

	パスワード

どなたかご指摘をしてください。

ユーザーフォームのテキストボックスに数値を入力して
セルの数値を書き換えるだけのコトなのですが、
元々、入力されている数値を書き換えようとすると、
“RangeクラスのActivateメソッドが失敗しました。”
と表示されてしまいます。

最初はなんとか動作していたのですが、
途中からテキストA～Dを追加したら、動作しなくなりました。
書き違いがないか何度も何度も確認したのですが、
間違いはありませんでした。

ふと、根本的にコードの書き方自体がおかしいのかとも思ったのですが、
どうにもわかりません。

どなたか、ご教授お願いします。
宜しく、お願いします。

コードはちなみに以下のようになっています。
　↓　↓　↓　↓　↓　↓　↓

Private Sub UserForm_Initialize()
テキストA = Worksheets("I").Cells(27, 1).Value
テキストB = Worksheets("I").Cells(15, 3).Value
テキストC = Worksheets("I").Cells(16, 3).Value
テキストD = Worksheets("I").Cells(17, 3).Value
テキストa = Worksheets("I").Cells(19, 5).Value
テキストb = Worksheets("I").Cells(20, 5).Value
テキストc = Worksheets("I").Cells(21, 5).Value
テキストd = Worksheets("I").Cells(22, 5).Value
テキストe = Worksheets("I").Cells(23, 5).Value
テキストf = Worksheets("I").Cells(24, 5).Value
ラベル１.Caption = Worksheets("I").Cells(24, 5).Value
End Sub

Private Sub テキストA_AfterUpdate()
Worksheets("I").Cells(27, 1).Activate
ActiveCell = テキストA
Dim 変数0 As Currency
On Error GoTo エラー処理へ
変数0 = テキストA
ActiveCell = 変数0
Exit Sub
エラー処理へ:
テキストA = ""
ActiveCell = ""
End Sub

Private Sub テキストB_AfterUpdate()
Worksheets("I").Cells(15, 3).Activate
ActiveCell = テキストB
Dim 変数1 As Currency
On Error GoTo エラー処理へ
変数1 = テキストB
ActiveCell = 変数1
Exit Sub
エラー処理へ:
テキストB = ""
ActiveCell = ""
End Sub

Private Sub テキストC_AfterUpdate()
Worksheets("I").Cells(16, 3).Activate
ActiveCell = テキストC
Dim 変数2 As Currency
On Error GoTo エラー処理へ
変数2 = テキストC
ActiveCell = 変数2
Exit Sub
エラー処理へ:
テキストC = ""
ActiveCell = ""
End Sub

Private Sub テキストD_AfterUpdate()
Worksheets("I").Cells(17, 3).Activate
ActiveCell = テキストD
Dim 変数9 As Currency
On Error GoTo エラー処理へ
変数9 = テキストD
ActiveCell = 変数9
Exit Sub
エラー処理へ:
テキストD = ""
ActiveCell = ""
End Sub

Private Sub テキストa_AfterUpdate()
Worksheets("I").Cells(19, 5).Activate
ActiveCell = テキストa
Dim 変数3 As Currency
On Error GoTo エラー処理へ
変数3 = テキストa
ActiveCell = 変数3
Exit Sub
エラー処理へ:
テキストa = ""
ActiveCell = ""
End Sub

Private Sub テキストb_AfterUpdate()
Worksheets("I").Cells(20, 5).Activate
ActiveCell = テキストb
Dim 変数4 As Currency
On Error GoTo エラー処理へ
変数4 = テキストb
ActiveCell = 変数4
Exit Sub
エラー処理へ:
テキストb = ""
ActiveCell = ""
End Sub

Private Sub テキストc_AfterUpdate()
Worksheets("I").Cells(21, 5).Activate
ActiveCell = テキストc
Dim 変数5 As Currency
On Error GoTo エラー処理へ
変数5 = テキストc
ActiveCell = 変数5
Exit Sub
エラー処理へ:
テキストc = ""
ActiveCell = ""
End Sub

Private Sub テキストd_AfterUpdate()
Worksheets("I").Cells(22, 5).Activate
ActiveCell = テキストd
Dim 変数6 As Currency
On Error GoTo エラー処理へ
変数6 = テキストd
ActiveCell = 変数6
Exit Sub
エラー処理へ:
テキストd = ""
ActiveCell = ""
End Sub

Private Sub テキストe_AfterUpdate()
Worksheets("I").Cells(23, 5).Activate
ActiveCell = テキストe
Dim 数値の変数7 As Currency
On Error GoTo エラー処理へ
変数7 = テキストe
ActiveCell = 変数7
Exit Sub
エラー処理へ:
テキストe = ""
ActiveCell = ""
End Sub

Private Sub テキストf_AfterUpdate()
Worksheets("I").Cells(24, 5).Activate
ActiveCell = テキストf
Dim 変数8 As Currency
On Error GoTo エラー処理へ
変数8 = テキストf
ActiveCell = 変数8
Exit Sub
エラー処理へ:
テキストf = ""
ActiveCell = ""
End Sub

0 hits

▼

【24409】どなたかご指摘を!! ポンタ 05/4/21(木) 18:38

≪