Allegare un file di dati
Allegare una immagine
Editare un proprio messaggio
Registrare una macro
Inserire una macro in un file
Modificare il codice di una macro
Debuggare una macro
Eseguire una macro
Personalizzare la Barra di Accesso Rapido
Moderatori: Anthony47, Flash30005
Sub MioFormato1()
'
Range("D4:D13").Select
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.Color = 255
.TintAndShade = 0
End With
End Sub
Sub MioFormato1()
'
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.Color = 255
.TintAndShade = 0
End With
End Sub
Sub MioFormato1Blu()
'
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.Color = RGB(0, 0, 255)
.TintAndShade = 0
End With
End Sub
Sub MioFormato11Blu()
'
With Selection.Font
.Bold = True
.Italic = True
.Color = RGB(0, 0, 255)
.TintAndShade = 0
End With
End Sub
Sub MiaCopia()
'
Sheets("Foglio1").Select
Range("B2:B14").Select
Selection.Copy
Sheets("Foglio2").Select
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Foglio1").Select
Range("D2:D14").Select
Selection.Copy
Sheets("Foglio2").Select
Range("B14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Foglio1").Select
Range("F2:F14").Select
Selection.Copy
Sheets("Foglio2").Select
Range("C14").Value = 2 '.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Foglio1").Select
End Sub
Sheets("Foglio1").Select
Range("B2:B14").Copy Destination:=Sheets("Foglio2").Range("A14")
Range("D2:D14").Copy Destination:=Sheets("Foglio2").Range("B14")
Range("F2:F14").Copy
Sheets("Foglio2").Range("C14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sub MiaCopiaMia()
'
Sheets("Foglio1").Select
Range("B2:B14").Copy Destination:=Sheets("Foglio2").Range("A14")
Range("D2:D14").Copy Destination:=Sheets("Foglio2").Range("B14")
Range("F2:F14").Copy
Sheets("Foglio2").Range("C14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sheets("Foglio1").Range("B2:B14").Copy Destination:=Sheets("Foglio2").Range("A14")
Sub DemoSub()
Dim I As Long, J As Long, cValue As Variant
'
With Range("A2:C10")
For I = 1 To .Rows.Count
For J = 1 To .Columns.Count
.Cells(I, J).Select
cValue = .Cells(I, J).Value
Debug.Print cValue
If cValue = 33 Then
.Cells(I, J).Interior.Color = RGB(255, 0, 0)
Else
.Cells(I, J).Interior.Color = RGB(255, 255, 0)
End If
Next J
Next I
End With
End Sub
?Application.WorksheetFunction.CountIf(Range("A1:A100"), ">30")
?cvalue
Cvalue=22
If cValue = 33 Then
Stop
.Cells(I, J).Interior.Color = RGB(255, 0, 0)
Else
If cValue = 33 Then
Debug.Print "Rosso:", .Cells(I, J).Address, cValue
.Cells(I, J).Interior.Color = RGB(255, 0, 0)
Else
Debug.Print "Giallo:", .Cells(I, J).Address, cValue
.Cells(I, J).Interior.Color = RGB(255, 255, 0)
End If
...
Giallo: $C$5 15780
Giallo: $A$6 43490,4927777778
Rosso: $B$6 33
Giallo: $C$6 15720
Giallo: $A$7 43490,4935532407
...
Debug.Assert Application.WorksheetFunction.CountIf(Range("A1:A100"), ">30") < 50
Torna a Applicazioni Office Windows
fare un documento unico con LibreOffice Autore: valyfilm |
Forum: Applicazioni Office Windows Risposte: 1 |
AIUTO! Sono "sequestrato" dall'ultrafibra. Che fare?... Autore: nippon |
Forum: Reti, ADSL e wireless Risposte: 2 |
Ripristino BitLocker su Windows 10, cosa fare? Autore: Silvia25 |
Forum: Sistemi Operativi Windows Risposte: 3 |
Visitano il forum: Nessuno e 31 ospiti