EXCEL應用

CHUNGINSHO wrote:
是哪一個順位，並且直接顯示該順位的數字，請問有關於此功能的公式嗎?

snare wrote:
找一格=SHEET((恕刪)

CHUNGINSHO wrote:
今早到公司發現函數變(恕刪)

'程式碼放在 Thisworkbook
'點選工作表時，顯示位置編號
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'位置暫定b3
    Range("b3") = ActiveSheet.Index
End Sub

snare wrote:
vba(如移動工作表(恕刪)

CHUNGINSHO wrote:
因為我的2007只有這些選項無VBA，請問去哪加公式?

'程式碼放在“模組”裡
Function Get_Sheet_Index()
    Application.Volatile
    Get_Sheet_Index = ActiveSheet.Index
End Function

'程式碼放在 Thisworkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'位置暫定b3
    Range("B3").FormulaR1C1 = "=display_sheet_index"
End Sub

snare wrote:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'位置暫定b3
Range("B3").FormulaR1C1 = "=display_sheet_index"
End Sub

CHUNGINSHO wrote:
我附上圖片還請您指證我的錯誤

'程式碼放在 Thisworkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    For i = 1 To Sheets.Count
    '位置暫定b3
        Sheets(i).Range("b3") = i
    Next i
    Debug.Print "before print"
End Sub

snare wrote:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'位置暫定b3
Range("B3").FormulaR1C1 = "=display_sheet_index"
End Sub

snare wrote:
要放在同一個檔案單工(恕刪)