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

また、お世話になります。
E5=IF(D1="","",VLOOKUP(D1,リスト!$A$1:$DE$42,3,FALSE)) ←の表示形式→分類 [$-411]ge "年" m "月" d "日"
J5=""&DATEDIF(E5,TODAY(),"Y")&" (歳)"
70 (歳)
と表示しているのですが以下のように変更はできますでしょうか
(70歳)
J5の式を教えてください

A 回答 (1件)

J5="("&DATEDIF(E5,TODAY(),"Y")&"歳)"


では、だめですかね。
    • good
    • 0
この回答へのお礼

出来ました。
ありがとうございました。

お礼日時:2017/07/16 18:10

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

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

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

Qセルの保護と解除について

いつもお世話になっております。

セルの保護と解除を関数でできればいいのですが、
思い当たる方法が見つかりません。
関数でなくともVBA等でできる方法がありましたら
どなたかご教授をお願いいたします。

【イメージ】
  A   B  C E
1コード No 販売額  仕入額
2 10   1 10,000  7,500
3 20   2 2,500  ---
4 3
5 4
C列に費用という文字を含んだ場合に、E列の仕入単価を
セルロックし入力不可とし、セル内をグレーアウトして、
視角からも分かるようにしたいのです。
また、費用以外の文字はE列を入力可・グレーアウトを戻す
ように考えています。
 
よろしくお願いいたします。

イメージ画像を添付させていただきます。

Aベストアンサー

こんにちは。

私の場合は、費用(つまり送料など)に仕入原価は入れないと口頭で済ませればよかったのですが……。
仕入項目の中に書き入れてしまう人間がいるから、そうするのでしょうね。

言葉通りには設定をすると大変面倒なことになりますから、ロックに似た方法で、二重の設定をしたらよいと思います。

シートタブを右クリックして、コードの表示で、以下を貼り付けます。

'//シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
For Each c In Range("C2", Cells(Columns.Count, 3).End(xlUp))
 If InStr(c.Value, "費用") > 0 Then  'C列に入力された場合
   c.Offset(, 2).ClearContents
   c.Offset(, 2).Interior.Color = RGB(217, 217, 217)
 Else
   c.Offset(, 2).Interior.Color = xlColorIndexNone
 End If
Next
ElseIf Target.Column = 5 And Target.Count = 1 Then 'E列に入力された場合
 If InStr(Target.Offset(, -2).Value, "費用") = 0 Then
  Target.Interior.Color = xlColorIndexNone
 End If
End If
End Sub


そして、
ワークシート上での設定は、
E2から下方に適当に入力範囲を選択しておいて、
データ-データの入力規則(タブ)
設定で、

ユーザー設定
=ISERROR(FIND("費用",C2))

エラーメッセージ
スタイル:停止
タイトル:入力禁止
エラーメッセージ:数値は入れられません。

これは、ほんの一例です。

こんにちは。

私の場合は、費用(つまり送料など)に仕入原価は入れないと口頭で済ませればよかったのですが……。
仕入項目の中に書き入れてしまう人間がいるから、そうするのでしょうね。

言葉通りには設定をすると大変面倒なことになりますから、ロックに似た方法で、二重の設定をしたらよいと思います。

シートタブを右クリックして、コードの表示で、以下を貼り付けます。

'//シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
For Each c In Range("C2", C...続きを読む

Qランダムに選んだ名簿の名前に、同じ名義が、2つないか調べたい。同じ名前がないか、確認する方法を教えて

ランダムに選んだ名簿の名前に、同じ名義が、2つないか調べたい。同じ名前がないか、確認する方法を教えて下さい。同性同名はありません。

Aベストアンサー

こんばんは!

色々やり方はあると思いますが、条件付き書式で二つ以上ある場合のセルに色付けをするのはどうでしょうか?

仮にA列に名前があるとします。
A列すべてを範囲指定 → 条件付き書式 → 新しいルール → 数式を使用して・・・ → 数式欄に
=COUNTIF(A:A,A1)>1
という数式を入れ → 書式 → 塗りつぶしから好みの色を選択しOK

これで重複しているセルが塗りつぶされます。

※ 別列に表示する場合でもIF関数とCOUNTIF関数で対応できます。m(_ _)m

Qエクセルで休憩時間を引く時と、引かない時の数式

エクセルで、
「出~退」が4時間以内なら、その間の時間が表示され、
「出~退」が4時間を超えるなら、その間の時間から休憩1時間を引いた時間が表示されるようにしたいです。

「稼働時間」のセルは、どのような数式にすれば良いですか。

氏名 日付 出 退 稼働時間
三田 建造 2017/5/30 8:22 17:33 8:11
藤島 澄人 2017/5/30 9:00 12:57 3:57

Aベストアンサー

E2: =D2-C2-"1:0"*(D2-C2>"4:0"*1)

Qエクセル 表から値を見つける

図のように値を入力すると表の中の同じ数字の座標を出力するようにしたいです。
もし重複している数字がある時はどこか1か所の座標でOKです。(たとえば5を入力したときはB1、B3C3のどれかを出力。)
どのような式をつくればいいでしょうか。

よろしくお願いします。

Aベストアンサー

こんばんは!

一例です。
画像の配置だとB7セルに
=IFERROR(ADDRESS(MIN(IF(A1:D4=B6,ROW(A1:A4))),MIN(IF(A1:D4=B6,COLUMN(A1:D1))),4),"データなし")

配列数式なのでCtrl+Shift+Enterで確定してください。

※ データが複数ある場合は上側・左側セル番地が表示されます。m(_ _)m

Qエクセルの使い方ってどこで習いましたか?

学校では習いませんよね?

Aベストアンサー

私も独学です。
解らないのはネット検索で結構見つかりますので助かっています。(笑)

Q【Excel】右上がりの罫線を引く

セル「M10」に”無”と入力されると、セル「M11」のセルに右上がりの罫線を引きたいです。
どうぞよろしくお願いいたします。

Aベストアンサー

こんにちは!

VBAになりますが、一例です。
シートモジュールにしてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$10" Then
With Range("M11").Borders(xlDiagonalUp)
If Target = "無" Then
.LineStyle = xlContinuous
Else
.LineStyle = xlNone
End If
End With
End If
End Sub

※ 対象セルはM10だけでよいのですよね?m(_ _)m

Qエクセルの並べ替えについて

B列にアルファベット、数字、カタカナのデータが混在していますが、
これを、カタカナ→アルファベット→数字の順で並び替えるには
どうしたらいいのでしょうか…
調べてもわかりませんでした(>_<)

Aベストアンサー

・ソートを使えば簡単です。

 B列のどこでも1箇所セルを選択してツールボタンの
 「A-Z↓」か「Z-A↑」を押します。
 実は、このソートは数字だけでなく文字でも可能です

 途中にスペース行があると、スペース行の上までです。

 うまくいかない場合、
  一度ソートして、アルファベット、数字、カタカナの境目に空き行を入れ
  個々に再ソートしてから 空き行を削除すると出来ます。

QExcel条件付き書式での罫線の処理について

いつもお世話になっております。
Excelの条件付き書式についてご教示下さい。

下記の様な表があります。
C10セルには16日以降を表示しない様に=IF(B10="","",IF(DAY(B10+1)>15,"",B10+1))と関数が入っております。
D10セルにも=IF(C10="","",IF(DAY(C10+1)>15,"",C10+1))と関数が入力されています。

16日以降の赤くマーカーが引かれた箇所の罫線をなしにしたいのですがその様な処理は可能でしょうか?
C10セル、D10セルに「15日」が入力されている場合のみ罫線を引き、それ以外は空欄処理としたいのですが私の知識では上手く出来ません。

よろしくお願い致します。

Aベストアンサー

(´・ω・`)…
15以下なら該当するセルに罫線を引くようにすればいいような気がするのは自分だけでしょうか。
15を超えたら罫線を消すなんて面倒な事をしなくても、こっちのほうが分かりやすいと思う。

Qコピー&ペーストではなく数式やエクセルの機能を使ってデータを反映させたい。

下記の「表①」のエクセルデータを、「表②」に反映させたいです。
「表②」のB3セルに、数式を入れて、「表①」のログイン・ログオフ時刻を「表②」へ
自動反映させたいのですが、どのような式を入れたらいいかがわかりません。

現状は、目視とコピー&ペーストで表①→表②へ貼りつけていますが、
スタッフの数が多いのとシフト勤務で出勤日数も時間もバラバラで、作業が大変です。

また、早くて正確なら他の方法でもいいです。
よろしくお願いします。


表①
A B C D E
1 氏名 日付 ログイン 日付 ログオフ
2 田中 舞子 2017/5/16 8:21:35 2017/5/16 17:34:38
3 田中 舞子 2017/5/17 8:22:40 2017/5/17 17:35:00
4 田中 舞子 2017/5/18 8:28:02 2017/5/18 17:35:55
5 田中 舞子 2017/5/19 8:22:09 2017/5/19 17:34:18
6 田中 舞子 2017/5/22 8:18:03 2017/5/22 17:33:13
7 三田 建造 2017/5/23 8:19:55 2017/5/23 17:39:44
8 三田 建造 2017/5/25 8:21:03 2017/5/25 17:38:04
9 三田 建造 2017/5/26 8:17:45 2017/5/26 17:31:54
10 三田 建造 2017/5/29 8:19:42 2017/5/29 17:32:39
11 三田 建造 2017/5/30 8:20:12 2017/5/30 17:33:26
12 牧 重三 2017/5/31 16:18:33 2017/5/31 23:31:36
13 牧 重三 2017/6/1 16:20:08 2017/6/1 23:35:33
14 牧 重三 2017/6/2 17:18:35 2017/6/2 23:41:05
15 牧 重三 2017/6/5 15:20:00 2017/6/5 23:31:54
16 牧 重三 2017/6/6 19:22:05 2017/6/6 23:41:14
17 長岐 知美 2017/6/7 8:25:48 2017/6/7 17:34:38
18 長岐 知美 2017/6/8 8:26:24 2017/6/8 17:36:52
19 長岐 知美 2017/6/9 8:26:01 2017/6/9 17:34:08
20 長岐 知美 2017/6/12 8:19:24 2017/6/12 17:32:02
21 篠田 亜紀 2017/5/21 8:19:14 2017/5/21 17:32:29
22 柿田 輝未 2017/5/28 7:34:55 2017/5/28 17:17:54
23 荒元 耕平 2017/6/4 7:32:49 2017/6/4 17:32:50
24 佐田 容子 2017/6/11 8:18:35 2017/6/11 17:41:05
25 藤島 澄人 2017/6/12 8:25:15 2017/6/12 17:59:55
26 藤島 澄人 2017/6/13 8:45:31 2017/6/13 17:41:06
27 藤島 澄人 2017/6/14 8:05:34 2017/6/14 17:28:14
28 藤島 澄人 2017/6/15 8:13:25 2017/6/15 17:30:24


表②
   A B C D E F G
1 田中 舞子 三田 建造 牧 重三 ・・・・
2 日付 ログイン ログオフ ログイン ログオフ ログイン ログオフ
3 2017/5/16 B3
4 2017/5/17
5 2017/5/18
6 2017/5/19
7 2017/5/20
8 2017/5/21
9 2017/5/22
10 2017/5/23
11 2017/5/24
12 2017/5/25
13 2017/5/26
14 2017/5/27
15 2017/5/28
16 2017/5/29
17 2017/5/30
18 2017/5/31
19 2017/6/1
20 2017/6/2
21 2017/6/3
22 2017/6/4
23 2017/6/5
24 2017/6/6
25 2017/6/7
26 2017/6/8
27 2017/6/9
28 2017/6/10
29 2017/6/11
30 2017/6/12
31 2017/6/13
32 2017/6/14
33 2017/6/15

下記の「表①」のエクセルデータを、「表②」に反映させたいです。
「表②」のB3セルに、数式を入れて、「表①」のログイン・ログオフ時刻を「表②」へ
自動反映させたいのですが、どのような式を入れたらいいかがわかりません。

現状は、目視とコピー&ペーストで表①→表②へ貼りつけていますが、
スタッフの数が多いのとシフト勤務で出勤日数も時間もバラバラで、作業が大変です。

また、早くて正確なら他の方法でもいいです。
よろしくお願いします。


表①
A B ...続きを読む

Aベストアンサー

表①のB列ですが、シリアル値「2017/5/16 8:21:35」を表示形式で「2017/5/16」と表示していませんか?もしそうであればNGです。B2セルは時刻の部分をゼロにしてください。

2人ログオンする日がある件ですが、残念ながら、この方式では実現できません。
No.1 chonamiさんの案が一番簡単そうです。たぶん、こんな感じを想定していると思われます。

【B3セル】=SUMIFS(表①!$C:$C,表①!$A:$A,B$1,表①!$B:$B,$A3)
※C3セルは、上記を参考にご自分で考えてみて下さい。

QExcel2010 特定セルのブランク置き換え方法について

タイトルの通りです。

添付JPEGをご参照ください。今所CD欄には値が入っています。

この値について、拠点CD欄に入力したCDにより、ブランクへ置き換える事ができるようにしたいです。

例えば、拠点CD:AAを入力した場合、所CD:Cはそのままですが、拠点CD:BB/CCを入力した場合は、所CD:CC→ブランクへ置き換えされるようにしたいです。

上記実行するのは可能なのでしょうか。もし可能な場合は、どのような方法でできるかを教えてください。(当方初心者につき、なるべく簡単な方法だとうれしいです)

宜しくお願いします。

Aベストアンサー

こんばんは!

B3・C3セルは直接手入力するのですよね?

VBAになりますが、一例です。
↓のコードをシートモジュールにコピー&ペーストしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
With Target
If .Address = "$C$3" And .Count = 1 Then
If .Value = "BB" Or .Value = "CC" Then
.Offset(, -1).ClearContents
End If
End If
End With
End Sub '//この行まで//

上記コードの場合、B3セルそのものを消去するようにしています。
もし、数式などによってB3セルが表示されているのであれば、苦肉の策ですが・・・
条件付き書式でC3セルが「BB」または「CC」の時、フォント色を「白」にする方法はどうでしょうか?

B3セルを選択 → 条件付き書式 → 新しいルール → 数式を使用して・・・ → 数式欄に
=OR(C3="BB",C3="CC")
という数式を入れ → 書式 → フォント色の「白」を選択しOK

※ 条件付き書式の場合はB3セルのデータは消えません。m(_ _)m

こんばんは!

B3・C3セルは直接手入力するのですよね?

VBAになりますが、一例です。
↓のコードをシートモジュールにコピー&ペーストしてみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
With Target
If .Address = "$C$3" And .Count = 1 Then
If .Value = "BB" Or .Value = "CC" Then
.Offset(, -1).ClearContents
End If
End If
End With
End Sub '//この行まで//

上記コードの場合、B3セルそのも...続きを読む


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

人気Q&Aランキング

おすすめ情報