How-to - Condivisione di suggerimenti ed esercitazioni per Microsoft Office
Qui condividiamo i suggerimenti e i trucchi che conosciamo su Microsoft Office. È condividere tutte le cose che apprendiamo e sperimentiamo durante lo sviluppo di componenti aggiuntivi di Office e l'utilizzo di Microsoft Office.
Articoli Recenti
- Excel aggiunge testo e numero nella posizione specificata della cella
- Excel rimuove caratteri, parole, numeri dalle stringhe di testo
- Esercitazione di Excel: dividere le celle di testo, numero e data (separare in più colonne)
- Tutorial Excel: estrai testo o numero in base a una posizione specifica
- Esercitazione su Excel: combina più cartelle di lavoro/fogli di lavoro in uno
- Dati casuali di Excel: genera numeri casuali, testi, date, orari in Excel
- Crea, modifica, usa e condividi un gruppo di contatti in Outlook
- Abilita e disabilita le notifiche di compleanno/anniversario nel calendario di Outlook
- Come usare INDEX e MATCH insieme in Excel
- Funzione CONTA.SE di Excel - Conta le celle con più criteri - E logica e OR logica
'Move completed strategies
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Log").UsedRange.Rows.Count
J = Worksheets("Completed HST").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Completed HST").UsedRange) = 0 Then J = ...
Dim i As Long
Dim bShowAll As Boolean
Set rMTS = Range("TblShowHide[Mark to Show]")
Set Changed = Intersect(Target, rMTS)
If Not Changed Is Nothing Then
bShowAll = Len(rMTS.Cells(1).Value) > 0
On Error Resume Next
For i = 2 To rMTS.Rows.Count
Sheets(Range("TblShowHide[Show/Hide Sheets]").Cells(i).Value).Visible = IIf(bShowAll, True, Len(rMTS.Cells(i).Value) > 0)
Next i
On Error GoTo 0
End If
End Sub