城区基准预报数据输入
城区未来天气要素
基准气温：城区乡镇（茶山街道、农垦集团、科教城、高新区、富华山景区）
近湖乡镇：苏家垱乡、泽泉乡 - 比基准最低温和最高温都低1℃
西部乡镇：甘露镇、江益镇、金湖乡 - 最低温比基准低1℃，最高温与基准相同
天气现象：所有乡镇与城区基准一致
风向风速：所有乡镇与城区基准一致
将类似以下格式的表格数据复制到剪贴板，然后点击"从剪贴板解析"按钮自动填充：
格式要求：
1. 包含"共青城市"行
2. 包含天气现象、风向、风速、气温行
3. 数据以制表符或空格分隔
支持两种格式：
• 新格式：共青城市直接与天气现象在一行
• 旧格式：包含站名、天气要素等多行表头
注意：支持负数温度解析，如"-2～1"
新增功能：支持"雨停转X"、"多云间晴"等复杂天气格式的智能识别
注意：不支持在Excel中直接生成"X间Y"等复杂天气，请自行修改
下载文件
点击"生成预报产品"按钮后，系统将根据城区基准数据自动生成天气预报产品。
生成的文件包括：
1. 天气预报播报单（.xlsx格式）
2. 天气编码文件（.txt格式）
编码文件格式：AAAAAA 0BBBB 1CCCC 2DDDD 3EEEE 4FFFF 5GGGG 6HHHH 7IIII 8JJJJ
每行编码后自动添加回车换行符
function Macro(){
let targetWorksheet = ActiveSheet
let targetWorkbook = ActiveWorkbook
let currentRange = ActiveSheet.UsedRange.CurrentRegion
let targetRange;
targetRange = Range("$A$1:$G$20")
targetRange.VerticalAlignment = xlVAlignCenter
targetRange.HorizontalAlignment = xlHAlignCenter
targetRange.WrapText = true
targetRange.Borders.LineStyle = xlContinuous
targetRange.Borders.Weight = xlThin
targetRange.Borders.Color = RGB(0, 0, 0)
let targetRange1;
targetRange1 =Range("$A$1:$G$1")
targetRange1.Font.Name ="宋体"
targetRange1.Font.Bold = true
targetRange1.Font.Size =22
let targetRange2;
targetRange2 = Range("$A$2:$G$2,$A$4:$G$4")
targetRange2.VerticalAlignment = xlVAlignCenter
targetRange2.HorizontalAlignment = xlHAlignLeft
let targetRange3;
targetRange3 =Range("$A$5:$G$7")
targetRange3.VerticalAlignment = xlVAlignTop
targetRange3.HorizontalAlignment = xlHAlignLeft
}