Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Excel 2016)
プルダウンについて
投稿日時: 18/09/03 10:21:13
投稿者: まめちゃん

いつなんどきも大変お世話になっております
 
以下の対応ができず困っております。
 
B3セルにプルダウンを設定
B4からB14は横浜
B15からB23は東京
B24からB32は千葉
という具合にセルを結合してある。
 
C4のセルは電力、C5はガソリン、C6は軽油、C7は都市ガス…という具合に
C4からC14まで個々に入力されている。
(C15からC23 C24からC32も同様)
仮にB3のプルダウンから横浜を選択すると、C4の電力しか選択されず。
C4からC14までの項目が表示されるようにしたい。
 
どんな設定をしたらよいか教えてください
お願いします

回答
投稿日時: 18/09/03 10:33:51
投稿者: bi

結合セルをオートフィルタで絞り込む
http://officetanaka.net/excel/function/tips/tips64.htm
 
項目がたくさんあると面倒だけど。

回答
投稿日時: 18/09/03 11:52:28
投稿者: WinArrow
投稿者のウェブサイトに移動

プルダウン
は、入力規則ですよね?
 
「C4からC14」「C15からC23」「C24からC32」
は、同じ内容が入力されているんですか?
同じ場合と異なる場合では、対応方法が違います。

回答
投稿日時: 18/09/03 18:54:04
投稿者: んなっと

一度だけVBAを使っていいなら...
 
  B   C  D E
┌――┬――┐
| 市|分類|
├――┼――┤
|  | あ|
|  ├――┤
|横浜| い|
|  ├――┤
|  | う|
├――┼――┤
|  | あ|
|  ├――┤
|東京| い|
├――┼――┤
|  | あ|
|  ├――┤
|  | い|
|  ├――┤
|千葉| う|
|  ├――┤
|  | え|
└――┴――┘
B4:B32を選択した状態で
 
Sub test()
  Dim Sht As Worksheet
  Dim tmpSht As Worksheet
  Dim Rng As Range
  Set Sht = ActiveSheet
  Set Rng = Selection
  Rng.Copy
  Set tmpSht = Sheets.Add(After:=Sheets(Sheets.Count))
  tmpSht.Paste
  With Rng
    .UnMerge
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  End With
  tmpSht.Range("A1").CurrentRegion.Copy
  Rng.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
  Application.DisplayAlerts = False
  tmpSht.Delete
  Application.DisplayAlerts = True
  Sht.Select
End Sub
 
 
やっていることは
 
[1] B4:B32をE列にコピー
 
  B   C  D E
┌――┬――┐    
| 市|分類|    
├――┼――┤┌――┐
|  | あ||  |
|  ├――┤|  |
|横浜| い||横浜|
|  ├――┤|  |
|  | う||  |
├――┼――┤├――┤
|  | あ||  |
|  ├――┤|  |
|東京| い||東京|
├――┼――┤├――┤
|  | あ||  |
|  ├――┤|  |
|  | い||  |
|  ├――┤|  |
|千葉| う||千葉|
|  ├――┤|  |
|  | え||  |
└――┴――┘└――┘
 
[2] B4:B32を結合解除
 
  B   C  D E
┌――┬――┐    
| 市|分類|    
├――┼――┤┌――┐
|横浜| あ||  |
├――┼――┤|  |
|  | い||横浜|
├――┼――┤|  |
|  | う||  |
├――┼――┤├――┤
|東京| あ||  |
├――┼――┤|  |
|  | い||東京|
├――┼――┤├――┤
|千葉| あ||  |
├――┼――┤|  |
|  | い||  |
├――┼――┤|  |
|  | う||千葉|
├――┼――┤|  |
|  | え||  |
└――┴――┘└――┘
 
[3] B4:B32を選択した状態で
 Ctrl+Gキーでジャンプ
→セル選択
→空白セル
→OK
→イコール(=)を入力して上矢印キー(↑)
→Ctrl+Enter
 
  B   C  D E
┌――┬――┐    
| 市|分類|    
├――┼――┤┌――┐
|横浜| あ||  |
├――┼――┤|  |
|横浜| い||横浜|
├――┼――┤|  |
|横浜| う||  |
├――┼――┤├――┤
|東京| あ||  |
├――┼――┤|  |
|東京| い||東京|
├――┼――┤├――┤
|千葉| あ||  |
├――┼――┤|  |
|千葉| い||  |
├――┼――┤|  |
|千葉| う||千葉|
├――┼――┤|  |
|千葉| え||  |
└――┴――┘└――┘
 
[4] E4:E32をB4:B32に書式貼り付け
 
  B   C  D E
┌――┬――┐    
| 市|分類|    
├――┼――┤┌――┐
|  | あ||  |
|  ├――┤|  |
|横浜| い||横浜|
|  ├――┤|  |
|  | う||  |
├――┼――┤├――┤
|  | あ||  |
|  ├――┤|  |
|東京| い||東京|
├――┼――┤├――┤
|  | あ||  |
|  ├――┤|  |
|  | い||  |
|  ├――┤|  |
|千葉| う||千葉|
|  ├――┤|  |
|  | え||  |
└――┴――┘└――┘
 
→E列削除

トピックに返信