Excel VBA質問箱 IV

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

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


68658 / 76738 ←次へ | 前へ→

【12613】型が違いますとエラーになるのは?
質問  ぴぴ  - 04/4/9(金) 11:46 -

引用なし
パスワード
   お恥ずかしい程の初心者ですが、お教え下さい。
E列の最後の値が0ならそのシートを削除し
0以外なら(マイナスでも)その値をE1へ転記したいのですが
エラーになります。
どのように直せばいいのでしょうか?

Sub test()

Dim a As String

 a = ActiveSheet.Range("E65536").End(xlUp).Value
 
 If a = 0 Then ←”型が違います”とエラーが出ます
  
  ActiveSheet.Delete
Else
ActiveSheet.Range("E1").Value = a
ActiveSheet.Range("A3:G200").Select
   Selection.SpecialCells(xlCellTypeConstants, 23).Select
   Selection.ClearContents
 
 End If
End Sub
0 hits

【12613】型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 11:46 質問
【12617】Re:型が違いますとエラーになるのは? Jaka 04/4/9(金) 12:29 回答
【12620】Re:型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 13:12 質問
【12624】Re:型が違いますとエラーになるのは? Jaka 04/4/9(金) 13:38 回答
【12626】Re:型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 14:31 質問
【12627】Re:型が違いますとエラーになるのは? ぴかる 04/4/9(金) 14:40 発言
【12633】残念。 Jaka 04/4/9(金) 15:46 発言
【12635】Re:残念。 ぴかる 04/4/9(金) 15:54 発言
【12631】Re:型が違いますとエラーになるのは? Jaka 04/4/9(金) 15:42 回答
【12632】Re:型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 15:45 発言
【12636】Re:型が違いますとエラーになるのは? Jaka 04/4/9(金) 15:59 質問
【12638】Re:型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 16:16 発言
【12639】Re:型が違いますとエラーになるのは? Jaka 04/4/9(金) 16:46 回答
【12642】Re:型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 16:58 質問
【12645】Re:型が違いますとエラーになるのは? Jaka 04/4/9(金) 17:16 回答
【12649】Re:型が違いますとエラーになるのは? ぴぴ 04/4/9(金) 17:38 お礼

68658 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free