返回列表 上一主題 發帖

如何尋找指定位置後計算公式

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-17 16:12 | 只看該作者

如何尋找指定位置後計算公式

請問各位:
如何可以在每個工作表中找尋到"TOTAL"後
再輸入公式
但每一頁的列數不同, 但欄位相同
計算後再跳至下一頁自動計算,
工作頁數不固定
謝謝

自動計算.zip (13.89 KB)

收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-2-17 16:22 | 只看該作者
回復 1# enoch
  1. Sub ex()
  2. Dim Sh As Worksheet, A As Range
  3. For Each Sh In Sheets
  4. With Sh
  5.   Set A = .Columns("C:E").Find("Total")
  6.   If Not A Is Nothing Then .Cells(A.Row, "F") = "=SUM(R2C:R[-1]C)"
  7. End With
  8. Next
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
3#
發表於 2011-2-17 16:44 | 只看該作者
本帖最後由 enoch 於 2011-2-17 17:20 編輯

Hsieh 謝謝你
我試到了

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
4#
發表於 2011-2-18 10:42 | 只看該作者
hsieh

請再指教, 我本身有一個vba用作將工作表名稱跟據儲存格內容而更改
但我唔知應該將兩個vba簡化合併, 及遇到空白工作表時不會出現error

enoch



Sub update()

    Windows("匯出PACKING LIST.xls").Activate
   
    num = ActiveWorkbook.Worksheets.Count
    For i = 1 To num

            Value = Range("i11")

            pos = InStr(1, Worksheets(i).Range("i11").Value, "/") + 5

       If Worksheets(i).Range("e10").Value > 0 Then
        
            aa = 0
            For j = num To i + 1 Step -1
                 If Mid(Worksheets(j).Range("i11").Value, pos, 4) = Mid(Worksheets(i).Range("i11").Value, pos, 4) Then
                    aa = aa + 1
                End If
            Next j
            If aa > 0 Then
                 Worksheets(i).Name = "##" & Mid(Worksheets(i).Range("i11").Value, pos, 4) & "(" & A & ")"
            Else
                Worksheets(i).Name = "##" & Mid(Worksheets(i).Range("i11").Value, pos, 4)
            End If
        End If

    Next i
   
    Worksheets(1).Activate
   
   
    End Sub

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題