【好玩的源碼】 MATLAB操作Excel實現(xiàn)自動化辦公

硬件電子工程師

點擊上方藍(lán)字和“好玩的MATLAB”一起快樂玩耍吧！
% h: A6 N2 f, l2 h! O. `8 U

好玩的matlab
8 K$ a) b' M- D; ]; S& W$ i  `帶你解鎖不一樣的matlab新玩法
+ k6 x. a8 s' e- n6 C2 u4 v
因為平時比較忙，好久都沒有更新推文，為了感謝那些一直關(guān)注【好玩的MATLAB】公眾號的小伙伴，本推文末有送書活動歡迎參加，今天介紹怎么用matlab實現(xiàn)自動化操作Excel，提高生產(chǎn)力，喜歡此推文的小伙伴們記得點贊+關(guān)注+分享。


% C- h! u0 S/ n6 h
. ~$ K' a' Z- D/ |01
效果演示

MATLAB操作Excel實現(xiàn)自動化辦公

& k  J( C8 K% Z; O

$ J0 t, Q, w/ x; u$ a! M- b
& B& [# s& U6 Z( w3 |/ s- `- B. rMATLAB操作Excel繪畫（ps:小編女朋友，漂亮吧
$ b6 v3 @+ Q1 \- s0 P. @, M# g
- z6 H9 n7 e; v5 }" q6 Q% a）
! `! p& o- c0 f" P9 }. B& Z! k. I
  A, h7 `( ~2 [! X
" R% r0 K& A9 u" y- P: m
4 x* R4 w6 L/ l1 i1 j) ^: h' t, A
9 N7 O( i$ L6 w0 n+ QNO.1

- q- q5 J. n0 W% \先創(chuàng)建一個文檔

clear;clc;close all;%%  =========先創(chuàng)建一個名為【好玩的MATLAB】excel文檔========================================file_path=[pwd,'\好玩的MATLAB.xlsx'];%設(shè)置當(dāng)前路徑try    Excel=actxGetRunningServer('Excel.Application');%如果Excel 服務(wù)器已經(jīng)打開，返回其句柄catch    Excel=actxserver('Excel.Application');%如果Excel服務(wù)器沒有打開，則創(chuàng)建一個Excel服務(wù)器，并返回句柄endExcel.Visible = 1; %設(shè)置Excel服務(wù)器為可見狀態(tài)pause%如果存在test.xlsx文件,則打開文件，若不存在則創(chuàng)建一個,然后保存if exist(file_path,'file')    Workbook=Excel.Workbooks.Open(file_path);%打開else    Workbook=Excel.Workbooks.Add;%創(chuàng)建    Workbook.SaveAs(file_path);%保存end
: M5 Y* T* g8 L; n6 |NO.2

% p+ d1 V. [* ]+ I( [) o: o返回當(dāng)前工作表句柄
8 W9 B+ {0 L- b  C% G  _

Sheets = Excel.ActiveWorkbook.Sheets;  %激活工作表Sheet1 = Sheets.Item(1);    % 返回第1個表格句柄Sheet1.Activate;    % 激活第1個工作表單Sheet1.Name = '好玩的MATLAB';%表單起名字
) b9 H9 O& S5 W' S2 z# ~NO.3
/ `! {/ w% U% W4 P# B
頁面設(shè)置

Sheet1.PageSetup.TopMargin = 60;       % 上邊距40磅Sheet1.PageSetup.BottomMargin = 45;    % 下邊距40磅Sheet1.PageSetup.LeftMargin = 45;      % 左邊距40磅Sheet1.PageSetup.RightMargin = 45;     % 右邊距40磅  PageSetup屬性：
TopMargin         上邊距BottomMargin   下邊距LeftMargin          左邊距RightMargin       右邊距
, X, S0 K! a! A' q  X% V  D2 {PageSetup屬性設(shè)置參考:https://docs.microsoft.com/zh-cn/office/vba/api/excel.pagesetup
NO.4

設(shè)置行高和列寬
6 u" E7 u& ^! n6 a9 k. a: U

RowHeight = [96,25,25,25]';%定義行高向量RowHeightSheet1.Range('A1:A4').RowHeight = RowHeight;%設(shè)置Range對象（從A1到A16）的行高Sheet1.Range('A1:H1').ColumnWidth = [44,8,8,8,8,44,8,8,20];%設(shè)置Range對象（從A1到H1）的列寬
6 S& r" V+ i4 J6 b2 wNO.5

合并單元格

: u: o+ C6 a, o: \

Sheet1.Range('A1:A4').MergeCells = 1;Sheet1.Range('B1:C1').MergeCells = 1;Sheet1.Range('B2:C2').MergeCells = 1;Sheet1.Range('B3:C3').MergeCells = 1;Sheet1.Range('B4:C4').MergeCells = 1;Sheet1.Range('A8:A9').MergeCells = 1;Sheet1.Range('D3:E3').MergeCells = 1;Sheet1.Range('E8:H8').MergeCells = 1;Sheet1.Range('D4:E4').MergeCells = 1;Sheet1.Range('G4:H4').MergeCells = 1;Sheet1.Range('I1:I4').MergeCells = 1;
NO.6

設(shè)置單元格的邊框

Sheet1.Range('A1:I4').Borders.Weight = 3;Sheet1.Range('A1:I4').Borders.Value=1;% 1：實線，2：長虛線；3：短虛線，4：點劃線；5--.Sheet1.Range('A1:I4').Borders.Item(1).LineStyle=1; %單元格邊框%Item(1)為左側(cè)，Item(2)為右側(cè)，Item(3)為上側(cè)，Item(4)為下側(cè)，% Sheet1.Range('A1:I4').Borders.Item(2).LineStyle=4;% Sheet1.Range('A1:I4').Borders.Item(3).LineStyle=3;% Sheet1.Range('A1:I4').Borders.Item(4).LineStyle=4;其中Borders.Value的參數(shù)等于：1：實線，2：長虛線；3：短虛線，4：點劃線……
: O8 f; B; C9 I2 S  w+ v5 K
還有許多小編就不一一列舉了！
Borders屬性詳解見：https://docs.microsoft.com/zh-CN/office/vba/api/excel.borders
0 k. ^, D1 u9 H; r' Y' L
NO.7
5 H0 h+ c% G3 z2 ~0 e  Z2 @6 P% D
  g7 i$ ^0 q1 t1 I* z$ F6 U5 o$ @* w填寫單元格內(nèi)容
$ O, u" S- j+ R$ X
添加文字

Sheet1.Range('A1:A4').Value = '畢業(yè)照片';Sheet1.Range('B1:C1').Value = '  姓 名  ';Sheet1.Range('A2:C2').Value = '政治面貌';Sheet1.Range('A3:C3').Value = '通訊地址';Sheet1.Range('A4:C4').Value = 'E-mail';Sheet1.Range('E1').Value = '性別';Sheet1.Range('E2').Value = '健康狀況';Sheet1.Range('F4').Value = '現(xiàn)居住地址';Sheet1.Range('G1').Value = '出生年月';Sheet1.Range('G2').Value = '聯(lián)系電話';Sheet1.Range('G3').Value = '郵政編碼';插入圖片

fig=figure('units','normalized','visible','off');%設(shè)置圖像不可見img=imread('zzx.jpg');img=imresize(img,[50,50]);imshow(img)ax=gca;ax.Position=[0,0,1,1];%將圖形復(fù)制到粘貼板hgexport(fig, '-clipboard');%將圖形粘貼到當(dāng)前表格的A1:B4欄里Excel.ActiveSheet.Range('A1:B4').Select;Excel.ActiveSheet.Paste;
NO.8
& e* r. T. m* k5 O+ A$ V6 E" V6 L6 E
, m: V6 N- {6 d3 x顏色設(shè)置
" ~. D0 z* M0 B- x. ?
: @5 B  E- J! j. g4 f! E$ f9 eRGB顏色值轉(zhuǎn)換為Excel顏色值遵循公式：
2 S9 `/ U9 v" u3 |2 `
. x: _) k& G5 p" n: W" P  \

% EXCEL顏色與RGB顏色換算公式：color=R+2^8*G+2^16*B;% 1、設(shè)置邊框顏色Sheet1.Range('A1:I3').Borders.Color=0+2^8*255+2^16*255;% 2、設(shè)置背景色Sheet1.Range('E1').Interior.Color=255+2^8*0+2^16*0;% 3、字體顏色Sheet1.Range('E2').Characters.Font.Color=0+2^8*255+2^16*0;
NO.9
: e/ x# e! D7 Y
字體設(shè)置
( w# J. p. H. V5 J& n

Sheet1.Range('F4').Characters.Font.Name='黑體'; %設(shè)置字體為黑體Sheet1.Range('F4').Characters.Font.Color=0+2^8*0+2^16*255; %文字顏色Sheet1.Range('F4').Characters.Font.ColorIndex=1;%1、黑色  2、白色 3、紅色 4、綠色、5藍(lán)色、6黃色……Sheet1.Range('F4').Characters.Font.Bold=1; %字體加粗Sheet1.Range('G2').Font.FontStyle = "Bold Italic";%字體樣式設(shè)置為加粗和傾斜Sheet1.Range('F4').Characters.Font.Size=30;Sheet1.Range('F4').Characters.Font.Italic=1; %傾斜 %Sheet1.Range('F4').Characters.Font.Underline=2; %1、無下劃線 2、單下劃線 3、雙下劃線 4、單下劃線 5、雙下劃線Font屬性詳細(xì)見：
https://docs.microsoft.com/zh-cn/office/vba/api/excel.font.size
: u* _) K* A, x7 P4 ^https://docs.microsoft.com/zh-CN/office/vba/api/excel.font%28object%29

NO.10
, U& ^& I! }3 `' s" J0 Y
對齊方式
水平對齊
, ^9 h3 K# }6 G' M* R

Sheet1.Range('A1:C3').HorizontalAlignment = -4108; % 水平居中Sheet1.Range('A1:C3').HorizontalAlignment=-4131; %左對齊 Sheet1.Range('A1:C3').HorizontalAlignment=-4152;%右對齊 垂直對齊

Sheet1.Range('A1:C3').VerticalAlignment=-4108; %垂直居中  Sheet1.Range('A1:C3').VerticalAlignment=-4107; %底部對齊Sheet1.Range('A1:C3').VerticalAlignment = -4160;% 頂部對齊
% c0 q6 N9 V, T! v5 kNO.11
8 T9 b3 {4 p) m4 j( ~6 P
凍結(jié)

% 凍結(jié)第一行% Excel.ActiveWindow.SplitRow = 1;% Excel.ActiveWindow.SplitColumn = 0;% 凍結(jié)第一列% Excel.ActiveWindow.SplitRow = 0;% Excel.ActiveWindow.SplitColumn = 1;
NO.12
4 C3 d+ m9 y) Z: v  P  D( N
刪除單元格

hc=Sheet1.Range('F4').Rows; hc.Delete;       %  刪除某個單元格 hc=Sheet1.Range('F4').EntireRow; hc.Delete   %  刪除整行單元格 hc=Sheet1.Range('F4').EntireColumn;hc.Delete %  刪除整列單元格
NO.13

退出
) Q1 h3 H6 m" Q/ w8 a% i

% Excel.Quit%退出
1 I9 D' Z5 r: G. |: f6 eMATLAB操作Excel實現(xiàn)自動化辦公全部源碼


【環(huán)境：win10+matlab21b，收藏=學(xué)會】
2 G  }% e* |" v& ]# m' b

%% +++++++++++++++++++++++++++++%   author:2377389590@qq.com%   date:2022-5-21%% +++++++++++++++++++++++++++++clear ;clc;close all;%%  =========先創(chuàng)建一個名為【好玩的MATLAB】excel文檔========================================file_path=[pwd,'\好玩的MATLAB.xlsx'];%設(shè)置當(dāng)前路徑try    Excel=actxGetRunningServer('Excel.Application');%如果Excel 服務(wù)器已經(jīng)打開，返回其句柄catch    Excel=actxserver('Excel.Application');%如果Excel服務(wù)器沒有打開，則創(chuàng)建一個Excel服務(wù)器，并返回句柄endExcel.Visible = 1; %設(shè)置Excel服務(wù)器為可見狀態(tài)
! L( t3 C( ~: E%如果存在test.xlsx文件,則打開文件，若不存在則創(chuàng)建一個,然后保存if exist(file_path,'file')    Workbook=Excel.Workbooks.Open(file_path);%打開else    Workbook=Excel.Workbooks.Add;%創(chuàng)建    Workbook.SaveAs(file_path);%保存end
%% ====返回當(dāng)前工作表句柄=====================Sheets = Excel.ActiveWorkbook.Sheets;  %激活工作表Sheet1 = Sheets.Item(1);    % 返回第1個表格句柄Sheet1.Activate;    % 激活第1個工作表單Sheet1.Name = '好玩的MATLAB';%表單起名字%% =========頁面設(shè)置==========================Sheet1.PageSetup.TopMargin = 60;       % 上邊距40磅Sheet1.PageSetup.BottomMargin = 45;    % 下邊距40磅Sheet1.PageSetup.LeftMargin = 45;      % 左邊距40磅Sheet1.PageSetup.RightMargin = 45;     % 右邊距40磅
+ K/ [) }+ U; [2 l%% =========設(shè)置行高和列寬===================RowHeight = [96,25,25,25]';%定義行高向量RowHeightSheet1.Range('A1:A4').RowHeight = RowHeight;%設(shè)置Range對象（從A1到A16）的行高Sheet1.Range('A1:H1').ColumnWidth = [44,8,8,8,8,44,8,8,20];%設(shè)置Range對象（從A1到H1）的列寬%% =========合并單元格======================Sheet1.Range('A1:A4').MergeCells = 1;Sheet1.Range('B1:C1').MergeCells = 1;Sheet1.Range('B2:C2').MergeCells = 1;Sheet1.Range('B3:C3').MergeCells = 1;Sheet1.Range('B4:C4').MergeCells = 1;Sheet1.Range('A8:A9').MergeCells = 1;Sheet1.Range('D3:E3').MergeCells = 1;Sheet1.Range('E8:H8').MergeCells = 1;Sheet1.Range('D4:E4').MergeCells = 1;Sheet1.Range('G4:H4').MergeCells = 1;Sheet1.Range('I1:I4').MergeCells = 1;%% ======設(shè)置單元格的邊框=====================Sheet1.Range('A1:I4').Borders.Weight = 3;Sheet1.Range('A1:I4').Borders.Value=1;% 1：實線，2：長虛線；3：短虛線，4：點劃線；5--.
0 u2 Z, c! B8 P" D! C* x- gSheet1.Range('A1:I4').Borders.Item(1).LineStyle=1; %單元格邊框%Item(1)為左側(cè)，Item(2)為右側(cè)，Item(3)為上側(cè)，Item(4)為下側(cè)，% Sheet1.Range('A1:I4').Borders.Item(2).LineStyle=4;% Sheet1.Range('A1:I4').Borders.Item(3).LineStyle=3;% Sheet1.Range('A1:I4').Borders.Item(4).LineStyle=4;%% ====寫入單元格內(nèi)容=========================% 1、寫入文字Sheet1.Range('A1:A4').Value = '畢業(yè)照片';Sheet1.Range('B1:C1').Value = '  姓 名  ';Sheet1.Range('A2:C2').Value = '政治面貌';Sheet1.Range('A3:C3').Value = '通訊地址';Sheet1.Range('A4:C4').Value = 'E-mail';Sheet1.Range('E1').Value = '性別';Sheet1.Range('E2').Value = '健康狀況';Sheet1.Range('F4').Value = '現(xiàn)居住地址';Sheet1.Range('G1').Value = '出生年月';Sheet1.Range('G2').Value = '聯(lián)系電話';Sheet1.Range('G3').Value = '郵政編碼';%% ==========插入圖片================================fig=figure('units','normalized','visible','off');%設(shè)置圖像不可見img=imread('zzx.jpg');img=imresize(img,[50,50]);imshow(img)ax=gca;ax.Position=[0,0,1,1];%將圖形復(fù)制到粘貼板hgexport(fig, '-clipboard');%將圖形粘貼到當(dāng)前表格的A1:B4欄里Excel.ActiveSheet.Range('A1:B4').Select;Excel.ActiveSheet.Paste;
, d+ g2 p& Q  s' G) B%% =======顏色設(shè)置=========================%  EXCEL顏色與RGB顏色換算公式：color=R+2^8*G+2^16*B;% 1、設(shè)置邊框顏色Sheet1.Range('A1:I3').Borders.Color=0+2^8*255+2^16*255;% 2、設(shè)置背景色Sheet1.Range('E1').Interior.Color=255+2^8*0+2^16*0;% 3、字體顏色Sheet1.Range('E2').Characters.Font.Color=0+2^8*255+2^16*0;
# U( [: g- V! o+ G. }+ T%% =====寫入字體設(shè)置============================%https://docs.microsoft.com/zh-cn/office/vba/api/excel.font.sizeSheet1.Range('F4').Characters.Font.Name='黑體'; %設(shè)置字體為黑體Sheet1.Range('F4').Characters.Font.Color=0+2^8*0+2^16*255; %文字顏色Sheet1.Range('F4').Characters.Font.ColorIndex=1;%1、黑色  2、白色 3、紅色 4、綠色、5藍(lán)色、6黃色&Sheet1.Range('F4').Characters.Font.Bold=1; %字體加粗Sheet1.Range('G2').Font.FontStyle = "Bold Italic";%字體樣式設(shè)置為加粗和傾斜Sheet1.Range('F4').Characters.Font.Size=30;Sheet1.Range('F4').Characters.Font.Italic=1; %傾斜 %Sheet1.Range('F4').Characters.Font.Underline=2; %1、無下劃線 2、單下劃線 3、雙下劃線 4、單下劃線 5、雙下劃線
4 j% V7 z- @' t# x+ U( U' H5 E& A/ a%% =======對齊方式=====================================% 水平對齊方式Sheet1.Range('A1:C3').HorizontalAlignment = -4108; % 水平居中Sheet1.Range('A1:C3').HorizontalAlignment=-4131; %左對齊 Sheet1.Range('A1:C3').HorizontalAlignment=-4152;%右對齊 %垂直對齊方式Sheet1.Range('A1:C3').VerticalAlignment=-4108; %垂直居中  Sheet1.Range('A1:C3').VerticalAlignment=-4107; %底部對齊Sheet1.Range('A1:C3').VerticalAlignment = -4160;% 頂部對齊%% =======凍結(jié)=====================================% 凍結(jié)第一行% Excel.ActiveWindow.SplitRow = 1;% Excel.ActiveWindow.SplitColumn = 0;% 凍結(jié)第一列% Excel.ActiveWindow.SplitRow = 0;% Excel.ActiveWindow.SplitColumn = 1;
) M! e( z/ B7 Z6 _. ^* _hc=Sheet1.Range('F4').Rows; hc.Delete;       %  刪除某個單元格 hc=Sheet1.Range('F4').EntireRow; hc.Delete   %  刪除整行單元格 hc=Sheet1.Range('F4').EntireColumn;hc.Delete %  刪除整列單元格 % Excel.Quit%退出
+ {5 h# N" U7 z& V- {( K6 Q. TMATLAB操作Excel繪畫全部源碼


- r6 ]* g: L0 Y' d; T簡單介紹一下Matlab操作Excel繪圖的實現(xiàn)思路：

讀取圖片；

獲取圖片像素點的顏色值，換算成Excel顏色值；

根據(jù)圖像顏色值填充Excel表的背景色，從而實現(xiàn)繪圖。
/ n8 y; K' r% E- v6 A【環(huán)境：win10+matlab21b，收藏=學(xué)會，趕快給女盆友畫一張Excel照片吧！】

clc;clear;close all;%% =======讀取圖片==================================img=imread('女朋友照片.png');img=imresize(img,[200,floor(200/size(img,1)*size(img,2))]);%自適應(yīng)大小%% =========創(chuàng)建并且激活Excel工作表===================file_path=[pwd,'\女朋友照片.xlsx'];%設(shè)置當(dāng)前路徑try    Excel=actxGetRunningServer('Excel.Application');%如果Excel 服務(wù)器已經(jīng)打開，返回其句柄catch    Excel=actxserver('Excel.Application');%如果Excel服務(wù)器沒有打開，則創(chuàng)建一個Excel服務(wù)器，并返回句柄endExcel.Visible = 1; %設(shè)置Excel服務(wù)器為可見狀態(tài)%如果存在文件,則打開文件，若不存在則創(chuàng)建一個,然后保存if exist(file_path,'file')    Workbook=Excel.Workbooks.Open(file_path);%打開else    Workbook=Excel.Workbooks.Add;%創(chuàng)建    Workbook.SaveAs(file_path);%保存end%------------返回當(dāng)前工作表句柄--------------Sheets = Excel.ActiveWorkbook.Sheets;  %激活工作表Sheet1 = Sheets.Item(1);    % 返回第1個表格句柄Sheet1.Activate;    % 激活第1個工作表單Sheet1.Name = '女朋友照片';%表單起名字row=size(img,1);col=size(img,2);%設(shè)置寬度Sheet1.Range(['A1:A',num2str(row)]).RowHeight=ones(1,row);Sheet1.Range(['A1:',num2abc(col),'1']).ColumnWidth=ones(1,col)/20;%% ===========繪制顏色========================================for i=1:row%行數(shù)    for j=1:col%列數(shù)        R=img(i,j,1);        G=img(i,j,2);        B=img(i,j,3);        color=double(R)+256*double(G)+65536*double(B);%對應(yīng)顏色        columnIdx=num2abc(j);        position=strcat(columnIdx,num2str(i));%字符串連接函數(shù)%         Sheet1.Range(position).Borders.Color=color;%單元格邊框色        Sheet1.Range(position).Interior.Color=color;%單元格背景色填充    endend
- -THE END- -
源碼下載：
gitee下載：https://gitee.com/iDMatlab/excel-server/tree/master
參考資料：
/ _) w/ n$ q& {* f  S【1】感謝微信好友：「閑云野鶴 」參考資料
& y$ X5 f" N1 s) c【2】https://idmatlab.blog.csdn.net/article/details/87458541【3】https://docs.microsoft.com/zh-CN/office/vba/api/excel.borders【4】https://docs.microsoft.com/zh-cn/office/vba/api/excel.pagesetup【5】https://docs.microsoft.com/zh-CN/office/vba/api/excel.font%28object%29【6】https://www.mathworks.com/help/releases/R2020b/matlab/ref/actxgetrunningserver.html【7】https://docs.microsoft.com/zh-cn/office/vba/api/overview/excel/enumerations-graph-visual-basic-reference
【送書活動】
; ~2 `  h, E1 \4 t3 Y包郵贈送2021年新書《MATLAB智能優(yōu)化算法：從寫代碼到算法思想》共5本，這是一本MATLAB語言的新書籍，剛剛上架！由「 北京大學(xué)出版社」贊助提供 ，感興趣的朋友推薦入手一本。


' l! L6 y6 |( k: P【抽獎方式及滿足條件】：
1.關(guān)注「好玩的MATLAB 」公眾號
2.給本文點【贊】+【在看】；
3.留言區(qū)評論點贊最多的前5名。
同時滿足上述3個條件的讀者朋友，包郵贈送一本：《MATLAB智能優(yōu)化算法：從寫代碼到算法思想》

【開獎時間】 ：2022年5月27日夜晚8:00 (周五)【領(lǐng)獎方式】：在開獎時，后臺將會回復(fù)點贊最多的前5名小伙伴的留言。后臺回復(fù)的信息截圖+姓名+地址+聯(lián)系方式發(fā)送小編私人微信：idmatlab，
. [( Z4 J6 f7 ]" N, e+ e, p掃一掃加小編微信

. g0 Y- b$ `1 X  y6 y0 c
# L9 @) P+ i3 B; g3 q0 v
0 }& [# U; x0 u$ c% N當(dāng)然，沒有中獎但有需要的小伙伴可以通過下方鏈接進(jìn)行購買：【本書亮點】
0 F% g/ V3 H7 U8 \) \' ^本書便以實戰(zhàn)和快速教會智能優(yōu)化算法初學(xué)者為主旨，通過9個常見的組合優(yōu)化問題、5個經(jīng)典的智能優(yōu)化算法及4個新穎的智能優(yōu)化算法，讓讀者全面、深入、透徹地理解智能優(yōu)化算法求解問題時的算法設(shè)計思路及代碼編寫思路，進(jìn)一步提高使用智能優(yōu)化算法求解實際問題的實戰(zhàn)能力。【內(nèi)容簡介】
6 O. S8 l. }- K本書以簡單的組合優(yōu)化問題作為MATLAB智能優(yōu)化算法實戰(zhàn)應(yīng)用的切入點，逐步深入使用MATLAB編寫更復(fù)雜的智能優(yōu)化算法和求解更復(fù)雜的組合優(yōu)化問題，讓讀者逐漸理解智能優(yōu)化算法的實際求解過程。【目錄一覽表】
9 q* C! t+ _1 M1 F3 N往下滑動查看目錄詳情（1）遺傳算法求解0-1背包問題；
（2）變鄰域搜索算法求解旅行商問題
（3）大規(guī)模鄰域搜索算法求解旅行商問題
（4）灰狼優(yōu)化算法求解多旅行商問題
（5）蟻群算法求解容量受限的車輛路徑問題
（6）模擬退火算法求解同時取送貨的車輛路徑問題
8 M+ }$ z* @+ E（7）遺傳算法求解帶時間窗的車輛路徑問題
（8）螢火蟲算法求解訂單分批問題
3 D$ N9 @) j  W5 d（9）頭腦風(fēng)暴優(yōu)化算法求解帶時間窗和同時取送貨的車輛路徑問題
（10）鯨魚優(yōu)化算法求解開放式車輛路徑問題。
5 F0 b$ g, u; ~+ g& D7 F  H往期精彩回顧
# j# |8 z5 T: {1 m- g: {
推薦 | 【建模算法】擬合推薦 | 【建模算法】插值推薦 | 【高級繪圖】繪制SCI論文里的堆疊柱狀圖推薦 | 【好玩的源碼】用MATLAB編寫GUI腦電信號采集程序
4 a8 ]6 R! W1 J. {1 o% E8 ]/ E. m
1 b1 f1 w2 Z/ t7 F2 a

. U; c! ?+ F5 h# W+ A7 g- ^3 o
: o/ {% V  E0 J- J↓↓↓ 點擊"閱讀原文" 【進(jìn)入QQ交流群】