如何在excel中用vb？

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

你可以自己查Exc

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

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

vba錄入語句？

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

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

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

子匹配端口()

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

模糊消息、樣式、標題、回復

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

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

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

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

顯示三個按鈕:是，否和取消。

標題#34提示#34

m(mysh:A1000#34)，0)

Amp#39計算細胞的位置。

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

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

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

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

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

然后

如果…就會結束

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

對于k2到1000

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

對于j1至4

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

然后

為...退出

如果…就會結束

然后

如果…就會結束

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

對于k2到1000

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

對于j1至4

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

然后

為...退出

如果…就會結束

然后

如果…就會結束

末端接頭

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

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

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

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

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

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