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

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

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

小學生 Rank: 1

帖子: 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

謝謝各位，祝各位順心如意

收藏

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-2-8
最後登錄: 2012-2-16

11^#

發表於 2012-2-8 19:02 | 只看該作者

回復 10# Hsieh

感激!!!!!!!!!!

謝謝您，這問題我困擾一個禮拜了，眼睛都佈滿紅絲

真的是太感謝您了，我的動力又出現了

我有去查大大的函數Format用法，看來我又會幸奮到寫程式寫到半夜了

謝謝您，也謝謝一直幫忙的前輩，祝各位順心如意，謝謝

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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)

學海無涯_不恥下問

小學生 Rank: 1

帖子: 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 .....

在這先謝謝大大的辛苦

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

　頭銜: 麻辣路人甲

大學生 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設定為文字格式

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

複製代碼

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-2-8
最後登錄: 2012-2-16

7^#

發表於 2012-2-8 16:15 | 只看該作者

回復 6# 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

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

複製代碼

小學生 Rank: 1

帖子: 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

　頭銜: 麻辣路人甲

大學生 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次程式

小學生 Rank: 1

帖子: 7
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-2-8
最後登錄: 2012-2-16

3^#

發表於 2012-2-8 15:12 | 只看該作者

謝謝大大，是我沒講清楚

這個我有用出來

但在巨集裏面卻是不行

因為它必須跑回圈

所以必須用巨集

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

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

總之很謝謝您的解答

靜思自在 : 人要知福、惜福、再造福。

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