Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10266 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22814】エラー処理について hisao 05/3/4(金) 9:25 質問[未読]
【22815】Re:エラー処理について Jaka 05/3/4(金) 10:34 回答[未読]
【22817】Re:エラー処理について G-Luck 05/3/4(金) 12:05 回答[未読]
【22823】Re:エラー処理について hisao 05/3/4(金) 14:06 お礼[未読]
【22822】Re:エラー処理について hisao 05/3/4(金) 14:05 お礼[未読]
【22814】エラー処理について
質問  hisao E-MAIL  - 05/3/4(金) 9:25 -
引用なし
パスワード
   教えて下さい
match関数でエラー(#N/A)を取得すればactivecell.offset(,1).select
実数を取得すれば　activecellでリストボックスを表示したいのですが
方法を教えて下さい。
if エラーの場合　then,else の様な 形を取れれば良いのですが。
【22815】Re:エラー処理について
回答  Jaka  - 05/3/4(金) 10:34 -
引用なし
パスワード
   こんにちは。

▼hisao さん：
>match関数でエラー(#N/A)を取得すればactivecell.offset(,1).select
取得方法っていうか、match関数をどうやって使っているのか解りませんが、セルの関数だとすると、これでいいと思います。。

If IsError(Range("A1").Value) Then
　 MsgBox "err"
Else
　 MsgBox Range("A1").Value
End If
【22817】Re:エラー処理について
回答  G-Luck  - 05/3/4(金) 12:05 -
引用なし
パスワード
   ▼hisao さん
Jakaさん、こんにちは

イベントで、再計算後というのがあるのですが、それのことでしょうか？
下記は、Book上に書く場合です。

'以下コード
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
　　If TypeName(Worksheets("Sheet1").Range("A1").Value) = "Error" Then
　　　　MsgBox "エラーを取得"
　　End If
End Sub
【22822】Re:エラー処理について
お礼  hisao E-MAIL  - 05/3/4(金) 14:05 -
引用なし
パスワード
   ▼Jaka さん：
有り難う御座いました。

>こんにちは。
>
>▼hisao さん：
>>match関数でエラー(#N/A)を取得すればactivecell.offset(,1).select
>取得方法っていうか、match関数をどうやって使っているのか解りませんが、セルの関数だとすると、これでいいと思います。。
>
>If IsError(Range("A1").Value) Then
>　 MsgBox "err"
>Else
>　 MsgBox Range("A1").Value
>End If
【22823】Re:エラー処理について
お礼  hisao E-MAIL  - 05/3/4(金) 14:06 -
引用なし
パスワード
   ▼G-Luck さん：

有り難う御座いました

>イベントで、再計算後というのがあるのですが、それのことでしょうか？
>下記は、Book上に書く場合です。
>
>'以下コード
>Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
>　　If TypeName(Worksheets("Sheet1").Range("A1").Value) = "Error" Then
>　　　　MsgBox "エラーを取得"
>　　End If
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10266 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free