ExcelのROUND関数を一括解除(削除)したいのですが、
やり方を教えてください。
具体的には、
以下のような計算式
=ROUND('収入データ'!A176/'収入データ'!A181,3)
を
='収入データ'!A176/'収入データ'!A181
にしたいのです。
sheet内の表中あちこちに、
=ROUND('収入データ'!A26/'収入データ'!A31,3)
=ROUND('収入データ'!A56/'収入データ'!A61,3)
=ROUND('収入データ'!A86/'収入データ'!A91,3)
などのROUND関数が設定されています。
置換で、*や?を使って試してみましたが、
「入力した数式にはエラーがあります。」という
エラーメッセージが出て、うまく実行できません。
そもそも置換機能では一括解除(削除)できないのでしょうか。
以上、よろしくお願いします。
No.4ベストアンサー
- 回答日時:
VBAですが、標準モジュールに下記を貼り付けて、実行する。
Sub test01()
Dim cl As Range
For Each cl In Selection
If cl.HasFormula Then
f1 = cl.Formula
p = InStr(f1, "ROUND")
If p <> 0 Then
s1 = Split(f1, ",")
s2 = Split(s1(0), "(")
f2 = "=" & s2(1)
cl.Formula = f2
End If
End If
Next
End Sub
ROUNDという式のありそうな(大き目の)、セル範囲全体を範囲指定して、実行してください。ROUNDDOWN、ROUNDUPも省かれます。
上記VBAは式のあるセルを対象にし、ROUNDがあるか。あれば、初め式をカンマでわけ、その1番目をとり、再度その1番目を対象に、
それを(でわけその2番目をとり、=と結合したものを式として設定してます。
他の関数はそのままのはずです。
質問者はVBAがはじめてらしいのですが、上げてみます。
ご指摘どおりVBAは初めてです。
Visual Basic Editorを開いて、何とか「標準モジュール」を見つけて、
貼り付けて、実行してみたら、
(実行された数式の解読までは無理ですが・・・)
確かに出来ました!
ありがとうございました。
No.3
- 回答日時:
何回かに分ければできます。
検索する文字列:=ROUND(
置換後の文字列:★
[すべて置換]
検索する文字列:,3)
置換後の文字列:
[すべて置換]
検索する文字列:★
置換後の文字列:=
[すべて置換]
以上です。
No.2
- 回答日時:
こんな方法でもよいのでしょうか?
Sub test()
Dim i As Range
Dim j As Long
Dim k As String
For Each i In ActiveSheet.UsedRange
If i.FormulaLocal Like "=ROUND*" Then
j = Len(i.FormulaLocal)
k = Mid(i.FormulaLocal, 8, j)
i.Value = "=" & Left(k, j - 10)
End If
Next
End Sub
この回答への補足
SuperMildさん、上記はもしかしてマクロを使う方法でしょうか。
上記方法を是非とも試してみたいのですが、
私はマクロ使用経験がなく、ハードルが高くて、
今すぐ内容を理解することができません。
・・・申し訳ないです。
ありがとうございました。
No4の方の情報をもとに何とか実行してみたのですが、残念ながら
「アプリケーション定義またはオブジェクト定義のエラーです。」と出てしまいました。
デバッグを見たら、
i.Value = "=" & Left(k, j - 10)
のところに黄色マークが付いていました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) Excelの複数人での参照について 2 2022/06/01 13:38
- Excel(エクセル) エクセルでround関数を使わないで四捨五入する方法 10 2022/08/12 15:43
- Excel(エクセル) 10円の誤差が分からない 11 2022/11/13 07:25
- その他(ビジネス・キャリア) Excel関数で、 =INDEX(データE22:E100,1) =INDEX(データE22:E100 1 2023/04/18 00:01
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- iPhone(アイフォーン) 以前使っていたSIMカード抜いた状態のiPhoneの 写真アプリの中のデータを一括削除して 『最近削 2 2022/05/20 03:00
- Excel(エクセル) Power Query でのデータの一括修正について 2 2022/05/10 02:00
- 国産車 新型のアルファードやヴェルファイアは 、今や日本のサラリーマンの平均年収を軽く超える価格になってます 6 2023/08/24 09:22
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
vbaで実行後、指定のセルに戻す...
-
文字を一括で置換するソフト・...
-
Wordで一括して改ページする方法
-
エクセルでアルファベット5段階...
-
WORDで一括置換
-
マクロで文字列をブック全体に...
-
ホームページビルダーでページ...
-
ExcelのROUND関数を一括解除し...
-
エクセルで例えば、関数を使っ...
-
英文のワード文章でアルファベ...
-
Excel2007で置換ができない
-
パワーポイントの置き換えマクロ
-
MAC版Word(2011)で一括で曜日...
-
WORDで特定の言葉を検索できま...
-
古い住所から新しい住所に変換...
-
Wordで複数の単語を一括置換す...
-
Excel2019で1行に入っている複...
-
Access Excel Wordで文章内の文...
-
Atokの単語登録をIMEにコピーし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カンマ区切り形式ではなく、セ...
-
エクセルでアルファベット5段階...
-
文字を一括で置換するソフト・...
-
Excelで、10000,20000,30000と...
-
txtファイル内の指定の単語の数...
-
Ctrl+Hで置換にならない
-
Wordチェックボックス作り方(...
-
ExcelのROUND関数を一括解除し...
-
エクセル 置換中の値の更新
-
例えば斎藤->齋藤、渡辺->渡邉...
-
エクセルで置換リストを別ブッ...
-
秀丸エディタ タブをカンマに...
-
Wordで一括して改ページする方法
-
パワーポイントの置き換えマクロ
-
WORDで一括置換
-
HTMLタグを一括消去する方法
-
vbaで実行後、指定のセルに戻す...
-
マクロで文字列をブック全体に...
-
文字列の<>で囲まれた文字列...
-
置換(検索場所に「ブック」を...
おすすめ情報