excelでの名簿で、A列に名前、B列に1か2(男=1、女=2)

C列に女の時は赤色の名前(条件付書式でBが2の時に・・・)がある
 D列に条件の付かない(標準形?)Cの値をコピーしたい、(この時女は赤)
簡単な方法は?

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2011/03/27 08:27:18
  • 終了:2011/04/02 16:20:08

回答(4件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692011/03/27 09:14:47

ポイント23pt

条件付書式で変わった色を取り出すことはExcelの標準の機能だけでは難しいと思います。

それでマクロから条件付書式で変化した色を取り出すこともできないこともないですが、

これは簡単とは言いがたいコードとなります。

(条件付書式で設定された条件を評価しFormatConditionsで取り出すという感じです)


ただし、今回の場合は条件が他のセルでわかるのでこれだけでできます。

マクロなので「私にはちょっと」と言われるかもしれませんが、コード自体は簡単なコードです。

Sub Macro()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    
    For i = 1 To lastRow
        Cells(i, "D").Value = Cells(i, "C").Value
        If Cells(i, "B").Value = "女" Then
            Cells(i, "D").Font.ColorIndex = 3
        Else
            Cells(i, "D").Font.ColorIndex = xlNone
        End If
    Next i
End Sub
id:mitsueda

有難う御座いました、が、、ウーン

2011/03/27 14:28:54
id:Lhankor_Mhy No.2

Lhankor_Mhy回答回数779ベストアンサー獲得回数2312011/03/27 10:19:03

ポイント23pt

・セルを選択しコピー

・Word起動し、適当な文書に貼り付け

・表が出来るので、選択しコピー

・Excelに貼り付け

 

書式が崩れることもあるようですので、常に使えるわけではありませんが……

id:nanntenn No.3

nanntenn回答回数14ベストアンサー獲得回数22011/03/27 16:11:27

ポイント22pt

マクロはどうもということなので、手作業になりますが。


(1)Ç列をコピーして 「値の貼り付け」でD列に貼り付ける。


(2)データ → フィルタをクリック


(3)B列の▼をクリックし「2」を選択。


(4)フィルタされたD列のデータを選択してフォント色を「赤」にする。


(5)フィルタを解除する。

id:kia_44 No.4

きあ回答回数396ベストアンサー獲得回数302011/03/28 16:35:57

ポイント22pt

手作業で何かやる場合、並べることで手数を減らせることがあります。

  1. E列で連番を振ります。
  2. B列で並び替えます。(これで作業範囲がまとまる)
  3. 色を変えます
  4. E列で並び替えれば元通り!

注意!

内容が崩れると大変なのでバックアップを取ること。

並び替えの作業をしっかり確認して行うこと。

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • SALINGERの日記 2011-03-27 09:36:24
    http://q.hatena.ne.jp/1301182037 私の場合はマクロで書いたほうが楽なのでマクロの回答としましたが、 質問の条件ならば次の手順でワークシートでやるのがいいかもしれません。 1 A列をD列に
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません