Add Name:="Sheet1!MyName1", RefersTo:="=Sheet1!$B$2:$D$6"上面的代碼在工作表Sheet1中將單元格區(qū)域B2:D6命名為MyName1，該名稱為局部名稱。④把其它表的單元格區(qū)域命名為當(dāng)前工作表的區(qū)域。Name = "Sheet2!MyName5"或者：Worksheets("sheet2").Names.Add Name:="MyName5", RefersTo:="=Sheet1!$E$6:$F$8"上面的代碼在工作表Sheet2中命名工作表Sheet1中單元格區(qū)域E6:F8為MyName5，該名稱為Sheet2中的局部名稱。

Add Name:="Sheet1!MyName1", RefersTo:="=Sheet1!$B$2:$D$6"上面的代碼在工作表Sheet1中將單元格區(qū)域B2:D6命名為MyName1，該名稱為局部名稱。④把其它表的單元格區(qū)域命名為當(dāng)前工作表的區(qū)域。Name = "Sheet2!MyName5"或者：Worksheets("sheet2").Names.Add Name:="MyName5", RefersTo:="=Sheet1!$E$6:$F$8"上面的代碼在工作表Sheet2中命名工作表Sheet1中單元格區(qū)域E6:F8為MyName5，該名稱為Sheet2中的局部名稱。

最近在研究使用Nhibernate,為寫大量打代碼和映射搞得頭痛。由于以前使用過動軟代碼生成器他的代碼生成功能和模板定制功能都很強大，所以決定基于動軟代碼生成器寫個模板。將壓縮包內(nèi)的Nhibernate文件夾放到 動軟代碼生成器 安裝目錄\Template\TemplateFile目錄下面好了，運行 動軟代碼生成器，在模板管理就能看到Nhibernate文件夾及2個模板文件。3.批量生成代碼文件右擊數(shù)據(jù)庫或者表，選擇"模板代碼批量生成"

對于有關(guān) Copy 方法的從 Visual Basic 編輯器中的詳細信息單擊 Office 助手，類型 復(fù)制方法，單擊 搜索，然后單擊查看 "Copy 方法 (Excel 97)。

代碼段一：運行速度較慢的代碼。Sub testSlow()Dim DataRange As RangeDim Irow As LongDim Icol As IntegerDim MyVar As DoubleSet DataRange = Range("A1:C10000") For Irow = 1 To 10000For Icol = 1 To 3MyVar = DataRange(Irow, Icol) ''從Excel單元格中讀取值30K次If MyVar >0 ThenMyVar = MyVar * MyVar '' 改變值DataRange(Irow, Icol) = MyVar ''將值寫入Excel單元格中30000次End IfNext IcolNext IrowEnd Sub.

excel運行緩慢excel運行緩慢50[ 標(biāo)簽：excel,xsl ] 我以前用的excel2003版本，用著用著突然運行緩慢，一個步驟要很久才能完成，重新裝了excel2007版后，有一點好轉(zhuǎn)，但還是運行不流暢，其他程序沒有這種現(xiàn)象，跪求高手解決問題。公式和名稱較多或者公式，名稱，數(shù)據(jù)透視表等所引用的單元格范圍過大 由于和第二點類似的原因，我們在定義名稱，編寫公式，指定數(shù)據(jù)透視表的數(shù)據(jù)源時往往圖一時方便，而指定了過大的單元格范圍。

------解決方案--------------------------------------------------------NavigateURL=detail.aspx?stuno={0}

ASP.NET中使用AJAX時如何彈出對話框[轉(zhuǎn)]以上代碼的效果就是當(dāng)用戶點擊Button1按鈕，將會彈出一個對話框。// 在此處放置用戶代碼以初始化頁面 this.Button1.Attributes.Add("onclick","javascript:showmessagebox();"）;}# re: ASP.NET中如何彈出對話框 回復(fù) 更多評論 2007-02-25 13:20 by Hatter Jiang 不要用"Response.Write"，這樣產(chǎn)生的HTML會VALIDATE不過，應(yīng)該使用："RegisterStartupScript"方法！

net下利用js實現(xiàn)返回上一頁的實現(xiàn)方法小集net下利用js實現(xiàn)返回上一頁的實現(xiàn)方法小集 　　方法一：Response.write("<script language=javascript>history.go(-2);</script>)Redirect(ViewState["UrlReferrer"].1. 如果上一頁面使用document.location方法導(dǎo)航到當(dāng)前頁面，Request.UrlReferrer返回空值。2. 如果有A,B兩個頁面，在瀏覽器中直接請求A頁面，在A頁面的中Page_Load事件中導(dǎo)航到B 頁面，則 Request.UrlReferrer返回空。

Function SendEmail(ByVal sMail As String, ByVal sSubject As String, ByVal sBody As String, sAtt As String) Dim olApp As Object Dim olNameSpace As Object Dim olFolder As Object Dim olMail As Object Set olApp = CreateObject("Outlook.Application") Set olNameSpace = olApp.Sub sendmail() Dim emailArr() Dim r As Long, subject As String r = Worksheets("mail").

RS1.

解決　不可識別的數(shù)據(jù)庫格式 ''J:\ceshi 解決　不可識別的數(shù)據(jù)庫格式 ''J:\ceshi_paixu\class.accdb''。

1、數(shù)據(jù)庫打開/關(guān)閉方法的選擇　　在通常情況下，數(shù)據(jù)庫的打開操作是在程序代碼中使用OpenDatabase方法實現(xiàn)，其格式如下：Set database=workspace.OpenDatabase(dbname,options,readonly,connect)可以通過指定數(shù)據(jù)庫名字、打開方式、連接信息等參數(shù)打開一個現(xiàn)已存在的數(shù)據(jù)庫，使用Close方法即可關(guān)閉該數(shù)據(jù)庫。

用VBA如何實現(xiàn)在exce的工作表中對數(shù)據(jù)庫的讀寫 - 『 VBA交流 』 - OFFIC...出自EXCELHOME.看看下面一個實例：Sub opendb()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetSet cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=pubs"rs.Open "select * from authors", cnRange("a1").CopyFromRecordset rsRs.closecn.CloseEnd Sub.

Excel 設(shè)置工作表滾動區(qū)域　　1.ScrollArea屬性　　使用工作表的ScrollArea屬性來控制顯示的單元格位置，其語法格式如下：　　工作表.ScrollArea="單元格區(qū)域"　　該屬性將以A1樣式的區(qū)域引用形式返回或設(shè)置允許滾動的區(qū)域。Names集合對象　　　　在Excel中，可使用行列號來引用單元格，也可使用"插入"│"名稱"命令來對單元格區(qū)域進行命名，然后在公式或VBA代碼中使用名稱來引用相關(guān)單元格。

如何在Excel中用VBA實現(xiàn)定時提醒功能如何在Excel中用VBA實現(xiàn)定時提醒功能211購物 / 2010-10-09在Excel中VBA的應(yīng)用很多，今天我們將利用VBA設(shè)置提醒。2．執(zhí)行菜單欄中的"工具"->"宏"->"Visual Basic編輯器"命令，進入VBA編輯狀態(tài)。3．在"工程資源管理器"窗口中，選中"VBAProject（提醒.xls）"選項，然后執(zhí)行菜單欄中的"插入"->"模塊"命令，插入一個名為"模塊1"的新模塊。5．在"提醒"模塊的代碼窗口中輸入如下所示的代碼：

EXCEL的運行參數(shù)： 1. 找到OFFICE安裝目錄下的EXCEL.EXE文件，發(fā)送快捷方式到桌面，修改快捷方式的目標(biāo)為："D:\Program Files\Microsoft Office\Office\EXCEL.EXE" E:\support\tianshi.xls （即在原目標(biāo)后加" E:\support\tianshi.xls "，注意有一個空格）。

個性化excel標(biāo)題欄 　 Sub SetCaption() Application.Caption = "XXXX信息管理系統(tǒng)" ActiveWindow.Caption = vbNullStringEnd Sub.Sub RestoreCaption() Application.Caption = vbNullString ActiveWindow.Caption = ActiveWorkbook.NameEnd Sub.

Excel VBA中ColorIndex值與實際顏色對照表。