excel vbs提取选定单元格

Question

想用代码，分三个弹窗提示选三个单元格，然后把这三个单元格放在某选定单元格，按行排放

Answer 1

　　根据指定内容的位置的不同，可以选择使用MID或MIDB、RIGHT或RIGHTB、LEFT或LEFTB等文本提取指定的文字内容。

以下为该函数的详细介绍及实例：

MID 或MIDB 用途：MID 返回文本串中从指定位置开始的特定数目的字符，该数目由用户指定。MIDB返回文本串中从指定位置开始的特定数目的字符，该数目由用户指定。MIDB函数可以用于双字节字符。
语法：MID(text，start_num， num_chars)或MIDB(text， start_num，num_bytes)。
参数：Text 是包含要提取字符的文本串。Start_num 是文本中要提取的第一个字符的位置，文本中第一个字符的start_num 为1 ，以此类推；Num_chars指定希望MID 从文本中返回字符的个数；Num_bytes指定希望MIDB 从文本中按字节返回字符的个数。
实例：如果a1=电子计算机，则公式“=MID(A1，3，2)” 返回“计算”，=MIDB(A1，3，2)返回“子”。

RIGHT 或RIGHTB 用途：RIGHT 根据所指定的字符数返回文本串中最后一个或多个字符。RIGHTB根据所指定的字节数返回文本串中最后一个或多个字符。
语法：RIGHT(text，num_chars)，RIGHTB(text，num_bytes) 。
参数：Text 是包含要提取字符的文本串；Num_chars 指定希望RIGHT 提取的字符数，它必须大于或等于0。如果num_chars 大于文本长度，则RIGHT 返回所有文本。如果忽略num_chars， 则假定其为1。Num_bytes 指定欲提取字符的字节数。
实例：如果A1=学习的革命，则公式“=RIGHT(A1，2)”返回“革命”，=RIGHTB(A1，2)返回“命”。

LEFT 或LEFTB用途：根据指定的字符数返回文本串中的第一个或前几个字符。此函数用于双字节字符。
语法：LEFT(text，num_chars)或LEFTB(text， num_bytes)。
参数：Text 是包含要提取字符的文本串；Num_chars指定函数要提取的字符数，它必须大于或等于0。Num_bytes按字节数指定由LEFTB 提取的字符数。
实例：如果A1=电脑爱好者，则LEFT(A1，2)返回“电脑”，LEFTB(A1，2)返回“电”。

Answer 2

Sub GetRangeLocal()
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    On Error Resume Next
    Set rng1 = Application.InputBox(prompt:="1st", Type:=8)
    Set rng2 = Application.InputBox(prompt:="2nd", Type:=8)
    Set rng3 = Application.InputBox(prompt:="3rd", Type:=8)
    With Selection
        .Value = rng1.Value
        .Offset(0, 1).Value = rng2.Value
        .Offset(0, 2).Value = rng3.Value
    End With
End Sub

选定单元格后运行代码，出现三个选择单元格对话框（未设防错，如选择多个单元格的情况），选定单元格及右侧一二单元格出现选中数值。

下面是完成版的代码，当选中区域为多个单元格时，提示并重新选择。

Sub GetRange()
    Dim rng1 As Range, rng2 As Range, rng3 As Range
'------------------------------------------------------------------------------
    Do
        Set rng1 = Application.InputBox(prompt:="1st Cell", Type:=8)
        If rng1 = "" Then Exit Sub
        If rng1.Columns.Count > 1 Or rng1.Rows.Count > 1 Then MsgBox "Select only one cell,please!"
    Loop While rng1.Columns.Count > 1 Or rng1.Rows.Count > 1
'------------------------------------------------------------------------------
    Do
        Set rng2 = Application.InputBox(prompt:="2nd Cell", Type:=8)
        If rng2 = "" Then Exit Sub
        If rng2.Columns.Count > 1 Or rng2.Rows.Count > 1 Then MsgBox "Select only one cell,please!"
    Loop While rng2.Columns.Count > 1 Or rng2.Rows.Count > 1
'------------------------------------------------------------------------------
    Do
        Set rng3 = Application.InputBox(prompt:="3rd Cell", Type:=8)
        If rng3 = "" Then Exit Sub
        If rng3.Columns.Count > 1 Or rng3.Rows.Count > 1 Then MsgBox "Select only one cell,please!"
    Loop While rng3.Columns.Count > 1 Or rng3.Rows.Count > 1
'------------------------------------------------------------------------------
    With Selection
        .Value = rng1.Value
        .Offset(0, 1).Value = rng2.Value
        .Offset(0, 2).Value = rng3.Value
    End With
'------------------------------------------------------------------------------
    Set rng1 = Nothing
    Set rng2 = Nothing
    Set rng3 = Nothing
End Sub