請各位先進及大大幫忙我快失去動力了 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請各位先進及大大幫忙我快失去動力了

返回列表下一主題上一主題發帖

請各位先進及大大幫忙我快失去動力了

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-2-8 15:01 | 顯示全部帖子

回復 1# farmer900

L3=MID(RIGHT(J3,12),9,2)

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-2-8 15:26 | 顯示全部帖子

回復 3# farmer900

J3設定為文字格式
再跑1次程式

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-2-8 15:58 | 顯示全部帖子

回復 5# farmer900

Sub AA()
Range("L3") = Mid(Right(Range("J3"), 12), 9, 2)
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-2-8 16:20 | 顯示全部帖子

回復 7# farmer900

J3設定為文字格式

Sub AA()
Range("L3") = Mid(Right(Range("J3"), 12), 9, 2)
End Sub

複製代碼

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題