Excel2010中實(shí)現(xiàn)輸入兩個(gè)字符自動(dòng)切換單元格的操作方法

Excel2010中實(shí)現(xiàn)輸入兩個(gè)字符自動(dòng)切換單元格的操作方法

　　在數(shù)據(jù)輸入時(shí)，經(jīng)常要輸入固定的字符數(shù)后，要按回車鍵，怎么實(shí)現(xiàn)輸入后自動(dòng)換單元格，提高輸入速度。今天，學(xué)習(xí)啦小編就教大家在Excel2010中實(shí)現(xiàn)輸入兩個(gè)字符自動(dòng)切換單元格的操作方法。

　　Excel2010中實(shí)現(xiàn)輸入兩個(gè)字符自動(dòng)切換單元格的操作步驟如下：

　　你電腦上必須有一個(gè)能有運(yùn)行Microsoft visual basic代碼編輯器，因?yàn)檫@需要用VB代碼來實(shí)現(xiàn)。打開EXCEL軟件，選擇你要輸入數(shù)據(jù)的工作表。

　　右擊工作表，選擇查看代碼。

　　在編輯區(qū)里拷入以下代碼：

　　Private Sub TextBox1_Change()

　　If Len(Me.TextBox1.Text) <> 2 Then Exit Sub

　　Me.TextBox1.Activate

　　ActiveCell = Me.TextBox1.Text

　　Me.TextBox1.Text = ""

　　Me.TextBox1.Activate

　　ActiveCell.Activate

　　Application.SendKeys "~"

　　End Sub

　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　With TextBox1

　　.Left = ActiveCell.Left

　　.Top = ActiveCell.Top

　　.Width = ActiveCell.Width

　　.Height = ActiveCell.Height

　　End With

　　Me.TextBox1.Activate

　　End Sub

　　現(xiàn)在就可實(shí)現(xiàn)輸入2個(gè)字符自動(dòng)切換單元格。

　　要是想輸入其它個(gè)固定字符，只要將“If Len(Me.TextBox1.Text) <> 2 Then Exit Sub”代碼里的2換成相應(yīng)的數(shù)字，比如3、4。

　　要是您宏安全性設(shè)置過高，會(huì)導(dǎo)致代碼無法運(yùn)行，所以你必需進(jìn)行宏的安全性設(shè)置，在工具——宏——安全性。

　　將安全性設(shè)置為低或中、不要設(shè)置為高和非常高。