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