【エクセルマクロ】入力規則のリストからn番目を入力:簡単解説するよ

ExcelVBA-入力規則リストン番目入力-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、入力規則のリストからn番目を入力するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

入力規則のリストからn番目を入力

以下のExcelVBAを実行すると、ドロップダウンリストから一部の値を取得して転記します。


Sub 入力規則リストを転記()

Dim tmp As Variant

    '入力規則リスト内容を取得
    If Cells(2, 1).Validation.Type = xlValidateList Then
        tmp = Split(Cells(2, 1).Validation.Formula1, ",")
    End If
    
    '入力規則の1番上を出力
    Cells(2, 1) = tmp(0)

End Sub

 

マクロ実行前

A2:A4 に入力規則(リスト)を設定しています。


 

マクロ実行後

入力規則のリストの1番上の値を、セルA2に書き出します。

[tmp(0)] は、リストの1番上を指します。


 

入力規則のリストからn番目を入力(n番目からn番目まで)

以下のExcelVBAを実行すると、ドロップダウンリストから特定の値を取得して転記します。


Sub 入力規則リストの任意の値を出力()

Dim tmp As Variant
Dim i As Long
Dim j As Long

    'セルA2の入力規則リスト内容を取得
    If Cells(2, 1).Validation.Type = xlValidateList Then
        tmp = Split(Cells(2, 1).Validation.Formula1, ",")
    End If
    
    j = 0
    
    For i = 2 To 7
    
        '入力規則のN番目を出力
        Cells(i, 1) = tmp(j)
        j = j + 1
    
    Next i

End Sub

 

マクロ実行前

A2:A7 に同じ入力規則を設定しています。


 

マクロ実行後

入力規則のリストの 0番目から5番目の値を、A列に書き込みます。


 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】入力規則を自動操作する:超便利7選
...