2017-11-02から1日間の記事一覧

VBA 基礎

Range("A1:D8").Font.Color = vbWhite 'フォントカラー Range("A1:D8").Font.Bold = True 'フォントの太字 Range("A1:D8").Font.Size = 28 'フォンtサイズ Range("A1:D8").Font.Interior.Color = vbRed 'セルを塗りつぶす Range("A1:D8").Borders.LineStyle …

VBA セルの値でフォルダ作成

Sub mkdir_go() Dim i For i = 1 To 20 MkDir ThisWorkbook.Path & "\" & Cells(i, 1).Value 'フォルダ作成 NextEnd Sub

VBA

Private Sub kat() Application.ScreenUpdating = False 'VBAの速度を早くする Dim i With Sheets("データ追加") 'セルのシート一括指定 For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(i, 6) = Left(.Cells(i, 1), 4) 'A列の左から4文字を抽出 …