エクセル　シート単位での絶対値を設定したい。

締切済

質問者：hiro2841
質問日時：2011/04/18 22:48
回答数：6件

セル単位であれば、ＡＢＳ関数で対応が出来ますが、シート全体で絶対値のみの設定ということは出来ますでしょうか？

　　１回目　２回目　３回目
A1　　-1　　　+3　　　-0.5

全ての求めた数値を、絶対値で表示させたいです。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

最新から表示
回答順に表示

No.6

回答者： toshi_2010
回答日時：2011/04/21 23:55

質問とずれてしまうかも知れませんが

小難しく考えたり、設定するまでもなく、マクロを組むまでもなく、一度別シートに値をコピーして

置換で検索値に符号、置換後の文字列を空にし、置換対象を値にしてすべて置換ではだめでしょうか？

- 0
- 件

通報する

No.5

回答者： mu2011
回答日時：2011/04/19 11:58

>シート全体で絶対値のみの設定

　⇒そのような設定はできない、セルの書式設定はあくまでも表示だけなので実際の値は元のままです。
　　マクロ（ＶＢＡ）で組み込む事になるが簡単ではないので地道に各数式にABS関数で対応した方が良いと思う。

- 0
- 件

通報する

No.4

回答者： imogasi
回答日時：2011/04/19 10:34

A1:D1セル範囲に

-120-3
A１：Ｄ１を範囲指定して
書式
セル
表示形式
ユーザー定義
[<0]#;G/標準
で
1203
になりました
＝＝＝＝
セルの値は変わっていません（数式バー部でわかｔります）。見てくれだけが変わります。
たまたま出来た、という類のことで、きわどい質問です。
別シートにでもセルの値として絶対値データを持つべきかな。

- 0
- 件

通報する

No.3

回答者： KURUMITO
回答日時：2011/04/19 10:33

セルの表示形式で見かけ上、マイナスの値をプラスの値で表示させることはできますがマイナスの数値を絶対値に変えて表示させるにはマクロを使うことになるでしょう。

シート見出しで街頭のシート名を右クリックし、「コードの表示」を選択します。
表示される右の窓には次のコードを入力します。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value < 0 Then
Target.Value = Target.Value * -1
Else
Target.Value = Target.Value * 1
End If

End Sub

- 0
- 件

通報する

No.2

回答者： bin-chan
回答日時：2011/04/18 23:14

> 全ての求めた数値を、絶対値で表示させたいです。

この部分を詳しく教えてください。

シート単位の「何」が絶対値なんですか？
正の値の場合に＋を付けて表示したいのであれば、表示形式を変更すればＯＫ。
シートの左上隅、見出しが交差する部分を選択すればシート全体を選択できます。

- 0
- 件

通報する

No.1

回答者： keithin
回答日時：2011/04/18 23:13

＞全ての求めた数値を、絶対値で表示させたい

必要なセル範囲をまとめて選んで右クリックして書式設定から表示形式のユーザー定義で
G/標準;G/標準;0;@
のように設定してみます。

あるいは
＞求めた数値を
計算式で求めた数値なのでしたら，最初から計算式にABS関数を付けておけばそれでおしまいと思いますが。

＃ていうか
＞A1　　-1　　　+3　　　-0.5

といった具体的な数字の例を挙げてご相談投稿されたのはとても良かったと思うのですが，あと一言肝心のこれらを「一体具体的にどういう表示にしたいのか」の方も，キチンと提示してご相談を投稿してみるともっと良かったかもしれませんね。

- 0
- 件

通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q絶対値を含む不等式の証明（２）

お世話さまです。

絶対値を含む不等式の証明にはほんとにお手上げです。
ふつうの不等式の証明はできていたのですが・・・。

次の不等式を証明しなさい。と言う問題で。

|a-b|<=|a|+|b|

私のこたえかた（見よう見まねで全然わかっていないのですが）

|a-b|^2-(|a|+|b|)^2<=0
a^2+2ab+b^2-a^2-2ab-b^2<=0
0<=0
|a-b|^2-(|a|+|b|)^2<=0
よって|a-b|<=|a|+|b|
等号はa=b=0

絶対、おかしいとは思うのですが、
絶対値の不等式でなにをすればいいのかわかっていません。
上記の問題の解き方と絶対値の不等式の証明はなにをすればいいか
ご教授ください。よろしくお願いします。

Aベストアンサー

たびたび失礼します。

> =-2pq-2|p||q|
> =-2(pq+|p||q|)>=0・・・・（＊）　
この部分、
=-2pq-2|p||q|
=-2(pq+|p||q|)<=0・・・・（＊）　
の間違いですね。
考え方は大丈夫だと思いますよ。

ただ、失礼ですが、ちょっと解答の書き方も勉強された方がよろしいですね。
ちょっとおこがましいですが、模範的な解答例です。
------------------------------------------------------------------
【問】a,b,cを実数とするとき、不等式|a-b|<=|a-c|+|b-c|を証明しなさい。

【解答その１】（|a-b|<=|a|+|b| が既知でないとします。）
a-c=p, b-c=q とおくと
a-b=(a-c)-(b-c)=p-q …(*)となるので、
与式：|a-b|<=|a-c|+|b-c|
を証明するには
|p-q|<=|p|+|q| …(1)
を証明すればよい。（∵(1) は、与式にa-c=p, b-c=q を代入したもの）
(|p|+|q|)^2 - |p-q|^2
=|p|^2+2|p||q|+|q|^2 -(p-q)^2
=p^2+2|pq|+q^2 -(p^2-2pq+q^2) = 2(|pq|+pq) >= 0 (∵|pq|>=pq)
∴|p-q|^2 <= (|p|+|q|)^2
よって、|p-q|>=0, |p|+|q|>=0 なので　(1)も成り立つ。
従って、与式：|a-b|<=|a-c|+|b-c| も成り立つ。
等号は pq<=0 のとき成り立つ。
pq<=0　すなわち (a-c)(b-c)<=0 のとき
「a-c<=0 かつ b-c>=0」または、「a-c>=0 かつ b-c<=0」
前者の場合　a<=c かつ　b>=c より、 a<=c<=b
後者の場合　a>=c かつ　b<=c より、 b<=c<=a
よって等号成立条件は、a<=c<=b　または、b<=c<=aの関係を満たすとき、である。
<証明終>

【解答その２】（問１で、|a-b|<=|a|+|b| を証明（既知であると）し、本問が問２であったような場合とします。）
a-c=p, b-c=q とおくと
a-b=(a-c)-(b-c)=p-q …(*)となるので、
与式：|a-b|<=|a-c|+|b-c| は、
|p-q|<=|p|+|q| …(1)
となる。問１の結果より、(1)は証明されているので
与式：|a-b|<=|a-c|+|b-c|も成り立つ。
（以下、等号成立条件はその１と同じ） <証明終>
------------------------------------------------------------------
ま、こんな感じでしょうか。
あとは、慣れです。

他の回答も見る

QEXCELで複数シート作成後、全シート書式設定の同一設定は可能か

　質問はタイトルの通りです。

　EXCELの使用で、一つのファイルで複数シート作成し、個々のシートの複数のセルに別の文字等を入力後、何かの設定操作で全部のシートの書式設定を同一の書式設定にすることは可能でしょうか。

　データ入力前でしたら、書式設定後にシートのコピーすれば同一書式に設定されているのでコピーして使用しています。

　ちなみに使っているものはEXCEL2002 SP3です。

　可能でしたら操作方法をお教えください。

　宜しくお願い致します。

Aベストアンサー

シート見出しの最も左端のシートをクリックしたのちに最も右端のシート名をShiftキーをしながらクリックすることで全シートが一つの作業グループになりますので、その状態で表示のシートの書式を一旦標準にしたのちに、それぞれのセル範囲で指定する書式に変更する作業をすることで、すべてのシートの書式が同時に変更されますね。最後に作業グループの解除はシート見出しで右クリックして「作業グループ解除」を選択すればよいでしょう。

他の回答も見る

Q絶対値を含む不等式の証明

お世話様です。

不等式の証明は平方完成して解いてきましたが、絶対値を含む不等式も
それで解けるそうなのですが、なにをしていいのかまったくわかりません。

例題として|a+b|>=|a|+|b|

これの答えはあります。
どんなことをすれば、この絶対値を含む不等式が証明されるかできるだけ
わかりやすく教えて頂ければ幸いです。

納得次第、締め切ります。よろしくお願いします。

Aベストアンサー

＞（１）|a-b|<=|a|+|b|
これは,　すでに証明された　|a+b|≦|a|+|b| ・・・（＊）
の式で，a,bは実数で何でも良いので，bを-bで置き換えた式
|a+(-b)|≦|a|+|-b|
⇔|a-b|<=|a|+|b|　[∵a+(-b)=a-b, |-b|=|b|(≧0)　(|-3|=|3|=3など)]
も成立します．

又，場合分けが必要な問題の例ですが，今はあまり適切な例が思いあたらないのですみませんが，例えば
＞[∵|ab|≧ab]（←abが正，０，負のどの場合も成立し，等号はab≧0のとき）
この場合などです．

あとは
例)x^2-|x|+1＞０　が成り立つことを示せ．
...続きを読む

他の回答も見る

Q0:15　を　セルの書式設定で15分単位　と表示したい。（FLOOR関数,CEILING関、）

0:15　を　セルの書式設定で15分単位　と表示したいです。（FLOOR関数,CEILING関、）
0：30　は　セルの書式設定で　30分単位　と表示したいです。

タイムカードから勤務時間を計算しています。

勤務開始は15分単位で切上　FLOOR関数
勤務終了は15分単位で切り捨て　CEILING関数
を使っています。

この15分単位の箇所を、
1分単位、5分単位、30分単位のリスト選択で動的に変更したいです。

この値を直接関数に直接入れると、　エラーになるので、
0：01、0：05、0：30　の値をセルの書式設定で　1分単位、5分単位、30分単位　と表示できればいいなと思ったのです。

どのようにすればよいのかアドバイスをお願いいたします。

Aベストアンサー

単純にユーザー定義でｍとすると月になったちゃうので

[m]”分単位”

で如何でしょうか？

他の回答も見る

Q不等式６Xー４＞８Xー９を満たすXの範囲のうち、絶対値が５以下の整数を

不等式６Xー４＞８Xー９を満たすXの範囲のうち、絶対値が５以下の整数を全て求めよ。

教えて下さい。

Aベストアンサー

まず一時不等式を解かなければ。
方程式と同じ式変形なので難しくないと思いますが、
両辺に負の数をかけると不等号がひっくり返りますので、注意。
そうするとｘ＜２．５になります。

絶対値５以下の整数はわかりますか？
－５から５までの整数（両端含む）のことですよ。
-5,-4,-3,-2,-1,0,1,2,3,4,5です。
そのうち不等式の解を満たすものなので3,4,5だけがはずれます。

他の回答も見る

QExcelでブック内全シートの同じ位置セルに共通の名前定義１つでVBA設定したい。

Excel2003でBook中のシート(例：Sheet1!$A$1をACELLという名前)で登録します。
セルの名前定義ダイヤログで参照先アドレスを手で編集(例： =!$A$1)します。

■そうすると、同じブック中の各シートのセル関数で =ACELL&"です"と参照すると
セルがあるシートの$A$1セル内容が使用されます。

これに気をよくして使っていましたが、VBAのnameオブジェクトにあるReferToプロパティーや
Valueプロパティーに値を入れるとエラーシグナルが発生して受け付けてくれません。
【例】
dim NM as Name
set NM=Applic...続きを読む

Aベストアンサー

ActiveWorkbook.Names("ACELL").RefersToR1C1 = "=!R1C1"

他の回答も見る

Q絶対値を含む三角不等式の証明を教えてください。

絶対値を含む不等式（三角不等式）の証明を教えてください。

次の不等式が成り立つことを証明せよ。
｜a｜－｜ｂ｜≦｜a＋ｂ｜≦｜a｜＋｜ｂ｜　

よろしくお願いします。　　

Aベストアンサー

a≧0かつb≧0のとき　|a+b|=a+b=|a|+|b|
a≧0かつb≦0のとき　|a+b|=|a|-|b|≦|a|+|b|
a≦0かつb≧0のとき　|a+b|=-|a|+|b|≦|a|+|b|
a≦0かつb≦0のとき　|a+b|=-|a|-|b|≦|a|+|b|
以上より、|a+b|≦|a|+|b| ……(1)

ここで(1)において、a→a+b、b→-bと置換すると、
|a+b-b|≦|a+b|+|-b|
⇔|a|-|b|≦|a+b| ……(2)

(1)(2)より示された。(証明終わり)

他の回答も見る

Q全シートを選択し、それぞれ特定のセルの値をシート名とするマクロを教えて

全シートを選択し、それぞれ特定のセルの値をシート名とするマクロを教えてください。

Worksheets.Select
ActiveSheet.Name = Range("A1").Value

ではダメなんですね…
記録マクロ以上のことはほとんど何もわからない、マクロ初心者です。

条件としては、
　・シート数はその都度変わる
　・シート名にしたいセル番地は決まっている
です。

具体的には、「請求書」などの決まったフォーマットで作成された複数のシートがあり、
決まったセルに入力された「宛名」をそれぞれのシート名にしたい
というような場合...続きを読む

Aベストアンサー

こんばんは！
ごく単純にやってみました。
Sheetは1からあるとし、Sheet名はA1セルの名前にするようにしています。
↓のコードを標準モジュールにコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Name = i & Worksheets(i).Cells(1, 1).Value
Next i
End Sub

「決まったセル」が別セルであれば、コード内の
Cells(1, 1)　の部分を変更してみてください。

以上、この程度ですが
参考になれば幸いです。m(__)m

他の回答も見る

Q不等式２（１－x）≧３（x－２）を満たす整数xのうち、絶対値が３以下の

不等式２（１－x）≧３（x－２）を満たす整数xのうち、絶対値が３以下のものは何個あるか。

この問題の解き方教えてください。

Aベストアンサー

2(1-x)≧3(x-2)
2-2x≧3x-6
8≧5x
x≦8/5
絶対値が3以下の整数は
-3,-2,-1,0,1,2,3
です。
じゃあ、何個ある？

他の回答も見る

Qエクセル関数文字が一致した場合、別シートのセルに反す

sheet1 　　sheet2
A　　B 　　A　　B
犬 10 　　30　　烏
猫 20
烏 30
牛 40

sheet1の表を元に、sheet2のA列のセルに入力した文字がsheet1のB列の中に一致した場合、左隣のセルの文字をsheet2のB列のセル(右隣)に反す式を作りたいのですが、上手くいかず困ってます。一致した文字が無い場合、空白になるようにもしたいのですが…

どうかご教示宜しくお願い致します！

Aベストアンサー

一致するセルが返すセルより左にある場合はVLOOKUPを使うことで可能です。
データを入れる順番を変えるとか、C列にA列と同じデータを表示するとかすれば、
=VLOOKUP(「検索するデータの入ったセル」,「検索する範囲の上端のセル（もしくはそれより上のセル）：表示するデータの下端のセル（もしくはそれより右下のセル）」,「検索する列を1列目と数えて、表示するデータが何列目にあたるか」,FALSE）
とすることで、目的が達せられます。「」の部分については該当するセル、範囲、数値を指定してください。
範囲に...続きを読む

他の回答も見る

ページトップ