VBAコードを作成したのですが、動かしたいシート上で動かない。
また、フォントサイズを指定したいのですが、指定方法に悩んでいます。
マクロを、”作成情報”シートで実行し、”着手”シートに行くと実行されるのですが、”着手”シートでは実行できません。
”着手”シートで実行できるようにしたいです。
また、Case 1~10の場合がありますが、Case 1の場合は、フォントサイズ11 Case 2の場合は、フォントサイズ9 等とCaseによってフォントサイズを指定することはできるのでしょうか。
該当のソースコード
発生している問題・エラーメッセージ
### 該当のソースコード ```ここに言語名を入力 Sub test1() Dim s As String Dim cnt As Long With Worksheets("作成情報") cnt = Cells(Rows.Count, 1).End(xlUp).Row - 2 + 1 Select Case cnt Case 1: s = Range("A2") Case 2: s = Range("A2") & vbCrLf & Range("A3") Case 3: s = Join2(Range("A2:A3")) & vbCrLf & Range("A4") Case 4: s = Join2(Range("A2:A3")) & vbCrLf & Join2(Range("A4:A5")) Case 5: s = Join2(Range("A2:A4")) & vbCrLf & Join2(Range("A5:A6")) Case 6: s = Join2(Range("A2:A4")) & vbCrLf & Join2(Range("A5:A7")) Case 7: s = Join2(Range("A2:A5")) & vbCrLf & Join2(Range("A6:A8")) Case 8: s = Join2(Range("A2:A5")) & vbCrLf & Join2(Range("A6:A9")) Case 9: s = Join2(Range("A2:A4")) & vbCrLf & Join2(Range("A5:A7")) & vbCrLf & Join2(Range("A8:A10")) Case 10: s = Join2(Range("A2:A5")) & vbCrLf & Join2(Range("A6:A9")) & vbCrLf & Join2(Range("A10:A11")) End Select End With Worksheets("着手").Range("S11").Value = s End Sub Function Join2(r As Range) As String Join2 = Join(WorksheetFunction.Transpose(r), "、") End Function
試したこと
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
コードは「コードの挿入」で記入してください。
回答1件
あなたの回答
tips
プレビュー