標題: 請問為何VBA程式寫了英文字母自動變成大寫後比對的程式就不能跑呢? [打印本頁]

---

作者: jeffrey628litw    時間: 2020-2-13 20:11     標題: 請問為何VBA程式寫了英文字母自動變成大寫後比對的程式就不能跑呢?

請問各位，為何VBA程式寫了英文字母自動變成大寫後比對的程式就不能跑呢?


20200213 產品查詢系統  檔案下載：http://www.FunP.Net/910583
這個檔是還沒寫    自動轉換A欄英文字母自動變大寫(因為要防呆，有人會打成小寫，就比對不出來)
如果大神有別的寫法也煩請告知，感激不盡。

20200213 產品查詢系統(英文字母改大寫)-比對不能查了  檔案下載：http://www.FunP.Net/768585

這個檔為寫了  自動轉換A欄英文字母自動變大寫，到藍色按鈕   比對OE No後資料   (下圖2)就跑不出來了
請問VBA要如何修改呢?

下圖1為執行   A欄英文字母自動變大寫
[attach]31709[/attach]


圖2
[attach]31710[/attach]


程式碼寫在以下工作表中：Shee7設比對條件清單

程式碼如下：

Sub Uppercase()
    Dim t1
   
    t1 = Timer   '這是產生秒數的 MSG
   
   
'    Application.EnableCancelKey = xlDisabled
   
Application.ScreenUpdating = False  '禁止屏幕刷新
Application.Calculation = xlCalculationManual  '計算模式為手動


   
   
   '=============================================以下將[設比對條件清單]工作表的(A2~A151)範圍內所有文字都變為大寫字母的巨集
   
   For Each x In Range("A2:A151")
   
      x.Value = UCase(x.Value)   ' Change the text in the range to uppercase letters.
   
   Next

  '=============================================以上將[設比對條件清單]工作表的(A2~A151)範圍內所有文字都變為大寫字母的巨集

Application.Calculation = xlCalculationAutomatic  ' 然後在End Sub 前改回
Application.ScreenUpdating = True


' Application.EnableCancelKey = xlDisabled

'以下為顯示VBA Run程式的時間 + 這是產生秒數的 MSG
MsgBox "抓資料完成!  " & Chr(10) & "使用時間：" & Round(Timer - t1, 2) & " 秒" & Chr(10)


End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)