accessです。
YES/NO型の値は
NOの値は0ですが
YESの値は1ですか? -1ですか?

A 回答 (1件)

No、Off、False はNo


Yes、On、True はYes
のようです。
0や1、-1ではありません。
ただし、Yes/No型を数値型にするとNoは0、Yesは-1になりました。
Excel形式でNoはFALSE、YesはTRUEになりました。
CSV形式で保存するとNoは0、Yesは1になりました。
参考まで
    • good
    • 0
この回答へのお礼

特に数値は決まってなくて
アクセスで数値化するとNoは0、Yesは-1になるだけなんですね。ありがとうございます。

お礼日時:2011/10/30 18:19

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

Q関数について教えて下さい。 A1とB1の合計値を出したいのですが、実際の値の「0」も表示できるように

関数について教えて下さい。
A1とB1の合計値を出したいのですが、実際の値の「0」も表示できるようにしたいのですが、列に空白がある時は「0表示」はさせたくないんです。

〈例〉
------------------
A B C
1 1 2
2
3 0 0
-------------------

希望の出し方としては

-------------------
A B C
1 3
2
3 0
-------------------

のように、出したいです。
=IF(SUM(A1,B2)=0,"",SUM(A1,B2))
の計算式だと空白は表示されずにいるのですが、
実際の「0」も表示されなくなってしまい、困っています。
何か簡単な式があればご教授いただけないでしょか。
よろしくお願いします。

Aベストアンサー

「=IF(COUNT(A1:B2)=0,"",SUM(A1,B2))」で良いのでは?

Qエクセルマクロについてお伺いします。 例なのですが、 A1に2016/6/9 B1に2016/6/1

エクセルマクロについてお伺いします。
例なのですが、
A1に2016/6/9
B1に2016/6/14
と入力したら、下記のようにその期間中の曜日に数字の1を表示させるようなマクロは可能でしょうか?


A B C D E F G H I
1 月 火 水 木 金 土 日
2 今週 1 1 1 1
3 来週 1 1

Aベストアンサー

「下記」の部分が表になってないので細かいところわかりませんが、
C1に
=today()

今週・月 のセルに
=IF(AND($A$1>=$C$1-WEEKDAY($C$1,3),$A$1<=$C$1-WEEKDAY($C$1,3)+6,WEEKDAY($A$1,11)=1),1,"")

来週・月 のセルに
=IF(AND($B$1>=$C$1-WEEKDAY($C$1,3)+7,$B$1<=$C$1-WEEKDAY($C$1,3)+13,WEEKDAY($B$1,11)=1),1,"")

と入力してください。
火曜日~日曜日は、各数式最後の「,1,"")」の部分を、火曜なら「,2,"")」、水曜なら「,3,"")」と増やしていってコピーしてください。

質問中の表だと1がたくさん表示されてますが、本文どおりですとこのようになります。

Q【Excelの不思議な日付処理の初期値の疑問】日付データの基準日が1900/01/00 0:00なの

【Excelの不思議な日付処理の初期値の疑問】日付データの基準日が1900/01/00 0:00なのは何故ですか?

1900/01/01 0:00が基準日だと思っていましたが、

=now()-now()

にすると1900年1月0日0秒という存在日付の0日が基準日になっていることが分かりました。

日付データの基準日が存在しない日にちなのに計算は正しく表示されます。

どういう仕組みで整合性が取れるのか教えてください。

Aベストアンサー

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13171705193
こっちに有効な回答が最初の最初に入っているのに何故マルチポストをするのやら……

Q[色]+#,##0;[色]-#,##0;[色]0;@ と[<10]#.0;0 同時設定可能ですか?

よろしくお願いします
いつもgooの皆さんには大変お世話になっております
お陰様でエクセルが大分進歩しました
win8.1でエクセルは2013です

タイトルの通り、2つの書式は同時に設定できますか?
可能であればその書き方を教えていただけないでしょうか?
同時に設定したい書式は下記のとおりです

[色]+#,##0;[色]-#,##0;[色]0;@  と [<10]#.0;0 です

Aベストアンサー

こんばんは!

おそらくセルの書式設定のユーザ定義は最大3個までしか設定できなかったともいます。

ユーザー定義の欄に
[赤][<0]-#,##0;[青][<10]0.0;[青]#,##0;@
としてみてください。
① マイナスの場合のフォント色は「赤で3桁のカンマ区切り」
② プラスの場合で10未満の場合は「青で小数点以下一けた表示」
③ プラスで10以上の場合は「青で3桁のカンマ区切り」
その他(文字列)の場合は「自動」(黒)

以上のような表示になると思いますが、
「0」の場合の設定ができません。
「0」の場合の表示桁数は一桁でフォント色は「自動」がお望みなのではないでしょうか?
おそらく手動でのセルの書式設定のユーザー定義ではどれか一つを犠牲にする必要があるのではないかと思います。
(できる方法があればごめんなさいね。)

ただ、お望みの方法ではないかもしれませんが、
上記条件付き書式のセル変更があればマクロで書式を変えてやる方法があります。

マクロでやるとなるとわざわざセルの書式設定を手動でやる意味がないので
敢えて今回はこの程度で・・・m(_ _)m

こんばんは!

おそらくセルの書式設定のユーザ定義は最大3個までしか設定できなかったともいます。

ユーザー定義の欄に
[赤][<0]-#,##0;[青][<10]0.0;[青]#,##0;@
としてみてください。
① マイナスの場合のフォント色は「赤で3桁のカンマ区切り」
② プラスの場合で10未満の場合は「青で小数点以下一けた表示」
③ プラスで10以上の場合は「青で3桁のカンマ区切り」
その他(文字列)の場合は「自動」(黒)

以上のような表示になると思いますが、
「0」の場合の設定ができません。
「0」の場合の表示桁数は一...続きを読む

QExcel B列の名前を見てA列に番号をふりたいです。1-1 1-2 2-1 2-2

質問させて頂きます。
日々の仕事の作業の中でExcelであるB列に前もって名前が入っています。
現状手打ちでB列の名前を見ながら1-1 1-2 名前が変わったら2-1 2-2 というように番号をふっています。時間短縮で何かいい方法はないでしょうか?(マクロなど)
ご回答お願い致します。
例を下に入れております。

A列   B列
1-1 山田太郎
1-2 山田太郎
2-1 佐藤和也
2-2 佐藤和也
3-1 吉田五郎
3-2 吉田五郎
3-3 吉田五郎
4-1 伊藤忠文
5-1 田口達也
6-1 東京世田谷区分譲
6-2 東京世田谷区分譲
6-3 東京世田谷区分譲

宜しくお願い致します。

Aベストアンサー

No.1です。

>時間短縮で何かいい方法はないでしょうか?(マクロなど)・・・
というコトですので、VBAでもやってみました。もちろん作業列は不要です。
シートモジュールにしてください。

Sub Sample1()
Dim i As Long, lastRow As Long, c As Range
Application.ScreenUpdating = False
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(Cells(2, "A"), Cells(lastRow, "A")).ClearContents
End If
Range("C:C").Insert
Range("B:B").AdvancedFilter Action:=xlFilterCopy, copytorange:=Range("C1"), unique:=True
For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
Set c = Range("C:C").Find(what:=Cells(i, "B"), LookIn:=xlValues, lookat:=xlWhole)
With Cells(i, "A")
.NumberFormatLocal = "@"
.Value = c.Row - 1 & "-" & WorksheetFunction.CountIf(Range(Cells(2, "B"), Cells(i, "B")), Cells(i, "B"))
End With
Next i
Range("C:C").Delete
Application.ScreenUpdating = True
End Sub


※ データがバラバラでも出現順に「1-○」のような結果になります。
こんな感じではどうでしょうか?m(_ _)m

No.1です。

>時間短縮で何かいい方法はないでしょうか?(マクロなど)・・・
というコトですので、VBAでもやってみました。もちろん作業列は不要です。
シートモジュールにしてください。

Sub Sample1()
Dim i As Long, lastRow As Long, c As Range
Application.ScreenUpdating = False
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(Cells(2, "A"), Cells(lastRow, "A")).ClearContents
End If
Range("C:C").Insert
Range("B:B...続きを読む

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

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

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


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

人気Q&Aランキング

おすすめ情報