0

次のような Excel ファイルがあります。

Col A   Col B   Col C
------  -----   -------
ABC     3600    Title 1
DEF     3601    Title 2
ABC     3603    Title 3
GHI     3603    Title 4
ABC     3602    Title 5
JKL     3604    Title 6

等

次のように言う必要があります: 列 A が「ABC」で、列 B が NOT(3601,3602,3603,3700) の場合、列 D (空の列) に「1」を入力します。

それをVBAにどのように正確に入れるのですか？

4

1 に答える 1

3

VBAが必要ですか？

式は次のようになります。

=IF(A1="ABC";IF(OR(B1=3601;B1=3602;B1=3603;B1=3700);"";1);"")

下の図にはエラーがあります (セルがシフトされています)。上の式は正しいです。

ここに画像の説明を入力

VBA:

Function CellCombination(Cell1 As Range, Cell2 As Range) As String
  CellCombination = ""
    If Cell1.Value = "ABC" Then
      Select Case Cell2.Value
        Case 3601 To 3603, 3700
        Case Else
          CellCombination = "1"
      End Select
   End If
End Function

スプレッドシートの例: http://www.bumpclub.ee/~jyri_r/Excel/CellCombinations.xls

于 2013-01-23T21:33:39.650 に答える