返回列表 上一主題 發帖

[發問] upper問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-11-2 14:17 | 只看該作者

[發問] upper問題請教

dear  all 大大
1.涵數大寫使用 UPPER
2.圖一   If Sheet3.Cells(M, 4) Like "*" & "uball" & "*" Then  我用   If  UPPER(Sheet3.Cells(M, 4)) Like "*" & "uball" & "*" Then 不能用
2.1請問UPPER(Sheet3.Cells(M, 4))要改甚????
     煩不另賜教  THANS*10000   

圖一
Sub 模型mod自動比對4()
Sheet6.Visible = True
Sheet6.Select
Range("L974").Select
Sheet6.[O976:O985].ClearContents
X = Sheet3.[D65536].End(xlUp).Row
Y = 975
For M = 1 To X
      If Sheet3.Cells(M, 4) Like "*" & "uball" & "*" Then
       Sheet6.Cells(Y + 1, 15) = Sheet3.Cells(M, 4)
    Y = Y + 1
  End If
Next
End Sub
收藏 分享
羅

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2025-1-10 
2#
發表於 2021-11-2 14:45 | 只看該作者
dear  all 大大
1.涵數大寫使用 UPPER
2.圖一   If Sheet3.Cells(M, 4) Like "*" & "uball" & "*" Then   ...
rouber590324 發表於 2021-11-2 14:17


涵數大寫使用UPPER，VBA要改為 UCase

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2021-11-2 15:21 | 只看該作者
DEAR samwang 大大
UCase  可用 感恩  THANKS*10000
羅

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題