Excel VBA質問箱 IV

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

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


8817 / 13644 ツリー ←次へ | 前へ→

【31015】セルの非表示 KONKON 05/11/9(水) 10:44 質問[未読]
【31016】Re:セルの非表示 Statis 05/11/9(水) 10:49 発言[未読]
【31017】Re:セルの非表示 わさび 05/11/9(水) 11:19 発言[未読]
【31018】Re:セルの非表示 Kein 05/11/9(水) 11:57 回答[未読]

【31015】セルの非表示
質問  KONKON  - 05/11/9(水) 10:44 -

引用なし
パスワード
   下記のような例で

日付    品番    品名         単価    数量    合計
10月1日    1000    A1テーブル    21,000     5    105,000
10月2日    1001    A2テーブル    22,000     7    154,000
10月3日    1002    A3テーブル    23,000     10    230,000
10月4日    1003    B1チェア          5,000     5    25,000

を日付を指定してその一覧を別シートに検索して出すことはでき
たのですが、

その中で
たとえば
品名       数量    合計

だけを表示させようとする場合
Columns("A:A").Select
  Selection.EntireColumn.Hidden = True
   Columns("B:B").Select
  Selection.EntireColumn.Hidden = True
とうで見た目は消えるのですが、どうも見栄えや先頭がA
でないのが気に入りません。
素人なので何かよい方法があれば教えてください。

【31016】Re:セルの非表示
発言  Statis  - 05/11/9(水) 10:49 -

引用なし
パスワード
   こんにちは

>とうで見た目は消えるのですが、どうも見栄えや先頭がA
>でないのが気に入りません。

わがままのような気がしますが??

他の方法として
必要ない列を削除しては如何ですか?

【31017】Re:セルの非表示
発言  わさび  - 05/11/9(水) 11:19 -

引用なし
パスワード
   >先頭がAでないのが気に入りません。

私も同じことを思ったことがあり、
いっそ、行列番号の表示を消してしまいました。
ActiveWindow.DisplayHeadings = False

【31018】Re:セルの非表示
回答  Kein  - 05/11/9(水) 11:57 -

引用なし
パスワード
   抽出したデータのみを表示する専用シートを挿入し、マクロを実行する都度、セルを
クリアしてから必要な列をコピーしていけば良いのでは ?
例えばコピーしたい列は、1行目の項目を[Ctrl]キーを押しながら選択するとし、
その後に右クリックで Worksheets("DataView") へ転記する、というやり方なら

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
  Dim C As Range

  For Each C In Target
   If Intersect(C, Rows(1).SpecialCells(2)) Is Nothing Then
     MsgBox "1行目の項目のみを選択して下さい", 48
     Exit Sub
   End If
  Next
  Cancel = True
  With Worksheets("DataView")
   .Cells.ClearContents
   Target.EntireColumn.Copy .Range("A1")
   .Activate
  End With
End Sub

を、表のあるシートのシートモジュールに入れます。

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