No.3ベストアンサー
- 回答日時:
以下の様な物はいかがでしょうか?選択されている部分を変更します。
Sub 絶対参照へ変換()
Dim セル As Range
For Each セル In Selection
If セル.HasFormula Then
セル.FormulaLocal = Application.ConvertFormula(セル.FormulaLocal, xlA1, xlA1, xlAbsolute)
End If
Next
End Sub
※「xlAbsolute」を以下のように変更すると次のように出来ます。
「xlRelative」にすると、相対参照になります。
「xlAbsRowRelColumn」にすると、行は絶対参照、列は相対参照になります。
「xlRelRowAbsColumn」にすると、行は相対参照、列は絶対参照になります。
No.4
- 回答日時:
#2です
>知識が足りなくて申し訳ありませんが、コピー元のデータ範囲と、貼り付け先のデータ範囲の指定は出来るのでしょうか?
コピー、貼り付け時のデータ範囲に対応する(書き方が少し変わります)ことも出来ますが、範囲が不明です。
>もしくは、元セルのセルに含まれるセル番地に一括して絶対値を付与する方法
として、回答しましたが、データ範囲を限定したいと言う事でしたか、残念。
範囲が示されていないのでその場合、GooUserラック氏の回答にあるようにSelectionが良いでしょう。
普通に考えるとSelectionの方が汎用性ありますよね。。
寝る前だったので、考えず、>複数のセルを一括して で.UsedRange(アクティブシートの使用しているセル範囲全て)にしました。
Sub Sample()
Dim cel As Range ’セル
With ActiveSheet ’アクティブなシート(複数選択の場合、表示されているシート)
For Each cel In .UsedRange ’使用されているセル範囲すべて
If Range(cel.Address).HasFormula = True Then ’セルの内容に数式があるかHasFormulaプロパティで調べる
cel.Formula = Application.ConvertFormula(cel.Formula, xlA1, xlA1, xlAbsolute)’ ConvertFormulaで数式を操作する。これにつては#3にあります。
End If
Next cel
End With
End Sub
こんにちは、返事が遅くなってすみません、
ご丁寧に最後まで教えて頂き、ありがとうございます。
おかげさまで目的が果たせました、行 列 まで応用できるのも知りました。
大変ありがたく思います、ありがとうございました!
No.2
- 回答日時:
こんばんは、このようなのでいかがでしょう。
一例です。
Sub Sample()
Dim cel As Range
With ActiveSheet
For Each cel In .UsedRange
If Range(cel.Address).HasFormula = True Then
cel.Formula = Application.ConvertFormula(cel.Formula, xlA1, xlA1, xlAbsolute)
End If
Next cel
End With
End Sub
回答いただき ありがとうございます。
知識が足りなくて申し訳ありませんが、コピー元のデータ範囲と、貼り付け先のデータ範囲の指定は出来るのでしょうか?
No.1
- 回答日時:
計算式の列記号や行番号の前に「$」を付けるマクロという事ですか?
こんばんわ、前回は回答いただきありがとうございます。
その通りです。
A1 =(E142+E163+E184+E205+E226+E247+E541)/7
B1 =(F142+F163+F184+F205+F226+F247+F541)/7
C1 =(G142+G163+G184+G205+G226+G247+G541)/7
みたいな感じで数式が入っているのですが、貼りつける際に参照元が変わってしまうのを防ぐために、一括で絶対値を付与するか、上記のデータ全てに絶対値を付与したいと言う事です。
(実際はもっとたくさんのコピペがあります。)
マクロは依然ボタンクリックのみ出来るようで、もしマクロで解決する方法であれば、ボタンクリックで行いたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの複数条件の関数
-
エクセルで指定したセルのどれ...
-
【エクセル】IF関数 Aまたは...
-
貼り付けで複数セルに貼り付けたい
-
Excelで数式内の文字色を一部だ...
-
エクセルのセルの枠を超えて文...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
【Excel】 セルの色での判断は...
-
枠に収まらない文字を非表示に...
-
エクセル オートフィルタで絞...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
(Excel)数字記入セルの数値の後...
-
EXCEL VBA セルに既に入...
-
数式を残したまま、別のセルに...
-
エクセルの書式設定の表示形式...
-
エクセルで住所と建物名を分け...
-
エクセルの一つのセルに複数の...
-
Excelの関数で、性別が男なら『...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
Excelで数式内の文字色を一部だ...
-
エクセルで指定したセルのどれ...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excel for Mac使用中ポインタが...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
おすすめ情報
コピペではなく絶対値を付与する方法でしたね、解決しました!
ありがとうございました!