Excel VBA質問箱 IV

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

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


35572 / 76732 ←次へ | 前へ→

【46357】Re:#DIV/0!を表示させず、この用になる場合は違う文字表示
回答  ハチ  - 07/1/31(水) 18:03 -

引用なし
パスワード
   ▼ももたん さん:
>全体をいっきにAUtofillしようにも、1つ1つのセルが割り算の数式が違うのです。
>だから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

0 hits

【46344】#DIV/0!を表示させず、この用になる場合は違う文字表示 ももたん 07/1/31(水) 16:45 質問
【46347】Re:#DIV/0!を表示させず、この用になる場合... へっぽこ 07/1/31(水) 16:50 発言
【46348】Re:#DIV/0!を表示させず、この用になる場合... へっぽこ 07/1/31(水) 16:51 発言
【46349】Re:#DIV/0!を表示させず、この用になる場合... Kein 07/1/31(水) 16:57 回答
【46350】Re:#DIV/0!を表示させず、この用になる場合... ももたん 07/1/31(水) 17:00 質問
【46353】Re:#DIV/0!を表示させず、この用になる場合... ハチ 07/1/31(水) 17:23 発言
【46354】Re:#DIV/0!を表示させず、この用になる場合... ももたん 07/1/31(水) 17:28 質問
【46357】Re:#DIV/0!を表示させず、この用になる場合... ハチ 07/1/31(水) 18:03 回答
【46355】Re:#DIV/0!を表示させず、この用になる場合... Kein 07/1/31(水) 17:30 発言
【46381】Re:#DIV/0!を表示させず、この用になる場合... ぴかる 07/2/1(木) 12:45 発言

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