Excel初心者です。収穫した果実を重量別に自動で分類する
表をつくろうと思います。A B C のどの範囲に該当するか
自動判定したいです。Aの範囲でAと表示させる式はできましたが
A B Cの３範囲に分類する数式が分かりません。
添付画像の赤のセルに入れるべき数式を教えて下さい。
あとA B C がそれぞれいくつあるかを求める方法、あるいは
関数があれば教えて下さい。
VBAのコードが動きません。
エラーも出ないので、どこで動かないかわからずにいます。
どこに原因があるか教えていただけないでしょうか？
お手数ですが何卒よろしくお願いいたします。
※画像参照
'①B列＜社員番号＞のフィルターを「（空白）」を外す
'（1）F列＜住所都道府県＞のフィルターを「茨城・栃木・群馬・埼玉・千葉・東京・神奈川・新潟・山梨・長野・福島・大阪・兵庫」以外で設定
'（2）H列＜エリア＞のフィルターを「茨城・栃木・群馬・埼玉・千葉・東京・神奈川・新潟・山梨・長野・福島・大阪・兵庫」以外で設定
Sub フィルタ削除1_1()
Dim pref As Variant
pref = Array("茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "山梨県", "長野県", "福島県", "大阪府", "兵庫県", "静岡県")
Dim r As Long, i As Integer, j As Integer
For r = Cells(Rows.Count, 3).End(xlUp).Row To 4 Step -1
If Cells(r, "B") <> "" Then
For i = 0 To UBound(pref)
If InStr(Cells(r, "F"), pref(i)) > 0 Then
Exit For
End If
Next i
For j = 0 To UBound(pref)
If InStr(Cells(r, "H"), pref(j)) > 0 Then
Exit For
End If
Next j
If (i > UBound(pref)) And (j > UBound(pref)) Then
Rows(r).Delete
End If
End If
Next r
End Sub
エクセルvbaでセルに特定の文字を含む文字が入力された時に、ポップアップを表示するようにしたいのですが、特定の文字とメッセージ内容は"設定用シート"内のA列に特定の文字、B列にメッセージ内容をセット。
下記のコードでは動作致しません。
どのように修正すれば宜しいでしょうか？
Worksheet_Change(ByVal Target As Range)
Dim searchRange As Range
Dim cell As Range
Dim searchText As String
Dim message As String
' 設定用シートを参照
Set searchRange = Sheets("設定用シート").Range("A:B")
' 変更されたセルの中で特定の文字を検索
For Each cell In Intersect(Target, Me.UsedRange)
searchText = cell.Value
If Not IsEmpty(searchText) Then
' 設定用シートで特定の文字を検索
On Error Resume Next ' セルが見つからなかった場合のエラーハンドリング
message = searchRange.Columns(2).Find(searchText).Offset(0, 1).Value
On Error GoTo 0 ' エラーハンドリングを元に戻す
If Len(message) > 0 Then
' ポップアップ表示
MsgBox message, vbInformation, "メッセージ"
End If
End If
Next cell
End Sub
