Excel VBA用戶交互/InputBox輸入框的2種用法

在Excel VBA中我們經(jīng)常需要和用戶進行交互,此時我們會用到Inputbox這個函數(shù)妨托。

其實,Inputbox作為同一函數(shù)名钧排,確有2種不同的用法符衔,一個是作為VBA下面的函數(shù)糟袁;再一個是作為Excel應用級的函數(shù)來使用项戴。

下面我們分別看下辩撑,2種不同方法的區(qū)別合冀。

一得糜、VBA函數(shù)定義:

InputBox(Prompt,[Title, (Defaultl,[Pos,[YPos,(HelFilel, [Context)) As String

參數(shù)說明:

prompt:必要參數(shù)谍珊,即InputBox對話框中的顯示文本砌滞。

title:可選參數(shù)绊茧,即InputBox對話框的名稱,默認情況為主程序名尊蚁。

default:可選參數(shù)亡笑,輸入框默認的內(nèi)容,如果不設置此參數(shù)横朋,默認情況下輸入框為空仑乌。

xpos與ypos:可選參數(shù),用于設置InputBox對話框在主程序窗口的位置琴锭,默認情況下在窗口的中心晰甚。

helpfile與context:可選參數(shù),即幫助文件和與幫助文件相關的上下文編號祠够。

代碼實例:

Sub test()

InputBox "請輸入信息压汪!","Test","在此處輸入",1600,1600, "D:Applications?-Zip?-zip.chm", 0

End Sub

二、應用程序級函數(shù)Application.InputBox定義

Application.InputBox(Prompt As String, [Titlel, (Default, (Leftl, [Topl, (HelpFilel, (HelpContextID), [Typel)

參數(shù)說明:

type:可選參數(shù),用于明確返回數(shù)據(jù)的類型。

如果設置為1,則輸入框中必須輸入數(shù)字類型。

返回數(shù)據(jù)的類型靠瞎,主要有0父能,1岔霸,2絮爷,4仗谆,8狸吞,16威始,64葫掉,分別代表公式、數(shù)字、文本爽茴、邏輯值(True或False)昌简、單元格對象(Range)餐蔬、錯誤值(如#N/A)、數(shù)組值。

在這里必指,值得注意的是,如果返回數(shù)據(jù)類型為8,即為單元格對象Range類型读存。那么我們可以實現(xiàn),在Excel里面框選單元格或區(qū)域來輸入單元格地址缴阎。這樣惋砂,對于我們選擇單元格區(qū)域是非常方便的鳞芙。

如果返回數(shù)據(jù)類型為Range類型脱茉,那么我們需要用到Set來接收返回值茂腥,如下:

Set rng = Application.InputBox("請輸入?yún)^(qū)域地址",,,,,,,8)

這樣,我們就可以使用For Each循環(huán)來遍歷Range對象诊杆,方法如下:

For Each x in rng

Next

結合上面返回值,這里給出一個代碼實例作為參考宁脊。

Sub sel()

??? Set Rng = Application.InputBox("請輸入?yún)^(qū)域地址", , , , , , , 8)


??? For Each x In Rng

??????? If x = [f10] Then

??????????? MsgBox (x.Row)

??????? End If

??? Next

End Sub

本文轉(zhuǎn)載自:https://www.yunzhi88.com/study/excel_vba/2023/0109/2748.html

?著作權歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末音婶,一起剝皮案震驚了整個濱河市慨畸,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌衣式,老刑警劉巖寸士,帶你破解...
    沈念sama閱讀 212,383評論 6 493
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異碴卧,居然都是意外死亡弱卡,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,522評論 3 385
  • 文/潘曉璐 我一進店門住册,熙熙樓的掌柜王于貴愁眉苦臉地迎上來婶博,“玉大人,你說我怎么就攤上這事荧飞》踩耍” “怎么了?”我有些...
    開封第一講書人閱讀 157,852評論 0 348
  • 文/不壞的土叔 我叫張陵叹阔,是天一觀的道長挠轴。 經(jīng)常有香客問我,道長耳幢,這世上最難降的妖魔是什么岸晦? 我笑而不...
    開封第一講書人閱讀 56,621評論 1 284
  • 正文 為了忘掉前任,我火速辦了婚禮睛藻,結果婚禮上启上,老公的妹妹穿的比我還像新娘。我一直安慰自己修档,他們只是感情好碧绞,可當我...
    茶點故事閱讀 65,741評論 6 386
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著吱窝,像睡著了一般讥邻。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上院峡,一...
    開封第一講書人閱讀 49,929評論 1 290
  • 那天兴使,我揣著相機與錄音,去河邊找鬼照激。 笑死发魄,一個胖子當著我的面吹牛,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播励幼,決...
    沈念sama閱讀 39,076評論 3 410
  • 文/蒼蘭香墨 我猛地睜開眼汰寓,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了苹粟?” 一聲冷哼從身側(cè)響起有滑,我...
    開封第一講書人閱讀 37,803評論 0 268
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎嵌削,沒想到半個月后毛好,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 44,265評論 1 303
  • 正文 獨居荒郊野嶺守林人離奇死亡苛秕,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 36,582評論 2 327
  • 正文 我和宋清朗相戀三年肌访,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片艇劫。...
    茶點故事閱讀 38,716評論 1 341
  • 序言:一個原本活蹦亂跳的男人離奇死亡吼驶,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出港准,到底是詐尸還是另有隱情旨剥,我是刑警寧澤,帶...
    沈念sama閱讀 34,395評論 4 333
  • 正文 年R本政府宣布浅缸,位于F島的核電站轨帜,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏衩椒。R本人自食惡果不足惜蚌父,卻給世界環(huán)境...
    茶點故事閱讀 40,039評論 3 316
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望毛萌。 院中可真熱鬧苟弛,春花似錦、人聲如沸阁将。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,798評論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽做盅。三九已至缤削,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間吹榴,已是汗流浹背亭敢。 一陣腳步聲響...
    開封第一講書人閱讀 32,027評論 1 266
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留图筹,地道東北人帅刀。 一個月前我還...
    沈念sama閱讀 46,488評論 2 361
  • 正文 我出身青樓让腹,卻偏偏與公主長得像,于是被迫代替她去往敵國和親扣溺。 傳聞我的和親對象是個殘疾皇子骇窍,可洞房花燭夜當晚...
    茶點故事閱讀 43,612評論 2 350

推薦閱讀更多精彩內(nèi)容

  • 本例為設置密碼窗口 (1) If Application.InputBox(“請輸入密碼:”) = 1234 Th...
    浮浮塵塵閱讀 13,628評論 1 20
  • 在Excel VBA中,與MsgBox相似的函數(shù)锥余,且比較常用的是InputBox像鸡,這在之前的一篇文章中也簡單介紹過...
    Excel客旅閱讀 413評論 0 2
  • 可以通過在屬性窗口設置名稱來給對象重新命名,名字可以由字母哈恰、漢字(2字符)、數(shù)字以及下劃線組成志群,但必須以字母或漢字...
    重頭再來0706閱讀 2,171評論 0 1
  • 在面對大量數(shù)據(jù)時着绷,我們可以使用Excel的篩選功能,濾出我們需要的信息锌云。在本文中荠医,我們先從Excel中的“篩選”命...
    完美Excel閱讀 64,836評論 0 16
  • 1.1 VBA是什么 直到90年代早期,使應用程序自動化還是充滿挑戰(zhàn)性的領域.對每個需要自動化的應用程序,人們不得...
    浮浮塵塵閱讀 21,726評論 6 49