要编写一个VBA运行的触发器查询，可以按照以下步骤进行操作：

1. 打开Excel并按下Alt + F11打开VBA编辑器。

2. 在VBA编辑器中，插入一个新的模块。可以通过点击“插入”选项卡，然后选择“模块”来实现。

3. 在新的模块中，编写VBA代码来创建查询触发器。以下是一个示例代码：

Option Explicit

Sub QueryTrigger()

    Dim rng As Range
    Dim qryTable As QueryTable
    Dim conn As WorkbookConnection
    
    ' 设置范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    
    ' 创建查询表
    Set conn = ThisWorkbook.Connections.Add2("QueryConnection", "Query description")
    Set qryTable = rng.Worksheet.ListObjects.Add(SourceType:=xlSrcQuery, _
        Source:=conn, _
        Destination:=rng).QueryTable
    
    ' 设置查询参数
    qryTable.CommandType = xlCmdSql
    qryTable.CommandText = "SELECT * FROM [TableName]"
    
    ' 刷新查询表
    qryTable.Refresh
    
    ' 删除查询表和连接
    qryTable.Delete
    ThisWorkbook.Connections("QueryConnection").Delete
    
End Sub

4. 在上述代码中，你需要根据实际情况进行一些调整。例如，你需要将"Sheet1"替换为你想要查询的工作表名称，"[TableName]"替换为你想要查询的表名称，以及"Query description"替换为适当的查询描述。

5. 保存并关闭VBA编辑器。

6. 现在，你可以通过调用"QueryTrigger"子例程来触发查询。你可以在Excel中按下Alt + F8，选择"QueryTrigger"并点击"运行"按钮，或者通过其他方式调用该子例程。

以上就是一个简单的VBA运行的触发器查询的解决方法。你可以根据实际需求进行修改和扩展。