EXCEL之VBA應用實例-自動生成指定數量隨機手機號

2020-12-16 事事樂分享

可以把下面的代碼直接複製到VBA編輯器裡測試

Sub 生成隨機手機號()

r = Selection.Row 『獲取當前選擇的單元格的行號，如果選擇的是一個區域則返回左上角第一個單元格的行號

col = Selection.Column '獲取當前選擇的單元格的列號，如果選擇的是一個區域則返回左上角第一個單元格的列號

d = InputBox("請輸入要生成的手機號數量：") '彈出一個輸入框並把輸入的值賦值給變量d

nd = IsNumeric(d) '判斷變量d是不是數值，並把結果賦值給變量nd，如果是數值返回true,如果不是數值返回flase

If d = "" Or nd = flase Then '如果輸入的值為空或不是數值則

MsgBox ("你沒有輸入數據或輸入的不是數值") '彈出一個警告框

Exit Sub '並退出當前程序塊

End If 'If語句結束

Randomize '以當前計時器初始化隨機生成器

For t = 1 To d '循環語句開始，從選擇的單元格開始生成隨機手機號，循環的次數是從1到變量d，d是上面輸入框輸入的數值,後面不帶參數step，默認步進值為1，就是每循環一次，自動+1，並把當前值賦值給變量t

'定義一批用於生成從0到9的隨機整數

aa = Int(Rnd() * 9)

ab = Int(Rnd() * 9)

ac = Int(Rnd() * 9)

ad = Int(Rnd() * 9)

ae = Int(Rnd() * 9)

af = Int(Rnd() * 9)

ag = Int(Rnd() * 9)

ah = Int(Rnd() * 9)

ai = Int(Rnd() * 9)

'Cells(行，列)是單元格的表示方式，下面是用變量代替不確定的行號和列號，.value是單元格的屬性代表其內容，後面的「13」是以13開頭的字符串，這個雙引號"",也可以不寫代表數字，也就是說連字符&是可以把字符和數字等不同類型的數值連成一個字符串的，後面用&連接的幾個變量就是要生成的隨機數，每循環一次就有一個新的隨機數。

Cells(r, col).value = "13" & aa & ab & ac & ad & ae & af & ag & ah & ai

'變量r在這裡是代表行，每循環一次r=r+1，也就是往下一行，這裡列變量col一直不變，就是同一列一行一行往下填充，直到輸入的次數為止。

r = r + 1

Next

End Sub

相關焦點

  • 收藏 | 27個Excel vba實例匯總(附贈VBA教程)
    ，方便以後的查詢和使用，大致分類如下：單元格操作實例（1）- 批量製作工資表頭實例（5）- 快速合併n多個相同值的單元格實例（9）- 批量插入、刪除表格中的空行實例（11）- 拆分單元格並自動填充實例（12）- 如何合併多個單元格而不丟失單元格的數據？
  • EXCEL之VBA應用實例-用數組生成隨機中文名
    Sub 數組方法生成隨機姓名()Dim arrNDim arrX 『定義了兩個變量名，還有幾個變量沒有定義，專家說雖然變量沒有定義也可以直接賦值使用，但建議最好全部都定義，並且指定相應類型，我們這些非專業的業餘愛好者沒那麼講究，還有變量的命令最好也有一定的規則
  • 隨機生成數據的幾個小技巧,rand函數的應用
    我們在日常工作中，有時候使用excel表格隨機生成數據，下面我們就分享一下隨機函數rand的使用技巧。rand函數可以生成0-1之間的隨機函數（包含小數位數）。我們大部分人都只使用rand函數的基礎應用，就是在excel單元格內輸入=rand(),然後按enter鍵，即可生成隨機數，按F9鍵可以自動刷新。如果我們覺得0-1之間這個數值不能夠滿足我們的需求，我們也讓他放大使用公式=rand()*100，加上*100也就擴大100倍的隨機數。假如我們需要要給這個隨機函數生成的隨機數指定一個範圍，那我們可以使用=rand()*(B-A)+A。
  • excel隨機數函數是什麼?excel怎樣生成隨機數?
    本篇將介紹excel隨機數函數是什麼？excel怎樣生成隨機數？有興趣的朋友可以了解一下！一、前言excel是我們工作中很常用的一款表格製作工具，它不僅僅只是用來製作表格，它還能對表格中的數據進行處理（比如：運算、排序、篩選等）。
  • excel VBA是什麼?VBA編程入門教程
    本篇將介紹excel vba是什麼？vba編程入門教程，有興趣的朋友可以了解一下！一、excel vba是什麼？VBA的英文全稱是Visual Basic for Applications，是一門標準的宏語言。VBA語言不能單獨運行，只能被office軟體（如：Word、Excel等）所調用。
  • 巧用EXCEL快速生成指定位數的隨機密碼
    要批量生成隨機密碼，其實也不複雜，我們可以根據具體要求，通過對EXCEL中CHAR、INT、RAND三個函數的組合應用，就可以輕鬆實現。【隨機生成1個小寫字母】如圖，在B2單元格輸入公式：=CHAR(INT(RAND()*26+97))，向下填充複製公式，即可。
  • Excel vba工作表事件【實現快速自動隱藏工作表】
    就可以實現，隱藏哪一個工作表，選中哪一個工作表後面的狀態後，工作表自動隱藏或者不隱藏。nbsp;   NextEnd Sub當然，工作表事件還有很多方面的應用實例關注公眾號，帶你每日學習VBA，從枯燥機械的工作中解放雙手。
  • 用Excel VBA將生產工藝流程圖形化
    這兩天接觸到一個非常有趣而實在的應用：如何將一些複雜而錯綜的流程，先用文字描述出來，寫好從屬關係，進而自動生成流程圖、組織機構圖等。 具體的需求是：將BOM表裡面的工藝流程，通過網絡Excel平臺的取數功能，直接組合成一個帶有流程標識的文字，如：主01 DWG01 長U管自動彎管 60"/臺，次1-1 CCZ01 高速衝片 120"/臺。
  • excel隨機取整函數：如何快速生成低齡口算算式
    在excel界流傳著這樣一句話「excel除了不能生孩子，其他的事情都能幹」。雖然看著有點誇張，但這也足以反映出excel的強大之處。今天我們的苗老師將給大家分享一個用excel教孩子學算術的小技巧，是不是很好奇呢？趕緊來看看吧！
  • excel隨機取整函數:如何快速生成低齡口算算式
    在excel界流傳著這樣一句話「excel除了不能生孩子，其他的事情都能幹」。雖然看著有點誇張，但這也足以反映出excel的強大之處。今天我們的苗老師將給大家分享一個用excel教孩子學算術的小技巧，是不是很好奇呢？趕緊來看看吧！
  • Excel自動生成考勤表,出勤天數隨機,出勤日期分布隨機
    給定出勤天數的範圍，用Excel自動隨機生成指定範圍內的考勤表，相信這個功能對於很多人來說非常實用。如圖，這是考勤表的樣式，我們在對應姓名和日期的格子內打「√」號表示出勤，打「×」號表示未出勤。要求總天數為30天，隨機生成出勤天數在20至26天的考勤表，使每個人的出勤天數都在20至26天以內且隨機分布，下面我們來看一下如何實現這個功能。
  • 「Python替代Excel Vba」系列(終):vba中調用Python
    請關注本號，後續會有更多相關教程。系列文章而上述命令行只是把這個 xlam 文件放入你的 excel 加載項目錄中而已。然後，在你的任意目錄中打開命令行。執行以下語句，即會生成一個 py 文件和一個 帶宏的 excel 文件。
  • Split函數應用|分離商品和數量
    下面這個例子就可以用vba中的split函數解決問題的經典例子。▶如下圖，如果手動分開商品會很麻煩，複製粘貼多次才能解決。▶Split函數講解Split 函數返回一個包含分割符的基礎上進行分隔特定數量的數組。
  • excel如何生成0到任何數字之前的隨機數？隨機函數要活用~
    我們在使用excel時，有時候會需要生成一個0到任何數字之前的隨機數，那麼要如何生成呢？下面就來看看吧。一、我們打開一份空白測試表格。二、我們先從0-1開始， 默認實際上只能生成0-1範圍內的隨機數，單元格輸入公式=RAND()
  • VBA代碼大全030:用vba強制關閉word應用程式
    我們有時候需要從word中提取數據到excel中。 這時候一般的套路都是在excel vba中創建word應用程式實例，然後一番操作以後關閉word應用程式。VBA.CreateObject("Word.Application") Dim oDoc Set oDoc = oWord.Documents.Open(sPath & "\abc.doc") '*********** '接下來是一段word數據的提取操作 '*********** '關閉打開的文檔 oDoc.Close (False) '退出Word應用程式
  • Excel VBA從新手到高手系列課程
    三、   教學目的：本課程的目的和任務是使學員掌握Excel VBA的基本概念，基本原理及技術應用，讓學員在VBA應用方面形成知識體系，培養學員應用VBA解決實際問題的能力。四、 教學內容：本課程分三部分的內容，新手篇-進階篇-高手篇。教學由易到難，循序漸進，結合工作實例，易學易用。
  • 利用Excel中的RAND函數批量生成指定範圍內的隨機數
    Excel中的RAND()函數可以生成一個數值在0到1之間的隨機數，我們在任意單元格內輸入=RAND()即可得到一個9位的隨機小數（該隨機數每操作一次便會自動變換一次），如下圖。利用該函數的這個特性，我們可以生成許多看似沒有規律的內容。
  • 1個GUI界面,隨機生成若干姓名並保存為Excel,python如何實現?
    前面內容，我們詳細介紹了如何使用Python生成一定數量的隨機姓名。姓名列是我們利用程序隨機生成的如何將我們定義函數生成的隨機姓名寫入到Excel表格中呢？這就是我們今天要利用Python實現的效果。然後，利用我們之前定義的類，來生成指定的隨機姓名；最後，我們將生成的隨機姓名存儲到Excel表格中。廢話不多說，直接開始吧。
  • Excel每日一技:EXCEL中生成隨機數字的方法
  • 奇妙的VBA代碼之三十四:使用VBA代碼自動生成圖表(一)
    大家好，今日給大家講解VBA代碼解決方案的第三十四講，如何利用VBA生成圖表，今日講前半部分。在實際工作中我們常用圖表來表現數據間的某種相對關係，一般採用手工插入的方式，如下圖就是一個我們經常用到的圖表：而使用VBA代碼可以在工作表中自動生成圖表，這節我們重點講解一些方法及函數，在下節中我們將結合實例來講解。