返回列表 上一主題 發帖

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

本帖最後由 GBKEE 於 2013-11-8 13:59 編輯

回復 1# HCG10G8bear
這語法錯誤 Range("2:2,4:4,6:6').NumberFormatLocal = "G/通用格式"
  1. Range("2:2,4:4,6:6").NumberFormatLocal = "G/通用格式"
複製代碼
回復 17# HCG10G8bear
UsedRange是工作表的物件(工作表中已使用的範圍)
工作表模組中使用UsedRange就是指這工作表的UsedRange (但可如:Sheet1模組中輸寫, Sheet2.UsedRange)
在一般模組中(非工作表模組)沒有指明UsedRange的父層(工作表),電腦很笨不會看穿使用者的心思,就說找不到物件
回復 22# HCG10G8bear
PERSONAL模組中程式碼可修改如下
  1. For I = 2 To ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count Step 2
複製代碼
回復 23# HCG10G8bear

SpecialCells方法 本討論區有多篇的討論,也可詳看VBA說明
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

本帖最後由 GBKEE 於 2013-11-8 15:48 編輯

回復 26# owen06
直接寫sheet1,就不能在其他檔案底下執行,因sheet1指這檔案的工作表模組名稱,雖然其他檔案也有sheet1的工作表模組名稱,
這檔案的程式碼中無法引用其他檔案的物件,
須如此
  1. ActiveWorkbook.Sheets ("sheet1") '名稱
  2.     ActiveWorkbook.Sheets (1)        '索引值
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 君子立恆志,小人恆立志。
返回列表 上一主題