アレルギー対策、自宅でできる効果的な方法とは?

excelのif関数の中に引き算を入れたいのですが、上手く入れられず困っております。
C4の値が11未満なら0、11以上の場合はC4-10の値(例えばC4の値が14である場合は14-10=4)を返したいのですが、良い方法が解らずにおります。
if関数でなくとも、他にこの関数で出来るよ!など、お知恵を拝借させていただきたく、どうか宜しくお願い致します。
お詳しい方、何卒ご教示くださいませ!

A 回答 (2件)

例えば


a1 にその式を入力するなら、

=if(c4<11,0,c4-10) と入れればそれでok 間違ったこと教えちゃったら問題なので、試してみましたけど、これでいけますよ。

ひょっとしたら、「,」と「.」を間違ったりしていませんか?

あるいは、=を入力していないとか、、、。
    • good
    • 0
この回答へのお礼

早速のご教示、ありがとうございます!変に難しく考えてしまっていました。無事解決しました、ありがとうございました!

お礼日時:2017/05/17 01:03

例えば、


=IF(C4<11,0,C4-10)
とか。
    • good
    • 0
この回答へのお礼

早速のご教示、ありがとうございます!変に難しく考えてしまっていました。無事解決しました、ありがとうございました!

お礼日時:2017/05/17 01:03

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

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

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

Qエクセルで条件に合う引き算をしたい

この条件を満たす引き算の方法を教えてください。よろしくお願いします。

残額の引き算をしたいのですが、
・名称1,2,3は名称1に金額を入力すると名称1を表示
・名称1の引き算は当初ー名称1
・当初と補正に両方金額がある場合は補正から引き算を行う
当初 補正 名称1 名称2 名称3 残額
名称1100  5050
名称2100  50  7030
名称3100  50  70  9010

Aベストアンサー

ということは、
名称3に数値が入っているときは、名称1、2には数値が入っている。
名称2に数値が入っている時は名称1には数値が入り、名称3は数値が入っていない。
名称1に数値が入っている時は名称2,3には数値は入っていない。
上記の優先順位で式を成り立たせたいという事ですよね?

If(名称3="",If(名称2="",If(補正="",当初-名称1,補正-名称1),If(補正="",当初-名称2,補正-名称2)),If(補正="",当初-名称3,補正-名称3))

というようにIfの比較順を変えればいけますよ。

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

Q数式を値に置換するには?

Excelにて、数式のエラー(#N/A)を検索オプションにて、値で検索し、値(0)←数字のゼロに置換しようとするのですが、上手くいきません。
置換できる方法を教えて下さい。

Aベストアンサー

こんにちは!

VBAになりますが一例です。
すべてのエラーセル(#N/Aや#DIV/0!など)が「0」になります。

Sub Sample1()
Dim myRng As Range
Set myRng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
If Not myRng Is Nothing Then
myRng = 0
End If
End Sub
 
※ #N/A のエラーだけを「0」にしたい場合は↓のコードにしてみてください。

Sub Sample2()
Dim c As Range, myRng As Range
Set myRng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
If Not myRng Is Nothing Then
For Each c In myRng
If c = CVErr(xlErrNA) Then
c = 0
End If
Next c
End If
End Sub

こんな感じではどうでしょうか?m(_ _)m

こんにちは!

VBAになりますが一例です。
すべてのエラーセル(#N/Aや#DIV/0!など)が「0」になります。

Sub Sample1()
Dim myRng As Range
Set myRng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
If Not myRng Is Nothing Then
myRng = 0
End If
End Sub
 
※ #N/A のエラーだけを「0」にしたい場合は↓のコードにしてみてください。

Sub Sample2()
Dim c As Range, myRng As Range
Set myRng = ActiveSheet.Cells.SpecialCells(x...続きを読む

Q<エクセル>2つのデータに間違いがないかをチェックしたい

エクセルで入力したデータが、ルールに基づいて正しく入力できているかどうかを確認するような関数はありますか?

例として(添付画像もつけさせていただきました)「粉薬」と「飲薬」を入力し、各容量を入力します。
「粉薬」と「××g」、「飲薬」と「××」は必ずセットで入力されていることが必須です。
もし誤って「粉薬」のときに「××」と入力をした場合に、間違った入力がされていることが表示されるような関数はありますでしょうか?
枠外に〇や×として表示される
セルに色がつく・・・等

色々検索をして試してみたのですがうまくいきません。
VBAなども出てきたのですが私自身知識が全くないことと、作成したデータをあまりエクセルが得意ではない人が使う可能性などを考え、できれば関数などでできれば・・・と考えています。

Aベストアンサー

=IF(NOT(ISERROR(FIND("粉薬",B2))),IF(NOT(ISERROR(FIND("g",C2))),"○","×"),"・")
b2に粉薬の文字がある場合で、かつ、(c2にgの文字がある場合には、○を表示、ない場合は×を表示)、左記以外は・を表示

QExcelを使って行列変換をしたい(大量件数)

先日質問させていただいたものです。
さらなる加工が必要になりました。

例えば、
◆test
aaaaaa
iiiiiiiiiiiii
uuuuu
eeeee
ooooo
◆test2
kaaaaa
kiiiiiiiiiii
kuuuuu
keeeee
kooooo
...

これらのデータを
◆test aaaaaa
    iiiiiiiiiiiiii
    uuuuuu
eeeeee
oooooo
◆test2 kaaaaa
     kiiiiiiiiiii
     kuuuu
     keeeee
     koooooo

に変換はできたのですが、今度は
◆test aaaaaaaa iiiiiiiiiii uuuuuuuuuuu eeeeeee oooooo
◆test2 kaaaaaa kiiiiiiiii kuuuuuuuuu keeeeee koooooooo

のように変換する必要がでてしまいました。

マクロなどで一括で変換できないでしょうか。
当方知識が乏しいため困っております。

先日質問させていただいたものです。
さらなる加工が必要になりました。

例えば、
◆test
aaaaaa
iiiiiiiiiiiii
uuuuu
eeeee
ooooo
◆test2
kaaaaa
kiiiiiiiiiii
kuuuuu
keeeee
kooooo
...

これらのデータを
◆test aaaaaa
    iiiiiiiiiiiiii
    uuuuuu
eeeeee
oooooo
◆test2 kaaaaa
     kiiiiiiiiiii
     kuuuu
     keeeee
     koooooo

に変換はできたのですが、今度は
◆test aaaaaaaa iiiiiiiiiii uuuuuuuuuuu eeeee...続きを読む

Aベストアンサー

こんにちは!

別シートに表示しても良いですか?
元データはSheet1のA列にあり、Sheet2に表示するとします。
標準モジュールにしてください。

Sub Sample1()
Dim i As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If InStr(.Cells(i, "A"), "◆") > 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, "A")
Else
wS.Cells(cnt, Columns.Count).End(xlToLeft).Offset(, 1) = .Cells(i, "A")
End If
Next i
End With
End Sub

こんな感じではどうでしょうか?m(_ _)m

こんにちは!

別シートに表示しても良いですか?
元データはSheet1のA列にあり、Sheet2に表示するとします。
標準モジュールにしてください。

Sub Sample1()
Dim i As Long, cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
With Worksheets("Sheet1")
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If InStr(.Cells(i, "A"), "◆") > 0 Then
cnt = cnt + 1
wS.Cells(...続きを読む

QExcelについて教えて頂きたいのですが。縦に1~10行あり、名前あり、例えば5番目の方が休みの時に

Excelについて教えて頂きたいのですが。縦に1~10行あり、名前あり、例えば5番目の方が休みの時に自動的に5番目の行の所に下から詰める方法はありますか?

Aベストアンサー

配列の確定をしない場合、こんなふうにできます。

=IFERROR(INDEX($A$1:$B$11,SUMPRODUCT(SMALL(ROW($A$1:$A$11)+($B$1:$B$11<>"")*100,ROW(A1))),1),"")

注意点
=IFERROR(INDEX($A$1:$B$11,
  $A$1:$B$11 ←全体の範囲/1行目から始まる
  
SUMPRODUCT(SMALL(
ROW($A$1:$A$11)+($B$1:$B$11<>"")*100,
  $A$1:$A$11 ,$B$1:$B$11 ←1行目から始まる

ROW(A1))),1),"")

つまり、計算上で出てくる「0値」の追い出しですね。

Qエクセルデータをカンマ区切り、ダブルコーテーションで囲んだデータにする方法を教えてください

はじめまして。
仕事でエクセルデータをカンマ区切り、ダブルコーテーション囲みのテキストデータにする必要があります。

例)
”111”,"222","","","","666""

このように空白のセルもあり、そのセルもダブルコーテーションで囲みたいです。
VBAで変更する方法をどこかで見かけましたが、張り付けてみましたが、上手く動きませんでした。
超初心者ですので、わかりやすく教えていただけると有り難いです。

お手数をおかけしますが、宜しくお願い致します。

Aベストアンサー

Unicode 出力の件ですが、せっかく、個人用マクロブックに納められる(つもり)ので、それを、書き換えるよりも、後づけマクロのほうがよいかもしれません。一緒にしてしまうと、Unicodeのみになってしまいますから、それも望まないし……
とあれこれ考えて、単独マクロで、Unicodeファイル判別するプログラムもつけました。BigEndien も LittleEndienも別けますが、出力は、BigEndienだけです。
こういうのは、余計なものかもしれません。

'//
Public Sub Convert2UNICODE()
'シフトJISをUnicodeに替えるマクロ
Dim stream As Object
Dim stream2 As Object
Dim fname As Variant
Dim buf As Variant
Dim b() As Byte
Dim i As Long
fname = Application.GetOpenFilename _
 ("File (*.*), *.*", 1, "ファイルオープン")
 If VarType(fname) = vbBoolean Then Exit Sub
 Open fname For Binary As #1
   ReDim b(1 To 6)
    Get #1, , b
  Close #1
 For i = 1 To 6
 buf = buf & Hex(b(i))
 Next
 If buf Like "FFFE*" Or buf Like "FEFF*" Then
  MsgBox "ファイルはすでにUnicodeです。", vbExclamation
  Exit Sub
 End If
 '-------変換プログラム-----------
On Error GoTo ErrHandler
Set stream = CreateObject("ADODB.Stream")
  stream.Open
  stream.Type = 2
  stream.Charset = "shift_jis"
  stream.LoadFromFile fname

Set stream2 = CreateObject("ADODB.Stream")
  stream2.Open
  stream2.Charset = "unicode"
  stream.CopyTo stream2
  stream2.SaveToFile (fname), 2
  stream2.Close
  stream.Close

Set stream2 = Nothing
Set stream = Nothing
Exit Sub
ErrHandler:
 If Err.Number <> 0 Then 
  Msgbox Err.Number & " :" & Err.Description
End If
End Sub

Unicode 出力の件ですが、せっかく、個人用マクロブックに納められる(つもり)ので、それを、書き換えるよりも、後づけマクロのほうがよいかもしれません。一緒にしてしまうと、Unicodeのみになってしまいますから、それも望まないし……
とあれこれ考えて、単独マクロで、Unicodeファイル判別するプログラムもつけました。BigEndien も LittleEndienも別けますが、出力は、BigEndienだけです。
こういうのは、余計なものかもしれません。

'//
Public Sub Convert2UNICODE()
'シフトJISをUnicodeに替えるマクロ
Di...続きを読む

Qこの数式の求め方

計算式がわからいなので質問者させてほしいです。、最終的にはExcelで打ち込むのですが

頭がわるくて計算式がわからやいのでおしえてほしいです。


アンケートがありその中には八個の問題があります
それぞれの問題に 大変満足 満足 どちらかといえば満足 どちらかといえば不満 不満 大変不満と六段階あります。未記入でできない仕様です

大変満足満足を  満足回答数
どちらかといえばの2つ 中間回答数
不満 大変不満を 不満回答数
として 八問も問題すべて集計中した数を 総合設問数とした場合


総合設問数が1000と過程して 満足回答数が700と下場合 満足率は700÷1000で70パーセントなのですが
これを仮に75パーセントにするためには  満足回答数のアンケートを何個必要かを求めたいです
アンケートなんで 中間回答数や不満回答数を入るかと思いますがそれは無視です。


上記の内容だったら
200満足回答数が入れば
(700+200)/(1000+200) =75%

200満足っていうことは1アンケート8問だから
200÷8=25
満足回答数が全部のアンケートを25すれば75%になると分かります


ややこしいんですが
このアンケートをするための式を教えてくだいさ、、い

計算式がわからいなので質問者させてほしいです。、最終的にはExcelで打ち込むのですが

頭がわるくて計算式がわからやいのでおしえてほしいです。


アンケートがありその中には八個の問題があります
それぞれの問題に 大変満足 満足 どちらかといえば満足 どちらかといえば不満 不満 大変不満と六段階あります。未記入でできない仕様です

大変満足満足を  満足回答数
どちらかといえばの2つ 中間回答数
不満 大変不満を 不満回答数
として 八問も問題すべて集計中した数を 総合設問数...続きを読む

Aベストアンサー

満足回答数を75%になるようにするアンケートにどれほどの意味があるか疑問になりますが。

アンケートをとって、結果が70%の満足度だった。とすれば、同じようにアンケートを取ればやはり70%前後の満足度になるでしょう。
それを、
無理矢理、満足回答100%のアンケート回答用紙を作成して集計に加えるということですか?…まったく無意味ですよ!
報告するためのデータの捏造じゃないですか。

無理矢理、満足回答100%のアンケート回答用紙を作成する数
=(3×総合設問数 - 4× 満足回答数 )÷ 8

間違っていたらごめん。
捏造はよろしくないですよ。

Qエクセルで大きな写真の一部を切り抜く方法

教えて下さい。
エクセルで個人の写真を貼り付けを
為たいのですが
個人の写真は背景等が
多く写っていて
顔だけを大きく切り取り(拡大して)
(不要な背景等は削除)
四角に調節して貼り付けたいのです。

参考書を読んでもよく分からないので
教えて下さい。

Aベストアンサー

こんばんは!

トリミング、図の調整等々をすべてExcel上でやりたい!というコトでしょうか?
出来なくはないとおもいますが、PC内に入っている「ペイント」を使うのが簡単だと思います。

① プログラム → アクセサリー → 「ペイント」を立ち上げる
(白い部分「キャンバス」は極力小さくしておいた方が良いみたいです。)
② ファイル → 開く → 保存している画像を選択
③ メニュー → 「選択」の上の四角をクリック → 画像の必要部分をトリミング(ドラッグで範囲指定)
④ 選択した画像上で右クリック → コピー → ファイル → 新規 → 貼り付け

以上で必要部分の画像が表示されるはずですので、名前を付けて保存
後はExcelに画像を挿入する訳ですが、そのまま挿入するのではなく
⑤ メニュー → 挿入 → 図形(オートシェイプ)の「四角形」を好みの大きさに挿入
⑥ 図形の塗りつぶし → 図 → 先ほど保存した画像を選択 
(「枠線なし」などは好みによって変更します)

以上が当方が行っているやり方です。m(_ _)m

Qエクセル2013でB1セルに「タイム」という文字が含まれる場合A1セルの文字が赤色に変わる方法を教え

エクセル2013でB1セルに「タイム」という文字が含まれる場合A1セルの文字が赤色に変わる方法を教えて下さい、ちなみに、タイムという文字だけなら分かるのですが、これを含む文字列の場合できないので、宜しくお願いします!

Aベストアンサー

こんにちは!

条件付き書式での一例です。

A列すべてを範囲指定 → 条件付き書式 → 新しいルール → 数式を使用して・・・ → 数式欄に
=FIND("タイム",JIS(B1))

という数式を入れ → 書式 → フォント色の「赤」を選択しOK


※ 全角、半角両方に対応できるようにしてみました。m(_ _)m


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報