|
VBWASURETAさんはじめまして、sashibaです。
当質問箱は初めての質問でお手数をお掛けしました、次のとおりです。
>1.セル結合のマクロとは?
E5およびD5から下にあるセルの連続した同じデータのセルを結合するものです。
>2.エクセルファイルをアップロードしましたとは?
ホームページに載せました。
>この部分のソースなり簡単なサンプルみたいなのは載せた方が良いかも−−−。
次のものです−−−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
>3.複数の行にデータがある場合に出る警告はどのような警告ですか?
下記を警告と書いていました。
選択範囲には複数のデータ値があります。1つのセルとして結合すると、選択範囲
にある最も左上端にあるデータのみが保持されます。(空白セルは無視されます)。
> 因みにセル結合関係の質問が最近にあります。
一通り見ましたがありませんでした。
>4.Application.DisplayAlerts = False を使用しています。と
> ありがすが。これで何かされているのでしょうか?
これがあると上記の警告が出ないのですが。
>5.ダウンロードで「保存」でなく「開く」にした場合にマクロを
> 実行するとありますがこれについてもダウンロードが
> いまいち理解できないです。
> どいう画面が開いていて、こちらについても部分ソースなり
> 簡単なサンプルみたいなのは載せた方が良いかと。
ダウンロードとはホームページからのエクセルファイルのダウンロードでした。
>6.OS、EXCELのバージョンは何でしょう?
WindowsXP SP2
Internet Explorer7
Excel2003 sp3 です。
>7.ダウンロードで「保存」でなく「開く」にした場合に
> マクロを実行すると警告が出ます、対処方法はあるでしょうか
> とありますが、仮に sashiba さんが抽象的に
> 質問されたとします。で、どいう警告表示なのかもないですし、
> 画面イメージもできない状況で答えられますか?
警告と書いたのは上記のものでした。
他に必要な情報がありましたらお願いします。
Excel-vba とは関係のない問題でしょうか?。
以上
|
|