1樓：我的王是金閃閃
這樣可否？不是很清楚你的要求。
private sub commandbutton1_click()textbox2.text = "" '清空文字框2dim txt1len as integerdim str1 as string, str2 as stringtxt1len = len(textbox1.value) '定義變數提取文字框1的字元長度
str2 = "\x"
for x = 1 to txt1len
str1 = mid(textbox1.value, x, 1) '提示424錯誤要求物件
str2 = str2 & hex(asc(str1)) '提示下表越界
next x
textbox2.value = str2 '提示下表越界end sub
2樓：匿名使用者
private sub commandbutton1_click()
‘這裡最好不用動態陣列。如果你要記錄每次輸入輸出的內容 可以在sheet.cell中記錄過程
dim str1 as string'定義字元陣列1用於儲存文字框1的內容
dim str2 as string'定義字元陣列2用於儲存文字框2的內容
dim txt1len as integer
dim n,x as long
n=1textbox2.text = "'清空文字框2
txt1len = len(textbox1.text)'定義變數提取文字框1的字元長度
for x = 1 to txt1len
str1= mid(textbox1.text, x, 1)'提示424錯誤要求物件
str2 = "\x" & hex(asc(str1))'提示下表越界 (前面那個\x不太清楚什麼意思。)
sheets(1).cells(n,"a")=str1
sheets(1).cells(n,"b")=str2
next x
textbox2.text = arr2(x)'提示下表越界
end sub
3樓：弗爾佈雷斯
你這個的
arr1(x) = mid(textbox.text, x, 1)'提示424錯誤要求物件
你整個程式中並沒有textbox名稱的控制元件，所以肯定會出錯，還有你的陣列只宣告瞭，並沒有給定範圍並且你
textbox2.text = arr2(x)'提示下表越界
這句在for迴圈外，此時 x 的值已經是 txt1len+1的值了，而你陣列arr2()只給到了txt1len肯定會提示越界的。
由於不太清楚你的意圖，你看看下邊這個更改後的**是否符合你的要求吧。
private sub commandbutton1_click()
textbox2.text = "" '清空文字框2
dim txt1len as integer
dim arr1() as string '定義字元陣列1用於儲存文字框1的內容
dim arr2() as string '定義字元陣列2用於儲存文字框2的內容
txt1len = len(textbox1.text) '定義變數提取文字框1的字元長度
redim arr1(txt1len) '給定陣列1的範圍
redim arr2(txt1len) '給定陣列2的範圍
for x = 1 to txt1len
arr1(x) = mid(textbox1.text, x, 1)
arr2(x) = "\x" & hex(asc(arr1(x)))
textbox2.text = textbox2.text & arr2(x)
next x
'textbox2.text = arr2(x) '由於不太清楚你的意圖是什麼所以這句你自己看看應該放到**吧 _
總之放到這裡肯定不對，會提示越界,我暫時已經給註解掉了,並把這句改為 _
textbox2.text = textbox2.text & arr2(x)放到迴圈裡了,你看看是不是你要的結果吧
end sub
excel vba問題麻煩指出錯誤
程式有問題。當刪除一列後。程式會跳到選中區域的下一列。而剛才的刪除操作，會使後面的列前移一列。所以會資料刪除不了的情況。需要多次執行。你在迴圈時，新增一個控制。如果執行了刪除操作，則迴圈的變數減1.我根據你的 改的如下 sub test dim i,j,k as integer arr array ...
EXCEL VBA執行時錯誤9下標越界
下標越界一般是workbooks 電氣元器件庫.xlsm 或者sheets sheet1 造成的，如果沒有對應的工作簿 電氣元器件庫.xlsm 或者這個工作簿裡面沒有工作表 sheet1 就會導致此類錯誤。注意 程式不會自動開啟工作簿進行公式計算。請檢查工作簿名稱。sheet1看看是否此名稱的工作表...
聯通寬頻連線提示651錯誤，寬頻連線錯誤651是什麼意思，651錯誤程式碼怎麼解決 中國聯通的
解決辦法 win7 錯誤 651，路由能上，撥號上不了試一下 開啟 windows system32 logfiles wmi，雙擊開啟wmi再開啟裡面的rtbackup 會提示你需要管理員許可權 繼續 重啟，即可修復。不行的話把wmi裡的字尾為etl的檔案刪除包括rtbackup裡的重啟。如果上面...