仕事用

 全く更新してないどころか、１ヶ月IN出来てません。

風邪ひいたり、泣いたりしてますが何とか頑張れてます。

とりあえず今の仕事が4月末までなので
終わったら復活します！

それまではストイックに頑張ります！

 仕事用マクロ

Sub まとめ書き用()

    Dim text1 As String

    Dim text2 As String

    Dim text3 As String

    Dim text4 As String

    

    Set WS = Workbooks("管理表.xls").Worksheets("Sheet1")

    

    i = 2

    

    Do While WS.Cells(i, 2) <> ""

    

    

      With Workbooks("課題管理表.xls").Worksheets("Sheet1")

          .Activate

             text1 = .Cells(i, 5).Value

             text2 = .Cells(i, 6).Value

             text3 = .Cells(i, 8).Value

             text4 = .Cells(i, 11).Value

        End With

        

        If text1 <> "" Then

            text1 = "/番号：" & text1

        End If

        If text2 <> "" Then

            text2 = "担当者：" & text2

        End If

        If text3 <> "" Then

            text3 = "(" & text3 & ")"

        End If

        If text4 = "" Then

            MsgBox "回答内容が入力されていません"

        End If

                          

        With Workbooks("管理表.xls").Worksheets("Sheet2")

            .Activate

            .Cells(i, 1).Value = text2 & text3 & text1 & Chr(10) & text4

        End With

        

                text1 = ""

                text2 = ""

                text3 = ""

                text4 = ""

            

        i = i + 1

    Loop

End Sub