Excel VBA学習ノート13:セルのフォーマット

Excel VBA学習ノート13:セルのフォーマットNumberFormatプロパティ(Excel)vba excelセルフォーマットExcel VBAセルフォーマットpython SNIMissingWarningとI n s e c urePlatformWarning警告Visual Basic言語リファレンスVBA文字列処理大全-from EH

Option Explicit

Sub text()
    'Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ' A       ，           
    'Range("A1:D12").SpecialCells(xlCellTypeBlanks).Activate
    Range("A1:D12").SpecialCells(xlCellTypeLastCell).Activate
    Debug.Print Range("A1:D12").SpecialCells(xlCellTypeBlanks).Count
    Debug.Print Range("A1:A13").SpecialCells(xlCellTypeBlanks).Count
    
    
End Sub
Sub     ()

Dim rng As Range, ads As String, ad As String


For Each rng In [a1:a14]

  If rng = "" Then ad = ad & rng.Address & ","

Next

ads = Left(ad, Len(ad) - 1)
Debug.Print ads
Debug.Print Range(ads).Address




'Range(ads).EntireRow.Delete

End Sub
Sub xx()
    Range("A1:L6").Columns.AutoFit
End Sub

Option Explicit

Sub  1()
'
'  1  
'

'
    Columns("E:F").Select
End Sub
Sub  2()
'
'  2  
'

'
    Range("B2:C8").Select
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveChart.SetSourceData Source:=Range("   1!$B$2:$C$8")
    ActiveSheet.Shapes("   1").IncrementLeft -115.8
    ActiveSheet.Shapes("   1").IncrementTop 48
    ActiveChart.PlotArea.Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveChart.FullSeriesCollection(1).Delete
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(1).Name = "=   1!$B$4:$C$4"
    ActiveChart.FullSeriesCollection(1).Values = "=   1!$H$4:$K$4"
    ActiveChart.FullSeriesCollection(1).XValues = "=   1!$H$1:$K$1"
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("   1").ScaleWidth 1.0741666667, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("   1").ScaleHeight 1.0583333333, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("   1").IncrementLeft 15.6
    ActiveSheet.Shapes("   1").IncrementTop 49.8
End Sub
Sub  3()
'
'  3  
'

'
    Range("G2").Select
    Selection.Copy
    Range("H6:K6").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("K8").Select
End Sub