| |
▼sashiba さん：
こんにちは。
もう少し質問させてください。
>E5およびD5から下にあるセルの連続した同じデータのセルを結合するものです。
これはＩＥに埋め込まれたExcelの操作で結合するものですか？
>ホームページに載せました。
ＨＰに載せるのは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 ラベル名
が良いかもです。
後、ループ処理は最初からエラーになってますか？
>下記を警告と書いていました。
>選択範囲には複数のデータ値があります。１つのセルとして結合すると、選択範囲
>にある最も左上端にあるデータのみが保持されます。（空白セルは無視されます）。
この警告ですが、ダウンロード時にも表示される警告と一緒ですか？
ダウンロードは普通ＩＥがしますよね？
それではなく、Excelからダウンロードするようなソース生成されてますか？
それであればダイアログの何かの作られてそうなので、
サンプルソース見せてもらっても良いですか？
>>4.Application.DisplayAlerts = False を使用しています。と
>> ありますが。これで何かされているのでしょうか？
>これがあると上記の警告が出ないのですが。
警告が出るということは処理されてないということはないですか？
>Excel-vba とは関係のない問題でしょうか？。
今の状況から何とも言えないですが、
アップロード／ダウンロードはどこからなのかや、
IEに埋め込まれたExcel上からのものなのかで
変わりそうですね。
|
|
VBWASURETA
- 08/2/15(金) 18:44 -
