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

帖子: 132
主題: 25
精華: 0
積分: 199
點名: 0
作業系統: window XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
來自: 台灣新竹
註冊時間: 2010-6-1
最後登錄: 2022-7-14

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

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

1.試著加一個 Column ，把偶數 Row 排序在一起。
2.把排在一起的 Row 內容化為值

owen06

　暱稱: 阿軒

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

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

3^#

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

回復 1# HCG10G8bear

你先用你的方式讓他選擇好內容後，再下面key:

Selection.NumberFormatLocal = "G/通用格式"
Selection = Selection.Value

這樣就行了。

tpwhdavid

帖子: 12
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: windower 7
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2013-10-24
最後登錄: 2020-1-30

4^#

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

Sub addp_2()
Dim i As Integer, j As Integer
j = Range("A1").End(xlToRight).Columns
For i = 2 To Range("A1").End(xlDown).Row Step 2
Cells(i, j + 1) = WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, j)))
Next
End Sub
這樣可以吧試看看

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

5^#

發表於 2013-11-1 11:47 | 只看該作者

先謝謝各位大大的回覆

Baracuda及owen06大大的方法好像是類似的

我會盡快試試看

tpwhdavid大感謝您不吝將程式碼直接寫出來給我

我會去試試看的

如果有問題會在詢問各位

謝謝大家

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

6^#

發表於 2013-11-4 11:37 | 只看該作者

回復 4# tpwhdavid

tpwhdavid大大您好

我執行您提供的語法

出現"溢位"的問題提示框

不知道出了什麼問題

我想我還是把檔案上傳請大大看一下好了

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

7^#

發表於 2013-11-4 12:01 | 只看該作者

各位大大好

我將檔案上傳了

先解釋一下碰到的問題

D2:J2,D4:J4..............D52:J52

這些儲存格的數字皆無法計算(已使用儲存格格式→數字→數值，依然沒用)

必須使用NumberFormatLocal = "G/通用格式" 的語法才能轉成可計算的數值

先前已有先用mod(row(),2)=0 的語法選取偶數列去做文字轉述值的變換

但碰到D2:J2.....D52:J52的儲存格沒有數字時，會將A2,A4.....A52的值帶入空缺的儲存格

現在想改成直接選取D2:J2,D4:J4,........D52:J52

並作文字轉述值的動作

想請問各位大大該如何執行

謝謝各位的幫忙

感激不盡

偶數列特定儲存格.zip (3.41 KB)

owen06

　暱稱: 阿軒

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

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

8^#

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

回復 7# HCG10G8bear

改這樣子就行了
Sub TEST()
For I = 2 To UsedRange.Rows.Count Step 2
Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/通用格式"
Cells(I, 4).Resize(1, 7) = Cells(I, 4).Resize(1, 7).Value
Next
End Sub

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

9^#

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

本帖最後由 HCG10G8bear 於 2013-11-5 08:59 編輯

回復 HCG10G8bear

改這樣子就行了
Sub TEST()
For I = 2 To UsedRange.Rows.Count Step 2
Cells(I, ...
owen06 發表於 2013-11-4 13:31

owen06大大謝謝您的回覆

按照您的程式確實可以執行

但您的程式我有點不懂希望您釋疑

For Next 是執行迴圈的函數

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

'從第二列開始的偶數列延伸到有使用的儲存格到最後一列  count step 2 不懂是什麼
'Cells(I,4)是儲存格D2 Resize不知道為何將(1,7)改為(1,20)即可將數值化D2往右延伸
'轉換文字的數字成數值化的數字

請問我這樣解釋哪裡有問題?不懂的地方還請大大指導

謝謝大大不吝教導

真的非常感謝您省了我好多的時間

owen06

　暱稱: 阿軒

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

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

10^#

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

回復 9# HCG10G8bear

UsedRange.Rows.Count=使用的範圍.列數.計算

step 2 = 每一次跳二階
for i = 1 to 10 ， i 會是1到10的連續數
for i = 1 to 10 step 2，i 會是 1、3、5、7、9
for i = 1 to 10 step 3，i 會是 1、4、7、10
這樣應該很明暸吧。
因為你都是偶數列要執行動作，所以就從第2列開始，
每一次跳2階，第2列~第4列~第6列，
一直到UsedRange.Rows.Count所計算出來的那一列為止，
就不會因為設的範圍太大而浪費執行的時間。

RESIZE=以某個儲存格為基準點來選取範圍
[a1].resize(1,1).select 選擇範圍為a1為基準點的1列及1行，選取結果為a1
[a1].resize(10,10).select 選擇範圍為a1為基準點的10列及10行，選取結果為a1:j10