返回列表 上一主題 發帖

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

jeffrey628litw

帖子
228 
主題
62 
精華
0 
積分
364 
點名
20  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2024-9-16 

2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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欄英文字母自動變大寫
圖片 1.jpg


圖2



程式碼寫在以下工作表中：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
收藏 分享

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題