Fw: [請問] Vba的一點問題

看板Office作者 (請問)時間12年前 (2014/01/07 12:47), 編輯推噓0(003)
留言3則, 1人參與, 最新討論串1/1
※ [本文轉錄自 ask 看板 #1IouJ86e ] 作者: pleaseask (請問) 看板: ask 標題: [請問] Vba的一點問題 時間: Tue Jan 7 12:38:27 2014 找了很多相關的資訊,也嘗試過自己寫了,但是怎麼樣都無法正常運作... 想請問板上的各位先進一下 需求: 兩個檢核程式 (1)所得人中文姓名:40位文數字(20個中文字),不得少於二個中文字。 (2)中文欄位之第1個字不得為半型或全型空白,字與字之間不得有半型或全型空白。 被檢核到錯誤的儲存格變更底色為紅色 以下是我的錯誤寫法,麻煩各位幫忙修正: (1) If paid_name = " " >= 4 Then MsgBox "請輸入大於4個bytes的中文字" Else MsgBox "不得少於二個中文字" End If (2) If Left(Sheets(WholeSheet).Cells(i, 1), 1) = " " Or Left(Sheets(WholeSheet).Ce lls(i, 1), 1) = " " Then MsgBox "第1個字不得為半型或全型空白" 若有前輩能夠幫忙解惑...P幣2000枚奉上,麻煩各位幫忙了QQ -- 「冷たく甘美な死の匂い。あなたも好きでしょう?」    「冰冷又甜美的死亡氣味。你也喜歡的吧?」   請問的腦補小天地:http://pleaseask2012.blogspot.tw/ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 175.180.118.36

01/07 12:46, , 1F
(1)用Len
01/07 12:46, 1F
※ 發信站: 批踢踢實業坊(ptt.cc) ※ 轉錄者: pleaseask (175.180.118.36), 時間: 01/07/2014 12:47:08

01/07 12:57, , 2F
(2)用strconv半形轉全形,再用instr來搜尋
01/07 12:57, 2F

01/07 12:58, , 3F
接著用interior.color來改變底色
01/07 12:58, 3F

01/07 12:58, , 4F
01/07 12:58, 4F
文章代碼(AID): #1IouRDfU (Office)
文章代碼(AID): #1IouRDfU (Office)