1樓：網友
思路：提取『月』前面的數字作為strmonth，提取『月』與『日』之間的字元作為strdate。
結果：如果i是1月5日，那麼strmonth=1
strdate=5
如果i是12月14日，那麼strmonth=12
strdate=14
步驟：在sheet上面新增乙個按鈕，將下面**複製到**頁面。注意文字部分會變成亂碼，請自己重新填寫，另外，樓主想將這些值傳到**請告訴我。
**：private sub commandbutton1_click()
dim i as string, j as string, strmonth as string, strdate as string
dim k as date
i = 1月5日"
i = 12月14日"
strmonth = left(i, instr(i, "月") 1)
strdate = mid(i, instr(i, "月") 1, instr(i, "日") instr(i, "月") 1)
msgbox(strmonth)
msgbox(strdate)
end sub
2樓：網友
算有吧：private sub commandbutton1_click()
msgbox month("2009, 8, 5") 返回月份。
end sub
另一種方法：
private sub commandbutton1_click()dim data as string, months as string
data = 8月14日"
if isnumeric(mid(data, 2, 1)) thenmonths = left(data, 2)elsemonths = left(data, 1)end if
msgbox months '月份。
end sub
以上都是 vba**。
3樓：網友
如果那個資料（x）是日期值。
month(x)
如果那個資料是文字。
month(datevalue("8年"&x))ps：考慮到2月29日的情況，所以用08年（任意閏年）的日期做為提取月份的依據。
在excel中如何用vba來實現查詢特定的字串？
4樓：刺任芹
1、首先開啟需要的excel**，進入到的的頁面中。
2、然後在彈出來的視窗中，滑鼠右鍵單擊工作表，選擇開啟「檢視**」。
3、然後在彈出來的視窗中，點選輸入**：
sub aaa()
dim i as long
for i = 1 to 1000 '行 範圍，自己修改。
if instr(range("a" & i), "invalidstatus") >0 then
range("a" & i). = vbredend if
nextend sub
4、然後進行儲存，點選執行就完成了。
vba 查詢字串
5樓：人設不能崩無限
1、首先需要開啟需要的excel**，進入到的的頁面中。
2、然後在彈出來的視窗中，滑鼠右鍵單擊工作表，選擇開啟「檢視**」。
3、然後在彈出來的視窗中，點選輸入**：
sub aaa()
dim i as long
for i = 1 to 1000 '行 範圍，自己修改if instr(range("a" & i), "invalidstatus") >0 then
range("a" & i). = vbredend if
nextend sub
4、然後進行儲存，點選執行就完成了。
6樓：太極健
很簡單的呀，哪有這麼複雜，直接用instrrev函式即可msgbox instrrev("abc\bcd\cde\efg", "\")
就這樣就行了，字串可用變數來代替。
instrrev函式就是從最末乙個開始找的。
instrrev(字串，要找的字元）
返回的就是你要的位置。
簡明excel vba（七）字串string相關常用操作
7樓：新科技
trim 函式刪改首除給定輸入字串的前導空格和尾隨空格。
語法：trim(string)
instrrev 函式與 instr 功能相同，從右語法：instr([start, ]string1, string2[, compare])
引數：mid 函式返回給定輸入字串中指定數量的字元。
語核差數法：mid(string, start[, length])引數：left 和 right 擷取字串，從左或者從右開始。
語法：left(string, length)引數：replace 函式 將乙個字串替換另乙個字串慶迅，可指定的次數。
語法：replace(string, findstring, replacewith[, start[, count[, compare]]]
引數：示例：
語法：strreverse(string)示例：
用c編寫類string的建構函式拷貝建構函式析
你看看bai這du 個,裡zhi面dao 好像就回有答 能不能幫忙寫一下c 類的建構函式,拷貝建構函式,賦值運算子 號的操作符過載,解構函式?求教 class test test test void test test test item 拷貝this data new char itemlen p...
我想找個好點的工作
1 確定你心目中 好工作 的標準。2 確定你能否幹好 好工作 3 確定這份好工作給你帶來多少薪金你能滿意。4 確定憑你自己的實力和社會關係，你能否得到這份 好工作 5 答案確定後，朝著目標努力。找你喜歡有興趣的工作或 靜下來.想一下是什麼問題困擾你 1 你把工作當成負擔，而不是樂趣。2 你用純體力或...
求我想找個女朋友的歌詞
吳克群 讓我說 希望對你有用 還記得第一次見面時候的經過 我們有點尷尬的say hello 我緊張我害羞我手心冒汗加發抖 一句話都不敢說 還記得第二次見面時候也差不多 我緊張的好像都快中風 有話說還不說我臉紅的都像關公 只好讓 來說 好險有 讓我說讓我說 先來跟你say個hello 讓我說讓我說 說...