12
返回列表 上一主題 發帖

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

farmer900

帖子
7 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-2-8 
最後登錄
2012-2-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-8 14:54 | 只看該作者

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

range("J3") = 3803761593029280

range("L3") = mid(right(range("J3") ,12),9,2)


結果變成 EXCEL 裡  L3 的結果變成E+

而不是我想要的 92

請各位大大幫我看看為什麼不是92

謝謝各位，祝各位順心如意
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-8 15:01 | 只看該作者
回復 1# farmer900

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

TOP

farmer900

帖子
7 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-2-8 
最後登錄
2012-2-16 
3#
發表於 2012-2-8 15:12 | 只看該作者
謝謝大大，是我沒講清楚

這個我有用出來

但在巨集裏面卻是不行

因為它必須跑回圈

所以必須用巨集


我有先用單一測試，若測試成功就要讓他跑回圈

但現在連在巨集單一測試都失敗

總之很謝謝您的解答

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-2-8 15:26 | 只看該作者
回復 3# farmer900

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

TOP

farmer900

帖子
7 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-2-8 
最後登錄
2012-2-16 
5#
發表於 2012-2-8 15:51 | 只看該作者
回復 4# register313


   
3803761593029280 放入 VBA

VBA裡面竟變成

range("J3") = 3.80376159302928E+15
難怪變成E+

但我還是想不出怎麼取出92

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
6#
發表於 2012-2-8 15:58 | 只看該作者
回復 5# farmer900
  1. Sub AA()
  2. Range("L3") = Mid(Right(Range("J3"), 12), 9, 2)
  3. End Sub
複製代碼

TOP

farmer900

帖子
7 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-2-8 
最後登錄
2012-2-16 
7#
發表於 2012-2-8 16:15 | 只看該作者
回復 6# register313


   

結果如圖

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-2-8 16:20 | 只看該作者
回復 7# farmer900

J3設定為文字格式
  1. Sub AA()
  2. Range("L3") = Mid(Right(Range("J3"), 12), 9, 2)
  3. End Sub
複製代碼

TOP

farmer900

帖子
7 
主題
2 
精華
0 
積分
9 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-2-8 
最後登錄
2012-2-16 
9#
發表於 2012-2-8 16:24 | 只看該作者
回復 8# register313


   還是一樣的結果

但 J3 變成3.80376E+15 .....

在這先謝謝大大的辛苦

對不起...一直麻煩您了

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
10#
發表於 2012-2-8 18:02 | 只看該作者
回復 9# farmer900


    [L3] = Mid(Right(Format([J3], "0"), 12), 9, 2)
學海無涯_不恥下問

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
12
返回列表 上一主題