這篇文章給大家聊聊關(guān)于隨機數(shù)字表怎么讀取,以及表格隨機生成指定范圍數(shù)字對應(yīng)的知識點,希望對各位有所幫助,不要忘了收藏本站哦。
怎么從excel中隨機抽取數(shù)據(jù)
1。如何實現(xiàn)VB與EXCEL的無縫連接
VB是常用的應(yīng)用軟件開發(fā)工具之一,由于VB的報表功能有限,而且一旦報表格式發(fā)生變化,就得相應(yīng)修改程序,給應(yīng)用軟件的維護(hù)工作帶來極大的不便。因為有很多程序員現(xiàn)在已經(jīng)充分利用Excel的強大報表功能來實現(xiàn)。
但由于VB與Excel分別屬于不同的應(yīng)用系統(tǒng),如何把它們有機地結(jié)合在一起,是一個值得我們研究的課題。
筆者在軟件開發(fā)工作中,對VB的自動化功能和Excel的宏功能進(jìn)行了一定的研究,實現(xiàn)了VB與Excel的有機結(jié)合?,F(xiàn)提出來與大家探討。
一、VB讀寫Excel表
VB本身的自動化功能可以讀寫Excel表,其方法如下:
1、在工程中引用MicrosoftExcel類型庫:
從“工程”菜單中選擇“引用”欄;選擇MicrosoftExcel9。
0ObjectLibrary(Excel2000),然后選擇“確定”。表示在工程中要引用Excel類型庫。
2、在通用對象的聲明過程中定義Excel對象:
DimxlAppAsExcel。Application
DimXlBookAsExcel。
WorkBook
DimxlSheetAsExcel。Worksheet
3、在程序中操作Excel表常用命令:
SetxlApp=CreateObject(“Excel。Application”)’創(chuàng)建Excel對象
SetXlBook=xlApp。
Workbooks。Open(“文件名”)’打開已經(jīng)存在的Excel工作薄文件
xlApp。Visible=True’設(shè)置Excel對象可見(或不可見)
SetxlSheet=xlBook。Worksheets(“表名”)
xlSheet。
Cells(row,col)=值’給單元格(row,col)賦值
xlSheet。PrintOut’打印工作表
xlBook。CloseTrue’關(guān)閉工作薄
xlApp。Quit’結(jié)束Excel對象
SetxlApp=Nothing’釋放xlApp對象
xlBook。
RunAutoMacrosxlAutoOpen’運行Excel啟動宏
xlBook。RunAutoMacrosxlAutoClose’運行Excel關(guān)閉宏
4、在運用以上VB命令操作Excel表時,除非設(shè)置Excel對象不可見,否則VB程序可繼續(xù)執(zhí)行其它操作,也能夠關(guān)閉Excel,同時也可對Excel進(jìn)行操作。
但在Excel操作過程中關(guān)閉Excel對象時,VB無法知道,如果此時使用Excel對象,則VB程序會出現(xiàn)自動化錯誤,形成VB程序無法完全控制Excel狀況,使得VB與Excel脫節(jié)。
二、Excel的宏功能
Excel提供了一個VisualBasic編輯器,打開VisualBasic編輯器,其中有一工程屬性窗口,點擊右鍵菜單的“插入模塊”,則增加一個“模塊1”,在此模塊中可以運用VisualBasic語言編寫函數(shù)和過程并稱之為宏。
其中,Excel有兩個自動宏:一個是啟動宏(SubAuto_Open()),另一個是關(guān)閉宏(SubAuto_Close())。它們的特性是:當(dāng)用Excel打開含有啟動宏的工作薄時,就會自動運行啟動宏,同理,當(dāng)關(guān)閉含有關(guān)閉宏的工作薄時就會自動運行關(guān)閉宏。
但是通過VB的自動化功能來調(diào)用Excel工作表時,啟動宏和關(guān)閉宏不會自動運行,而需要在VB中通過命令xlBook。RunAutoMacros(xlAutoOpen)和xlBook。RunAutoMacros(xlAutoClose)來運行啟動宏和關(guān)閉宏。
三、VB與Excel的相互溝通:
充分利用Excel的啟動宏和關(guān)閉宏,可以實現(xiàn)VB與Excel的相互溝通,其方法如下:
在Excel的啟動宏中加入一段程序,其功能是在磁盤中寫入一個標(biāo)志文件,同時在關(guān)閉宏中加入一段刪除此標(biāo)志的程序。
VB程序在執(zhí)行時通過判斷此標(biāo)志文件存在與否來判斷Excel是否打開,如果此標(biāo)志文件存在,表明Excel對象正在運行,應(yīng)該禁止其它程序的運行。如果此標(biāo)志文件不存在,表明Excel對象已被關(guān)閉,此時如果要使用Excel對象運行,必須重新創(chuàng)建Excel對象。
四、舉例
1、在VB中,建立一個FORM,在其上放置兩個命令按鈕,將Command1的Caption屬性改為Excel,Command2的Caption屬性改為End。然后在其中輸入如下程序:
DimxlAppAsExcel。
Application'定義Excel類
DimxlBookAsExcel。Workbook'定義工作薄類
DimXlSheetAsExcel。Worksheet'定義工作表類
PrivateSubCommand1_Click()'打開Excel過程
IfDir(“D:\temp\”)=“”Then'判斷Excel是否打開
SetxlApp=CreateObject(“Excel。
Application”)'創(chuàng)建Excel應(yīng)用類
xlApp。Visible=True'設(shè)置Excel可見
SetxlBook=xlApp。Workbooks。Open(“D:\temp\bb。xls”)'打開Excel工作薄
SetxlSheet=xlBook。
Worksheet(1)'打開Excel工作表
xlSheet。Activate'激活工作表
xlSheet。Cells(1,1)=“abc”'給單元格1行駛列賦值
xlBook。RunAutoMacros(xlAutoOpen)'運行Excel中的啟動宏
Else
MsgBox(“Excel已打開”)
EndIf
EndSub
PrivateSubCommand2_Click()
IfDir(“D:\temp\”)<>“”Then'由VB關(guān)閉Excel
xlBook。
RunAutoMacros(xlAutoClose)'執(zhí)行Excel關(guān)閉宏
xlBook。Close(True)關(guān)閉Excel工作薄
xlApp。Quit'關(guān)閉Excel
EndIf
SetxlApp=Nothing'釋放Excel對象
End
EndSub
2、在D盤根目錄上建立一個名為temp的子目錄,在temp目錄下建立一個名為“bb。
xls”的Excel文件。
3、在“bb。xls”中打開VisualBasic編輯器,在工程窗口中點鼠標(biāo)鍵選擇插入模塊,在模塊中輸入以下程序存盤:
Subauto_open()
Open“d:\temp\”ForOutputAs#1
Close#1
EndSub
Subauto_close()
Kill“d:\temp\”
EndSub
4、運行VB程序,點擊Excel按鈕可以打開Excel系統(tǒng),打開Excel系統(tǒng)后,VB程序和Excel分別屬兩個不同的應(yīng)用系統(tǒng),均可同時進(jìn)行操作,由于系統(tǒng)加了判斷,因此在VB程序中重復(fù)點擊Excel按鈕時會提示Excel已打開。
如果在Excel中關(guān)閉Excel后再點Excel按鈕,則會重新打開Excel。而無論Excel打開與否,通過VB程序均可關(guān)閉Excel。這樣就實現(xiàn)了VB與Excel的無縫連接。
2。用VB。NET結(jié)合Excel設(shè)計統(tǒng)計生產(chǎn)報表
用EXCEL做企業(yè)生產(chǎn)報表的理由
Excel表格生成和公式設(shè)置十分強大便利,是一個強有力的信息分析與處理工具。
特別是EXCEL的公式、函數(shù)、VBA語言,功能極其強大。我試用過其他電子表格軟件,在功能上和EXCEL根本沒有可比性。
VisualStudio,NET也同樣是MicroSoft的產(chǎn)品,VisualStudio,NET調(diào)用EXCEL做企業(yè)報表十分方便。
證明當(dāng)時我選VisualStudio,NET作為首選開發(fā)工具是正確的。
軟件構(gòu)思
先在EXCEL里定制好名為《統(tǒng)計表》的樣表(模版),,在樣表中設(shè)置好各種格式,填寫好固定項。
在窗體上放很三個控件,兩個DateTimePicker控件,用來選擇開始統(tǒng)計時間和結(jié)束統(tǒng)計時間。
一個Button以啟動程序。
軟件欲實現(xiàn)的功能是:點擊Button1,自動查找符合日期符合日期范圍的生產(chǎn)計劃工作表,然后利用SortedList統(tǒng)計各個辦事處的計劃數(shù)量和未完成數(shù)量,及各個產(chǎn)品型號的計劃數(shù)量和未完成數(shù)量。再把SortedList的數(shù)據(jù)讀出寫到《統(tǒng)計表》中。
這里要注意的是,各個生產(chǎn)報表格式必須規(guī)范統(tǒng)一,因為程序是按照固定單元格位置讀取數(shù)據(jù)的。
SortedList類
除了具備VB,NET調(diào)用EXCEL的基礎(chǔ)知識外,本例主要用到SortedList類。
SortedList類表示鍵/值對的集合,這些鍵和值按鍵排序并可按照鍵和索引訪問。
SortedList是Hashtable和Array的混合。當(dāng)使用Item索引器屬性按照元素的鍵訪問元素時,其行為類似于Hashtable。當(dāng)使用GetByIndex或SetByIndex按照元素的索引訪問元素時,其行為類似于Array。
SortedList在內(nèi)部維護(hù)兩個數(shù)組以將數(shù)組存儲到列表中;即,一個數(shù)組用于鍵,另一個數(shù)組用于相關(guān)聯(lián)的值。每個元素都是一個可作為DictionaryEntry對象進(jìn)行訪問的鍵/值對。鍵不能為空引用(VisualBasic中為Nothing),但值可以。
SortedList的容量是列表可擁有的元素數(shù)。隨著向SortedList中添加元素,容量通過重新分配按需自動增加??赏ㄟ^調(diào)用TrimToSize或通過顯式設(shè)置Capacity屬性減少容量。
SortedList的元素將按照特定的IComparer實現(xiàn)(在創(chuàng)建SortedList時指定)或按照鍵本身提供的IComparable實現(xiàn)并依據(jù)鍵來進(jìn)行排序。
不論在哪種情況下,SortedList都不允許重復(fù)鍵。
VB,NET結(jié)合EXCEL統(tǒng)計生產(chǎn)報表
以下是實現(xiàn)代碼,供參考。為方便初學(xué)者,部份地方加以注釋。
現(xiàn)在讓我們來試用一下,先選擇開始統(tǒng)計時間和結(jié)束統(tǒng)計時間,點擊Button1,程序就自動統(tǒng)計出各個辦事處的及各個產(chǎn)品的有關(guān)計劃數(shù)量及未完成數(shù)量,是不是很方便。
。
隨機數(shù)表的讀數(shù)規(guī)則
1、統(tǒng)一編號。
即將總體中的所有研究對象進(jìn)行統(tǒng)一編號,做成簽。如果研究對象是10以內(nèi)的,只取1位數(shù),則編號是1~9;如果研究對象在1~99之間的,取2位數(shù),則編號是01~99。
2、確定行名。
研究人員根據(jù)自己的需要或意愿,在表上任選一行數(shù)字,由該行數(shù)字決定起點行的數(shù)。如選擇25行,即從上往下第25行為起點行。若選擇的數(shù)大于50,則用該數(shù)減去50,將所得余數(shù)為起點行。若選擇0或00行,則以第50行為起點行。
艾科精益血糖儀怎么校準(zhǔn)
第一插入血糖試紙。
第二插入血糖試紙后,血糖儀會顯示出條碼,把條碼和血糖試紙盒上條碼對比,如果兩個條碼一樣不用要調(diào)整,如果不一致,按血糖儀主鍵,將血糖儀條碼調(diào)整到跟試紙條碼一個數(shù)字。
第三隨機選擇一個手指,用酒精消毒,扎手指,去掉第一滴血,收集第二滴血,讀取血糖數(shù)值。一般重新?lián)Q試紙才需要校正血糖儀。
seeknature雙向直播小蜜蜂怎么用
要使用Seeknature雙向直播小蜜蜂,首先需要下載并安裝Seeknature應(yīng)用程序。然后,注冊一個賬戶并登錄。在應(yīng)用程序中,您可以選擇參與直播或發(fā)起自己的直播。
如果您想?yún)⑴c直播,可以瀏覽不同的直播內(nèi)容并選擇您感興趣的直播間。
您可以與主播進(jìn)行實時互動,例如發(fā)送消息、點贊或提問。
如果您想發(fā)起自己的直播,可以點擊“發(fā)起直播”按鈕,選擇直播主題并設(shè)置直播參數(shù)。
在直播過程中,您可以與觀眾進(jìn)行互動,并分享您的知識、經(jīng)驗或興趣愛好。記得保持良好的網(wǎng)絡(luò)連接和清晰的攝像頭畫質(zhì),以提供最佳的直播體驗。
c語言隨機時間函數(shù)怎么用
在C語言中,可以使用`time`函數(shù)和`rand`函數(shù)結(jié)合使用來生成隨機時間。
首先,通過`time(NULL)`獲取當(dāng)前時間的秒數(shù)作為種子,然后使用`srand`函數(shù)將種子傳遞給隨機數(shù)生成器。接下來,使用`rand`函數(shù)生成一個隨機數(shù),將其與某個時間范圍的秒數(shù)進(jìn)行取模運算,再加上該時間范圍的起始時間,即可得到一個隨機時間。這樣做的原因是通過使用時間作為種子,可以使得每次程序運行時生成的隨機數(shù)序列都不同,從而實現(xiàn)隨機時間的生成。
OK,本文到此結(jié)束,希望對大家有所幫助。