ExcelVBAのDo Loopステートメントの実用的なプログラム｜プログラミング学習おすすめ書籍情報発信パソコン初心者エンジニア希望者新人エンジニア IT業界への就職・転職希望者サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site

お知らせ
目標
Do～Loopステートメントの利用
- Do～Loopステートメントを使ったおもちゃプログラム
- Do～Loopステートメントを使った実用的なプログラム
ブックマークのすすめ

お知らせ

こちらの記事は、電子書籍「難しく考えないExcel VBA基礎学習編」として出版されました。記事は途中までが試し読みの対象となります。

howahowablogのVBA記事が電子書籍にて販売となりました。

リンク

目標

Do Loop ステートメントを事務処のを効率化に利用できる

Do～Loopステートメントの利用

Do～Loopステートメントを使ったおもちゃプログラム

実際の利用としてはあまり考えづらいですが、ご意見箱のようなものを作成してみます。今では、GoogleのFormsなどでもっと簡単に作成できるので一先ず、こちらはアイデアよりも利用の練習としてサンプルプロシージャをあげています。

サンプルプロシージャ１

Sub DoLoop5()
Dim YNC As Integer
Dim Ans As String

Sheets("Sheet6").Select
Range("A1048576").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

    YNC = MsgBox("要望記入シートを記入しますか？", vbYesNo)
    
    Do While YNC = vbYes
        Ans = InputBox("会社への要望を入力してください。" & Chr(10) _
                        & "終了する時は空欄のままOKを押してください。")
        If Ans = "" Then
            Exit Do
        End If
        With ActiveCell
            .Value = Ans
            .EntireColumn.AutoFit   '文字数によってセルの幅を自動調整します。「.WrapText = True」にするとセルからあふれた文字を改行してセルに収めます。
            .Interior.Color = RGB(0, 0, 0)
            .Offset(1).Select
        End With
    Loop
End Sub