vba快速錄入對應學生成績 如何在excel中用vb？

如何在excel中用vb？你是指用Excel內置的VBA編程還是用VB處理Excel文檔或控制Excel？如果是前者，那么可以按Alt F11打開VB界面，輸入代碼開始編程。后者可以以Excel文檔或

如何在excel中用vb？

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

你可以自己查Exc

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

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

vba 錄入語句？

1/8點擊Excel表格菜單欄上的【開發工具】，【Visual Basic】打開VBA編輯器。

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

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

子匹配端口()

Dim i，j，m，k As Long amp#39數據類型定義

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

如果在操作過程中出現錯誤，忽略它。

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

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

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

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

標題#34提示#34

m (mysh:A1000#34)，0)

Amp#39計算細胞的位置。

如果m gt 1 Then amp#39如果已經存在于數據表中，會彈出一個提示窗口，然后進行選擇。

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

如果ans vbYes那么amp # 39 If "是的 "被選中，原始表中的數據將被替換。

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

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

然后

如果…就會結束

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

對于k 2到1000

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

對于j 1至4

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

然后

為...退出

如果…就會結束

然后

如果…就會結束

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

對于k 2到1000

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

對于j 1至4

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

然后

為...退出

如果…就會結束

然后

如果…就會結束

末端接頭

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

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

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

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

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

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