Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35122 / 76732

←次へ　｜　前へ→


	【46812】Re:検索

かみちゃん - 07/2/16(金) 0:16 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

表がなんとなくずれているように思いますが、以下のような表でいいのでしょうか？

　　A　　　 B　　 C　 D　 E　 F　 G　 H　 I
1 　　　　　　　　1　 2　 3　 4　 5
2 コード　科目
3　　　1　現金　　　　　○
4　　　2　手形　　○
5　　　3　売掛　　○　　　○
6　　　4　買掛　　　　○
7　　　5　雑収　　　　　　○
8

> 科目をシート2のＡ20から左詰で表示させたい

A20セル１つにまとめて表示したいということですね？

以下のような感じでできると思います。

Sub Sample1()
　Dim c As Range
　Dim LastCell As Range
　Dim rng As Range
　Dim strKamoku As String
　
　With Sheets("Sheet1")
　　Set LastCell = .Cells(Rows.Count, 1).End(xlUp)
　　On Error Resume Next
　　Set rng = .Range("A3", LastCell). _
　　 Offset(, Val(Sheets("Sheet2").Range("A1").Value) + 1) _
　　　.SpecialCells(xlCellTypeBlanks)
　　On Error GoTo 0
　　If Not rng Is Nothing Then
　　　For Each c In rng
　　　　strKamoku = strKamoku & .Cells(c.Row, 2).Value & vbCrLf
　　　Next
　　　Sheets("Sheet2").Range("A20").Value = Left(strKamoku, Len(strKamoku) - 1)
　　End If
　End With
End Sub

1 hits

▼

【46811】検索 bon 07/2/15(木) 23:48