Fight the Future

Java言語とJVM、そしてJavaエコシステム全般にまつわること

IT勉強会での初プレゼンなどお助けします!

勉強会でスピーカーをやりたいけど、プレゼンが初めて、苦手という方に無償でコーチできます。スライドのレビューや録画したリハへのアドバイスなどなど。Twitter@jyukutyoまでメンションでもDMでもお気軽にご連絡ください。

私はIT講師の経験があり、プレゼンはデブサミやJJUG CCCなど200人規模の経験が豊富で最大800人の前でプレゼンしました。海外ではDevoxxUSで。デブサミ2017では公募スピーカー1位、デブサミ関西2012アワードで5位となりました。

ファイル選択ダイアログを表示

Private Function showFileDialog(ByVal title As String) As String
    
    Dim selectedFileName As String
    selectedFileName = ""

    With Application.FileDialog(msoFileDialogOpen)
        .title = title
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.path
        If .Show = -1 Then
            selectedFileName = .SelectedItems(1)
        End If
    End With
    
    showFileDialog = selectedFileName
    
End Function