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

1^# 跳轉到 » 正序看帖

字體大小: tT

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

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

各位大大好

小弟近期開始使用VB程式

因為是以需求導向為主現在多用錄製巨集在去修改

現在希望能將偶數列的文字(是數字)轉成數值(可以加總的類型)

目前是用土法煉鋼法選取偶數列 Range(" 2:2,4:4,6:6 ").select

爬文了解使用函數 =mod(row(),2)=0 可以一次選取偶數列

轉換數值的語法 Range("2:2,4:4,6:6').NumberFormatLocal = "G/通用格式"

到這邊小弟就卡關了不知道是否有解決方法

謝謝

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

27^#

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

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

回復 26# owen06
直接寫sheet1，就不能在其他檔案底下執行,因sheet1指這檔案的工作表模組名稱,雖然其他檔案也有sheet1的工作表模組名稱,
這檔案的程式碼中無法引用其他檔案的物件,
須如此

ActiveWorkbook.Sheets ("sheet1") '名稱
ActiveWorkbook.Sheets (1) '索引值

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

26^#

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

回復 24# GBKEE

順便藉這個問題請教一下版主，為什麼這個case，
我直接寫sheet1，就不能在其他檔案底下執行，
但如果改成都sheets("sheet1")，就可以通用了，
請問這是什麼原因呢？煩請賜教，謝謝~

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

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

25^#

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

回復 22# HCG10G8bear

在看了你之前附的圖之後，我想應該找出原因了，
你似乎是有另外用有一個叫personal的excel檔來儲存模組，
然後再開其他excel檔來執行personal裡模組的程式，
而我寫的時候單純的是以在同一個檔案底下的方式來寫的，
並沒有注意到這個狀況，所以才會造成這些問題。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2013-11-8 13:46 | 只看該作者

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

回復 1# HCG10G8bear
這語法錯誤 Range("2:2,4:4,6:6').NumberFormatLocal = "G/通用格式"

Range("2:2,4:4,6:6").NumberFormatLocal = "G/通用格式"

複製代碼

回復 17# HCG10G8bear
UsedRange是工作表的物件(工作表中已使用的範圍)
工作表模組中使用UsedRange就是指這工作表的UsedRange (但可如:Sheet1模組中輸寫, Sheet2.UsedRange)
在一般模組中(非工作表模組)沒有指明UsedRange的父層(工作表),電腦很笨不會看穿使用者的心思,就說找不到物件
回復 22# HCG10G8bear
PERSONAL模組中程式碼可修改如下

For I = 2 To ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count Step 2

複製代碼

回復 23# HCG10G8bear

SpecialCells方法本討論區有多篇的討論,也可詳看VBA說明

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

HCG10G8bear

小學生 Rank: 1

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

23^#

發表於 2013-11-8 13:44 | 只看該作者

回復 21# Hsieh

超級版主您好

您的程式碼有用可以正常執行

不過我看不太懂這個地方

Columns("B:B").SpecialCells(xlCellTypeConstants, 1)

可否麻煩您釋疑解惑

謝謝您

TOP

HCG10G8bear

小學生 Rank: 1

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

22^#

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

本帖最後由 HCG10G8bear 於 2013-11-8 13:37 編輯

回復 20# owen06

範例檔.zip (14.19 KB)
owen06大

附檔都是公司所查詢的庫存

由公司系統轉成Excel時各尺寸的數字為文字檔無法加總

所以發帖詢問要如何將特定的偶數列儲存格轉換成數值

目前執行狀況是不會出現執行階段錯誤

但是執行後也沒有將各尺寸的數字(文字)轉成可計算的數值

不好意思一直麻煩您

謝謝您

[attach]16637[/attach]

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

21^#

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

回復 19# HCG10G8bear
以你的資料特性用特殊儲存格可避免迴圈

Sub ex()
With Sheets("Sheet1")
.Columns("B:B").SpecialCells(xlCellTypeConstants, 1).EntireRow.NumberFormat = "#" '改變儲存格格式
With .UsedRange
.Value = .Value '重新填入資料
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

owen06