ドロップダウンリストの最初の項目を空白ではなく表示するにはどうすればよいですか？

ワークシートのドロップダウンリストは、データ入力を簡単にするのに役立つ場合があります。項目をXNUMXつずつ入力せずに選択するだけです。 ただし、ドロップダウンリストをクリックすると、次のスクリーンショットに示すように、最初のデータ項目ではなく最初に空白の項目にジャンプする場合があります。これは、リストの最後にあるソースデータを削除したことが原因である可能性があります。 空白のデータ検証セルごとに長いリストの一番上にスクロールして戻る必要があるのは面倒かもしれません。 この記事では、ドロップダウンリストの最初の項目を常に表示する方法について説明します。

データ検証機能を使用して、ドロップダウンリストの最初の項目を空白ではなく表示する

ドロップダウンリストの最初の項目をVBAコードで空白ではなく自動的に表示する

データ検証機能を使用して、ドロップダウンリストの最初の項目を空白ではなく表示する

実際、この仕事を達成するには、ドロップダウンリストを作成するときに特定の数式を適用する必要があります。次のようにしてください。

1。 ドロップダウンリストを挿入するセルを選択し、をクリックします 且つ > データ検証 > データ検証、スクリーンショットを参照してください：

2。 飛び出した データ検証 ダイアログボックス、下 設定 タブを選択 リスト 次を許可します。 セクションをクリックし、次の式を入力します。 = OFFSET（Sheet3！$ A $ 1,0,0、COUNTA（Sheet3！$ A：$ A）-1,1） に ソース テキストボックス、スクリーンショットを参照：

Note：この式では、 Sheet3 ワークシートにはソースデータリストが含まれています。 A1 リストの最初のセル値です。

3。 次に、をクリックします OK ボタンをクリックすると、ドロップダウンリストのセルをクリックすると、ソースデータの最後にセル値が削除されているかどうかに関係なく、最初のデータ項目が常に上部に表示されます。スクリーンショットを参照してください。

ドロップダウンリストの最初の項目をVBAコードで空白ではなく自動的に表示する

ここでは、データ検証セルをクリックしたときにドロップダウンリストの最初の項目を自動的に表示するのに役立つVBAコードを紹介することもできます。

1。 ドロップダウンリストを挿入した後、ドロップダウンリストを含むワークシートタブを選択し、右クリックして選択します コードを表示 コンテキストメニューからに移動します アプリケーション向け Microsoft Visual Basic ウィンドウをクリックし、次のコードをコピーしてモジュールに貼り付けます。

VBAコード：ドロップダウンリストの最初のデータ項目を自動的に表示します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
    Dim xFormula As String
    On Error GoTo Out:
    xFormula = Target.Cells(1).Validation.Formula1
    If Left(xFormula, 1) = "=" Then
        Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
    End If
Out:
End Sub

2。 次に、コードウィンドウを保存して閉じます。ドロップダウンリストのセルをクリックすると、最初のデータ項目が一度に表示されます。