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

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2011-2-17 16:22 | 只看該作者

回復 1# enoch

Sub ex()
Dim Sh As Worksheet, A As Range
For Each Sh In Sheets
With Sh
Set A = .Columns("C:E").Find("Total")
If Not A Is Nothing Then .Cells(A.Row, "F") = "=SUM(R2C:R[-1]C)"
End With
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

enoch

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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