情報マネジメント戦略Ⅱ 第六回～VBA～

Twitter上で、VBAを教える流れになっていたようで・・・！？

ざっくり解説です。

成績データをもとに1人ずつのpdfファイルを作成するみたいですね。

第六回課題
課題
- 工夫
まとめ

第六回課題

VBA

VBA（Visual Basic for Applications）とは、まぁ、あれですね・・・Excelでプログラミングする画面を出して、プログラミングするやつです。

課題？

・成績ファイル”datalist.xlsx”（400行）

・成績通知書.xlsm

を用意する必要がありそうですね。

講義通り、サンプルを入力し成功すると、saveフォルダ内にpdfファイルが400個作成されるみたいです。

できない・・・？

サンプルが実行できないとスタート地点にいけませんね、以下と比較してみては？

・以下のプログラムをどこに入力するの？

という疑問が出てきた人は、講義をみて、確認してみてくださいね。

※成績通知書.xlsmの「成績通知書作成」のボタンにマクロを入力することになります

Sub 四角形角を丸くする1_Click()

    Dim inputfilename As String '成績ファイル
    
    Dim Gakuseki(400) As String
    Dim Seiseki(400) As String
    Dim Outfile(400) As String
    Dim targetbook As Workbook
    Dim cellpoint As Integer
    Dim i As Integer
    
    inputfilename = Application.GetOpenFilename("Excelブック, *.xls?")
    
    If inputfilename = "False" Then Exit Sub
    Set targetbook = Workbooks.Open(inputfilename)
    With targetbook.ActiveSheet
    
    '400回繰り返す
    For i = 0 To 399
        cellpoint = i + 3
        '成績を取得する
        Gakuseki(i) = .Range("A" &amp; cellpoint).Value
        Seiseki(i) = .Range("C" &amp; cellpoint).Value
        
        'saveフォルダに保存するPDFのファイルパスを作成する
        Outfile(i) = CurDir &amp; "\save\" &amp; .Range("A" &amp; cellpoint).Value &amp; ".pdf"
    Next
    End With
    
    'bookを閉じる
    targetbook.Close
    
    '日付を入力する
    Cells(1, 4).Value = Date
    
    '400回繰り返してPDFを作る
    For i = 0 To 399
    
        '成績を入力する
        Cells(4, 2).Value = Gakuseki(i)
        Cells(4, 4).Value = Seiseki(i)
        
        'PDFを作成する
        ActiveSheet.Range("A1:D5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Outfile(i)
    Next
    
'完了（自分用）
MsgBox ("done")
    
End Sub