請問如何將偶數列的文字轉成數值(已有基本語法但不會組合) - Excel程式區

帖子: 15
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2013-10-30
最後登錄: 2018-11-6

11^# 跳轉到 »

發表於 2013-11-5 11:14 | 只看該作者

回復 8# owen06

owen06大大

我使用工具→巨集→VB編輯器檢視→程式碼

貼上大大您提供的程式碼在到Excel sheet執行巨集可以執行成功

但是只要將巨集儲存

在執行TEST巨集會出現執行階段錯誤'424': 此處需要物件

請問是發生什麼問題了呢

謝謝

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

12^#

發表於 2013-11-5 12:44 | 只看該作者

回復 11# HCG10G8bear

可是…我照你所說的方式儲存完再開也都沒問題吶，
你要不要上傳附件，看一下問題出在哪？

TOP

HCG10G8bear

小學生 Rank: 1

帖子: 15
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2013-10-30
最後登錄: 2018-11-6

13^#

發表於 2013-11-6 12:50 | 只看該作者

回復 12# owen06

OWEN06大大

謝謝您的解釋我學到很多喔

副檔我之前有上傳了

偶數列特定儲存格.zip

再麻煩你幫我CHECK一下

謝謝您不厭其煩的幫忙

謝謝

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

14^#

發表於 2013-11-6 13:09 | 只看該作者

回復 13# HCG10G8bear

我試都沒問題呀，你比對看看是不是有哪裡不同吧~

偶數列特定儲存格.rar (6.9 KB)

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

15^#

發表於 2013-11-6 15:34 | 只看該作者

回復 14# owen06

我執行都很正常，應該沒有問題

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

HCG10G8bear

小學生 Rank: 1

帖子: 15
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2013-10-30
最後登錄: 2018-11-6

16^#

發表於 2013-11-7 10:57 | 只看該作者

本帖最後由 HCG10G8bear 於 2013-11-7 10:59 編輯

回復 15# ML089

謝謝兩位大大幫我測試

我想我找到問題了

我只要將程式放到專案→偶數列特定儲存格→sheet1 可以執行沒問題

但是只要把程式放到 PERSONAL→模組→Module1 就會發生執行階段錯誤

如果不能存到PERSONAL 就沒辦法後續的程式應用了

請問這是發生什麼問題了呢

TOP

HCG10G8bear

小學生 Rank: 1

帖子: 15
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2013-10-30
最後登錄: 2018-11-6

17^#

發表於 2013-11-7 11:05 | 只看該作者

回復 16# HCG10G8bear

這樣可以執行成功

這樣就失敗了

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

18^#

發表於 2013-11-7 12:57 | 只看該作者

回復 17# HCG10G8bear

Sub TEST()
For I = 2 To Sheet1.UsedRange.Rows.Count Step 2
Sheet1.Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/通用格式"
Sheet1.Cells(I, 4).Resize(1, 7) = Sheet1.Cells(I, 4).Resize(1, 7).Value
Next
End Sub

複製代碼

這樣改就行了，因為你放在模組裡，而不是直接放在sheet1裡，
所以必需明確的告訴他是在哪個sheet裡的哪些東西，
這樣他才會去那裡找，不然就會迷路。

TOP

HCG10G8bear

小學生 Rank: 1

帖子: 15
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2013-10-30
最後登錄: 2018-11-6

19^#

發表於 2013-11-8 09:15 | 只看該作者

回復 18# owen06

owen06大大

這樣子執行就不會發生執行階段錯誤了

但是

它的值不會變成數字耶

就是執行後沒有任何變化

我看了好久好像也沒有地方少sheet1

是還要改語法嗎?

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

20^#

發表於 2013-11-8 09:36 | 只看該作者

回復 19# HCG10G8bear

你要不要把你自己使用，有問題的那個檔案放上來讓我們幫你檢查一下？
因為你說的問題我在執行上都沒發生，這樣要隔空把脈是有點困難的。

TOP

[發問] 請問如何將偶數列的文字轉成數值(已有基本語法但不會組合)

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 請問如何將偶數列的文字轉成數值(已有基本語法 但不會組合)

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 請問如何將偶數列的文字轉成數值(已有基本語法但不會組合)