Excel VBA質問箱 IV

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

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


71825 / 76732 ←次へ | 前へ→

【9400】Re:リストボックスで選択したファイルの内...
回答  りん E-MAIL  - 03/12/2(火) 23:22 -

引用なし
パスワード
   ▼ブーちゃん さん:

前回のFunctionを以下のものに変更してください。

Function CheckDat(ws As Worksheet, RR&) As String
  '長いと見づらいので変数(配列)に格納して処理
  Dim c(1 To 5) As Variant, res$
  With ws
   c(1) = .Cells(RR&, 11).Value
   c(2) = .Cells(RR&, 13).Value
   c(3) = .Cells(RR&, 14).Value
   c(4) = .Cells(RR&, 18).Value
   'c(5) = .Cells(RR&, 5番目条件の列番号).Value
  End With
  res$ = "分岐指定ミス"
  '
  '難しいことは考えず、ベタに分岐します。
  If (c(1) = 1) And (c(2) = "A") And (c(3) = 1) And (c(4) = 1) Then
   res$ = "": 'LN1 何も表示しない定義
  ElseIf (c(1) = 2) And (c(2) = "A") And (c(3) = 1) And (c(4) = 1) Then
   res$ = "": 'LN2 何も表示しない定義
  ElseIf (c(1) = 1) And (c(2) = "A") And (c(3) = 0) And (c(4) = 1) Then
   res$ = "": 'LN3 何も表示しない定義
  ElseIf (c(1) = 1) And (c(2) = "A") And (c(3) = 1) And (c(4) = 1) Then
   res$ = "": 'LN4 何も表示しない定義
  ElseIf (c(1) = 0) And (c(2) = "A") And (c(3) = 1) And (c(4) = 1) Then
   res$ = "": 'LN5 何も表示しない定義
  ElseIf (c(1) = 0) And (c(2) = "B") And (c(3) = 1) And (c(4) = 1) Then
   res$ = "": 'LN6 何も表示しない定義
  ElseIf (c(1) = 2) And (c(2) = "B") And (c(3) = 0) And (c(4) = 1) Then
   res$ = "": 'LN7 何も表示しない定義
  ElseIf (c(1) = 1) And (c(2) = "B") And (c(3) = 0) And (c(4) = 1) Then
   res$ = "": 'LN8 何も表示しない定義
  ElseIf (c(1) = 2) And (c(2) = "B") And (c(3) = 0) And (c(4) = 1) Then
   res$ = "": 'LN9 何も表示しない定義
  ElseIf (c(1) = 0) And (c(2) = "B") And (c(3) = 1) And (c(4) = 1) Then
   res$ = "": 'LN10 何も表示しない定義
  ElseIf (c(1) = 0) And (c(2) = "B") And (c(3) = 0) And (c(4) = 1) Then
   res$ = "": 'LN11 何も表示しない定義
 'ElseIf 条件12 Then
 '  res$ = "": 'LN12 何も表示しない定義
 'ElseIf 条件13 Then
 '  res$ = "": 'LN13 何も表示しない定義
 'ElseIf 条件14 Then
 '  res$ = "": 'LN14 何も表示しない定義
  '↓不具合
  ElseIf (c(1) = 1) And (c(2) = "A") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L15 不具合"
  ElseIf (c(1) = 2) And (c(2) = "A") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L16 不具合"
  ElseIf (c(1) = 1) And (c(2) = "A") And (c(3) = 0) And (c(4) = 0) Then
   res$ = "L17 不具合"
  ElseIf (c(1) = 2) And (c(2) = "A") And (c(3) = 0) And (c(4) = 0) Then
   res$ = "L18 不具合"
  ElseIf (c(1) = 0) And (c(2) = "A") And (c(3) = 0) And (c(4) = 0) Then
   res$ = "L19 不具合"
  ElseIf (c(1) = 0) And (c(2) = "A") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L20 不具合"
  ElseIf (c(1) = 0) And (c(2) = "A") And (c(3) = 0) And (c(4) = 0) Then
   res$ = "L21 不具合"
 'ElseIf 条件22 Then
 '  res$ = "L22 不具合"
  ElseIf c(2) = "A" Then
   res$ = "L23 不具合"
  ElseIf (c(1) = 1) And (c(2) = "B") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L24 不具合"
  ElseIf (c(1) = 2) And (c(2) = "B") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L25 不具合"
  ElseIf (c(1) = 1) And (c(2) = "B") And (c(3) = 0) And (c(4) = 0) Then
   res$ = "L26 不具合"
  ElseIf (c(1) = 2) And (c(2) = "B") And (c(3) = 0) And (c(4) = 0) Then
   res$ = "L27 不具合"
  ElseIf (c(1) = 0) And (c(2) = "B") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L28 不具合"
  ElseIf (c(1) = 0) And (c(2) = "B") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L29 不具合"
  ElseIf (c(1) = 1) And (c(2) = "C") And (c(4) = 0) Then
   res$ = "L30 不具合"
  ElseIf (c(1) = 2) And (c(2) = "C") And (c(4) = 0) Then
   res$ = "L31 不具合"
  ElseIf (c(1) = 0) And (c(2) = "D") And (c(3) = 1) And (c(4) = 0) Then
   res$ = "L32 不具合"
  ElseIf (c(1) = 1) And (c(2) = "D") Then
   res$ = "L33 不具合"
  ElseIf (c(1) = 2) And (c(2) = "D") Then
   res$ = "L34 不具合"
 'ElseIf 条件35 Then
 '  res$ = "L35 不具合"
 'ElseIf 条件36 Then
 '  res$ = "L36 不具合"
 'ElseIf 条件37 Then
 '  res$ = "L37 不具合"
  End If
  Erase c
  '
  CheckDat = res$
End Function

定義漏れの分岐がないですけどね。
この分岐でヒットしなかったものを定義漏れとするならば、分岐指定ミス を 定義漏れ に変更してください。

0 hits

【9213】手に負えない ブーちゃん 03/11/24(月) 2:48 質問
【9216】Re:手に負えない りん 03/11/24(月) 10:03 回答
【9281】Re:手に負えない ブーちゃん 03/11/26(水) 17:13 質問
【9310】Re:手に負えない りん 03/11/27(木) 21:11 回答
【9314】Re:手に負えない ブーちゃん 03/11/28(金) 11:00 質問
【9341】リストボックスで選択したファイルの内容チ... りん 03/11/30(日) 10:19 回答
【9352】Re:リストボックスで選択したファイルの内... ブーちゃん 03/11/30(日) 16:31 質問
【9361】Re:リストボックスで選択したファイルの内... りん 03/11/30(日) 18:17 発言
【9377】Re:リストボックスで選択したファイルの内... ブーちゃん 03/12/1(月) 15:19 回答
【9400】Re:リストボックスで選択したファイルの内... りん 03/12/2(火) 23:22 回答
【9843】Re:リストボックスで選択したファイルの内... ブーちゃん 03/12/18(木) 14:16 質問
【9870】Re:リストボックスで選択したファイルの内... ブーちゃん 03/12/19(金) 15:38 お礼

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