VBAコードでクエリ機能を実装する方法を教えてください

1年 ago
海斗, 葵
1 minute

VBA コードを使用してクエリを使用するには、以下の手順を行います。

  1. Alt + F11 キーを押して、Excel で VBA エディターを開きます。
  2. VBAエディタで「Microsoft Excel オブジェクト」を右クリックして「挿入」をクリックし、「モジュール」をクリックして新しいモジュールを作成します。
  3. クエリ機能用のコードを書く: クエリ機能を実装するには、モジュールにVBAコードを記述します。以下は、簡単な例です。
Sub 查询功能()
    Dim 查找范围 As Range
    Dim 查找值 As Variant
    Dim 结果 As Range
    
    ' 设置要查询的范围
    Set 查找范围 = Worksheets("Sheet1").Range("A1:A10")
    
    ' 获取要查询的值
    查找值 = InputBox("请输入要查询的值：")
    
    ' 在范围中查找值
    Set 结果 = 查找范围.Find(查找值)
    
    ' 判断查找结果是否为空
    If 结果 Is Nothing Then
        MsgBox "找不到该值。"
    Else
        MsgBox "找到该值，位置为：" & 结果.Address
    End If
End Sub

この例では、まず「A1:A10」という検索範囲を設定し、InputBox関数で検索する値を取得します。次に、Findメソッドで検索範囲内で値を検索し、検索結果に応じて適切なメッセージを表示します。

  1. クエリを実行する: F5 キーを押すか、実行ボタンをクリックしてクエリの実行コードを実行します。

VBAコードでクエリ機能を実装するための基本的な手順となります。ニーズに応じて、コードは変更および拡張できます。

bannerAds