• 締切済み

Accessで困ってます

下記のように 率50%以下の場合は「率50%以下」 率50%越60%以下の場合は「率60%以下」 率120%以上130%未満の場合は「率120%以上」 率130%以上の場合は「130%以上」 ※60超120未満は空欄 としたいです。 率,備考 122,率120%以上 46,率50%以下 130,率130%以上 70, 52,率60%以下 お教えください。

みんなの回答

  • chayamati
  • ベストアンサー率41% (254/607)
回答No.2

私のおもいちがいでした。 正しくは Private Sub 評価() If 率 <= 50 Then 備考 = "50%以下" Else If 率 <= 60 Then 備考 = "60%以下" Else If 率 <=120 Then 備考 = "" Else If 率 < 130 Then 備考 = "120%以下" Else If 率 >= 130 Then 備考 = "130%以上 End If End If End If End If End If End Sub

  • chayamati
  • ベストアンサー率41% (254/607)
回答No.1

今日はVBAですが Private Sub 評価() 備考="" If 率 <= 50 Then 備考 = "率50%以下" Else If 率 <= 60 Then 備考 = "率60以下" Else If 率>= 120 And 率 <= 130 Then  備考="率120%以上" Else If 率 = 130 Then 備考 = "率130%以上" End If End If End If End If End Sub ―――――――――-------------------- 追伸 「※60超120未満は空欄」は他の条件と矛盾しますので、省きました ※60超120未満は空欄

関連するQ&A

  • Accessで困ってます

    例えば 名称:1,3,6,8は変動率が-10以下または40%以上の場合、それぞれ備考欄に「-10%以下」または「40%以上」を記載 名称:2,4,5,7 は変動率が-10以下または25%以上 の場合、それぞれ備考欄に「-10%以下」または「25%以上」を記載 としたいです。 下記が上記文面を表にしたイメージです。 名称,変動率(%) ,備考 1,45 , 40%以上 2 , 10, 3 , -20 , -10%以下 4 , -15 , -10%以下 5 , -9 , 6 , 10 , 7 , 30 , 25%以上 8 , 40 , 40%以上

  • エクセルの並び替えについて!!

    エクセルで住所録を作りたいのですが、いい方法があれば教えてください。 規則的にならんでいるので、できそうな気がするのですが、わたしの知識では無理です! 現時点でのならび順は以下の通りです。 「会社名1  (空欄の行)  住所  備考  電話番号  (空欄の行)  (空欄の行)  会社名2  (空欄の行)  住所  備考  電話番号  (空欄の行)  (空欄の行)  会社名3  ・  ・  ・  」 これを 「会社名1 住所 備考 電話番号  会社名2 住所 備考 電話番号  会社名3 住所 備考 電話番号  ・  ・  ・  」 というように並べ替えたいです。 手動で切り貼りするには膨大な量で8000社分くらいあるので、エクセルの機能でいい方法があれば教えていただきたいです!よろしくおねがいします。      

  • アクセスソフトでの算出方法

    以前下記の質問をしたのですが、それをアクセスで行う場合どうしたら良いでしょうか? 解る方教えてください。 質問投稿日時:04/09/24 11:51質問番号:1014624 この質問番号と同じ内容に困っています。 マッチ関数とインデックス関数の複合で下記内容は理解出来たのですが、 例えば、下記内容に9行目があり・・克つそのデータが空欄だった場合で、算出条件を4以下にしたら本来エラーが出て欲しいのですが、 9行目・・つまり空白欄の回答を算出してきます。 これの対策方法ないですかね・・? 上から順に検索していき、ある値以上の数値が初めて現れた行番号を返すような関数はありますか? 例えば 1  38 2  56 3  80 4  44 5  60 6  70 7  53 8   5 と数値が入っていて、60以上という設定にすると「3」が返ってくるような関数です。 宜しくお願いします。

  • 表を参照して計算結果を求める

    会社で営業インセンティブ(受注利益率によっての報酬金)の取り決めを行いました。毎月指定日に受注を締めて、各々営業担当のインセンティブを計算するのですが、現在はいちいち手計算で求めています。 しかし、エクセルで簡単に求めることが出来ないものか?と思いましてのご相談です。 (営業インセンティブの条件) 粗利益額/利益率    22%以上  22%未満  20%未満                   20%以上  18%以上 850万以上         8%   7.5%   6.5% 650万以上850万未満    7.5%   7.0%   6.0% 550万以上750万未満    7.0%   6.5%   5.5% 450万以上550万未満    6.5%   6.0%   5.0% 350万以上450万未満    6.0%   5.5%   4.5% 250万以上350万未満    5.5%   5.0%   4.0% 250万未満        4.5%   4.0%   3.0% 例えば、当月の契約高が2,000万で利益が380万円、利益率が19%だったとします。その際の営業インセンティブは上表から下記のように求めるのです。 ・利益率が19%なので、上表から「20%未満、18%以上」の列を参照し、利益が380万円なので「350万以上450万円未満」の行を見て、その交差する「4.5%」がインセンティブ%となり、下記の計算で報酬額を求めます。   380万円 × 4.5% =17万1千円  と、いうようになるわけなのですが、これをエクセルで簡単に求める方法を伝授して欲しいのです。  よろしくお願い致します。

  • エクセルでこんなのを作りたいです

    成績評価をしたい。試験点が80点以上は”優”、79~70点は”良”、69~60点は可、59点以下で、再試験が80点以上が”可”、再試験80点未満は不可とする。ただし、次の点を考慮する。 1. 点の入力で、セルの色が黄色は入力できない。薄青色とピンク色は入力できる。 2. 試験の点の入力は、100~0点までで、それ以外は、空欄とする。ORかANDの利用。 3. セルが黄色の部分は、入力しない。この場合、元にデータが入らなければ空欄とする。 4. 評価点で試験の点が空欄の時は、評価点も空欄。また、100点以上と0点以下も空欄。60点以上で試験の点が、初めて評価点に入る。 5. 試験の点が60点未満の時は、再試験を受けていない時は、評価点は空欄とする。再試験が80点以上で初めて評価点に試験点が入る。 6. 評価点が表示されていない時は、評価は空欄とする。その後は、試験点が80点以上は”優”、79~70点は”良”、69~60点は可、 59点以下で、再試験が80点以上が”可”、再試験80点未満は不可とする。 と課題で指定がありました。 テストもありますので解説と答えのほうおねがいします。

  • 宛名印刷の備考欄 筆まめVer.23

    宛名を印刷する際に、備考1に「会社名」、備考2に「役職」を入れて使用しているのですが、個人の場合は備考1「会社名」と備考2「役職」が空欄(記載なし)になります。 宛名レイアウト設定で備考1と備考2にチェックをいれたままで宛名印刷をすると、個人(備考1と備考2が空欄)の場合、うすく「備考1」「備考2」と印刷されてしまいます。そのため、備考1「会社名」と備考2「役職」が必要なパターンと、備考1「会社名」のみのパターンと、どちらも不要なパターンの3回印刷しています。 「備考1」「備考2」が要・不要が混在している状態で、一度に全てを印刷したいので、「備考1」「備考2」が印刷されない方法はありますか? ※OKWAVEより補足:「ソースネクスト株式会社の製品・サービス」についての質問です。

  • Accessの日付計算に関して

    下記のような計算をAccess上で実現したいと考えております。 店舗の事業年度期首もしくは開店日から現在までの月数を計算する方法 一月未満の月がある場合分かるように小数点か何かで分かるようする。 最終的には都道府県ごとに集計する。 ※ 可能であれば一ヶ月未満の集計ができるようにしたい。 同じ都道府県内に1ヶ月未満店舗が複数店舗あったとして 複数店舗合わして1ヶ月以上営業していたのかどうか。 アドバイスお願いします。

  • アクセスを教えて下さい

    アクセスを教えて下さい。 Microsoft Visual Basic に以下入力したのですがうまくいきません。 ある数字0~999999までの数字を登録数字より、数字以上、数字未満で抽出したいのですがうまくいきません。 If IsNull(Me!数字以上) Or IsNull(Me!数字未満) Then key(1) = "" Else Dim MyStr1, MyStr2 As String MyStr1 = (Me!数字以上) MyStr2 = (Me!数字未満) key(1) = "登録数字 between #" & MyStr1 & "# " _ & "and #" & MyStr2 & "#" End If 初心者で時間が経つばかりで前に進みません。 宜しくお願い致します。

  • Accessのクエリーについて

    以下のようなテーブルAがあります ID  番号 1 100 1 100 2 200 2 200 3 300 3 300 3 300 これをクエリーで、同じIDの場合は、各1行目以外の番号を空欄(非表示)としたいのです。 ID  番号 1 100 1 2 200 2 3 300 3 3 方法はあるでしょうか?

  • ACCESS2000について

    現在Access2000でデータベースを作成しています。あるクエリに「合計」「共通費」「諸経費判定額」「諸経費率」「諸経費」とフィールドがあります。 「諸経費判定額」=「合計+共通費」です。 「諸経費」=「諸経費判定額」*「諸経費率」です。 諸経費率は毎月、データごとに変わるので、固定させることができません。 諸経費率については、たとえば、諸経費判定額が300万以上なら諸経費率30%、200万以上なら20%、100万以上なら10%という具合に条件を細かくしていきたいのです。これが月によって、300万以上なら25%、200万以上なら15%120万以上なら10%などと異なる場合もあります。 諸経費率を1件ずつ入力していては大変なので、フォームを使って 自由に条件が入力できて、それをクエリに反映させるといった感じの方法はないでしょうか?何かよい方法があれば、教えてください。よろしくお願いします。

専門家に質問してみよう