如何在excel中用vb？

你是指用Excel內(nèi)置的VBA編程還是用VB處理Excel文檔或控制Excel？如果是前者，那么可以按AltF11打開VB界面，輸入代碼開始編程。后者可以以Excel文檔或Excel應(yīng)用程序?yàn)閷ο筮M(jìn)行相應(yīng)的操作。至于怎么做，這里不是一兩句話就能說清楚的，甚至一兩本書的容量也不一定說得完。

你可以自己查Exc

excelvba獲取文本框的值怎么獲取啊？

類似于表單控件，可以使用以下方法:在文本框獲得焦點(diǎn)的每個(gè)事件中，將文本框的名稱賦給X(X應(yīng)該是全局變量)，比如privatetextbox1_gotfocus()xsub。

vba錄入語句？

1/8點(diǎn)擊Excel表格菜單欄上的【開發(fā)工具】，【VisualBasic】打開VBA編輯器。

2/8點(diǎn)擊VBA編輯器菜單欄上的[插入]和[模塊]。

3/8在代碼框中輸入代碼:

子匹配端口()

Dimi，j，m，kAsLongamp#39數(shù)據(jù)類型定義

模糊消息、樣式、標(biāo)題、回復(fù)

如果在操作過程中出現(xiàn)錯誤，忽略它。

設(shè)置工作表1(#34工作表1#34)和#39定義工作表。

設(shè)置工作表2(#34工作表2#34)和#39定義工作表。

Msg#34該用戶信息已經(jīng)存在。您想替換它嗎？#34

顯示三個(gè)按鈕:是，否和取消。

標(biāo)題#34提示#34

m(mysh:A1000#34)，0)

Amp#39計(jì)算細(xì)胞的位置。

如果mgt1Thenamp#39如果已經(jīng)存在于數(shù)據(jù)表中，會彈出一個(gè)提示窗口，然后進(jìn)行選擇。

Ansmsgbox(消息，樣式，標(biāo)題)amp#39彈出提示

如果ansvbYes那么amp#39If"是的"被選中，原始表中的數(shù)據(jù)將被替換。

對于j1至4，amp#39填充單元格所在的1-4列。

mysheet2。細(xì)胞(m，j)mysheet1。細(xì)胞(j1，2)

然后

如果…就會結(jié)束

Ifansvbnotthenamp#39If"不"被選中時(shí)，將在原始表格中找到空白單元格進(jìn)行寫入。

對于k2到1000

如果我的sheet2。單元格(k，1)#34#34然后

對于j1至4

mysheet2。細(xì)胞(k，j)mysheet1。細(xì)胞(j1，2)

然后

為...退出

如果…就會結(jié)束

然后

如果…就會結(jié)束

否則如果它不t不存在，在原始數(shù)據(jù)表中找一個(gè)空行來填寫。

對于k2到1000

如果我的sheet2。單元格(k，1)#34#34然后

對于j1至4

mysheet2。細(xì)胞(k，j)mysheet1。細(xì)胞(j1，2)

然后

為...退出

如果…就會結(jié)束

然后

如果…就會結(jié)束

末端接頭

4/8返回到Sheet1工作表界面，單擊菜單欄上的[插入]，選擇"矩形"在形狀中插入它到表格中，然后填入所需的顏色和文字。

右鍵單擊繪制的矩形并選擇"指定宏。

6/8選擇已經(jīng)寫在"指定宏對話框，如:MatchIput。

7/8在要輸入的區(qū)域中輸入信息，然后單擊Enter輸入信息。

8/8如果輸入的信息(名稱)已經(jīng)存在于原始表格中，將彈出提示信息，然后進(jìn)行選擇。

如果選擇是，將替換原有信息；如果選擇否，將增加一行新信息；如果選擇“取消”，將不會輸入任何信息。