在excel中不包含一些單元格數(shù)值的隨機(jī)數(shù)方法介紹

excel是辦公尤其是處理數(shù)據(jù)的一個(gè)好幫手,他能給需要進(jìn)行各類(lèi)數(shù)據(jù)處理提供很強(qiáng)大的支持,這是我在工作中遇到的一個(gè)問(wèn)題,是這樣的,比如有兩個(gè)單元格有固定值,而另外還有一個(gè)單元格需要取隨機(jī)數(shù),但又要求不要和那兩個(gè)有固定值得單元格重復(fù)。如何取呢?隨機(jī)函數(shù)?rand()和randbetween()都可以,但是一時(shí)間還真想不出滿足要求的寫(xiě)法。于是我想用VBA編寫(xiě)也許更簡(jiǎn)單。于是就有了下文。
工具/原料
硬件:滿足允許要求的電腦
軟件:Office excel(我這里用的是Excel 2013版)
方法/步驟
這里為了方便驗(yàn)證,我們將隨機(jī)數(shù)值盡量取小一點(diǎn),如果你要大一些的隨機(jī)數(shù),可以修改程序。
設(shè)在D1單元格里取隨機(jī)數(shù)(1——5之間),A1、B1單元格為有固定數(shù)值的單元格,當(dāng)然數(shù)值范圍也在1——5直接,否則毫無(wú)意義。
要編寫(xiě)VBA,首先就要打開(kāi)VBA,打開(kāi)VBA的方法不止一種,這里我們就使用最簡(jiǎn)單最快捷的方式,使用快捷鍵吧。按“Alt+F11”打開(kāi)VBA窗口。VBA窗口右側(cè)子窗口就是輸入代碼用的。
輸入代碼,如下:
Public Sub btsj()Dim sjd As Range Set sjd = Range("D1")line1: sjd.ClearContents Randomize sjd = Int(Rnd * 5 + 1) If sjd = Range("A1") Or sjd = Range("B1") ThenGoTo line1End IfEnd Sub
完成后就可以試運(yùn)行并保存,運(yùn)行是那個(gè)小三角,好像播放圖標(biāo)一樣的,保存的圖標(biāo)不用多說(shuō)。點(diǎn)擊小三角圖標(biāo)后可能會(huì)彈出一個(gè)窗口,再點(diǎn)擊運(yùn)行即可。
為了快速驗(yàn)證,我們可以給宏加上快捷鍵,如圖所示,這里我們給它設(shè)置快捷鍵“Ctrl+s”,現(xiàn)在我們只要按Ctrl+s就可以快速運(yùn)行該宏/程序了。
注意事項(xiàng)
編寫(xiě)VBA程序的時(shí)候要細(xì)心,如果有錯(cuò)誤提示,需要理性分析,耐心檢查。
以上就是在excel中不包含一些單元格數(shù)值的隨機(jī)數(shù)方法介紹,大家學(xué)會(huì)了嗎?希望能對(duì)大家有所幫助!
相關(guān)文章
陽(yáng)歷/農(nóng)歷轉(zhuǎn)換對(duì)照表怎么做? Excel制作日歷表/萬(wàn)年歷的最終版
想要制作陽(yáng)歷/農(nóng)歷轉(zhuǎn)換對(duì)照表,,通過(guò)這個(gè)對(duì)照表,你只需知道陽(yáng)歷日期,就可以快速準(zhǔn)確的找到對(duì)應(yīng)的農(nóng)歷日期,下面我們就來(lái)看看詳細(xì)制作方法2025-04-10三分鐘就搞定! Excel快速制作一個(gè)日歷表/萬(wàn)年歷的技巧
工作上需要制作一個(gè)日歷表/萬(wàn)年歷,該怎么制作呢?我們需要使用三個(gè)excel函數(shù)來(lái)實(shí)現(xiàn),詳細(xì)請(qǐng)看下文介紹2025-04-10這個(gè)函數(shù)公式簡(jiǎn)直太強(qiáng)了! excel按權(quán)重求和計(jì)算的技巧
Excel中有一個(gè)功能非常強(qiáng)大的函數(shù),它就是SUMPRODUCT函數(shù),既能求和、計(jì)數(shù)、權(quán)重計(jì)算,還能排名等,今天我們就來(lái)看看Excel根據(jù)權(quán)重求和的技巧2025-04-10tocol函數(shù)哪個(gè)版本能用? excel中tocol函數(shù)的兩種高級(jí)用法
TOCOL函數(shù)公式非常強(qiáng)大,值得一學(xué),從字面意義可以理解出來(lái),它是將數(shù)據(jù)轉(zhuǎn)換成一列的,今天分享TOCOL函數(shù)的2種高級(jí)用法2025-04-10Excel隱藏行和折疊行有什么不同? 隱藏行和折疊使用方法和區(qū)別介紹
excel表格進(jìn)行操作的時(shí)候,發(fā)現(xiàn)有隱藏和和折疊行,看上去效果一樣,都隱藏了,但是兩者是有很大區(qū)別的,詳細(xì)請(qǐng)看下文介紹2025-03-21Excel工齡計(jì)算不再愁! Excel隱藏函數(shù)DATEDIF輕松計(jì)算精確到天級(jí)的工齡
在日常工作中,我們經(jīng)常需要計(jì)算員工的工齡,以便進(jìn)行人事管理、薪資調(diào)整等工作,本文將詳細(xì)介紹如何在Excel表格中計(jì)算工齡,并提供多種實(shí)用方法供您選擇2025-03-13快速提高工作效率! Excel高手的8個(gè)技巧勸你學(xué)學(xué)
Excel數(shù)據(jù)處理遇到的問(wèn)題,99%都是由于奇葩的數(shù)據(jù)格式造成的,今天跟大家整理了幾個(gè)Excel表格構(gòu)建的規(guī)則,先不要問(wèn)為什么,照著做就對(duì)了2025-03-06Excel透視表1月到12月不能排序怎么辦? 數(shù)據(jù)透視表日期無(wú)法排序解決方法
如圖對(duì)數(shù)據(jù)透視表日期進(jìn)行升序排序后,仍不是我們想要的結(jié)果,有可能月份是文本,不能排列,下面我們就來(lái)看看詳細(xì)解決辦法2025-03-06財(cái)務(wù)審計(jì)必會(huì)! 2分鐘搞定用excel做賬齡劃分的技巧
首先咱們得明確一下賬齡的概念,簡(jiǎn)單來(lái)說(shuō),賬齡就是某個(gè)賬戶的余額從產(chǎn)生到現(xiàn)在的時(shí)間長(zhǎng)度,比如,一年以?xún)?nèi)的賬齡就是那些在過(guò)去一年內(nèi)產(chǎn)生的債權(quán)或債務(wù),下面我們就來(lái)看看2025-03-06實(shí)現(xiàn)辦公自動(dòng)化! DeepSeek搭配Excel制作自定義按鈕的技巧
DeepSeek生成想要的代碼很方便,如果將生成的代碼放到excel中作為vba代碼使用,豈不是能實(shí)現(xiàn)辦公自動(dòng)化?下面我們就來(lái)看看實(shí)現(xiàn)方法2025-03-05