1樓：函安白
自定義函式如下，請新增到要使用的excel檔案的vba**模組中function iscircletext(byval 字串 as string)
do while len(字串) > 1if left(字串, 1) <> right(字串, 1) then
iscircletext = "no!"
exit function
end if
字串 = mid(字串, 2, len(字串) - 2)loop
iscircletext = "yes!"
end function
2樓：匿名使用者
不知道你是不是要放在工作表的change事件來處理這件事.所謂工作表的change事件就是當工作表的單元格內容發生變化後觸發這個事件.並自動執行相關**.
這是我按你的要求寫的放在工作表change事件裡的** 因為不知道迴文的位置 所以我假定迴文是在a列.yes no 輸出在b列同行的單元格.
private sub worksheet_change(byval target as range)
if target.column = 1 thendim fxstr
fxstr = strreverse(target.value)if fxstr = target.value thentarget.offset(0, 1) = "yes!"
else
target.offset(0, 1) = "no!"
end if
end if
end sub
或者用自定義函式
function chackhw(str)if str = "" then chackhw = ""
dim fxstr
fxstr = strreverse(str)if fxstr = str then
chackhw = "yes!"
else
chackhw = "no!"
end if
end function
3樓：
這個到不是很難。只是感覺你的分有些少啊。字串處理很煩人的。
告訴你個思路，你自己做吧。先用len函式測出字串長度除以2後－1，以此為迴圈次數。分別取字串兩端的字元進行對比，如果均成功。msgbox 輸出yes，否則msgbox輸出no
在EXCEl中，用VBA實現單元格顏色改變
dim i r whit sheets 表名稱 r range a65536 end xlup rowfor i 1 to r if cells i,1 value 20 then.cells i,1 font.colorindex 4eed if if cells i,1 value 19 and...
如何在excel中用巨集（VBA）實現VLOOKUP的功能
慶年工坊 function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n en...
excel中如何編寫vba判斷迴圈多行單元格數值及賦值
太極健 你的判斷是為0而不是為空，如果是判斷為空，迴圈如下 sub test i range a65536 end xlup row 判斷a列最後一行的行號 for x 1 to i 建立迴圈從第一行到最後一行if cells x,1 0 then cells x,6 cells x,1 cells...