Excel VBA質問箱 IV

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

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


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

35647 / 76807

←次へ　｜　前へ→


	【46357】Re:#DIV/0!を表示させず、この用になる場合は違う文字表示

ハチ - 07/1/31(水) 18:03 -


	引用なし

	パスワード

▼ももたんさん：
>全体をいっきにAUtofillしようにも、１つ１つのセルが割り算の数式が違うのです。
>だからVBAか何かで方法はあるかと思うのですが、どなたかおわかりになる方はいないでしょうか？？

VBAとはいえ万能ではありません。
その数式に法則性があれば可能かもしれませんが、
いまの情報だけではわかりません。

考え方を変えて
今の数式を"=IF(ISERROR(・・"に書き直すマクロでどうでしょ？
現在の数式は正しいと想定して
数式のある範囲を選択した状態で
↓のマクロを実行してみてください。
念の為、今の状態をバックアップしておくことをお勧めします。

Sub Test()
　　Dim R As Range
　　Dim Siki As String

　　For Each R In Selection
　　　　If Left(R.Formula, 12) <> "=IF(ISERROR(" And _
　　　　Left(R.Formula, 1) = "=" Then
　　　　　　Siki = Mid(R.Formula, 2)
　　　　　　R.Formula = "=IF(ISERROR(" & Siki & "),""×""," & Siki & ")"
　　　　End If
　　Next R
End Sub

1 hits

▼

【46344】#DIV/0!を表示させず、この用になる場合は違う文字表示 ももたん 07/1/31(水) 16:45