|
VBWASURETA さん こんばんは。
>>E5およびD5から下にあるセルの連続した同じデータのセルを結合するものです。
>これはIEに埋め込まれたExcelの操作で結合するものですか?
分かりません、宜しかったら次を見て下さい。
送信したら ERROR:本文に禁止語句が含まれています。となりました。
ここにURLを書いていた為でしょうか?。
>>ホームページに載せました。
>HPに載せるのはExcel VBAではないですよね?
>フリーのツールか何かですか?
載せるのはエクセルのファイル、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 ラベル名
>が良いかもです。
>後、ループ処理は最初からエラーになってますか?
***前回の回答に訂正がありました***。
On Error Resume Next がない時。
ダウンロードで「開く」にして、マクロ「結合」を実行した時、
エラー400が出て、先に進みません。
On Error Resume Next がある時。
エラーにはならないが、警告が出ます。
>>下記を警告と書いていました。
>>選択範囲には複数のデータ値があります。1つのセルとして結合すると、
>>選択範囲にある最も左上端にあるデータのみが保持されます。
>>(空白セルは無視されます)。
>この警告ですが、ダウンロード時にも表示される警告と一緒ですか?
>ダウンロードは普通IEがしますよね?
ダウンロード時に出るメッセージ?は、
1.「開く」か「保存」で、
2.「開く」にした時、セキュリティ警告 「マクロを無効にする」「有効にする」
[保存」にした時は、後ほどエクセルファイルを開いた時に、同上です。
>それではなく、Excelからダウンロードするようなソース生成されてますか?
>それであればダイアログの何かの作られてそうなので、
>サンプルソース見せてもらっても良いですか?
分かりませんが、そのようなソースはありません。
>>>4.Application.DisplayAlerts = False を使用しています。と
>>> ありますが。これで何かされているのでしょうか?
>>これがあると上記の警告が出ないのですが。
>警告が出るということは処理されてないということはないですか?
警告に対して「OK]で1組のセルの結合が出来、続いてまた警告が出ます、
300回以上「OK」でマクロ終了です。「NO]の場合は結合なしで次のセル
に進みます。
問題のマクロを実行して貰えば分かって貰えると思いますが、面倒な事が起こり
ますので−−−!。
今後は実際に経験された方がおられたらその方のレスを待ちたいと思います。
如何でしょうか?。
>>Excel-vba とは関係のない問題でしょうか?。
>今の状況から何とも言えないですが、
>アップロード/ダウンロードはどこからなのかや、
>IEに埋め込まれたExcel上からのものなのかで
>変わりそうですね。
|
|