vba編程代碼大全百度網(wǎng)盤(vba編程入門教程pdf)
本篇文章給大家談談vba編程代碼大全百度網(wǎng)盤,以及vba編程入門教程pdf對應的知識點,希望對各位有所幫助,不要忘了收藏本站喔。
本文目錄一覽:
- 1、《ExcelVBA常用代碼實戰(zhàn)大全》pdf下載在線閱讀,求百度網(wǎng)盤云資源
- 2、求《從零開始學ExcelVBA》全文免費下載百度網(wǎng)盤資源,謝謝~
- 3、求Excel VBA教程百度云
- 4、《別怕,ExcelVBA其實很簡單(第2版)》epub下載在線閱讀全文,求百度網(wǎng)盤云資源
- 5、求VBA代碼大全
《ExcelVBA常用代碼實戰(zhàn)大全》pdf下載在線閱讀,求百度網(wǎng)盤云資源
《Excel VBA常用代碼實戰(zhàn)大全》(袁竹平)電子書網(wǎng)盤下載免費在線閱讀
資源鏈接:
鏈接:
提取碼:h8h0
書名:Excel VBA常用代碼實戰(zhàn)大全
作者:袁竹平
豆瓣評分:7.6
出版年份:2010-7
頁數(shù):374
內(nèi)容簡介:《Excel VBA常用代碼實戰(zhàn)大全》重點強調(diào)實踐性,旨在幫助Excel初學者和有一定ExcelVBA編程基礎、希望進一步提高的讀者掌握VBA編程設計的技巧。全書精選150個典型范例,近245個技巧,以實用為主,知識點針對性強,并逐層對代碼輔以深入淺出地剖析,讓讀者通過范例的學習,快速將ExcelVBA編程應用到實際生活和工作中。
《Excel VBA常用代碼實戰(zhàn)大全》主要介紹VBA常用對象的應用技巧、控件及用戶窗體的應用技巧、對話框的應用技巧、函數(shù)的應用技巧,使用VBA操作文件等技巧,最后介紹了制作員工花名冊、收據(jù)打印系統(tǒng)、員工考勤系統(tǒng)三個綜合實例。
《Excel VBA常用代碼實戰(zhàn)大全》內(nèi)容豐富、圖文并茂,適合初步掌握VBA的基本知識,但需要進一步提高編程能力的初學者,以及希望通過VBA提高工作效率的各類從業(yè)人員。也適合各大、中專院校相關專業(yè)師生和企業(yè)、相關單位的培訓班學員閱讀。
求《從零開始學ExcelVBA》全文免費下載百度網(wǎng)盤資源,謝謝~
《從零開始學Excel VBA》百度網(wǎng)盤pdf最新全集下載:
鏈接:
?pwd=5518 提取碼: 5518
簡介:本書主要分為6篇,包括Excel VBA準備篇、Excel VBA基礎篇、Excel VBA對象模型篇、Excel VBA用戶界面設計篇、Excel VBA高級應用篇、Excel VBA綜合實例篇。Excel VBA準備篇從VBA的發(fā)展歷史、Excel 2007和Excel宏講起,為Excel VBA初學者快速入門提供了保證。Excel VBA基礎篇系統(tǒng)地講解了Excel VBA開發(fā)環(huán)境,以及Excel VBA的數(shù)據(jù)類型、運算符、函數(shù)與過程等語法知識。 ?
求Excel VBA教程百度云
《Excel VBA教程》百度網(wǎng)盤免費下載
鏈接:
提取碼: k2cu? ?
Excel VBA教程
《別怕,ExcelVBA其實很簡單(第2版)》epub下載在線閱讀全文,求百度網(wǎng)盤云資源
《別怕,ExcelVBA其實很簡單(第2版)》(ExcelHome)電子書網(wǎng)盤下載免費在線閱讀
鏈接:
提取碼:DPND ?
書名 :別怕,ExcelVBA其實很簡單(第2版)
豆瓣評分:7.8
作者:?ExcelHome
出版社:?北京大學出版社
出版年:??2016-7
頁數(shù): 332
內(nèi)容簡介:
對于大部分沒有編程基礎的職場人士來說,在學習VBA時往往會有很大的畏難情緒。本書正是針對這樣的人群,用淺顯易懂的語言和生動形象的比喻,并配合大量插畫,對Excel中看似復雜的概念和代碼,從簡單的宏錄制、VBA編程環(huán)境和基礎語法的介紹,到常用對象的操作與控制、執(zhí)行程序的自動開關—對象的事件、設計自定義的操作界面、調(diào)試與優(yōu)化編寫的代碼,都進行了形象的介紹。
本書適合那些希望提高工作效率的職場人士,特別是經(jīng)常需要處理和分析大量數(shù)據(jù)的用戶,也適合財經(jīng)專業(yè)的高校師生閱讀。
作者簡介?:
Kevin
英文名、網(wǎng)名都是Kevin,圈內(nèi)人慣稱K總(不是總經(jīng)理的那個總,而是總版主的那個總)。曾經(jīng)是追求極致辦公效率的會計一枚(好吧,我承認其實我就是喜歡偷懶),為此拼命折騰Office,特別是Excel。為了能和志同道合的人一起折騰Excel,1999年心血來潮創(chuàng)辦了ExcelHome,沒想到一搞就到了今天。不安分的小會計后來索性轉(zhuǎn)戰(zhàn)IT圈,鼓搗并多次實施信息化系統(tǒng)。這些年出過一些書,分享過一些網(wǎng)絡視頻教程,也經(jīng)常到企業(yè)里鼓吹自己的偷懶經(jīng)驗和定制解決方案,還因此被微軟年年評為編外優(yōu)秀工作者——哦,錯了,應該叫微軟全球最有價值專家。未來計劃繼續(xù)說教之路,讓更多人走上高效辦公之路。
羅國發(fā)
網(wǎng)名ggsmart,葉楓。畢業(yè)就開始當老師,十余年的教學經(jīng)歷讓我成長為一名經(jīng)驗豐富的教學能手(自封的)。生活中閑時也沒什么愛好,就愛上上網(wǎng),逛逛論壇,翻翻網(wǎng)頁,...
求VBA代碼大全
1:打開所有隱藏工作表
2:循環(huán)宏
3:錄制宏時調(diào)用“停止錄制”工具欄
4:高級篩選5列不重復數(shù)據(jù)至指定表
5:雙擊單元執(zhí)行宏(工作表代碼)
6:雙擊指定區(qū)域單元執(zhí)行宏(工作表代碼)
7:進入單元執(zhí)行宏(工作表代碼)
8:進入指定區(qū)域單元執(zhí)行宏(工作表代碼)
9:在多個宏中依次循環(huán)執(zhí)行一個(控件按鈕代碼)
10:在兩個宏中依次循環(huán)執(zhí)行一個并相應修改按鈕名稱(控件按鈕代碼)
11:在三個宏中依次循環(huán)執(zhí)行一個并相應修改按鈕名稱(控件按鈕代碼)
12:根據(jù)A1單元文本隱藏/顯示按鈕(控件按鈕代碼)?
13:當前單元返回按鈕名稱(控件按鈕代碼)?
14:當前單元內(nèi)容返回到按鈕名稱(控件按鈕代碼)?
15:奇偶頁分別打印?
16:自動打印多工作表第一頁?
17:查找A列文本循環(huán)插入分頁符?
18:將A列最后數(shù)據(jù)行以上的所有B列圖片大小調(diào)整為所在單元大小?
19:返回光標所在行數(shù)?20:在A1返回當前選中單元格數(shù)量?
21:返回當前工作簿中工作表數(shù)量?
22:返回光標選擇區(qū)域的行數(shù)和列數(shù)?
23:工作表中包含數(shù)據(jù)的最大行數(shù)?
24:返回A列數(shù)據(jù)的最大行數(shù)?
25:將所選區(qū)域文本插入新建文本框?
26:批量插入地址批注?
27:批量插入統(tǒng)一批注?
28:以A1單元內(nèi)容批量插入批注?
29:不連續(xù)區(qū)域插入當前文件名和表名及地址?
30:不連續(xù)區(qū)域錄入當前單元地址?
31:連續(xù)區(qū)域錄入當前單元地址?
32:返回當前單元地址?
33:不連續(xù)區(qū)域錄入當前日期?
34:不連續(xù)區(qū)域錄入當前數(shù)字日期?
35:不連續(xù)區(qū)域錄入當前日期和時間?
36:不連續(xù)區(qū)域錄入對勾?
37:不連續(xù)區(qū)域錄入當前文件名?
38:不連續(xù)區(qū)域添加文本?
39:不連續(xù)區(qū)域插入文本?
40:從指定位置向下同時錄入多單元指定內(nèi)容?
41:按aa工作表A列的內(nèi)容排列工作表標簽順序?
42:以A1單元文本作表名插入工作表?
43:刪除所有未選定工作表?
44:工作表標簽排序
45:定義指定工作表標簽顏色?
46:在目錄表建立本工作簿中各表鏈接目錄?
47:建立工作表文本目錄?
48:查另一文件的所有表名?
49:當前單元錄入計算機名?
50:當前單元錄入計算機用戶名?
51:解除所有工作表保護?
52:為指定工作表加指定密碼保護表?
53:在有密碼的工作表執(zhí)行代碼?
54:執(zhí)行前需要驗證密碼的宏(控件按鈕代碼)?
55:執(zhí)行前需要驗證密碼的宏()?
56:拷貝A1公式和格式到A2?
57:復制單元數(shù)值?
58:插入數(shù)值條件格式?
59:插入透明批注?
60:添加文本?
61:光標定位到指定工作表A列最后數(shù)據(jù)行下一單元?
62:定位選定單元格式相同的所有單元格?
63:按當前單元文本定位?
64:按固定文本定位?
65:刪除包含固定文本單元的行或列?
66:定位數(shù)據(jù)及區(qū)域以上的空值?
67:右側(cè)單元自動加5(工作表代碼)?
68:當前單元加2?
69:A列等于A列減B列?
70:用于光標選定多區(qū)域跳轉(zhuǎn)指定單元(工作表代碼)?
71:將A1單元錄入的數(shù)據(jù)累加到B1單元(工作表代碼)?
72:在指定顏色區(qū)域選擇單元時添加/取消"√"(工作表代碼)?
73:在指定區(qū)域選擇單元時添加/取消"√"(工作表代碼)?
74:雙擊指定單元,循環(huán)錄入文本(工作表代碼)?
75:雙擊指定單元,循環(huán)錄入文本(工作表代碼)?
76:單元區(qū)域引用(工作表代碼)?
77:在指定區(qū)域選擇單元時數(shù)值加1(工作表代碼)?
78:混合文本的編號?
79:指定區(qū)域單元雙擊數(shù)據(jù)累加(工作表代碼)?
80:選擇單元區(qū)域觸發(fā)事件(工作表代碼)?
81:當修改指定單元內(nèi)容時自動執(zhí)行宏(工作表代碼)?
82:被指定單元內(nèi)容限制執(zhí)行宏?
83:雙擊單元隱藏該行(工作表代碼)?
84:高亮顯示行(工作表代碼)?
85:高亮顯示行和列(工作表代碼)
86:為指定工作表設置滾動范圍(工作簿代碼)
87:在指定單元記錄打印和預覽次數(shù)(工作簿代碼)
88:自動數(shù)字金額轉(zhuǎn)大寫(工作表代碼)
89:將所有工作表的A1單元作為單擊按鈕(工作簿代碼)
90:鬧鐘——到指定時間執(zhí)行宏(工作簿代碼)
91:改變Excel界面標題的宏(工作簿代碼)
92:在指定工作表的指定單元返回光標當前多選區(qū)地址(工作簿代碼)
93:B列錄入數(shù)據(jù)時在A列返回記錄時間(工作表代碼)
94:當指定區(qū)域修改時在其右側(cè)的2個單元返回當前日期和時間(工作表代碼)
95:指定單元顯示光標位置內(nèi)容(工作表代碼)
96:每編輯一個單元保存文件
97:指定允許編輯區(qū)域
98:解除允許編輯區(qū)域限制
99:刪除指定行
100:刪除A列為指定內(nèi)容的行
1:打開所有隱藏工作表
Sub?打開所有隱藏工作表()
Dim?i?As?Integer
For?i?=?1?To?Sheets.Count
Sheets(i).Visible?=?True
Next?i?
End?Sub
?
2:循環(huán)宏
Sub?循環(huán)()
?
?AAA?=?Range("C2")
??
?Dim?i?As?Long
??Dim?times?As?Long
??times?=?AAA?
'times代表循環(huán)次數(shù),執(zhí)行前把times賦值即可(不可小于1,不可大于2147483647)
??For?i?=?1?To?times
??Call?過濾一行
?
?If?Range("完成標志")?=?"完成"?Then
????Exit?For??
'假如名為'完成標志'的命名單元的值等于'完成',則退出循環(huán),假如一開始就等于'完成',則只執(zhí)行一次循環(huán)就退出
?
'If?Sheets("傳送參數(shù)").Range("A"??i).Text?=?"完成"?Then?
Exit?For?
'假如某列出現(xiàn)"完成"內(nèi)容則退出循環(huán)
Next?i?
End?Sub???
?????
3:錄制宏時調(diào)用“停止錄制”工具欄???
Sub?錄制宏時調(diào)用停止錄制工具欄()
??????Application.CommandBars("Stop?Recording").Visible?=?True?
End?Sub????????
4:高級篩選5列不重復數(shù)據(jù)至指定表
Sub?高級篩選5列不重復數(shù)據(jù)至Sheet2()
??????Sheets("Sheet2").Range("A1:E65536")?=?""?'清除Sheet2的A:D列
?????Range("A1:E65536").AdvancedFilter?Action:=xlFilterCopy,?CopyToRange:=Sheet2.Range(?_
?????????"A1"),?Unique:=True
??????Sheet2.Columns("A:E").Sort?Key1:=Sheet2.Range("A2"),?Order1:=xlAscending,?Header:=xlGuess,?_
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
?????????:=xlPinYin?
End?Sub????????
5:雙擊單元執(zhí)行宏(工作表代碼)???
Private?Sub?Worksheet_BeforeDoubleClick(ByVal?Target?As?Range,?Cancel?As?Boolean)
If?Range("$A$1")?=?"關閉"?Then
Exit?Sub??????
Select?Case?Target.Address
?????????Case?"$A$4"
?????????????Call?宏1
?????????????Cancel?=?True
?????????Case?"$B$4"
?????????????Call?宏2
?????????????Cancel?=?True
?????????Case?"$C$4"
?????????????Call?宏3
?????????????Cancel?=?True
????????Case?"$E$4"
?????????????Call?宏4?
?????????????Cancel?=?True
?????End?Select?
End?Sub
6:雙擊指定區(qū)域單元執(zhí)行宏(工作表代碼)
Private?Sub?Worksheet_BeforeDoubleClick(ByVal?Target?As?Range,?Cancel?As?Boolean)
?????If?Range("$A$1")?=?"關閉"?Then?Exit?Sub
?????If?Not?Application.Intersect(Target,?Range("A4:A9",?"C4:C9"))?Is?Nothing?Then?Call?打開隱藏表
?End?Sub
7:進入單元執(zhí)行宏(工作表代碼)???
Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)?'以單元格進入代替按鈕對象調(diào)用宏??????
If?Range("$A$1")?=?"關閉"?Then?Exit?Sub?????
Select?Case?Target.Address
??????????Case?"$A$5"?'單元地址(Target.Address),或命名單元名字(Target.Name)?
????????????Call?宏1
?????????Case?"$B$5"
?????????????Call?宏2
?????????Case?"$C$5"
?????????????Call?宏3
??????End?Select
?End?Sub
8:進入指定區(qū)域單元執(zhí)行宏(工作表代碼)
Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)
If?Range("$A$1")?=?"關閉"?Then?Exit?Sub
If?Not?Application.Intersect(Target,?Range("A4:A9","C4:C9"))?Is?Nothing?Then?Call?打開隱藏表?
End?Sub
9:在多個宏中依次循環(huán)執(zhí)行一個(控件按鈕代碼)
Private?Sub?CommandButton1_Click()
Static?RunMacro?As?Integer
Select?Case?RunMacro
Case?0
宏1
RunMacro?=?1
Case?1
宏2
RunMacro?=?2
Case?2
宏3
RunMacro?=?0
End?Select?
End?Sub
10:在兩個宏中依次循環(huán)執(zhí)行一個并相應修改按鈕名稱(控件按鈕代碼)
Private?Sub?CommandButton1_Click()
With?CommandButton1
If?.Caption?=?"保護工作表"?Then
Call?保護工作表
?.Caption?=?"取消工作表保護"?
Exit?Sub
End?If
If?.Caption?=?"取消工作表保護"?Then
Call?取消工作表保護
?.Caption?=?"保護工作表"?
Exit?Sub
End?If
End?With?
End?Sub
11:在三個宏中依次循環(huán)執(zhí)行一個并相應修改按鈕名稱(控件按鈕代碼)???
Option?Explicit??Private?Sub?CommandButton1_Click()
With?CommandButton1
If?.Caption?=?"宏1"?Then
Call?宏1
?.Caption?=?"宏2"?
Exit?Sub
End?If
If?.Caption?=?"宏2"?Then
Call?宏2
.Caption?=?"宏3"
Exit?Sub
End?If
If?.Caption?=?"宏3"?Then
Call?宏3
.Caption?=?"宏1"
Exit?Sub
End?If
End?With?
End?Sub?
12:根據(jù)A1單元文本隱藏/顯示按鈕(控件按鈕代碼)
Private?Sub?Worksheet_SelectionChange(ByVal?Target?As?Range)?
If?Range("A1")??2?Then
??CommandButton1.Visible?=?1
?Else
??CommandButton1.Visible?=?0
?End?If?
End?Sub??
Private?Sub?CommandButton1_Click()
?重排窗口?
End?Sub????????
13:當前單元返回按鈕名稱(控件按鈕代碼)???
Private?Sub?CommandButton1_Click()?
ActiveCell?=?CommandButton1.Caption?
End?Sub????????
14:當前單元內(nèi)容返回到按鈕名稱(控件按鈕代碼)???
Private?Sub?CommandButton1_Click()?
CommandButton1.Caption?=?ActiveCell?
End?Sub????????
15:奇偶頁分別打印???
Sub?奇偶頁分別打印()?
Dim?i%,?Ps%??
Ps?=?ExecuteExcel4Macro("GET.DOCUMENT(50)")?'總頁數(shù)?
MsgBox?"現(xiàn)在打印奇數(shù)頁,按確定開始."?
For?i?=?1?To?Ps?Step?2?
ActiveSheet.PrintOut?from:=i,?To:=i?
Next?i??
MsgBox?"現(xiàn)在打印偶數(shù)頁,按確定開始."?
For?i?=?2?To?Ps?Step?2??????
ActiveSheet.PrintOut?from:=i,?To:=i?
Next?i?
End?Sub????????
16:自動打印多工作表第一頁???
Sub?自動打印多工作表第一頁()?
Dim?sh?As?Integer?
Dim?x?
Dim?y?
Dim?sy?
Dim?syz??
x?=?InputBox("請輸入起始工作表名字:")?
sy?=?InputBox("請輸入結(jié)束工作表名字:")?
y?=?Sheets(x).Index?
syz?=?Sheets(sy).Index?
For?sh?=?y?To?syz?
Sheets(sh).Select??
Sheets(sh).PrintOut?from:=1,?To:=1?
Next?sh?
End?Sub????????
17:查找A列文本循環(huán)插入分頁符???
Sub?循環(huán)插入分頁符()??
'?Selection?=?Workbooks("臨時表").Sheets("表2").Range("A1")?調(diào)用指定地址內(nèi)容???
Dim?i?As?Long?
Dim?times?As?Long??
times?=?Application.WorksheetFunction.CountIf(Sheet1.Range("a:a"),?"分頁")??????'times代表循環(huán)次數(shù),執(zhí)行前把times賦值即可(不可小于1,不可大于2147483647)?
For?i?=?1?To?times?
Call?插入分頁符?
Next?i?
End?Sub
Sub?插入分頁符()?????
Cells.Find(What:="分頁",?After:=ActiveCell,?LookIn:=xlValues,?LookAt:=?_?
xlPart,?SearchOrder:=xlByRows,?SearchDirection:=xlNext,?MatchCase:=False)?_?????????
.Activate??????
ActiveWindow.SelectedSheets.HPageBreaks.Add?Before:=ActiveCell?
End?Sub
Sub?取消原分頁()?????
Cells.Select??????
ActiveSheet.ResetAllPageBreaks?
End?Sub
18:將A列最后數(shù)據(jù)行以上的所有B列圖片大小調(diào)整為所在單元大小???
Sub?將A列最后數(shù)據(jù)行以上的所有B列圖片大小調(diào)整為所在單元大小()?????
Dim?Pic?As?Picture,?i??????
i?=?[A65536].End(xlUp).Row?????
For?Each?Pic?In?Sheet1.Pictures??????????
If?Not?Application.Intersect(Pic.TopLeftCell,?Range("B1:B"??i))?Is?Nothing?Then
?????????????Pic.Top?=?Pic.TopLeftCell.Top
?????????????Pic.Left?=?Pic.TopLeftCell.Left
??????????????Pic.Height?=?Pic.TopLeftCell.Height
?????????????Pic.Width?=?Pic.TopLeftCell.Width
?????????End?If
?????Next?
End?Sub
19:返回光標所在行數(shù)???
Sub?返回光標所在行數(shù)()?????
x?=?ActiveCell.Row?????
Range("A1")?=?x?
End?Sub????????
20:在A1返回當前選中單元格數(shù)量???
Sub?在A1返回當前選中單元格數(shù)量()?????
[A1]?=?Selection.Count?
End?Sub
21:返回當前工作簿中工作表數(shù)量
Sub?返回當前工作簿中工作表數(shù)量()?????
t?=?Application.Sheets.Count?????
MsgBox?t?
End?Sub????????
?
????
93:B列錄入數(shù)據(jù)時在A列返回記錄時間(工作表代碼)
Public?Sub?Worksheet_Change(ByVal?Target?As?Range)?
If?Target.Column?=?2?Then?
Target.Offset(,?-1)?=?Now?
End?If?
End?Sub????????
94:當指定區(qū)域修改時在其右側(cè)的2個單元返回當前日期和時間(工作表代碼)???
Public?Sub?Worksheet_Change(ByVal?Target?As?Range)??
If?Not?Application.Intersect(Target,?[A1:A1000])?Is?Nothing?Then?
If?Target.Column?=?1?Then?
Target.Offset(,?1)?=?Date?
Target.Offset(,?2)?=?Time?
End?If?
End?If?
End?Sub???
Public?Sub?Worksheet_Change(ByVal?Target?As?Range)??
If?Not?Application.Intersect(Target,?[A1:A1000])?Is?Nothing?Then?
If?Target.Column?=?1?Then??
Target.Offset(,?1)?=?Format(Now(),?"yyyy-mm-dd")?
Target.Offset(,?2)?=?Format(Now(),?"h:mm:ss")?
End?If?
End?If?
End?Sub????????
95:指定單元顯示光標位置內(nèi)容(工作表代碼)???
Private?Sub?Worksheet_SelectionChange(ByVal?T?As?Range)?
Sheets(1).Range("A1")?=?Selection?
End?Sub????????
96:每編輯一個單元保存文件???
Private?Sub?Worksheet_Change(ByVal?Target?As?Range)?
ThisWorkbook.Save?
End?Sub????????
97:指定允許編輯區(qū)域
Sub?指定允許編輯區(qū)域()??
ActiveSheet.ScrollArea?=?"B8:G15"?
End?Sub????????
98:解除允許編輯區(qū)域限制???
Sub?解除允許編輯區(qū)域限制()?
ActiveSheet.ScrollArea?=?""?
End?Sub????????
99:刪除指定行???
Sub?刪除指定行()??
Workbooks("臨時表").Sheets("表2").Range("5:5").Delete?
End?Sub????????
100:刪除A列為指定內(nèi)容的行???
Sub?刪除A列為指定內(nèi)容的行()?
Dim?a,?b?As?Integer??
a?=?Sheet1.[a65536].End(xlUp).Row????
For?b?=?a?To?2?Step?-1????????
If?Cells(b,?1).Value?=?"刪除"?Then??????????
Rows(b).Delete???????
End?If????
Next?
End?Sub
關于vba編程代碼大全百度網(wǎng)盤和vba編程入門教程pdf的介紹到此就結(jié)束了,不知道你從中找到你需要的信息了嗎 ?如果你還想了解更多這方面的信息,記得收藏關注本站。
掃描二維碼推送至手機訪問。
版權聲明:本文由飛速云SEO網(wǎng)絡優(yōu)化推廣發(fā)布,如需轉(zhuǎn)載請注明出處。