如何利用Matlab对指定条件下的excel单元格填充颜色

利用Matlab对指定条件下的excel单元格填充颜色

1. 主要思路为matlab建立服务端并结合Excel的Worksheets.Item property对单元格颜色进行填充,主体代码如下：

   	rgb = [255 0 0];
    e = actxserver('Excel.Application');%这里是建立服务端（'Excel.Application'是指excel的服务端，和上面打开表格不重复不矛盾）                                        
    ewb = e.Workbooks.Open("C:\Users\吴宇航\Desktop\新建文件夹\8月份日排产-成品.xls");
    ewb.Worksheets.Item(1).Range(poistion).Interior.Color =rgb*256.^(0:2)';%红色
    ewb.Save;                                                               
    ewb.Close(false);
    e.Quit;
    e.delete;

该代码是matlab建立服务端后对指定路径的excel文件按照指定位置将单元格颜色填充为红色，其中positon是代指单元格的位置例如：A1、B2，因此关键性问题是如何得到单元格位置

2.我们需要令满足条件的excel表格填充颜色，因此需要用到for循环，循环行数与列数对相应位置的数值值进行判断，在满足我们的条件时，获得excel的行数和列数，并将列数由数值转换为A、B、C…,将行数由数值转换为字符’1’、‘2’,并用strcat(列,行)进行拼接，得到’A1’、‘B2’…，即可得到position

3.利用上述思路对指定条件下的excel单元格填充颜色

（1）此时需要用到两个自定义函数，第一个函数如下：

function str=letter2char(num)
    s=num+64;
    str=char(s);%因为char(65)=A
end

上述自定义函数可以实现由1转化为A，第二个自定义函数如下：

function s=lettertoxls(Integer0)%matlab中的函数定义
    if (Integer0<=26)   %若只有单个字母
        s=letter2char(Integer0); %转化成字母
    elseif(Integer0<=702 && Integer0>26)%不止单个字母，比如AA，BF等。702刚好到两位的最后一个列号：ZZ
        Integer1 = fix(Integer0/26);%取商
        if mod(Integer0,26)==0
            Integer1 = fix(Integer0/26)-1;%避免出现从AY直接到BZ的现象
        end
        while(Integer0>26)
            Integer0=Integer0-26;
        end
        a=letter2char(Integer1);
        b=letter2char(Integer0);
        s=strcat(a,b);
    end
end

该函数考虑了列数可能出现两个字母同时出现的可能，例如：AA、AB…

（2）主函数如下，导入数据后，根据自己的excel数据循环行数和列数（注意matlab中数据的行数和列数的位置可能与excel中数据的行数与列数的位置不对应），在满足条件时，输出该数据对应的位置，再利用matlab建立服务端，结合Excel的Worksheets.Item property对相应位置的单元格进行填充，实现效果如图所示

clear;
[data,str]=xlsread("C:\Users\吴宇航\Desktop\新建文件夹\8月份日排产-成品.xls");%这里打开是为了在表格中筛选符合条件的数据
e = actxserver('Excel.Application');%这里是建立服务端（'Excel.Application'是指excel的服务端，和上面打开表格不重复不矛盾）                                        
ewb = e.Workbooks.Open("C:\Users\吴宇航\Desktop\新建文件夹\8月份日排产-成品.xls");
rgb = [255 0 0];
for i=1:66  %数据寻找范围
    for j=1:25  %数据寻找范围(注意不能超过一开始读入的范围）
        if mod(i,2)==0&&(data(i,j)>0)
            str2=int2str(i+1);%int to str行数当作字符
            lie=lettertoxls(j+3);%列转换成ABC这样子
            poistion=strcat(lie,str2);%字符串连接函数，[列，行]，如A1单元格，这里只能用strcat拼接，若果用[]拼接，形成的是str类型，不适用于下文Range中参数类型，而strcat拼接出来的是cell。
            ewb.Worksheets.Item(1).Range(poistion).Interior.Color = rgb*256.^(0:2)';%红色
         end
     end
end
ewb.Save;                                                               
ewb.Close(false);
e.Quit;
e.delete;

参考文章：https://www.cnblogs.com/Hello-world-hello-lazy/p/15228690.html