標題: 如何尋找指定位置後計算公式 [打印本頁]

---

作者: enoch    時間: 2011-2-17 16:12     標題: 如何尋找指定位置後計算公式

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

---

作者: Hsieh    時間: 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

複製代碼

---

作者: enoch    時間: 2011-2-17 16:44

本帖最後由 enoch 於 2011-2-17 17:20 編輯

Hsieh 謝謝你
我試到了

---

作者: enoch    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)