2KK8一路高歌一路行！

黄仁勋与英伟达NVIDIA

Wed, 06 May 2026 15:23:34 +0800

英伟达（NVIDIA）最新财报的核心数据，以及创始人兼CEO黄仁勋的个

人详细资料。截至当前（2026年5月），英伟达刚刚发布了其2026财年

的年报，数据极具参考价值。

一、英伟达（NVIDIA）最新财务报表现况

英伟达的财年与自然年不同步，其2026财年对应的是2025年2月至2026

年1月。从目前的最新数据来看，英伟达依然维持着“印钞机”级别的

恐怖表现。

1. 核心财务数据（2026财年）

总营收：2159.38亿美元，同比大增65.47%（2025财年为1304.97亿美元

）。

净利润：1200.67亿美元，同比增长64.75%（2025财年为728.80亿美元）

。

毛利率：71.07%（GAAP口径），虽然相比前一财年的74.99%略有下滑，

但仍处于极其暴利的水平。

运营现金流：高达 1027.18亿美元，自由现金流约836.76亿美元，现金

流极度充裕。

2. 业务构成拆解

英伟达早已不是一家单纯的“显卡公司”，其业务重心完成了彻底的转

型：

数据中心（核心引擎）：全年营收 1937.37亿美元（占比近90%），同

比增长68.2%。这块业务主要包含AI计算芯片（如Blackwell架构的GB2

00）和高速网络互联设备。AI大模型的热潮依然是其最大驱动力。

游戏业务（传统基本盘）：全年营收 160.42亿美元，同比增长41.3%。

主要得益于RTX 50系列等新显卡的发布。

专业视觉与汽车：专业可视化营收31.91亿美元（增长70%），汽车与机

器人业务营收23.49亿美元（增长38.7%），均在发力阶段。

3. 亮点与挑战

亮点：AI算力需求呈现“指数级增长”，企业级Agent（智能体）应用

爆发，带动其高端芯片供不应求。

挑战：受美国对华出口管制影响，2026财年英伟达面向中国（含香港）

的销售额同比下降21.4%至196.77亿美元，且目前获批的H200等芯片在

中国市场销售遇冷。

二、黄仁勋（Jensen Huang）个人详细资料

作为硅谷最具辨识度的华人CEO，黄仁勋的个人财富与公司股价紧密绑

定。

1. 人物履历

早年经历：1963年2月17日出生于中国台湾省台南市，幼年曾迁居泰国，

后赴美国留学。15岁时曾获得美国乒乓球公开赛青年组双打季军。

教育背景：1984年获得美国俄勒冈州立大学电子工程学士学位，1990年

获得斯坦福大学电子工程硕士学位。

职业起点：曾在AMD（1983-1984年）和LSI Logic（1984-1993年）担任

芯片设计师，这段经历让他看清了图形计算的未来潜力。

创立英伟达：1993年1月，黄仁勋与两位合伙人共同创办了英伟达（NVI

DIA），并担任总裁兼CEO至今。2024年2月，因其在“点燃AI革命”中

的关键作用，当选美国国家工程院院士。

2. 持股比例与富豪榜排名

持股情况：黄仁勋是英伟达最大的个人股东，持有约 3.5% ~ 3.8% 的公

司流通股。

财富排名：随着英伟达市值一路狂飙（一度突破3万亿美元），黄仁勋的

个人财富也水涨船高。在2025年福布斯全球富豪榜中，他以约1200亿美

元的净资产位列第9位，正式跻身全球前十富豪俱乐部。

3. 薪酬待遇

黄仁勋的薪酬结构非常典型：基本工资占比较小，绝大部分收入来自与

股价和业绩挂钩的股票奖励。

2023财年：总薪酬约 2135.6万美元。

2024财年：总薪酬跃升至 3420万美元。

2025财年：随着英伟达业绩再次翻倍，其总薪酬大涨46%，达到 4990万

美元（约合人民币3.6亿元）。其中包括：基本工资（150万美元）+ 股

票奖励（3880万美元）+ 现金奖金（400万美元）+ 其他津贴（安保、司

机等250万美元）。这是他十年来首次获得基本工资的上调。

搜索引擎大全

Wed, 06 May 2026 14:59:55 +0800

一、国内主流搜索引擎

搜索引擎名称	官方网址 (Homepage)	简要说明
百度搜索	https://www.baidu.com/	国内市场份额稳居第一，涵盖网页、资讯、知道等生态。
360搜索	https://www.so.com/	依托360安全卫士的庞大用户基数，主打“安全搜索”概念。
搜狗搜索	https://www.sogou.com/	曾被腾讯收购，独特优势在于对接了微信公众号和知乎的内容池。
神马搜索	https://m.sm.cn/	阿里旗下，完全为移动端（手机）打造的搜索引擎，PC端会自动跳转至UC浏览器相关页面。
必应 (中国)	https://cn.bing.com/	微软旗下的国际引擎中国特供版，国内访问稳定，搜索质量较高。

二、国际与区域性搜索巨头

搜索引擎名称	官方网址 (Homepage)	简要说明
Google	https://www.google.com/	全球绝对的霸主，算法最强大，覆盖几乎所有语言和内容。
Bing (必应全球)	https://www.bing.com/	微软旗下，国际第二大引擎，也是雅虎搜索的技术 backend 提供方。
Yahoo!	https://www.yahoo.com/	曾经的门户巨头，目前搜索结果基本由 Bing 提供支持。
Yandex	https://yandex.com/	被称为“俄罗斯的谷歌”，在俄语区占据绝对主导地位，也支持全球搜索。
Naver	https://www.naver.com/	韩国最大的搜索引擎和门户网站，占据了韩国绝大部分的市场份额。

三、垂类与元搜索工具

搜索引擎名称	官方网址 (Homepage)	简要说明
WOSO我搜	(需通过各大软件园下载客户端)	早期国内较有名的元搜索引擎，本身不抓取网页，而是整合百度、谷歌等多家结果。

💡 猎人点评：

如果你是为了做SEO（搜索引擎优化）或SEM（竞价推广），重点盯住 百度、360、搜狗、必应 这四家即可；如果你是为了跨境出海，则需要根据目标市场选择 Google（全球通用）、Yandex（主攻俄罗斯及东欧）或 Naver（主攻韩国）。

每周工作80–100 小时

Thu, 30 Apr 2026 15:11:36 +0800

在中国，每周 80–100 小时的人，月收入大多在 1 万 5～3 万之间；少数高薪行业 / 岗位能到 3–8 万；时薪普遍偏低，很多在 30–60 元 / 小时。

下面分场景说清楚（2025–2026 国内一线 / 新一线口径）：

一、普通高强度岗位（工厂、外卖、销售、小作坊）

典型工时：80–100 小时 / 周，基本无休
月薪：8k – 1.8 万
时薪：20–40 元（非常低，纯靠堆时间）
例子：

服装 / 电子厂：两班倒、连轴转，月休 0–2 天，到手 9k–1.5 万
外卖 / 跑腿：每天 14–16 小时，月入 1 万–1.8 万，但风雨无阻、极度累
传统销售：天天应酬 + 周末无休，月薪 1 万左右，时薪约 30 元

二、互联网 / 游戏 / 动漫（996+、项目期爆肝）

典型工时：常态 60–80h，项目冲刺 80–100h / 周，连续 1–3 个月无休
月薪：1.8 万 – 3.5 万（普通开发 / 美术 / 策划）
时薪：40–70 元（看着高，折算后一般）
特点：

很多是年薪制 / 包干，名义无加班费，“自愿加班”
游戏 “Crunch 期”：早 9→凌晨 2，周末全上，年薪 25–40 万（月 2–3.3 万）

三、金融 / 投行 / 顶级咨询（真・80–100h）

典型工时：每周 80–110h，全年无明显淡季
月薪（含奖金分摊）：5 万 – 12 万
时薪：150–300 元（少数真正 “值钱” 的）
人群：投行分析师、顶级咨询项目经理、头部交易岗
代价：30 岁前后普遍高血压、失眠、焦虑，猝死风险显著上升

四、创业 / 小老板 / 自由职业（自己给自己加班）

工时：80–120h / 周，全年无休
收入波动极大：

活得累但一般：月 2 万 – 5 万
做得好：月 10 万 +
多数：用命换钱，没生活，且风险高

五、按 “法定加班费” 算，应该拿多少（现实几乎没人这么给）

标准 40h 月薪 1 万：

超出 40h 全算加班（1.5 倍 / 2 倍）
80h / 周 → 月约 213h → 按法规应发约 2.2 万
100h / 周 → 月约 267h → 按法规应发约 3 万
现实：90% 的高强度岗位不按法规给加班费，要么包干、要么 “自愿”人力资源和社会保障部。

一句话总结（最扎心）

大多数人：每周 80–100 小时，月入 1–2 万，时薪 20–50 元，纯卖苦力、透支健康。
少数高薪：金融 / 顶级互联网，月入 5 万 +，但 35 岁前身体基本 “报废”。
本质：这不是 “高薪”，是用寿命折现。

Claude Code 集成进 VS Code，与 claude.ai 网页版的代码编程能力对比

Mon, 20 Apr 2026 11:09:42 +0800

Claude Code 集成进 VS Code，使用要收费；

claude.ai 网页版有收费与免费。

版本	价格	限制
免费版	$0	采用滚动5小时窗口机制，额度不会在午夜重置，而是持续动态递减——比如早上9点发的消息，到下午2点就不再占用额度了。具体额度：不限制消息条数，限制 Token（字符量）。对话越长、附件越多，消耗越快。高峰期影响：从2026年3月26日开始，Anthropic在高峰时段（北京时间晚上8点至凌晨2点）会更快耗尽5小时额度，同样的对话在高峰期消耗更大。建议：尽量在白天用（非高峰期，额度更宽松）每15~20条消息开一个新对话，避免重复读取历史消耗多个问题合并成一条发送，比分开发更省额度免费版大约每天能发约 40 条短消息；对于一般的嵌入式编程，免费版完全够用。
Pro	$20/月	消息量约5倍于免费版，优先访问新模型
Max	$100或$200/月	消息量最大，适合重度使用

版本

价格

限制

免费版

采用滚动5小时窗口机制，额度不会在午夜重置，而是持续动态递减——比如早上9点发的消息，到下午2点就不再占用额度了。

具体额度：不限制消息条数，限制 Token（字符量）。对话越长、附件越多，消耗越快。

高峰期影响：从2026年3月26日开始，Anthropic在高峰时段（北京时间晚上8点至凌晨2点）会更快耗尽5小时额度，同样的对话在高峰期消耗更大。

建议：

尽量在白天用（非高峰期，额度更宽松）
每15~20条消息开一个新对话，避免重复读取历史消耗
多个问题合并成一条发送，比分开发更省额度

免费版大约每天能发约 40 条短消息；

对于一般的嵌入式编程，免费版完全够用。

Pro

$20/月

消息量约5倍于免费版，优先访问新模型

Max

$100或$200/月

消息量最大，适合重度使用

再来说说对比:

Claude Code 集成进 VS Code，与 claude.ai 网页版的代码编程能力对比，有差异么？调用的是同一个内核运算么？

非常好的问题！

调用的是同一个AI模型（Claude Sonnet/Opus），内核运算完全一样，智能水平没有差异。

真正的区别只是"操作方式"：

能力	网页版	Claude Code in VS Code
理解代码、写代码	✅ 一样	✅ 一样
调Bug、解释错误	✅ 一样	✅ 一样
自动读取项目文件	❌ 需手动粘贴	✅ 自动读
自动写入/修改文件	❌ 需手动复制	✅ 直接改
在编辑器里看diff	❌	✅
运行终端命令	❌	✅

一句话总结：大脑一样，Claude Code 多了一双"手"，能直接动你电脑上的文件；网页版只能"说"，你自己动手复制粘贴。

对于你现在的嵌入式项目，代码量不大，网页版完全胜任，没必要为这个付费。

溥仪与五位后妃生平

Tue, 24 Mar 2026 23:29:53 +0800

溥仪与五位后妃生平

1912年，清朝最后一位皇帝溥仪颁布退位诏书，将权力交给袁世凯，清朝正式灭亡。依据优待条件，他与家人暂居紫禁城内廷，保留皇室待遇。

溥仪的一生

1. 1912年—1924年紫禁城

1922年大婚，娶皇后婉容、淑妃文绣。1924年被冯玉祥逐出皇宫。

2. 1925年—1931年天津日租界

先后住张园、静园，靠拢日本谋求复辟。1931年文绣公开离婚，史称“刀妃革命”。

3. 1932年—1945年长春伪满洲国

任傀儡执政，1934年登基为康德皇帝。

1937年娶祥贵人谭玉龄，1942年谭玉龄病逝；

1943年娶福贵人李玉琴。

婉容遭冷落、鸦片成瘾、精神失常，被软禁冷宫。

4. 1945年—1959年被俘与改造

1945年日本投降，在大栗子沟退位，被苏军俘虏关押5年；

1950年遣返，入抚顺战犯管理所改造；

1959年获特赦，成为普通公民。

5. 1959年—1967年北京晚年

在北京植物园、全国政协文史委工作；

1962年与护士李淑贤结婚；

1967年10月17日因病去世，终年61岁。

骨灰先葬八宝山，1995年迁葬河北易县清西陵旁的华龙皇家陵园。

五位后妃结局

1. 婉容（皇后，1906年—1946年）

随溥仪居北京、天津、长春；后期疯癫成瘾，1946年死于延吉监狱，葬地不明。

2. 文绣（淑妃，1909年—1953年）

1931年与溥仪离婚，后在北京务工、再婚，1953年病逝。

3. 谭玉龄（祥贵人，1920年—1942年）

1937年入宫受宠，1942年猝然离世，溥仪终身珍藏其照片。

4. 李玉琴（福贵人，1928年—2001年）

1945年与溥仪失散，1957年离婚，再婚工作，晚年安稳，2001年在长春病逝。

5. 李淑贤（妻子，1924年—1997年）

陪伴溥仪晚年，1997年在北京病逝，骨灰留存八宝山。

页面烟花效果代码

Thu, 26 Feb 2026 17:35:27 +0800

yanhua.js
七彩效果

/**
 * 烟花特效优化版 2KK8.com 2026-02-26
 * 使用方法，页面插入: <script src="yanhua.js"></script>
 */
(function() {
    // requestAnimationFrame 兼容处理
    var requestAnimationFrame = window.requestAnimationFrame || window.mozRequestAnimationFrame || window.webkitRequestAnimationFrame || window.msRequestAnimationFrame ||
        function(callback) {
            window.setTimeout(callback, 1000 / 60);
        };

    var windowWidth = window.innerWidth;
    var windowHeight = window.innerHeight;

    // 配置
    var fireworks = [];
    var particles = [];
    var hue = 120;
    var limiterTotal = 5;
    var limiterTick = 0;
    var timerTotal = 200; // 增加发射间隔，变慢
    var timerTick = 0;
    var mousedown = false;
    var mx, my;

    // 辅助函数
    function random(min, max) {
        return Math.random() * (max - min) + min;
    }

    function calculateDistance(p1x, p1y, p2x, p2y) {
        var xDistance = p1x - p2x;
        var yDistance = p1y - p2y;
        return Math.sqrt(Math.pow(xDistance, 2) + Math.pow(yDistance, 2));
    }

    // 烟花类
    function Firework(sx, sy, tx, ty) {
        this.x = sx;
        this.y = sy;
        this.sx = sx;
        this.sy = sy;
        this.tx = tx;
        this.ty = ty;
        this.distanceToTarget = calculateDistance(sx, sy, tx, ty);
        this.distanceTraveled = 0;
        this.coordinates = [];
        this.coordinateCount = 3;

        while (this.coordinateCount--) {
            this.coordinates.push([this.x, this.y]);
        }
        this.angle = Math.atan2(ty - sy, tx - sx);
        this.speed = 0.5; // 降低初始速度，让升空更慢
        this.acceleration = 1.002; // 降低加速度，使升空过程更缓慢
        this.brightness = random(50, 70);
        this.targetRadius = 1;
    }

    Firework.prototype.update = function(index) {
        this.coordinates.pop();
        this.coordinates.unshift([this.x, this.y]);

        if (this.targetRadius < 8) {
            this.targetRadius += 0.3;
        } else {
            this.targetRadius = 1;
        }

        this.speed *= this.acceleration;
        var vx = Math.cos(this.angle) * this.speed;
        var vy = Math.sin(this.angle) * this.speed;

        this.distanceTraveled = calculateDistance(this.sx, this.sy, this.x + vx, this.y + vy);

        if (this.distanceTraveled >= this.distanceToTarget) {
            createParticles(this.tx, this.ty);
            fireworks.splice(index, 1);
        } else {
            this.x += vx;
            this.y += vy;
        }
    }

    Firework.prototype.draw = function(ctx) {
        ctx.beginPath();
        ctx.moveTo(this.coordinates[this.coordinates.length - 1][0], this.coordinates[this.coordinates.length - 1][1]);
        ctx.lineTo(this.x, this.y);
        ctx.strokeStyle = 'hsl(' + hue + ', 100%, ' + this.brightness + '%)'; 
        ctx.stroke();
    }

    // 粒子类
    function Particle(x, y) {
        this.x = x;
        this.y = y;
        this.coordinates = [];
        this.coordinateCount = 5;
        while (this.coordinateCount--) {
            this.coordinates.push([this.x, this.y]);
        }
        this.angle = random(0, Math.PI * 2);
        this.speed = random(1, 20); // 增加速度范围，使爆炸范围更大
        this.friction = 0.95;
        this.gravity = 1;
        // 粒子颜色完全随机，不再依赖全局 hue
        this.hue = random(0, 360); 
        this.brightness = random(50, 80);
        this.alpha = 1;
        this.decay = random(0.015, 0.03);
    }

    Particle.prototype.update = function(index) {
        this.coordinates.pop();
        this.coordinates.unshift([this.x, this.y]);
        this.speed *= this.friction;
        this.x += Math.cos(this.angle) * this.speed;
        this.y += Math.sin(this.angle) * this.speed + this.gravity;
        this.alpha -= this.decay;

        if (this.alpha <= this.decay) {
            particles.splice(index, 1);
        }
    }

    Particle.prototype.draw = function(ctx) {
        ctx.beginPath();
        ctx.moveTo(this.coordinates[this.coordinates.length - 1][0], this.coordinates[this.coordinates.length - 1][1]);
        ctx.lineTo(this.x, this.y);
        ctx.lineWidth = 3; // 增加线宽，让粒子看起来更大
        ctx.strokeStyle = 'hsla(' + this.hue + ', 100%, ' + this.brightness + '%, ' + this.alpha + ')';
        ctx.stroke();
        ctx.lineWidth = 1; // 绘制完后还原线宽
    }

    function createParticles(x, y) {
        var particleCount = 100; // 增加粒子数量，使爆炸效果更饱满
        while (particleCount--) {
            particles.push(new Particle(x, y));
        }
    }

    // 初始化函数
    function init() {
        var canvas = document.createElement("canvas");
        canvas.id = "fireworks_canvas";
        canvas.style.position = "fixed";
        canvas.style.left = 0;
        canvas.style.top = 0;
        canvas.style.width = "100%";
        canvas.style.height = "100%";
        canvas.style.zIndex = "99999"; 
        canvas.style.pointerEvents = "none"; // 点击穿透
        document.body.appendChild(canvas);

        var ctx = canvas.getContext("2d");
        canvas.width = windowWidth;
        canvas.height = windowHeight;

        function loop() {
            requestAnimationFrame(loop);

            // 循环颜色，用于烟花上升阶段
            hue += 0.5;

            // 创建拖尾效果
            ctx.globalCompositeOperation = 'destination-out';
            ctx.fillStyle = 'rgba(0, 0, 0, 0.5)';
            ctx.fillRect(0, 0, windowWidth, windowHeight);
            ctx.globalCompositeOperation = 'lighter';

            var i = fireworks.length;
            while (i--) {
                fireworks[i].draw(ctx);
                fireworks[i].update(i);
            }

            var i = particles.length;
            while (i--) {
                particles[i].draw(ctx);
                particles[i].update(i);
            }

            // 自动发射逻辑修改
            if (timerTick >= timerTotal) {
                if (!mousedown) {
                    // 每次随机发射 1 到 5 个烟花
                    var count = Math.floor(random(1, 6));
                    for(var k=0; k<count; k++) {
                         // 垂直发射：起点x和终点x一致
                         var launchX = random(0, windowWidth); 
                         fireworks.push(new Firework(launchX, windowHeight, launchX, random(0, windowHeight / 2)));
                    }
                    timerTick = 0;
                }
            } else {
                timerTick++;
            }

            // 限制手动发射
            if (limiterTick >= limiterTotal) {
                if (mousedown) {
                    fireworks.push(new Firework(windowWidth / 2, windowHeight, mx, my));
                    limiterTick = 0;
                }
            } else {
                limiterTick++;
            }
        }

        window.addEventListener('resize', function() {
            windowWidth = window.innerWidth;
            windowHeight = window.innerHeight;
            canvas.width = windowWidth;
            canvas.height = windowHeight;
        });
        
        // 循环
        loop();
    }

    // 仅在大屏幕上启动
    if (window.innerWidth > 768) {
        if (document.readyState === 'complete') {
            init();
        } else {
            window.addEventListener('load', init);
        }
    }

})();

yanhua-2.js
虚幻化效果

<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no">
<title>烟花特效 - 兼容所有设备</title>
<style>
* {
margin: 0;
padding: 0;
-webkit-tap-highlight-color: transparent;
}
body {
background-color: black;
overflow: hidden;
width: 100vw;
height: 100vh;
}
canvas {
display: block;
}
.info {
position: fixed;
top: 20px;
left: 20px;
color: white;
background: rgba(0,0,0,0.5);
padding: 10px;
border-radius: 5px;
font-family: Arial, sans-serif;
font-size: 14px;
z-index: 10000;
}
</style>
</head>
<body>
<div>🎆 触摸屏幕观看烟花</div>
<canvas id="fireworks"></canvas>

<script>
(function() {
'use strict';

console.log('烟花特效启动 - 极简版本');

// 获取canvas和context
var canvas = document.getElementById('fireworks');
var ctx = canvas.getContext('2d');

// 设置canvas尺寸
canvas.width = window.innerWidth;
canvas.height = window.innerHeight;

var width = canvas.width;
var height = canvas.height;

// 极简配置
var fireworks = []; // 最大3个烟花
var particles = []; // 最大20个粒子
var lastTime = 0;
var frameCount = 0;
var fps = 0;

// 简单颜色数组
var colors = ['#ff0000', '#00ff00', '#0000ff', '#ffff00', '#ff00ff', '#00ffff'];

// 获取随机颜色
function getRandomColor() {
return colors[Math.floor(Math.random() * colors.length)];
}

// 创建烟花（极简）
function createFirework() {
if (fireworks.length >= 2) return; // 最多2个同时存在

var x = 100 + Math.random() * (width - 200);

fireworks.push({
x: x,
y: height,
targetY: 100 + Math.random() * 200,
speed: 2,
color: getRandomColor(),
state: 'rising'
});
}

// 创建爆炸粒子（极少数量）
function createExplosion(x, y, color) {
for (var i = 0; i < 6; i++) { // 只有6个粒子
particles.push({
x: x,
y: y,
vx: (Math.random() - 0.5) * 3,
vy: (Math.random() - 0.5) * 3 - 1,
color: color,
life: 1
});
}
}

// 更新烟花
function updateFireworks() {
for (var i = fireworks.length - 1; i >= 0; i--) {
var f = fireworks[i];

f.y -= f.speed;
f.speed *= 0.99;

if (f.y <= f.targetY) {
createExplosion(f.x, f.y, f.color);
fireworks.splice(i, 1);
}
}
}

// 更新粒子
function updateParticles() {
for (var i = particles.length - 1; i >= 0; i--) {
var p = particles[i];

p.x += p.vx;
p.y += p.vy;
p.vy += 0.05;
p.life -= 0.02;

if (p.life <= 0) {
particles.splice(i, 1);
}
}
}

// 绘制
function draw() {
// 完全清除画布
ctx.fillStyle = '#000000';
ctx.fillRect(0, 0, width, height);

// 绘制烟花
for (var i = 0; i < fireworks.length; i++) {
var f = fireworks[i];

ctx.fillStyle = f.color;
ctx.beginPath();
ctx.arc(f.x, f.y, 4, 0, Math.PI * 2);
ctx.fill();

// 简单轨迹
ctx.beginPath();
ctx.moveTo(f.x, height);
ctx.lineTo(f.x, f.y);
ctx.strokeStyle = f.color;
ctx.lineWidth = 1;
ctx.stroke();
}

// 绘制粒子
for (var i = 0; i < particles.length; i++) {
var p = particles[i];

ctx.globalAlpha = p.life;
ctx.fillStyle = p.color;
ctx.beginPath();
ctx.arc(p.x, p.y, 2, 0, Math.PI * 2);
ctx.fill();
}
ctx.globalAlpha = 1;
}

// 主循环
function animate(timestamp) {
// 控制帧率
frameCount++;
if (timestamp - lastTime >= 1000) {
fps = frameCount;
frameCount = 0;
lastTime = timestamp;

// 自动添加烟花
if (Math.random() < 0.3 && fireworks.length < 2) {
createFirework();
}
}

// 更新
updateFireworks();
updateParticles();

// 绘制
draw();

// 继续循环
requestAnimationFrame(animate);
}

// 触摸事件
canvas.addEventListener('touchstart', function(e) {
e.preventDefault();
if (fireworks.length < 2) {
createFirework();
}
});

// 鼠标事件
canvas.addEventListener('mousedown', function(e) {
if (fireworks.length < 2) {
createFirework();
}
});

// 窗口大小变化
window.addEventListener('resize', function() {
width = canvas.width = window.innerWidth;
height = canvas.height = window.innerHeight;
fireworks = [];
particles = [];
});

// 立即显示一个烟花
setTimeout(createFirework, 500);

// 启动动画
requestAnimationFrame(animate);

console.log('烟花特效运行中');

})();
</script>
</body>
</html>

本站优化版，请随意传播。

网页代码颜色一览

Wed, 25 Feb 2026 11:35:39 +0800

网页颜色一览:

WEB常用CSS/HTML颜色代码表

中文	十六进制	RGB值
黑色	#000000	0,0,0
蓝色	#0000FF	0,0,255
青色	#00FFFF	0,255,255
灰色	#808080	128,128,128
绿色	#008000	0,128,0
橙色	#FFA500	255,165,0
紫色	#800080	128,0,128
红色	#FF0000	255,0,0
白色	#FFFFFF	255,255,255
黄色	#FFFF00	255,255,0
水色	#00FFFF	0,255,255
紫红色	#FF00FF	255,0,255
洋红色	#FF00FF	255,0,255
栗色	#800000	128,0,0
海军蓝	#000080	0,0,128
凫蓝色	#008080	0,128,128
棕色	#A52A2A	165,42,42
绯红色	#DC143C	220,20,60
深蓝色	#00008B	0,0,139
深灰色	#A9A9A9	169,169,169
深绿色	#006400	0,100,0
深橙色	#FF8C00	255,140,0
深红色	#8B0000	139,0,0
金色	#FFD700	255,215,0
亮灰色	#D3D3D3	211,211,211
酸橙色	#00FF00	0,255,0
橄榄色	#808000	128,128,0
橙红色	#FF4500	255,69,0
粉红色	#FFC0CB	255,192,203
银色	#C0C0C0	192,192,192
古董白	#FAEBD7	250,235,215
米色	#F5F5DC	245,245,220
浓汤色	#FFE4C4	255,228,196
漂白杏仁色	#FFEBCD	255,235,205
巧克力色	#D2691E	210,105,30
珊瑚色	#FF7F50	255,127,80
玉米丝色	#FFF8DC	255,248,220
深粉红色	#FF1493	255,20,147
深天蓝色	#00BFFF	0,191,255
暗灰色	#696969	105,105,105
耐火砖色	#B22222	178,34,34
森林绿	#228B22	34,139,34
庚斯博罗灰	#DCDCDC	220,220,220
热粉红色	#FF69B4	255,105,180
印度红	#CD5C5C	205,92,92
象牙色	#FFFFF0	255,255,240
卡其色	#F0E68C	240,230,140
柠檬纱色	#FFFACD	255,250,205
亮粉红色	#FFB6C1	255,182,193
亮鲑鱼色	#FFA07A	255,160,122
亮黄色	#FFFFE0	255,255,224
酸橙绿	#32CD32	50,205,50
中蓝色	#0000CD	0,0,205
鹿皮鞋色	#FFE4B5	255,228,181
纳瓦霍白	#FFDEAD	255,222,173
番木瓜色	#FFEFD5	255,239,213
桃粉色	#FFDAB9	255,218,185
鞍棕色	#8B4513	139,69,19
鲑鱼色	#FA8072	250,128,114
海绿色	#2E8B57	46,139,87
赭色	#A0522D	160,82,45
棕褐色	#D2B48C	210,180,140
番茄色	#FF6347	255,99,71
小麦色	#F5DEB3	245,222,179
碧蓝色	#7FFFD4	127,255,212
蓝紫色	#8A2BE2	138,43,226
硬木色	#DEB887	222,184,135
查特酒绿	#7FFF00	127,255,0
矢车菊蓝	#6495ED	100,149,237
深青色	#008B8B	0,139,139
深金菊色	#B8860B	184,134,11
深卡其色	#BDB76B	189,183,107
深洋红色	#8B008B	139,0,139
深橄榄绿	#556B2F	85,107,47
深鲑鱼色	#E9967A	233,150,122
深青绿色	#00CED1	0,206,209
道奇蓝	#1E90FF	30,144,255
金菊色	#DAA520	218,165,32
绿黄色	#ADFF2F	173,255,47
靛蓝色	#4B0082	75,0,130
薰衣草色	#E6E6FA	230,230,250
草坪绿	#7CFC00	124,252,0
亮蓝色	#ADD8E6	173,216,230
亮珊瑚色	#F08080	240,128,128
亮金菊黄	#FAFAD2	250,250,210
亮绿色	#90EE90	144,238,144
亮天蓝色	#87CEFA	135,206,250
亚麻色	#FAF0E6	250,240,230
中海绿色	#3CB371	60,179,113
午夜蓝	#191970	25,25,112
雾玫瑰色	#FFE4E1	255,228,225
橄榄褐色	#6B8E23	107,142,35
兰花紫	#DA70D6	218,112,214
淡金菊色	#EEE8AA	238,232,170
淡绿色	#98FB98	152,251,152
淡紫红色	#DB7093	219,112,147
秘鲁色	#CD853F	205,133,63
李色	#DDA0DD	221,160,221
丽贝卡紫	#663399	102,51,153
玫瑰棕色	#BC8F8F	188,143,143
皇家蓝	#4169E1	65,105,225
沙棕色	#F4A460	244,164,96
贝壳色	#FFF5EE	255,245,238
天蓝色	#87CEEB	135,206,235
春绿色	#00FF7F	0,255,127
钢蓝色	#4682B4	70,130,180
蓟色	#D8BFD8	216,191,216
青绿色	#40E0D0	64,224,208
紫罗兰色	#EE82EE	238,130,238
烟白色	#F5F5F5	245,245,245
黄绿色	#9ACD32	154,205,50
丽贝卡紫	#663399	102,51,153
爱丽丝蓝	#F0F8FF	240,248,255
天蓝色	#F0FFFF	240,255,255
军蓝色	#5F9EA0	95,158,160
深兰花紫	#9932CC	153,50,204
深海绿色	#8FBC8F	143,188,143
深石板蓝	#483D8B	72,61,139
深石板灰	#2F4F4F	47,79,79
深紫罗兰色	#9400D3	148,0,211
花卉白	#FFFAF0	255,250,240
幽灵白	#F8F8FF	248,248,255
蜜露色	#F0FFF0	240,255,240
薰衣草红	#FFF0F5	255,240,245
亮青色	#E0FFFF	224,255,255
亮海绿色	#20B2AA	32,178,170
亮石板灰	#778899	119,136,153
亮钢蓝色	#B0C4DE	176,196,222
中碧蓝色	#66CDAA	102,205,170
中兰花紫	#BA55D3	186,85,211
中紫色	#9370DB	147,112,219
中石板蓝	#7B68EE	123,104,238
中春绿色	#00FA9A	0,250,154
中青绿色	#48D1CC	72,209,204
中紫红色	#C71585	199,21,133
薄荷奶油色	#F5FFFA	245,255,250
旧蕾丝色	#FDF5E6	253,245,230
淡青绿色	#AFEEEE	175,238,238
粉末蓝	#B0E0E6	176,224,230
石板蓝	#6A5ACD	106,90,205
石板灰	#708090	112,128,144
雪白色	#FFFAFA	255,250,250
中青绿色	#48D1CC	72,209,204
深兰花紫	#9932CC	153,50,204
深石板蓝	#483D8B	72,61,139
中石板蓝	#7B68EE	123,104,238
亮石板灰	#778899	119,136,153

再晕车也要记得吃东西

Mon, 23 Feb 2026 22:47:56 +0800

再晕车也要记得吃东西

晕车的痛苦，只有亲身经历过的人才懂。

很多人一坐车就反胃、恶心，只要胃里有食物，没多久就会翻江倒海，轻则干呕，重则把吃进去的东西全吐出来，甚至连胆汁都吐干净。所以很多晕车的人，形成了一个根深蒂固的习惯：上车前不吃东西、不喝水，宁可饿着，也不想吐得难受、狼狈。

我以前也是这样。只要准备坐车，就刻意空腹，水都不敢多喝一口，总觉得胃里空空的，反而不容易吐。可今天发生的一件事，让我彻底改变了这个想法，也想认真提醒每一个晕车的人：再晕车、再怕吐，也一定要吃东西！

今天因为长时间坐车，一直刻意没怎么进食，只想避免晕车呕吐。可没想到，身体因为能量不足，出现了严重的低血糖，加上长时间坐车体位变化，引发头晕、脑部短暂供血不足，直接失去意识晕倒，后脑勺重重磕伤，还在家中卫生间再次短暂昏迷。虽然及时补充葡萄糖、生理盐水后状态恢复，但整个过程惊险又后怕。

一次因为“怕晕车而不吃东西”的小事，最终引发了：低血糖→头晕昏迷→摔倒摔伤→二次晕厥，一连串连锁反应。如果当时身边没人、如果磕伤的位置再重一点，后果真的不堪设想。

在这里，我想用自己的真实经历，给所有晕车的人几句实在提醒：

1. 晕车呕吐，只是难受，不致命；低血糖昏迷摔倒，是真的危险。

晕车吐得再厉害，最多是身体不适、情绪糟糕。但长时间空腹，体能跟不上，很容易出现低血糖、体位性低血压，导致头晕、眼前发黑、突然晕倒，一旦摔倒磕到头部、关节，就是实实在在的伤害。

2. 不要因为怕吐，就完全空腹。

胃里一点东西没有，血糖下降更快，头晕、乏力、心慌会来得更早、更猛，反而更容易加重晕车和晕厥风险。

3. 晕车也能科学吃东西，不用硬扛空腹。

- 不用吃太饱、太油，选清淡、好消化的食物：面包、包子、饼干、小蛋糕、温水都可以。

- 少量多次吃，不要上车前猛吃，也不要一路完全不吃。

- 途经休息区时，一定停下来补充食物，多休息一会儿，等胃里的东西基本消化，再继续赶路。

4. 长途出行、准备过夜前，务必把肚子填饱，要保证有足够长的休息时间(大于6小时)。

5.也是很重要的，那就是要警惕长时间坐车，身体缺少适当的活动，会发生体位性低血压，这个是非常危险的(经常发生)，出现体位性低血压，会出現头晕后直接晕厥晕倒。

最后真心说一句：

晕车难受是真的，但安全比不呕吐更重要。

再晕车，也别拿空腹赌安全；

再怕吐，也要记得吃点东西。

别让一时的怕麻烦、怕难受，换来一场本可以避免的意外。

愿大家出行平安，不再因为空腹晕车、体位性低血压，发生让人后怕的事。

寒假开始，规划开始 2026-02-09

Mon, 09 Feb 2026 20:15:46 +0800

第一部分：如何与孩子沟通——给一个无法拒绝的“提案”

沟通时机：找一个大家很放松的时间，比如周末下午，“聊聊寒假规划”开头。

沟通核心逻辑：不谈“学习”，谈“赢的游戏”。不谈“工具”，谈“赢的装备”。

具体话术与步骤：

第一步：共情与认可（奠定基调）

“孩子，我们认真分析了你这学期的成绩轨迹。从期中76名反弹到期末44名，尤其是在语文、英语拖后腿，数学空两道题的情况下做到的，这太了不起了。这证明了你拥有极强的调整能力和扎实的基础，你绝对是个‘潜力股’。”

第二步：提出挑战，激发斗志（定义问题）

“但是，我们也发现了一个有趣的‘游戏关卡’的情形。你看：

你的数学像一把锋利的刀，但刀尖还不够锐利，所以最后的两道‘Boss关’你暂时打不过。
你的语文和英语像你的铠甲，但还有几处缝隙，导致你会掉血。
现在的‘游戏规则’是：想成为顶尖玩家（比如年级前十），你必须同时打磨刀尖、修补铠甲。而你现在的时间，都被日常的‘打小怪’（基础作业）占满了，没时间去专门练级。”

第三步：提出革命性解决方案（引入新方法）

“所以，这个寒假，我们不想重复‘疯狂刷题’的老路。我们想玩点更高级的——‘精准升级’。

目标：不是学得多累，而是用最聪明的方法，在下学期开学时，让你在起跑线上就领先别人一个身位。
核心方法：从‘盲目刷题’转向‘精准打击’。我们得先知道漏洞在哪，然后用手术刀一样精准的方式去补，而不是用铁锤乱砸。”

第四步：隆重推出“超级外挂”（AI学习机）

“为了实现这个‘精准打击’，必须使用‘AI军师’——就是这台学习机。他不是作业机，它其实是你的：

『侦察卫星』：5分钟扫描出你哪里不会，地图全开，敌人（漏洞）一目了然。
『特训教官』：针对你的弱点，给你最有效的训练方案，不做无用功。
『先知外挂』：能帮你提前预习下学期的内容，而且直接预习重点和难点，开学后听课就像复习，爽不爽？

花重金买这个‘装备’，不是要给你加负担，是真心相信你的潜力，想帮你把努力的效率提升到极致。我们投资的是你的‘未来战斗力’。”

第五步：发出组队邀请（共同制定计划）

“所以，这个寒假，我们想邀请你，作为我们家的‘学习总司令’，来亲自指挥这场‘寒假战略反攻’。我们一起制定一个酷炫的升级计划，用好这个‘AI军师’。你愿意担任总指挥吗？”

第二部分：寒假预习的“学习机基础使用四步法”

一旦孩子被说服，立即用下面这个简单、清晰、反馈即时的流程带他上手。核心是让他立刻体验到“高效”和“掌控感”。

第一步：侦察测绘（用时：每科15-20分钟）

做什么：打开学习机，进入 “AI同步精准学” ，选择初一下学期的数学、语文、英语。
怎么做：快速做系统推送的诊断题。就像玩游戏前先做能力测试。
产出：得到三张彩色“知识图谱”，绿色是安全区，红色是危险区。告诉孩子：“看，这就是你下学期的‘作战地图’。我们的任务，就是把红色区域变成绿色。”

第二步：制定战术（用时：30分钟家庭会议）

做什么：根据“地图”，一起制定每周攻克计划。原则是：少而精，求突破。
示例计划：

数学：主攻红色最深的1个章节（比如“平面直角坐标系”）。
语文：主攻1个红色模块（比如“文言文实词”或“说明文阅读”）。
英语：主攻1个语法点+单元核心词汇。

关键：把计划写下来，贴在墙上。这是在“解锁任务”，而不是“完成作业”。

第三步：精准特训（每日核心，用时：60-90分钟，可分块）

这是学习机发挥价值的核心环节，务必按此流程：

看课（5-10分钟）：针对计划内知识点，看学习机推送的同步高清视频/动画课。这是“名师一对一”，高效理解核心概念。
测练（10-15分钟）：立即做系统推送的少量精准练习题（通常3-5道）。即时巩固，马上验证听课效果。
互动（5分钟）：利用AI互动功能。数学用“AI讲题”听一下拓展思路；英语用“AI对话”练一下口语；语文用“AI背诗”快速记忆。
记录：将所有错题自动收录进AI错题本。告诉孩子：“这是你的专属‘错题Boss库’，定期回来打一遍，它们就永不复活。”

第四步：复盘升级（每周六上午进行）

战果回顾：打开学习机，查看“学习报告”，看看本周多少“红色”变“黄色”甚至“绿色”。
挑战Boss：从AI错题本中，挑选2-3道典型错题，重新做一遍，确保真正攻克。
规划下周：根据新的知识图谱，制定下一周的“精准特训”计划。

寒假每日时间表示例（保持弹性与趣味）

时段	活动安排	学习机使用要点
上午 (2小时)	“专注升级”时段	严格执行“精准特训四步法”，主攻计划内内容。
下午	自由活动（运动、阅读、兴趣）	可碎片化使用，如用“单词闪电记”过10分钟。
晚上 (30分钟)	“轻松收尾”时段	复习错题本，或进行AI趣味互动（如英语对话）。
周六上午	“战略会议与复盘”	进行 “四步法”中的第四步：复盘升级，并制定新计划。
周日	完全休息日	远离学习机，充分放松。

给您的最终建议：

身先士卒：初期，您要陪着孩子一起操作，帮他熟悉流程，度过适应期。
及时激励：每当知识图谱上有一个点“由红转绿”，就大力庆祝！这是最直观的进步。
保持灵活：如果孩子状态不好，可以缩短时间，但不要跳过“侦察-计划-特训-复盘”的闭环。质量远大于时长。

用这个“游戏化”的提案和“特工化”的流程，您不仅是在教孩子预习，更是在培养他受益终生的 “目标管理、精准努力、高效学习” 的元能力。这个寒假，让我们一起打赢这场漂亮的“预备役”战役。

用对AI，效率快的不得了！！！产品清单比较宏代码

Fri, 06 Feb 2026 23:03:26 +0800

两份排序杂乱无章的产品清单，使用下面的宏代码，16秒搞定！

功能特点:

✅ 完整功能：支持.xls/.xlsx/.xlsm/.xlsb全格式对比

✅ 智能对比：以编码为主键，双向查找对比

✅ 差异标记：红色/绿色标注不同数据，橙色标注独有编码

✅ 注释系统：详细说明差异位置和类型

✅ 层次处理：自动识别BOM层级关系

✅ 性能优化：字典索引快速查找，跳过空行

✅ 结果统计：完整对比报告和用时统计

制造业、供应链管理或物料清单管理需要频繁对比BOM文件，能大幅提高工作效率。

使用方法:
Excel先开启宏，文件/选项/信任中心/~设置-宏设置-选择:启用所有宏

打开第一个文件，按Alt+F11打开宏编辑界面，插入-模块，复制宏代码，

再回到第一个文件，按Alt+F8，点执行，打开第二个文件即可对比完成。

Option Explicit

' ============================================================
' 主程序：BOM文件智能对比（优化列位置版）
' ============================================================
Sub CompareBOMFilesIntelligent()
    Dim wbA As Workbook, wbB As Workbook
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRowA As Long, lastRowB As Long
    Dim startTime As Double, totalTime As Double, indexTime As Double
    Dim i As Long, j As Long, foundRow As Long
    Dim diffDetails As String, matchMethod As String
    
    ' 记录开始时间
    startTime = Timer
    On Error GoTo ErrorHandler
    
    ' 设置主工作簿
    Set wbA = ThisWorkbook
    Set wsA = wbA.Sheets(1)
    
    ' 选择B文件
    Dim filePathB As String
    filePathB = Application.GetOpenFilename("Excel文件 (*.xls;*.xlsx;*.xlsm;*.xlsb),*.xls;*.xlsx;*.xlsm;*.xlsb", , "请选择B文件")
    If filePathB = "False" Then Exit Sub
    
    ' 打开B文件
    Dim fileExt As String
    fileExt = LCase(Right(filePathB, 4))
    
    If fileExt = ".xls" Then
        Set wbB = Workbooks.Open(filePathB, UpdateLinks:=False, ReadOnly:=True)
    Else
        Set wbB = Workbooks.Open(filePathB, UpdateLinks:=False, ReadOnly:=True)
    End If
    
    ' 获取工作表
    On Error Resume Next
    Set wsB = wbB.Sheets(1)
    If wsB Is Nothing Then
        MsgBox "无法访问B文件的第一个工作表。", vbExclamation
        Exit Sub
    End If
    On Error GoTo ErrorHandler
    
    ' 获取数据范围
    lastRowA = GetLastRow(wsA, 2)
    lastRowB = GetLastRow(wsB, 2)
    
    ' 检查数据
    If lastRowA <= 1 Or lastRowB <= 1 Then
        MsgBox "文件没有有效数据。", vbExclamation
        GoTo Cleanup
    End If
    
    ' 优化性能设置
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
    ' 清除格式
    ClearAllFormats wsA, lastRowA
    ClearAllFormats wsB, lastRowB
    
    ' 添加对比结果列（从J列开始，避开I列）
    Dim commentColA As Long, commentColB As Long
    commentColA = GetLastColumn(wsA) + 2  ' 增加1列，从J列开始
    commentColB = GetLastColumn(wsB) + 2
    
    ' 确保列位置正确
    If commentColA < 10 Then commentColA = 10  ' 确保从J列（第10列）开始
    If commentColB < 10 Then commentColB = 10
    
    ' 设置标题
    SetupCommentHeaders wsA, commentColA, "A"
    SetupCommentHeaders wsB, commentColB, "B"
    
    ' 添加版本差异列（从K列开始）
    Dim versionColA As Long, versionColB As Long
    versionColA = commentColA + 1
    versionColB = commentColB + 1
    SetupVersionHeaders wsA, versionColA, "A"
    SetupVersionHeaders wsB, versionColB, "B"
    
    ' ========== 阶段1：建立B文件多层智能索引 ==========
    indexTime = Timer
    
    ' 创建多层索引字典
    Dim dictFullCode As Object      ' 完整编码索引
    Dim dictFirst9Code As Object    ' 前9位编码索引
    Dim dictCodeC As Object         ' 编码+C列索引
    Dim dictFirst9CodeC As Object   ' 前9位编码+C列索引
    Dim dictCDI As Object           ' C列+D列+I列索引
    Dim dictCI As Object            ' C列+I列索引
    Dim dictC As Object             ' C列索引
    
    Set dictFullCode = CreateObject("Scripting.Dictionary")
    Set dictFirst9Code = CreateObject("Scripting.Dictionary")
    Set dictCodeC = CreateObject("Scripting.Dictionary")
    Set dictFirst9CodeC = CreateObject("Scripting.Dictionary")
    Set dictCDI = CreateObject("Scripting.Dictionary")
    Set dictCI = CreateObject("Scripting.Dictionary")
    Set dictC = CreateObject("Scripting.Dictionary")
    
    ' 索引统计
    Dim indexStats(1 To 7) As Long
    For i = 1 To 7
        indexStats(i) = 0
    Next i
    
    ' 批量读取B文件数据到数组（B列到I列，I列是第9列）
    Dim bData() As Variant
    Dim bRange As Range
    Set bRange = wsB.Range("B2:I" & lastRowB)
    bData = bRange.Value
    
    ' 建立多层索引
    For i = 1 To UBound(bData, 1)
        Dim codeB As String, cValueB As String, dValueB As String, iValueB As String
        Dim first9CodeB As String
        
        ' 获取数据（使用Trim去除首尾空格）
        codeB = TrimText(bData(i, 1))   ' B列
        cValueB = TrimText(bData(i, 2))  ' C列
        dValueB = TrimText(bData(i, 3))  ' D列
        iValueB = TrimText(bData(i, 8))  ' I列（第8列对应数组索引8）
        
        ' 解析12位物料编码
        If Len(codeB) >= 9 Then
            first9CodeB = Left(codeB, 9)
        End If
        
        ' 1. 完整编码索引
        If codeB <> "" And Len(codeB) = 12 Then
            If Not dictFullCode.Exists(codeB) Then
                dictFullCode.Add codeB, i
                indexStats(1) = indexStats(1) + 1
            End If
        End If
        
        ' 2. 前9位编码索引
        If first9CodeB <> "" And Len(first9CodeB) = 9 Then
            If Not dictFirst9Code.Exists(first9CodeB) Then
                dictFirst9Code.Add first9CodeB, i
                indexStats(2) = indexStats(2) + 1
            End If
        End If
        
        ' 3. 编码+C列索引
        If codeB <> "" And cValueB <> "" Then
            Dim keyCodeC As String
            keyCodeC = codeB & "||" & cValueB
            If Not dictCodeC.Exists(keyCodeC) Then
                dictCodeC.Add keyCodeC, i
                indexStats(3) = indexStats(3) + 1
            End If
        End If
        
        ' 4. 前9位编码+C列索引
        If first9CodeB <> "" And cValueB <> "" Then
            Dim keyFirst9CodeC As String
            keyFirst9CodeC = first9CodeB & "||" & cValueB
            If Not dictFirst9CodeC.Exists(keyFirst9CodeC) Then
                dictFirst9CodeC.Add keyFirst9CodeC, i
                indexStats(4) = indexStats(4) + 1
            End If
        End If
        
        ' 5. C列+D列+I列组合索引
        If cValueB <> "" And dValueB <> "" And iValueB <> "" Then
            Dim keyCDI As String
            keyCDI = cValueB & "||" & dValueB & "||" & iValueB
            If Not dictCDI.Exists(keyCDI) Then
                dictCDI.Add keyCDI, i
                indexStats(5) = indexStats(5) + 1
            End If
        End If
        
        ' 6. C列+I列索引
        If cValueB <> "" And iValueB <> "" Then
            Dim keyCI As String
            keyCI = cValueB & "||" & iValueB
            If Not dictCI.Exists(keyCI) Then
                dictCI.Add keyCI, i
                indexStats(6) = indexStats(6) + 1
            End If
        End If
        
        ' 7. C列索引
        If cValueB <> "" Then
            If Not dictC.Exists(cValueB) Then
                dictC.Add cValueB, i
                indexStats(7) = indexStats(7) + 1
            End If
        End If
    Next i
    
    indexTime = Timer - indexTime
    
    ' ========== 阶段2：批量读取A文件数据 ==========
    Dim aData() As Variant
    Dim aRange As Range
    Set aRange = wsA.Range("B2:I" & lastRowA)
    aData = aRange.Value
    
    ' ========== 阶段3：智能匹配对比 ==========
    Dim matchStats As Object
    Set matchStats = CreateObject("Scripting.Dictionary")
    matchStats.Add "跳过", 0
    matchStats.Add "完全编码匹配", 0
    matchStats.Add "物料版本不同", 0
    matchStats.Add "编码+C列匹配", 0
    matchStats.Add "前9位编码+C列匹配", 0
    matchStats.Add "CDI匹配", 0
    matchStats.Add "CI匹配", 0
    matchStats.Add "C列匹配", 0
    matchStats.Add "未匹配", 0
    
    Dim diffCount As Long, versionDiffCount As Long
    diffCount = 0
    versionDiffCount = 0
    
    ' 记录已匹配的B文件行
    Dim matchedRowsB As Object
    Set matchedRowsB = CreateObject("Scripting.Dictionary")
    
    ' 记录版本差异
    Dim versionDiffs As Object
    Set versionDiffs = CreateObject("Scripting.Dictionary")
    
    ' 智能匹配主循环
    For i = 1 To UBound(aData, 1)
        Dim codeA As String, cValueA As String, dValueA As String, gValueA As String, iValueA As String
        Dim first9CodeA As String, last3CodeA As String
        
        ' 获取A文件数据（使用Trim去除首尾空格）
        codeA = TrimText(aData(i, 1))   ' B列
        cValueA = TrimText(aData(i, 2))  ' C列
        dValueA = TrimText(aData(i, 3))  ' D列
        gValueA = TrimText(aData(i, 6))  ' G列
        iValueA = TrimText(aData(i, 8))  ' I列
        
        ' 解析A文件编码
        If Len(codeA) >= 9 Then
            first9CodeA = Left(codeA, 9)
            If Len(codeA) = 12 Then
                last3CodeA = Mid(codeA, 10, 3)
            End If
        End If
        
        ' 检查是否为完全空行（不标注）
        If IsCompletelyEmptyRow(codeA, cValueA, dValueA, gValueA, iValueA) Then
            matchStats("跳过") = matchStats("跳过") + 1
            GoTo ContinueLoopA
        End If
        
        ' 检查是否需要对比
        If Not HasContentToCompare(codeA, cValueA, dValueA, iValueA) Then
            matchStats("跳过") = matchStats("跳过") + 1
            GoTo ContinueLoopA
        End If
        
        ' 智能匹配查找
        foundRow = 0
        matchMethod = ""
        
        ' 优先级1：完整12位编码匹配
        If codeA <> "" And Len(codeA) = 12 Then
            If dictFullCode.Exists(codeA) Then
                foundRow = dictFullCode(codeA)
                matchMethod = "完全编码匹配"
                matchStats("完全编码匹配") = matchStats("完全编码匹配") + 1
            End If
        End If
        
        ' 优先级2：前9位编码匹配
        If foundRow = 0 And first9CodeA <> "" Then
            If dictFirst9Code.Exists(first9CodeA) Then
                foundRow = dictFirst9Code(first9CodeA)
                Dim matchedCodeB As String
                matchedCodeB = TrimText(bData(foundRow, 1))
                
                ' 检查是否是完全匹配
                If codeA = matchedCodeB Then
                    ' 完全相同的编码
                    matchMethod = "完全匹配"
                    matchStats("完全编码匹配") = matchStats("完全编码匹配") + 1
                ElseIf Len(matchedCodeB) = 12 Then
                    ' 前9位相同，后3位不同
                    Dim matchedLast3CodeB As String
                    matchedLast3CodeB = Mid(matchedCodeB, 10, 3)
                    matchMethod = "物料版本不同"
                    matchStats("物料版本不同") = matchStats("物料版本不同") + 1
                    
                    ' 记录版本差异
                    versionDiffs.Add "A" & (i + 1) & "-B" & (foundRow + 1), last3CodeA & " vs " & matchedLast3CodeB
                    versionDiffCount = versionDiffCount + 1
                End If
            End If
        End If
        
        ' 优先级3：编码+C列匹配
        If foundRow = 0 And codeA <> "" And cValueA <> "" Then
            Dim keyCodeCA As String
            keyCodeCA = codeA & "||" & cValueA
            If dictCodeC.Exists(keyCodeCA) Then
                foundRow = dictCodeC(keyCodeCA)
                matchMethod = "编码+C列匹配"
                matchStats("编码+C列匹配") = matchStats("编码+C列匹配") + 1
            End If
        End If
        
        ' 优先级4：前9位编码+C列匹配
        If foundRow = 0 And first9CodeA <> "" And cValueA <> "" Then
            Dim keyFirst9CodeCA As String
            keyFirst9CodeCA = first9CodeA & "||" & cValueA
            If dictFirst9CodeC.Exists(keyFirst9CodeCA) Then
                foundRow = dictFirst9CodeC(keyFirst9CodeCA)
                matchMethod = "前9位编码+C列匹配"
                matchStats("前9位编码+C列匹配") = matchStats("前9位编码+C列匹配") + 1
            End If
        End If
        
        ' 优先级5：C列+D列+I列匹配
        If foundRow = 0 And cValueA <> "" And dValueA <> "" And iValueA <> "" Then
            Dim keyCDIA As String
            keyCDIA = cValueA & "||" & dValueA & "||" & iValueA
            If dictCDI.Exists(keyCDIA) Then
                foundRow = dictCDI(keyCDIA)
                matchMethod = "CDI匹配"
                matchStats("CDI匹配") = matchStats("CDI匹配") + 1
            End If
        End If
        
        ' 优先级6：C列+I列匹配
        If foundRow = 0 And cValueA <> "" And iValueA <> "" Then
            Dim keyCIA As String
            keyCIA = cValueA & "||" & iValueA
            If dictCI.Exists(keyCIA) Then
                foundRow = dictCI(keyCIA)
                matchMethod = "CI匹配"
                matchStats("CI匹配") = matchStats("CI匹配") + 1
            End If
        End If
        
        ' 优先级7：C列匹配
        If foundRow = 0 And cValueA <> "" Then
            If dictC.Exists(cValueA) Then
                foundRow = dictC(cValueA)
                matchMethod = "C列匹配"
                matchStats("C列匹配") = matchStats("C列匹配") + 1
            End If
        End If
        
        ' 处理匹配结果
        If foundRow > 0 Then
            ' 标记已匹配
            If Not matchedRowsB.Exists(foundRow) Then
                matchedRowsB.Add foundRow, True
            End If
            
            ' 对比详细数据
            diffDetails = ""
            Dim hasDiff As Boolean
            hasDiff = False
            
            ' 对比C列
            Dim cValueBCompare As String
            cValueBCompare = TrimText(bData(foundRow, 2))
            If CompareDataAdvanced(cValueA, cValueBCompare) Then
                wsA.Cells(i + 1, 3).Interior.Color = RGB(255, 200, 200)
                wsB.Cells(foundRow + 1, 3).Interior.Color = RGB(200, 255, 200)
                diffDetails = diffDetails & "C"
                hasDiff = True
            End If
            
            ' 对比D列（数量）
            Dim dValueBCompare As String
            dValueBCompare = TrimText(bData(foundRow, 3))
            If CompareDataAdvanced(dValueA, dValueBCompare) Then
                wsA.Cells(i + 1, 4).Interior.Color = RGB(255, 200, 200)
                wsB.Cells(foundRow + 1, 4).Interior.Color = RGB(200, 255, 200)
                diffDetails = diffDetails & IIf(diffDetails = "", "D", "/D")
                hasDiff = True
            End If
            
            ' 对比G列（单位）
            If gValueA <> "" And codeA <> "" Then
                Dim gValueB As String
                gValueB = TrimText(bData(foundRow, 6))
                If CompareDataAdvanced(gValueA, gValueB) Then
                    wsA.Cells(i + 1, 7).Interior.Color = RGB(255, 200, 200)
                    wsB.Cells(foundRow + 1, 7).Interior.Color = RGB(200, 255, 200)
                    diffDetails = diffDetails & IIf(diffDetails = "", "G", "/G")
                    hasDiff = True
                End If
            End If
            
            ' 对比I列
            Dim iValueBCompare As String
            iValueBCompare = TrimText(bData(foundRow, 8))
            If CompareDataAdvanced(iValueA, iValueBCompare) Then
                wsA.Cells(i + 1, 9).Interior.Color = RGB(255, 200, 200)
                wsB.Cells(foundRow + 1, 9).Interior.Color = RGB(200, 255, 200)
                diffDetails = diffDetails & IIf(diffDetails = "", "I", "/I")
                hasDiff = True
            End If
            
            ' 添加对比结果
            If hasDiff Then
                wsA.Cells(i + 1, commentColA).Value = matchMethod & "但有差异[" & diffDetails & "]"
                wsA.Cells(i + 1, commentColA).Interior.Color = GetMatchColor(matchMethod, True)
                
                wsB.Cells(foundRow + 1, commentColB).Value = matchMethod & "但有差异[" & diffDetails & "]"
                wsB.Cells(foundRow + 1, commentColB).Interior.Color = GetMatchColor(matchMethod, False)
                
                diffCount = diffCount + 1
            Else
                wsA.Cells(i + 1, commentColA).Value = matchMethod
                wsA.Cells(i + 1, commentColA).Interior.Color = GetMatchColor(matchMethod, True)
                
                wsB.Cells(foundRow + 1, commentColB).Value = matchMethod
                wsB.Cells(foundRow + 1, commentColB).Interior.Color = GetMatchColor(matchMethod, False)
            End If
            
            ' 添加版本差异提示
            If versionDiffs.Exists("A" & (i + 1) & "-B" & (foundRow + 1)) Then
                Dim versionMsg As String
                versionMsg = "物料版本不同: " & versionDiffs("A" & (i + 1) & "-B" & (foundRow + 1))
                wsA.Cells(i + 1, versionColA).Value = versionMsg
                wsB.Cells(foundRow + 1, versionColB).Value = versionMsg
                wsA.Cells(i + 1, versionColA).Interior.Color = RGB(255, 240, 200)
                wsB.Cells(foundRow + 1, versionColB).Interior.Color = RGB(255, 240, 200)
            End If
        Else
            ' 未找到匹配
            wsA.Cells(i + 1, commentColA).Value = "B文件无对应数据"
            wsA.Cells(i + 1, commentColA).Interior.Color = RGB(255, 220, 180)
            MarkUniqueRow wsA, i + 1, True
            matchStats("未匹配") = matchStats("未匹配") + 1
        End If
        
ContinueLoopA:
    Next i
    ' ========== 阶段4：标记B文件独有数据 ==========
    For i = 1 To UBound(bData, 1)
        If Not matchedRowsB.Exists(i) Then
            wsB.Cells(i + 1, commentColB).Value = "A文件无对应数据"
            wsB.Cells(i + 1, commentColB).Interior.Color = RGB(255, 240, 200)
            MarkUniqueRow wsB, i + 1, False
        End If
    Next i
    
    ' 处理层次关系
    ProcessHierarchySafe wsA, lastRowA
    ProcessHierarchySafe wsB, lastRowB
    
Cleanup:
    ' 恢复设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    
    ' 调整列宽
    AutoFitColumnsExcludeA wsA, versionColA
    AutoFitColumnsExcludeA wsB, versionColB
    
    ' 高亮差异
    HighlightDifferencesWithComments wsA, lastRowA, commentColA
    HighlightDifferencesWithComments wsB, lastRowB, commentColB
    
    ' 计算总用时
    totalTime = Timer - startTime
    
    ' 生成详细报告
    Dim msg As String
    msg = GenerateReport(lastRowA, lastRowB, indexStats, matchStats, diffCount, versionDiffCount, indexTime, totalTime)
    
    MsgBox msg, vbInformation, "BOM智能对比完成"
    
    ' 保存选项
    Dim response As VbMsgBoxResult
    response = MsgBox("B文件对比结果已标记。是否保存B文件？", vbQuestion + vbYesNo, "保存文件")
    
    If response = vbYes Then
        Dim savePath As String, originalName As String
        originalName = wbB.Name
        savePath = wbB.Path & "\对比结果_" & Replace(originalName, "." & Split(originalName, ".")(UBound(Split(originalName, "."))), "") & ".xlsx"
        
        On Error Resume Next
        wbB.SaveAs savePath, FileFormat:=xlOpenXMLWorkbook
        If Err.Number = 0 Then MsgBox "B文件已保存为：" & vbCrLf & savePath, vbInformation
        On Error GoTo 0
    End If
    
    wbB.Close SaveChanges:=(response = vbYes)
    
    ' 清理对象
    Set dictFullCode = Nothing
    Set dictFirst9Code = Nothing
    Set dictCodeC = Nothing
    Set dictFirst9CodeC = Nothing
    Set dictCDI = Nothing
    Set dictCI = Nothing
    Set dictC = Nothing
    Set matchedRowsB = Nothing
    Set versionDiffs = Nothing
    Set matchStats = Nothing
    
    Exit Sub
    
ErrorHandler:
    MsgBox "错误 " & Err.Number & ": " & Err.Description, vbCritical, "对比失败"
    GoTo Cleanup
End Sub

' ============================================================
' 辅助函数
' ============================================================

' 安全的字符串转换（去除首尾空格）
Function TrimText(ByVal val As Variant) As String
    On Error Resume Next
    If IsError(val) Then
        TrimText = ""
    ElseIf IsNull(val) Then
        TrimText = ""
    ElseIf val = "" Then
        TrimText = ""
    Else
        TrimText = Trim(CStr(val))
    End If
    On Error GoTo 0
End Function

' 获取最后一行
Function GetLastRow(ws As Worksheet, col As Long) As Long
    On Error Resume Next
    GetLastRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
    If GetLastRow = 0 Then GetLastRow = 1
    If GetLastRow = 1 And ws.Cells(1, col).Value = "" Then GetLastRow = 1
    On Error GoTo 0
End Function

' 获取最后一列
Function GetLastColumn(ws As Worksheet) As Long
    On Error Resume Next
    GetLastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    If GetLastColumn = 0 Then GetLastColumn = 1
    On Error GoTo 0
End Function

' 自动调整列宽（排除A列）
Sub AutoFitColumnsExcludeA(ws As Worksheet, lastCol As Long)
    On Error Resume Next
    ' 记录A列当前宽度
    Dim aColWidth As Double
    aColWidth = ws.Columns("A:A").ColumnWidth
    
    ' 调整B列到最后一列的宽度
    If lastCol > 2 Then
        Dim colRange As Range
        Set colRange = ws.Range(ws.Cells(1, 2), ws.Cells(1, lastCol)).EntireColumn
        colRange.AutoFit
        
        ' 设置对比列宽度
        If lastCol >= 10 Then
            ws.Columns(lastCol - 1).ColumnWidth = 25
        End If
        ws.Columns(lastCol).ColumnWidth = 30
    End If
    
    ' 恢复A列宽度
    ws.Columns("A:A").ColumnWidth = aColWidth
    
    ' 自动调整行高
    ws.Rows.AutoFit
    On Error GoTo 0
End Sub

' 设置对比结果标题
Sub SetupCommentHeaders(ws As Worksheet, col As Long, fileType As String)
    ws.Cells(1, col).Value = "对比结果(" & fileType & ")"
    With ws.Cells(1, col)
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .Interior.Color = RGB(200, 200, 200)
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
    End With
End Sub

' 设置版本差异标题
Sub SetupVersionHeaders(ws As Worksheet, col As Long, fileType As String)
    ws.Cells(1, col).Value = "版本差异(" & fileType & ")"
    With ws.Cells(1, col)
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .Interior.Color = RGB(255, 240, 200)
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
    End With
End Sub

' 清除所有格式
Sub ClearAllFormats(ws As Worksheet, lastRow As Long)
    If lastRow > 1 Then
        Dim lastCol As Long
        lastCol = GetLastColumn(ws)
        If lastCol > 0 Then
            With ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
                .ClearFormats
                .Font.Bold = False
                .Font.Color = RGB(0, 0, 0)
                .Interior.ColorIndex = xlNone
            End With
        End If
    End If
End Sub

' 检查是否为完全空行
Function IsCompletelyEmptyRow(ByVal code As String, ByVal cValue As String, _
                             ByVal dValue As String, ByVal gValue As String, _
                             ByVal iValue As String) As Boolean
    If code = "" And cValue = "" And dValue = "" And gValue = "" And iValue = "" Then
        IsCompletelyEmptyRow = True
    Else
        IsCompletelyEmptyRow = False
    End If
End Function

' 检查是否有内容需要对比
Function HasContentToCompare(ByVal code As String, ByVal cValue As String, _
                           ByVal dValue As String, ByVal iValue As String) As Boolean
    If code <> "" Or cValue <> "" Or dValue <> "" Or iValue <> "" Then
        HasContentToCompare = True
    Else
        HasContentToCompare = False
    End If
End Function

' 高级数据对比（忽略首尾空格）
Function CompareDataAdvanced(ByVal val1 As String, ByVal val2 As String) As Boolean
    ' 去除首尾空格
    val1 = Trim(val1)
    val2 = Trim(val2)
    
    If val1 = "" And val2 = "" Then
        CompareDataAdvanced = False
        Exit Function
    End If
    
    If val1 = val2 Then
        CompareDataAdvanced = False
        Exit Function
    End If
    
    ' 处理数字
    If IsNumeric(val1) And IsNumeric(val2) Then
        CompareDataAdvanced = (Abs(CDbl(val1) - CDbl(val2)) > 0.0001)
    Else
        CompareDataAdvanced = (val1 <> val2)
    End If
End Function

' 根据匹配方法获取颜色
Function GetMatchColor(ByVal method As String, ByVal isFileA As Boolean) As Long
    Select Case method
        Case "完全匹配", "完全编码匹配"
            GetMatchColor = RGB(220, 255, 220)  ' 浅绿
        Case "物料版本不同"
            GetMatchColor = RGB(255, 240, 220)  ' 浅橙
        Case "编码+C列匹配"
            GetMatchColor = RGB(220, 240, 255)  ' 浅蓝
        Case "前9位编码+C列匹配"
            GetMatchColor = RGB(240, 220, 255)  ' 浅紫
        Case "CDI匹配"
            GetMatchColor = RGB(255, 240, 220)  ' 浅橙
        Case "CI匹配"
            GetMatchColor = RGB(220, 255, 255)  ' 浅青
        Case "C列匹配"
            GetMatchColor = RGB(255, 220, 240)  ' 浅粉
        Case Else
            GetMatchColor = RGB(220, 255, 220)  ' 默认浅绿
    End Select
End Function

' 标记独有行
Sub MarkUniqueRow(ws As Worksheet, rowNum As Long, isFileA As Boolean)
    If isFileA Then
        ws.Cells(rowNum, 3).Interior.Color = RGB(255, 220, 180)
        ws.Cells(rowNum, 4).Interior.Color = RGB(255, 220, 180)
        ws.Cells(rowNum, 7).Interior.Color = RGB(255, 220, 180)
        ws.Cells(rowNum, 9).Interior.Color = RGB(255, 220, 180)
    Else
        ws.Cells(rowNum, 3).Interior.Color = RGB(255, 240, 200)
        ws.Cells(rowNum, 4).Interior.Color = RGB(255, 240, 200)
        ws.Cells(rowNum, 7).Interior.Color = RGB(255, 240, 200)
        ws.Cells(rowNum, 9).Interior.Color = RGB(255, 240, 200)
    End If
End Sub

' 安全的层次处理
Sub ProcessHierarchySafe(ws As Worksheet, lastRow As Long)
    Dim i As Long
    Dim level As String
    
    For i = 2 To lastRow
        Dim code As String
        code = TrimText(ws.Cells(i, 2))
        If code <> "" Then
            level = TrimText(ws.Cells(i, 1))
            If level <> "" Then
                Dim levelNum As Integer
                levelNum = Len(level) - Len(Replace(level, ".", ""))
                ws.Cells(i, 3).IndentLevel = levelNum
            End If
        End If
    Next i
End Sub

' 高亮显示差异编码
Sub HighlightDifferencesWithComments(ws As Worksheet, lastRow As Long, commentCol As Long)
    Dim i As Long
    
    For i = 2 To lastRow
        If Not IsEmpty(ws.Cells(i, commentCol).Value) Then
            Dim commentText As String
            commentText = CStr(ws.Cells(i, commentCol).Value)
            
            If InStr(commentText, "有差异") > 0 Then
                ws.Cells(i, 2).Font.Bold = True
                ws.Cells(i, 2).Font.Color = RGB(200, 0, 0)
                ws.Cells(i, 2).Interior.Color = RGB(255, 240, 240)
            ElseIf InStr(commentText, "无对应数据") > 0 Then
                ws.Cells(i, 2).Font.Bold = True
                ws.Cells(i, 2).Font.Color = RGB(200, 100, 0)
                ws.Cells(i, 2).Interior.Color = RGB(255, 240, 220)
            ElseIf InStr(commentText, "物料版本不同") > 0 Then
                ws.Cells(i, 2).Font.Bold = True
                ws.Cells(i, 2).Font.Color = RGB(200, 100, 0)
                ws.Cells(i, 2).Interior.Color = RGB(255, 240, 200)
            End If
        End If
    Next i
End Sub

' 生成详细报告
Function GenerateReport(ByVal lastRowA As Long, ByVal lastRowB As Long, _
                       ByRef indexStats() As Long, ByRef matchStats As Object, _
                       ByVal diffCount As Long, ByVal versionDiffCount As Long, _
                       ByVal indexTime As Double, ByVal totalTime As Double) As String
    Dim msg As String
    msg = "? BOM智能对比完成" & vbCrLf & String(50, "=") & vbCrLf
    
    ' 基本统计
    msg = msg & "?? 基本统计：" & vbCrLf
    msg = msg & "A文件行数: " & (lastRowA - 1) & " 行" & vbCrLf
    msg = msg & "B文件行数: " & (lastRowB - 1) & " 行" & vbCrLf
    msg = msg & "跳过行: " & matchStats("跳过") & " 行" & vbCrLf
    msg = msg & "数据差异: " & diffCount & " 处" & vbCrLf
    msg = msg & "版本差异: " & versionDiffCount & " 处" & vbCrLf & vbCrLf
    
    ' 性能统计
    msg = msg & "? 性能统计：" & vbCrLf
    msg = msg & "总用时: " & Format(totalTime, "0.00") & " 秒" & vbCrLf
    msg = msg & "索引建立: " & Format(indexTime, "0.00") & " 秒" & vbCrLf
    msg = msg & "对比用时: " & Format(totalTime - indexTime, "0.00") & " 秒" & vbCrLf & vbCrLf
    
    ' 索引统计
    msg = msg & "?? 索引统计：" & vbCrLf
    msg = msg & "1. 完整编码索引: " & indexStats(1) & " 个" & vbCrLf
    msg = msg & "2. 前9位编码索引: " & indexStats(2) & " 个" & vbCrLf
    msg = msg & "3. 编码+C列索引: " & indexStats(3) & " 个" & vbCrLf
    msg = msg & "4. 前9位编码+C列索引: " & indexStats(4) & " 个" & vbCrLf
    msg = msg & "5. CDI索引: " & indexStats(5) & " 个" & vbCrLf
    msg = msg & "6. CI索引: " & indexStats(6) & " 个" & vbCrLf
    msg = msg & "7. C列索引: " & indexStats(7) & " 个" & vbCrLf & vbCrLf
    
    ' 匹配统计
    msg = msg & "?? 匹配统计：" & vbCrLf
    Dim key As Variant
    For Each key In matchStats.Keys
        If key <> "跳过" Then
            msg = msg & "? " & key & ": " & matchStats(key) & vbCrLf
        End If
    Next key
    msg = msg & "? 未匹配: " & matchStats("未匹配") & vbCrLf & vbCrLf
    
    ' 匹配优先级说明
    msg = msg & "?? 匹配优先级：" & vbCrLf
    msg = msg & "1. 完整12位编码匹配" & vbCrLf
    msg = msg & "2. 前9位编码（类别+物料）匹配" & vbCrLf
    msg = msg & "3. 编码+C列匹配" & vbCrLf
    msg = msg & "4. 前9位编码+C列匹配" & vbCrLf
    msg = msg & "5. C列+D列+I列匹配" & vbCrLf
    msg = msg & "6. C列+I列匹配" & vbCrLf
    msg = msg & "7. C列匹配" & vbCrLf
    
    GenerateReport = msg
End Function

本创作借助腾讯元宝互动完成。

--本站原创，转发需注明出处。

2KK8一路高歌一路行！

黄仁勋与英伟达NVIDIA

搜索引擎大全

一、 国内主流搜索引擎

二、 国际与区域性搜索巨头

三、 垂类与元搜索工具

每周工作80–100 小时

一、普通高强度岗位（工厂、外卖、销售、小作坊）

二、互联网 / 游戏 / 动漫（996+、项目期爆肝）

三、金融 / 投行 / 顶级咨询（真・80–100h）

四、创业 / 小老板 / 自由职业（自己给自己加班）

五、按 “法定加班费” 算，应该拿多少（现实几乎没人这么给）

一句话总结（最扎心）

Claude Code 集成进 VS Code，与 claude.ai 网页版的代码编程能力对比

溥仪与五位后妃生平

页面烟花效果代码

网页代码颜色一览

WEB常用CSS/HTML颜色代码表

再晕车也要记得吃东西

寒假开始，规划开始 2026-02-09

第一部分：如何与孩子沟通——给一个无法拒绝的“提案”

第二部分：寒假预习的“学习机基础使用四步法”

寒假每日时间表示例（保持弹性与趣味）

用对AI，效率快的不得了！！！产品清单比较宏代码

一、国内主流搜索引擎

二、国际与区域性搜索巨头

三、垂类与元搜索工具