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判斷迴圈多行單元格數值及賦值
你的判斷是為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 x,2...
請懂VBA的朋友幫我用VBA在excel裡面編寫個計算器，只要加法的就可以了
private sub worksheet selectionchange byval target as range if f6 then exit sub static temp static w,j r1 target.row c1 target.column if r1 2 and r1 7...
求會用excel中的vba寫程式的人，幫忙寫小程式，可以付費如果可以的話
將 發過來，並附上對具體要求的描述。搜excel880工作室即可 樣表發 joy.008 163.com 註明vba 可以的話就接 如何檢視excel的程式語言 excel的程式設計是通過 巨集 來實現的，基於自動化方法，也叫 巨集程式設計 操作excel最方便的程式語言 操作excel最方便的語言...