返回列表 上一主題 發帖

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

回復 8# owen06

owen06大大

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

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

但是只要將巨集儲存

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

請問是發生什麼問題了呢

謝謝

TOP

回復 11# HCG10G8bear


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

TOP

回復 12# owen06


OWEN06大大

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

副檔我之前有上傳了

偶數列特定儲存格.zip

再麻煩你幫我CHECK一下

謝謝您不厭其煩的幫忙

謝謝

TOP

回復 13# HCG10G8bear


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

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

TOP

回復 14# owen06

我執行都很正常,應該沒有問題
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

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

回復 15# ML089

謝謝兩位大大幫我測試

我想我找到問題了

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


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


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

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

TOP

回復 16# HCG10G8bear

這樣可以執行成功

這樣就失敗了

TOP

回復 17# HCG10G8bear
  1. Sub TEST()
  2. For I = 2 To Sheet1.UsedRange.Rows.Count Step 2
  3. Sheet1.Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/通用格式"
  4. Sheet1.Cells(I, 4).Resize(1, 7) = Sheet1.Cells(I, 4).Resize(1, 7).Value
  5. Next
  6. End Sub
複製代碼
這樣改就行了,因為你放在模組裡,而不是直接放在sheet1裡,
所以必需明確的告訴他是在哪個sheet裡的哪些東西,
這樣他才會去那裡找,不然就會迷路。

TOP

回復 18# owen06

owen06大大

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

但是

它的值不會變成數字耶

就是執行後沒有任何變化

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

是還要改語法嗎?

TOP

回復 19# HCG10G8bear


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

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題