返回列表 上一主題 發帖

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

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

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


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

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

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

下圖1為執行   A欄英文字母自動變大寫
圖片 1.jpg
2020-2-13 20:10



圖2
圖片 2.jpg
2020-2-13 20:10



程式碼寫在以下工作表中: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

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題