Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55643 / 76732 ←次へ | 前へ→

【25860】Re:規則性をプログラムに反映するには
発言  ichinose  - 05/6/16(木) 21:02 -

引用なし
パスワード
   ▼にしもり さん:
こんばんは。

>以前、みなさまのおかげで以下のシフト表作成のプログラムを組みました。
>いま新たな2要件がでてきました。
>パターンIの人をr=12,13,24,25,36,37,48,49,60,61,72,73,84,85の場合はm=6から表出させたい、という要件です。
>パターンIIの人をr=12,13,24,25,36,37,48,49,60,61,72,73,84,85の場合は表出させない、という要件です。
>規則性はあると思うのですが私の実力不足でプログラムに反映できません。
>どこを修正すればよいか、どなたかご教示ください。
Macth関数を使用すると、
rが{12,13,24,25,36,37,48,49,60,61,72,73,84,85}これらの値か否かの
判断は出来ます。

以下のコードを実行してみてください。

'========================================================
Sub test()
  For r = 10 To 30 Step 2
   ans = Application.Match(r, Array(12, 13, 24, 25, 36, 37, 48, 49, 60, 61, 72, 73, 84, 85), 0)
   If IsError(ans) Then
     MsgBox "r=" & r & " は配列内の数値でない"
   Else
     MsgBox "r=" & r & " は配列内の数値"
     End If
   Next
End Sub
このMatch関数をにしもりさんのコード中に入れて判断してみては
いかがですか?

0 hits

【25857】規則性をプログラムに反映するには にしもり 05/6/16(木) 17:48 質問
【25860】Re:規則性をプログラムに反映するには ichinose 05/6/16(木) 21:02 発言
【25863】Re:規則性をプログラムに反映するには [名前なし] 05/6/16(木) 23:53 回答
【25958】Re:規則性をプログラムに反映するには にしもり 05/6/20(月) 7:51 お礼
【25998】Re:規則性をプログラムに反映するには にしもり 05/6/21(火) 12:01 質問
【26011】Re:規則性をプログラムに反映するには ponpon 05/6/21(火) 19:51 発言
【26054】Re:規則性をプログラムに反映するには にしもり 05/6/22(水) 16:37 お礼
【26078】Re:規則性をプログラムに反映するには [名前なし] 05/6/22(水) 23:32 発言

55643 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free