威伦触摸屏脚本做的月产量每天查询表程序，自己编写的，自动存储当天产量，宏指令。可保存多年数据，任意查询.

很棒的创意！以下是我为您提供的可能的脚本：

1. 创建一个新的Excel工作簿，将其命名为“月产量表”。
2. 在第一个工作表中创建以下列标题：日期、产量、备注。
3. 在VBA编辑器中创建一个新的模块。
4. 在模块中编写以下代码：

Sub AddDailyOutput()
'获取当前日期
Dim currentDate as Date
currentDate = Date

'获取当前产量
Dim currentOutput as Integer
currentOutput = InputBox("请输入今天的产量：", "添加当天产量")

'获取备注
Dim note as String
note = InputBox("请输入备注（可选）：", "添加备注")

'将数据添加到表格中
Worksheets("Sheet1").Activate
Dim lastRow as Integer
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lastRow + 1).Value = currentDate
Range("B" & lastRow + 1).Value = currentOutput
Range("C" & lastRow + 1).Value = note

'保存工作簿
ActiveWorkbook.Save

'提示用户数据已保存
MsgBox("当天产量已添加。")
End Sub

5. 在模块中创建以下代码以允许用户查询月产量数据：

Sub QueryMonthlyOutput()
'获取用户输入的查询日期范围
Dim startDate as Date
Dim endDate as Date
startDate = InputBox("请输入起始日期（格式为yyyy-mm-dd）：", "查询月产量")
endDate = InputBox("请输入结束日期（格式为yyyy-mm-dd）：", "查询月产量")

'在新的工作表中显示查询结果
Dim outputSheet as Worksheet
Set outputSheet = Worksheets.Add
outputSheet.Name = "查询结果"
outputSheet.Range("A1:C1").Value = Array("日期", "产量", "备注")

Dim currentRow as Integer
currentRow = 2

Dim currentDate as Date
Dim currentOutput as Integer
Dim note as String

Worksheets("Sheet1").Activate
Dim lastRow as Integer
lastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 to lastRow
currentDate = Range("A" & i).Value
If currentDate >= startDate And currentDate <= endDate Then
currentOutput = Range("B" & i).Value
note = Range("C" & i).Value

outputSheet.Range("A" & currentRow).Value = currentDate
outputSheet.Range("B" & currentRow).Value = currentOutput
outputSheet.Range("C" & currentRow).Value = note

currentRow = currentRow + 1
End If
Next i

'自适应列宽
outputSheet.Columns.AutoFit

'提示用户查询结果已生成
MsgBox("查询结果已生成。")
End Sub

6. 创建一个自定义宏，将其绑定到一个按钮或快捷键上，并将其命名为“添加当天产量”或“查询月产量”。

现在，您可以使用这些脚本轻松地添加每天的产量数据并查询任意日期范围内的月产量数据。希望这能够帮助到您！