VBA文本框的值到範圍

我掙扎做什麼，我相信這是一個簡單的任務VBA文本框的值到範圍

我有一個包含我希望被用作一個行數的參考數值的用戶窗體上的一個文本框範圍。

Sheets("Sheet1").Range("A" & TextBox1.Value).Select

這失敗，出現錯誤「選擇範圍類的方法失敗」

如何將這些值轉換成一個範圍？

來源

2016-04-21 Owen Partridge

你的代碼，如果'TextBox1.Value'包含了一些應該工作。數字是字符串格式並不重要，因爲無論如何，VBA都會將其轉換爲字符串以將其與「A」連接起來。因此，要麼沒有名稱爲「Sheet1」的工作表或「TextBox1.Value」不包含有效的正數（不帶小數）。 – Ralph

Sheet1是否處於活動狀態？否則，代碼將失敗。 – Rory

我指定先激活工作表，現在工作 - 這是一個漫長的一天 - 謝謝！ –

你應該看看使用錯誤處理這個

Sub Recut() 
Dim rng1 As Range 
If IsNumeric(textbox1.Value) Then 
    On Error Resume Next 
    Set rng1 = Sheets("Sheet1").Range("A" & textbox1.Value) 
    On Error GoTo 0 
    If rng1 Is Nothing Then MsgBox "A" & textbox1.Value & " is invalid" 
Else 
    MsgBox "Textbox does not contain a number" 
End If 
End Sub

來源

2016-04-22 03:10:18 brettdj

VBA文本框的值到範圍

回答

相關問題