tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルExcelセルを結合した場合
記事No11441
投稿日: 2008/02/18(Mon) 15:16
投稿者エドワード
VBプログラムからExcelを参照しているのですが。

以下のようなセルがあります
┌─┬───┬──┬──┐
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
│  │DDDDDD│    │    │
└─┴───┴──┴──┘

2・3・4カラム目のセルを結合した場合
以下のようになってしまいます。
┌─┬─────────┐
│11│AAAAAA            │
│22│BBBBBB            │
└─┴─────────┘

以下のように内容が全て表示されるようにする事は
出来ないでしょうか?
┌─┬─────────┐
│11│AAAAAA            │
│22│BBBBBB            │
│  │CCCCCC            │
│  │DDDDDD            │
└─┴─────────┘

どなたかご指導下さいますよう
よろしくお願いいたします。

[ツリー表示へ]
タイトルRe: Excelセルを結合した場合
記事No11444
投稿日: 2008/02/18(Mon) 18:16
投稿者るしぇ
> 2・3・4カラム目のセルを結合した場合
> 以下のようになってしまいます。
> ┌─┬─────────┐
> │11│AAAAAA            │
> │22│BBBBBB            │
> └─┴─────────┘
Excel2003 で再現できませんでした。

最初の表は縦に結合されているのですよね?
(区切りの罫線がありませんから)

真ん中の表のようにするために、手作業で
結合した場合、結合が一度解除されました。
その後、結合しなおしても下部が消えることは
ありませんし、セル幅も変わりませんでした。

…まず、再現の手順が分かりませんでした。

[ツリー表示へ]
タイトルRe^2: Excelセルを結合した場合
記事No11448
投稿日: 2008/02/19(Tue) 09:56
投稿者エドワード
るしぇ様
ご返答有難うございます。
詳しく説明すると以下のような環境なのですが。
何方かご指導下さいますよう。よろしくお願いいたします。

縦には結合されていません。
1カラム目には2行
2カラム目には不定数行が入っています。
┌─┬─────────┐
├─┼───┬──┬──┤←ここから上は保護されている。以下だけスクロール出来る。
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
├─┼───┼──┼──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
│  │DDDDDD│    │    │
│  │EEEEEE│    │    │
├─┼───┼──┼──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
│  │DDDDDD│    │    │
└─┴───┴──┴──┘
上記の2・3・4カラム目を結合させると
┌─┬─────────┐
├─┼───┬──┬──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
├─┼───┼──┼──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
├─┼───┼──┼──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
└─┴───┴──┴──┘

[ツリー表示へ]
タイトルRe^2: Excelセルを結合した場合
記事No11449
投稿日: 2008/02/19(Tue) 10:08
投稿者エドワード
絵が間違っていたので再送します。

詳しく説明すると以下のような環境なのですが。
何方かご指導下さいますよう。よろしくお願いいたします。

縦には結合されていません。
1カラム目には2行
2カラム目には不定数行が入っています。
┌─┬─────────┐
├─┼───┬──┬──┤←ここから上は保護されている。以下だけスクロール出来る。
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
├─┼───┼──┼──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
│  │DDDDDD│    │    │
│  │EEEEEE│    │    │
├─┼───┼──┼──┤
│11│AAAAAA│    │    │
│22│BBBBBB│    │    │
│  │CCCCCC│    │    │
│  │DDDDDD│    │    │
└─┴───┴──┴──┘
上記の2・3・4カラム目を結合させると
┌─┬─────────┐
├─┼─────────┤←ここから以下の2・3・4カラムを結合させると左図
│11│AAAAAA            │
│22│BBBBBB            │
├─┼─────────┤
│11│AAAAAA            │
│22│BBBBBB            │
├─┼─────────┤
│11│AAAAAA            │
│22│BBBBBB            │
└─┴─────────┘

[ツリー表示へ]
タイトルRe^3: Excelセルを結合した場合
記事No11450
投稿日: 2008/02/19(Tue) 10:16
投稿者
そのセルの結合はVBから行ってるんですかね?
もしそうならその部分のコードがあれば色々試して検証できると思いますが。

結合したセルの内容が欠落してないなら
AutoFitとかで高さ調節してあげる方法もあると思いますよ。

[ツリー表示へ]
タイトルRe^4: Excelセルを結合した場合
記事No11451
投稿日: 2008/02/19(Tue) 12:05
投稿者るしぇ
十分な検証・調査ができていないから、
相変わらず必要な情報が足りないで、不必要な情報が
増えてますね。

>詳しく説明すると以下のような環境なのですが。
環境というならExcelのバージョンくらい書いたら?
VBからコードで操作しているのか、手作業で操作して
いるのかも分かりませんし、ボクは『手作業で再現でき
ない』と書いたはずです。再現できる説明がないですよね?

>←ここから上は保護されている。以下だけスクロール出来る。
正確には『ウィンドウ枠の固定』のような気がしますが、
その『保護』とやらを解除したものを用意して、再現テスト
をやりましたか?現象が変わらないなら『保護』が原因では
ないと予想できます。不必要な情報です。

[Excel2003]で再現しました。
結合後に AutoFit するとそうなるみたいですね。
AutoFit しなければいいのでは?

[Excel VBA]
Sub Macro1()
'
    Dim wst As Worksheet
    Set wst = ThisWorkbook.Worksheets("Sheet1")
    wst.Range("$A$1").Value = "11" & vbLf & "22"
    wst.Range("$B$1").Value = "AAAA" & vbLf & "BBBB" & vbLf & "CCCC"
    wst.Rows("1:1").AutoFit
    wst.Range("$B$1:$C$1").Merge
'    wst.Rows("1:1").AutoFit
End Sub

[ツリー表示へ]