[發問] 想請教有關插入欄的問題

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

3^#

發表於 2013-1-8 22:17 | 只看該作者

回復 2# Hsieh
不好意思！我沒說清楚，就是原本我的平均是在G這一欄，按下新增一欄後，我的平均欄位就會變成H，可是我其他的工作表的語法是預設G這一欄，到時候語法會顯示錯誤，找不到平均成績！

Book1.rar (12.63 KB)

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2013-1-8 22:28 | 只看該作者

回復 3# skyutm
那要看你其他工作表的公式是怎麼寫的?
或是你要找平均欄位不知如何變動?
這可利用定義名稱
例如:你將Sheet1!$G$1設定名稱為平均
那麼不論式VBA或公式都可使用此名稱來定位

Book1.zip (14.07 KB)

學海無涯_不恥下問

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

5^#

發表於 2013-1-10 18:23 | 只看該作者

回復 4# Hsieh
版大！不好意思再打擾一下，關於檔案裡面的語法：
Sub Macro1()
Range("D2").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox "平均值在" & [平均].Address
End Sub
重點是不是在這裡：[平均].Address，這裡就可以鎖定名稱是平均的欄位，但是我做了一個實驗，我在其他欄位也輸入平均，可是結果也是原來正確的那一欄，再次請教這語法的用法？謝謝。

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2013-1-10 22:40 | 只看該作者

回復 5# skyutm
平均那個位置的公式在插入欄位後會自動調整擴大參照範圍
所以，只要定位了這個儲存格，不管這中間插入幾欄，都會自動將插入的儲存格算入平均

學海無涯_不恥下問

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

7^#

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

回復 6# Hsieh
版大！不好意思，我沒說清楚，我的意思是如果有很多欄位的名稱都叫做「平均」呢，那電腦怎知要找哪一個？

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

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

回復 7# skyutm
"定義名稱"請到
選單>公式>名稱管理員查看

跟你儲存格欄位名稱沒有關係

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

9^#

發表於 2013-1-12 12:23 | 只看該作者

回復 8# stillfish00
感謝大大解惑！小弟受用了。

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

10^#

發表於 2013-1-13 22:24 | 只看該作者

回復 6# Hsieh
版大！不好意思，又來打擾，小弟未能舉一反三，有些慚愧，問題如下：
自從上次受教之後，小弟改寫語法如下，
Sub Macro1()
Range("D2").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Dim a, b As String
b = [平均].Address
a = Mid(b, 2, 1)
MsgBox a
End Sub
後面這一段是要知道（平均）欄位的位置開頭英語稱號，例如（d1）的d，因為在其他工作表有迴圈要寫，例如
With Sheets("期中評量")
j = Sheets("基本設定").Range("j3").Value + 5
For i = 6 To j
Sheets("期中成績").Range("c" & i).Value = (.Range("c" & i - 3) * ch1 + .Range("h" & i - 3) * ch2 + .Range("i" & i - 3) * ch3 + .Range("j" & i - 3) * ch4) / 100
Sheets("期中成績").Range("d" & i).Value = (.Range("d" & i - 3) * en1 + .Range("k" & i - 3) * en2 + .Range("l" & i - 3) * en3 + .Range("m" & i - 3) * en4) / 100
Sheets("期中成績").Range("e" & i).Value = (.Range("e" & i - 3) * ma1 + .Range("n" & i - 3) * ma2 + .Range("o" & i - 3) * ma3 + .Range("p" & i - 3) * ma4) / 100
Sheets("期中成績").Range("f" & i).Value = (.Range("f" & i - 3) * na1 + .Range("q" & i - 3) * na2 + .Range("r" & i - 3) * na3 + .Range("s" & i - 3) * na4) / 100
Sheets("期中成績").Range("g" & i).Value = (.Range("g" & i - 3) * so1 + .Range("t" & i - 3) * so2 + .Range("u" & i - 3) * so3 + .Range("v" & i - 3) * so4) / 100
Next i
End With
但是，問題來了，如果欄位一直新增，到了Z之後，就會從AA開始編號，那迴圈就會出問題，懇請解惑，再次感謝！