Excel VBA質問箱 IV

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

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


28115 / 76732 ←次へ | 前へ→

【53924】Re:セル結合・ダウンロード・開く・警告
質問  VBWASURETA  - 08/2/15(金) 18:44 -

引用なし
パスワード
   ▼sashiba さん:
こんにちは。

もう少し質問させてください。

>E5およびD5から下にあるセルの連続した同じデータのセルを結合するものです。
これはIEに埋め込まれたExcelの操作で結合するものですか?


>ホームページに載せました。
HPに載せるのはExcel VBAではないですよね?
フリーのツールか何かですか?


>次のものです−−−D列は省略しています。
>Sub セル結合()
> Sheets("作業").Select
> 'On Error Resume Next−−−あってもなくても同じでした。
> Application.DisplayAlerts = False
> r = 5
> r1 = r
> Do Until Cells(r, 5) = "" '属の列
>  If Cells(r, 5) <> Cells(r + 1, 5) Then
>   r2 = r
>   Range(Cells(r1, 5), Cells(r2, 5)).Select
>   With Selection
>    .HorizontalAlignment = xlCenter
>    .VerticalAlignment = xlCenter
>    .WrapText = False
>    .Orientation = 0
>    .AddIndent = False
>    .IndentLevel = 0
>    .ShrinkToFit = False
>    .ReadingOrder = xlContext
>    .MergeCells = True
>    ' Selection.Merge−−−あってもなくても同じでした。
>   End With
>   r1 = r2 + 1
>  End If
>  r = r + 1
> Loop
>
> 以下D列分は上と同様ですので省略しています
>
>  Application.DisplayAlerts = True
> Cells(5, 1).Select
>End Sub

因みにループ処理に以下のエラー処理はあまり多様はしないほうが良いかと。

> 'On Error Resume Next−−−あってもなくても同じでした。

これは一つエラーとなった箇所だけステップするのでループし続けます。
それによってエラーがわかりにくくなるかも知れないので、

On Error Goto ラベル名

が良いかもです。
後、ループ処理は最初からエラーになってますか?


>下記を警告と書いていました。
>選択範囲には複数のデータ値があります。1つのセルとして結合すると、選択範囲
>にある最も左上端にあるデータのみが保持されます。(空白セルは無視されます)。

この警告ですが、ダウンロード時にも表示される警告と一緒ですか?
ダウンロードは普通IEがしますよね?
それではなく、Excelからダウンロードするようなソース生成されてますか?
それであればダイアログの何かの作られてそうなので、
サンプルソース見せてもらっても良いですか?


>>4.Application.DisplayAlerts = False を使用しています。と
>> ありますが。これで何かされているのでしょうか?
>これがあると上記の警告が出ないのですが。

警告が出るということは処理されてないということはないですか?


>Excel-vba とは関係のない問題でしょうか?。
今の状況から何とも言えないですが、
アップロード/ダウンロードはどこからなのかや、
IEに埋め込まれたExcel上からのものなのかで
変わりそうですね。
1 hits

【53915】セル結合・ダウンロード・開く・警告 sashiba 08/2/14(木) 19:22 質問
【53922】Re:セル結合・ダウンロード・開く・警告 VBWASURETA 08/2/15(金) 14:14 質問
【53923】Re:セル結合・ダウンロード・開く・警告 sashiba 08/2/15(金) 16:19 回答
【53924】Re:セル結合・ダウンロード・開く・警告 VBWASURETA 08/2/15(金) 18:44 質問
【53930】Re:セル結合・ダウンロード・開く・警告 sashiba 08/2/15(金) 23:44 回答
【53931】Re:セル結合・ダウンロード・開く・警告 VBWASURETA 08/2/16(土) 2:14 回答
【53934】Re:セル結合・ダウンロード・開く・警告 sashiba 08/2/16(土) 9:21 回答
【53957】Re:セル結合・ダウンロード・開く・警告 sashiba 08/2/18(月) 13:33 発言
【54116】Re:セル結合・ダウンロード・開く・警告 VBWASURETA 08/2/25(月) 14:22 回答
【54140】Re:セル結合・ダウンロード・開く・警告 VBWASURETA 08/2/26(火) 13:20 回答

28115 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free