Excel VBA的案例
免費(fèi)excel-vba編程，
由于興趣愛(ài)好，積攢實(shí)例，現(xiàn)免費(fèi)幫人，編寫(xiě)excel-vba，如果感覺(jué)不錯(cuò)的話，發(fā)個(gè)幾十塊紅包，那當(dāng)然更好，當(dāng)然了不強(qiáng)求！不發(fā)也免費(fèi)！！有意向請(qǐng)點(diǎn)贊，留下微信號(hào)！
ANSYS Workbench 材料庫(kù)創(chuàng)建的幾種方法總結(jié) ￥10
方法三：根據(jù)Excel表統(tǒng)計(jì)的材料庫(kù)，創(chuàng)建workbench材料文件。（使用Excel VBA語(yǔ)言進(jìn)行編程）
簡(jiǎn)要說(shuō)明：
Ansys 推薦的材料庫(kù)方法為方法二，該方法也比較方便。但是鑒于本人的常規(guī)仿真需求這里探索了方案三：以本地記錄的Excel表材料庫(kù)文件為基礎(chǔ)，根據(jù)單次仿真需求所使用的幾種材料，直接由Excel VBA 程序生成Workbench可讀的材料庫(kù)文件。
本地Excel 統(tǒng)計(jì)的材料參數(shù)示例：
對(duì)應(yīng)生成的Workbench材料：
關(guān)鍵操作步驟記錄如下：
1//利用workbench 本身的腳本記錄功能錄制創(chuàng)建材料所需的腳本文件（Project 界面>File>Scripting>Record Journal…）。（注：仔細(xì)解讀該腳本文件，這個(gè)是Excel VBA將要根據(jù)自己的材料庫(kù)自動(dòng)生成的目標(biāo)文件）
2//在錄制狀態(tài)下，新建一個(gè)Engineering Data模塊并手動(dòng)輸入一個(gè)材料及其所需的材料屬性。記錄下各個(gè)操作對(duì)應(yīng)的程序命令。完成材料創(chuàng)建后即可關(guān)閉錄制功能（Project 界面>File>Scripting>Stop Record Journal…）
記錄過(guò)程中創(chuàng)建的材料示例：
3//找到開(kāi)時(shí)錄制時(shí)填寫(xiě)的錄制文件位置，可以使用記事本打開(kāi)錄制文件XXX.wbjn（該文件是Python語(yǔ)言編寫(xiě)的命令文件）
錄制的XXX.wbjn解讀如下：
起始為在Workbench 的Project 界面創(chuàng)建新的Engineering Data 模塊。
創(chuàng)建名稱(chēng)為“test0001”的新材料。
為新材料賦予各種屬性，密度/楊氏模量/泊松比等。
展開(kāi) Excel文件信息批量提取小工具 ￥10
Excel和工科男能扯上什么關(guān)系呢？
且聽(tīng)我慢慢道來(lái)
話說(shuō)，作為一名有著純正工科男血統(tǒng)的苦逼攻城獅，本人在使用各種各樣的工程軟件的時(shí)候，遇到那種重復(fù)性又大量的有規(guī)律工作時(shí)，總是想著怎么能偷懶。
最終靠著“不偷懶就會(huì)死”的堅(jiān)定信念，本人入了二次開(kāi)發(fā)的坑
研究了一段時(shí)間CATIA的VBA二次開(kāi)發(fā)后，本人在網(wǎng)上搜了一下關(guān)鍵詞“VBA”，然后，出來(lái)的搜索結(jié)果，毫不夸張地說(shuō)，90%都是Excel VBA相關(guān)的內(nèi)容
于是，本人又入了Excel VBA的坑（各軟件的VBA的套路都是一樣的，只是自動(dòng)化對(duì)象不同罷了）
往后的一段日子，一直風(fēng)平浪靜，直到本人在某次活動(dòng)中，收到了若干份報(bào)名表，要把報(bào)名表的信息匯總到一個(gè)總表中……
又憑著“懶到一定境界，就是創(chuàng)新”的堅(jiān)定信念，我誓死不手動(dòng)一個(gè)一個(gè)地去復(fù)制粘貼
再然后，就有了下面動(dòng)圖及視頻里演示的東西：
(如上面的動(dòng)圖或下面插入的視頻無(wú)法觀看，請(qǐng)移步以下鏈接，展示的內(nèi)容相同)
https://v.qq.com/x/page/f038972qo3z.html
展開(kāi) 工程中的有限元法
子目錄 Directories
\QBASIC - QuickBasic程序的源代碼
\FORTRAN - Fortran 程序的源代碼
\C - ANSI C 程序的源代碼
\VB - Visual Basic 程序的源代碼
\EXCELVB - Microsoft Excel VBA 程序的源代碼
\MATLAB - MATLAB 程序的源代碼
\EXAMPLES - 該子目錄提供輸入數(shù)據(jù)文件，每一個(gè)例題對(duì)應(yīng)有一個(gè)數(shù)據(jù)文件，對(duì)于用C, Fortran, Matlab, QuickBasic, and VB語(yǔ)言編寫(xiě)的程序處理同一個(gè)問(wèn)題時(shí)，使用相同的輸入數(shù)據(jù)文件；Excel程序使用它單獨(dú)的表格輸入。
工程中的有限元方法-配書(shū)盤(pán).zip
工程中的有限元方法_第3版.pdf
展開(kāi) 
使用非排干脆性指數(shù)粗略估算靜態(tài)液化(undrained brittleness index)
我們正在使用一個(gè)Excel程序?qū)θ珗?chǎng)地的CPT鉆孔進(jìn)行逐一評(píng)價(jià)。
5 參考
下面的參考論文來(lái)自于GeotechSet數(shù)據(jù)集，不一定覆蓋了所有的相關(guān)文獻(xiàn)。
Norsand模型剛度(彈性)參數(shù)的輸入
其中
G_ref---shear-reference, 參考剪切模量(reference shear modulus)，即彈性剪切模量的比例常數(shù)(Scaling constant for elastic shear modulus)
p---當(dāng)前的平均壓力(Current mean pressure)
p_ref---pressure-reference, 參考?jí)毫?Reference pressure,默認(rèn)為標(biāo)準(zhǔn)大氣壓力100kPa)，即初始平均應(yīng)力(Initial mean stress)
m---exponent, 材料常數(shù)，彈性剪切模量的冪(Exponent for elastic shear modulus, exponent of pressure dependence defining elasticity)，0≤m≤1, 默認(rèn)值為1.0
v---poisson， 材料常數(shù)，彈性泊松比(Elastic Poisson's ratio), 默認(rèn)值為0.2
下面考慮兩種極端情況：
(1) 當(dāng)m=0時(shí)，G=G_ref, 相當(dāng)于一個(gè)恒定的彈性剪切模量；
(2) 當(dāng)m=1時(shí)，G=(G_ref/p_ref)p, 相當(dāng)于彈性剪切模量是線性變化的，具有恒定的剪切剛度Ir=G_ref/p_ref
因而在原始的NorSand模型【原始Norsand模型的參數(shù)回顧(Jefferies's Excel VBA code)】中，彈性參數(shù)需要輸入三個(gè)：Ir, p和v。
3 不同軟件的改進(jìn)方法
如前文所述，NorSand最初是在EXCEL中運(yùn)行的，從1995年開(kāi)始在數(shù)值模擬軟件中改進(jìn)，先后包括在FLAC, Plaxis, RS3, Sigma/W等軟件中，下面簡(jiǎn)要總結(jié)了這些改進(jìn)的數(shù)值模型彈性參數(shù)的輸入方法。
展開(kāi) 結(jié)構(gòu)化和標(biāo)準(zhǔn)化的 PLC 自動(dòng)編程方法
我們采用 Excel VBA 開(kāi)發(fā)了一個(gè)工具軟件，用于自動(dòng)生成 PLC 程序代碼和變量 ( 基于西門(mén)子 STEP7平臺(tái) )。該軟件首先將模塊庫(kù)中各個(gè)模塊的詳細(xì)信息存儲(chǔ)在一張表格中，包括模塊名稱(chēng)、編號(hào)、各引腳參數(shù)名稱(chēng)、類(lèi)型、參數(shù) ID 前后綴、參數(shù)名稱(chēng)前后綴、參數(shù)變量存儲(chǔ)區(qū)域等，這些信息用于生成變量和代碼中的共性部分，然后由編程人員手動(dòng)輸入個(gè)性部分——設(shè)備編號(hào)、名稱(chēng)等，從而生成的變量和代碼將以文本的形式導(dǎo)入到 Step7 軟件中去，最終形成 PLC 程序。由于 Step7 軟件支持文本格式的語(yǔ)句表（STL）程序與梯形圖程序（LAD）以及功能塊圖程序（FBD）互相轉(zhuǎn)換，因此最終生成的 PLC 程序也可以轉(zhuǎn)換成更為直觀的梯形圖或功能塊圖程序。整個(gè)自動(dòng)編程的大致流程如圖 2 所示（虛框內(nèi)為該軟件的功能）。
圖 2 中的“手動(dòng)修改代碼 ( 非標(biāo)部分 )”是指一些特定的工藝控制要求如聯(lián)鎖保護(hù)等，這部分代碼需要根據(jù)《軟件詳細(xì)設(shè)計(jì)》進(jìn)行手動(dòng)修改和編程，這點(diǎn)也對(duì)通用性模塊的編程提出了更高的要求，即模塊要留有接口滿足這類(lèi)特定控制條件下的參數(shù)條件修改。
把上述 PLC 自動(dòng)編程的思路推廣一下，可以把一些固定的工藝流程包含的功能模塊封裝成一個(gè)模塊，如前文舉例的煤氣加壓機(jī)，可以把一臺(tái)加壓機(jī)涉及的固定設(shè)備（包括電機(jī)、輔助油泵、機(jī)前 / 后閥門(mén)和輔助設(shè)備等）的 PLC 程序封裝為一個(gè)功能模塊，這樣自動(dòng)生成 PLC 程序的過(guò)程更為簡(jiǎn)單和明了。
筆者在多個(gè)工程項(xiàng)目中采用這種方法進(jìn)行自動(dòng)編程，取得了良好的應(yīng)用效果。
展開(kāi) Abaqus python二次開(kāi)發(fā)方法 附Abaqus Python Reader v1.9.4.1
python語(yǔ)言的開(kāi)發(fā)遠(yuǎn)沒(méi)有想象中的難，其實(shí)基于abaqus語(yǔ)言的二次開(kāi)發(fā)更像是word或excel里的VBA，我們只要通過(guò)錄制一段宏文件，就可以簡(jiǎn)單迅速的完成一個(gè)模型的建立，當(dāng)我們?nèi)藶榈膶?duì)這段宏文件進(jìn)行修改，就可以完成對(duì)該模型的修改，非常適合有大量相同或類(lèi)似模型的建立，防止用戶一遍又一遍繁瑣的建模操作。簡(jiǎn)單的步驟如下：
1.在建模前先打開(kāi)file--Macro Manager，然后新建一個(gè)宏文件（在Home或Work都行，只要你最終能找到這個(gè)文件），此時(shí)會(huì)彈出Record Macro對(duì)話框，托至不礙事的地方
2.進(jìn)行正常的cae建模就行，至到建模完成
3.點(diǎn)擊Record Macro對(duì)話框的Stop Mecording，此時(shí)命令欄會(huì)顯示“Macro "Macroname" has been added to "E:\Temp\Macroname.py"”，前期任務(wù)搞定
4.此時(shí)用文本編輯器打開(kāi)此py文件，py文件中有些文字是沒(méi)有用的，把“def Macro1 ...import connectorBehavior”都可以刪掉，每行字前的空格都要去掉（文本編輯器里一般有列模式，用列模式可以對(duì)整個(gè)文本的進(jìn)行操作）
5.
展開(kāi) ABAQUS PYTHON二次開(kāi)發(fā)攻略下載
python語(yǔ)言的開(kāi)發(fā)遠(yuǎn)沒(méi)有想象中的難，其實(shí)基于abaqus語(yǔ)言的二次開(kāi)發(fā)更像是word或excel里的VBA，我們只要通過(guò)錄制一段宏文件，就可以簡(jiǎn)單迅速的完成一個(gè)模型的建立，當(dāng)我們?nèi)藶榈膶?duì)這段宏文件進(jìn)行修改，就可以完成對(duì)該模型的修改，非常適合有大量相同或類(lèi)似模型的建立，防止用戶一遍又一遍繁瑣的建模操作。簡(jiǎn)單的步驟如下：
1.在建模前先打開(kāi)file--Macro Manager，然后新建一個(gè)宏文件（在Home或Work都行，只要你最終能找到這個(gè)文件），此時(shí)會(huì)彈出Record Macro對(duì)話框，托至不礙事的地方
2.進(jìn)行正常的cae建模就行，至到建模完成
3.點(diǎn)擊Record Macro對(duì)話框的Stop Mecording，此時(shí)命令欄會(huì)顯示“Macro "Macroname" has been added to "E:\Temp\Macroname.py"”，前期任務(wù)搞定
4.此時(shí)用文本編輯器打開(kāi)此py文件，py文件中有些文字是沒(méi)有用的，把“def Macro1 ...import connectorBehavior”都可以刪掉，每行字前的空格都要去掉（文本編輯器里一般有列模式，用列模式可以對(duì)整個(gè)文本的進(jìn)行操作）
5.
展開(kāi) 320科技工作室介紹
仿真結(jié)果的前后處理
簡(jiǎn)單有限元算法開(kāi)發(fā)
空間轉(zhuǎn)換
GUI、辦公小工具開(kāi)發(fā)
3 Python/Maple/Excel編程
我們團(tuán)隊(duì)的第三項(xiàng)重要業(yè)務(wù)就是Python編程。主要包含Word/Excel交互、GUI界面、算法開(kāi)發(fā)、圖像處理，此外我們還有大量基于Python的成品系統(tǒng)，包括但不限于管理系統(tǒng)、游戲等。同時(shí)，團(tuán)隊(duì)還可以基于Maple進(jìn)行數(shù)學(xué)公式推導(dǎo)，基于Excel函數(shù)及VBA編程制作工具。
基于Python爬蟲(chóng)的彩票軟件
基于Pygame的坦克大戰(zhàn)
威布爾分布函數(shù)擬合
嚴(yán)格Borda數(shù)學(xué)模型
基于Maple的數(shù)學(xué)公式推導(dǎo)及作圖
基于Excel函數(shù)的數(shù)據(jù)查詢系統(tǒng)
4 ANSA/Hypermesh網(wǎng)格、UG/Catia建模
我們團(tuán)隊(duì)的第四項(xiàng)業(yè)務(wù)為三維建模和網(wǎng)格生成。例如基于ANSA的網(wǎng)格生成及細(xì)化，基于UG的三維建模等，后續(xù)團(tuán)隊(duì)將制作一系列教程，服務(wù)于大家。
ANSA網(wǎng)格
UG建模
320科技工作室的團(tuán)隊(duì)靠譜不？
前面有介紹，我們團(tuán)隊(duì)都是知名院校的力學(xué)科班碩博研究生，且大多從事航空工作，在數(shù)學(xué)、力學(xué)、編程等方面基礎(chǔ)都很扎實(shí)。
展開(kāi) Ansys Workbench諧響應(yīng)掃頻結(jié)果，創(chuàng)建報(bào)告 ￥10
操作方法：
利用word 和 excel 的VBA編輯功能，以excel為控制界面，調(diào)用word模板，讀取txt結(jié)果數(shù)據(jù)，創(chuàng)建報(bào)告。
示例說(shuō)明：
以excel作為控制界面，本例需要在excel內(nèi)確定三個(gè)輸入?yún)?shù)：
1、word報(bào)告的標(biāo)題。
2、零件的名稱(chēng)（對(duì)應(yīng)仿真結(jié)果提取body1的名稱(chēng)）。
3、結(jié)果文件位置（仿真計(jì)算完成后默認(rèn)路徑是仿真計(jì)算文件中）。
點(diǎn)擊“創(chuàng)建報(bào)告”按鈕即可完成word 報(bào)告的自動(dòng)創(chuàng)建。
操作說(shuō)明：
1、 用戶需要在excel中設(shè)定三個(gè)輸入?yún)?shù)。
2、 本次示例需要在D盤(pán)設(shè)定test文件夾，其中包含word模板文件。
3、 生成的word報(bào)告文件是帶有宏命令的docm文件，可以另存docx文件。
4、 生成的word報(bào)告存儲(chǔ)在當(dāng)前excel統(tǒng)計(jì)目錄下。
展開(kāi) 
Excel與Python的交互處理: Openpyxl (1)
1 引言
由于最近打算編寫(xiě)一個(gè)小的Excel程序, 于是在想使用哪一種語(yǔ)言與Excel進(jìn)行交互. 過(guò)去, 主要使用了Excel里自帶的VBA語(yǔ)言, 例如<BYSPT: 使用標(biāo)準(zhǔn)貫入試驗(yàn)估算土體的物理力學(xué)參數(shù)值>, 在那段時(shí)間里, 也使用VBA編寫(xiě)了樁設(shè)計(jì), 排樁支護(hù)等工作使用的Excel程序. 近年來(lái)Python的呼聲日益高漲, 許多用戶要求微軟的Excel嵌入Python語(yǔ)言. 不過(guò), 在目前的Excel中還沒(méi)有實(shí)現(xiàn)這一功能.
后來(lái), 在處理超過(guò)10萬(wàn)條的電影數(shù)據(jù)時(shí), 使用了Pandas與Excel進(jìn)行交互操作. 同時(shí)也安裝過(guò)openpyxl, 這臺(tái)機(jī)器上次安裝的版本是2.5.3, 大約是在2018年左右. 如今兩年多過(guò)去了, openpyxl已經(jīng)發(fā)展到3.0.7, 于是首先把openpyxl更新到最新版本, 如下圖所示.
這個(gè)筆記沒(méi)有邏輯地試驗(yàn)了openpyxl的一些功能, 將來(lái)有可能把它嵌入到FLAC3D, UDEC等軟件中處理一些數(shù)據(jù), 例如地震記錄, SPT或CPT的測(cè)量數(shù)據(jù).
2 輸入類(lèi)
在本實(shí)驗(yàn)中, 僅輸入了兩個(gè)類(lèi): Workbook和Font, Workbook用來(lái)實(shí)例化對(duì)象wb, ws讓這個(gè)對(duì)象激活, 如下所示.
from openpyxl import Workbookfrom openpyxl.styles import Fontwb = Workbook()ws = wb.active
3 直接賦值到cell
openpyxl可以直接把值賦值到cell中, 可以賦值字符串,也可以輸入數(shù)值.
展開(kāi) AutoCAD提取權(quán)籍調(diào)查宗地四至的方法
1.4 VBA與Office交互
VBA與Office交互需要先在VBA 環(huán)境中引用相應(yīng)對(duì)象庫(kù)，即在VBAIDE中打開(kāi)菜單，在彈出的引用對(duì)話框的列表中查詢要引用的應(yīng)用程序?qū)ο髱?kù)，如選擇Microsoft Excel 12.0Object Library，引用Excel2007。
再聲明并新建一個(gè)EXCEL.Application對(duì)象：
Dim xlApp As Excel.Application
創(chuàng)建或獲取這個(gè)對(duì)象：
Set xlApp = GetObject(，“Excel.Application”)
If Err Then
MsgBox“Excel應(yīng)用程序沒(méi)有運(yùn)行。請(qǐng)啟動(dòng)Excel并重新運(yùn)行程序。”
Exit Sub
End If
聲明Excel工作簿并獲取當(dāng)前活動(dòng)工作表：
Dim xlSheet As Worksheet
Set xlSheet=xlApp.ActiveSheet
以后就可以通過(guò)程序操作工作表了，如存取單元格數(shù)據(jù)。
2 四至讀取的方法
南方CASS成圖軟件將四至存儲(chǔ)在界址線的擴(kuò)展屬性中，但沒(méi)有提供自動(dòng)提取并賦值的功能。四至信息需要通過(guò)編輯宗地，手工輸入。
要實(shí)現(xiàn)四至的自動(dòng)提取，就需要能搜索與本宗相鄰的宗地。資料介紹的方法基本是利用GIS軟件進(jìn)行緩沖區(qū)分析判斷是否有宗地與之相鄰的，再通過(guò)計(jì)算兩個(gè)宗地重心連線方位角判斷鄰宗方位。這就需要將原始圖件轉(zhuǎn)換成GIS圖件。這不僅增加了作業(yè)環(huán)節(jié)，還提高了電腦的軟硬件配置和對(duì)作業(yè)員技術(shù)水平的要求，相當(dāng)于增加了項(xiàng)目成本。
AutoCAD只是一個(gè)圖形編輯平臺(tái)，空間分析能力不強(qiáng)，這是少有開(kāi)發(fā)的原因之一。
展開(kāi) 機(jī)械工程師800個(gè)設(shè)計(jì)工具，等你來(lái)獲取！ ￥28
專(zhuān)業(yè)項(xiàng)目實(shí)例開(kāi)發(fā)
T型梁計(jì)算
luban
Excel VBA編程24學(xué)時(shí)教程
CNW玻璃計(jì)算程序
calcfac-計(jì)算工廠 1.63版
[新規(guī)范]箱涵結(jié)構(gòu)計(jì)算程序1.2
BOAC串口調(diào)試助手v1.0官方版
CAN口波特率計(jì)算工具(Brt01 for philips CAN
cccam數(shù)控車(chē)曲線宏程序生成器 v7.0官方版
GUIBuild(觸摸屏組態(tài)軟件) V5.10中文版
HART智能儀表組態(tài)軟件 v3.02c
IEC8705(電力規(guī)約分析器) 1.0 綠色版
LED多功能自由分區(qū)（帶網(wǎng)口）
Led多功能自由分區(qū)2012綜合版軟件
LED胸牌編輯軟件(MiniLED Display HID) v10.0
LM317計(jì)算器 綠色版
MSP430仿真器降級(jí)程序(FET430UIF FW V3 to V2
NCEdit數(shù)控刀具 1.0免費(fèi)中文版
NUT電子讀寫(xiě)頻軟件 1.10官方版
PCB版圖設(shè)計(jì)工具(FreePCB) v1.359官方免費(fèi)版
PCB布局工具(Diy layout Creater) v1.0免費(fèi)版
PCB彩色抄板軟件 Quick2005 v3.0免安裝版
pic單片機(jī)定時(shí)初值計(jì)算器
展開(kāi) SYSWELD的一些基礎(chǔ)心得
很多人問(wèn)關(guān)于材料庫(kù)開(kāi)發(fā)的事情，其實(shí)它就存在ToolBox中：
里面還有那個(gè)創(chuàng)建數(shù)據(jù)庫(kù)用的excel文檔（使用VBA實(shí)現(xiàn)的）。
其它的諸如算法、軟件計(jì)算的假設(shè)、近似處理的方法、操作順序、實(shí)例等等，里面一應(yīng)俱全。所有你想知道的這里都有，ToolBox是一個(gè)超級(jí)幫助文檔，你甚至可以利用它介紹的計(jì)算原理完善自己的知識(shí)體系，提高理論水平。
