Excel VBA質問箱 IV

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

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


28116 / 76732 ←次へ | 前へ→

【53923】Re:セル結合・ダウンロード・開く・警告
回答  sashiba E-MAIL  - 08/2/15(金) 16:19 -

引用なし
パスワード
   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 とは関係のない問題でしょうか?。
以上

0 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 回答

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