人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

セルA1の値のカラーインデックスを調べてセルB1にカラーインデックス番号をかえすマクロをご教示いただければ幸いです。

●質問者: nmfo4n67
●カテゴリ:コンピュータ
✍キーワード:A1 インデックス カラー セル マクロ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● うぃんど
●27ポイント
Sub Macro1()
 Range("B1").Font.ColorIndex = Range("A1").Font.ColorIndex
End Sub

2 ● studiocherry
●27ポイント

たとえば、背景色の

Public Sub test()

Worksheets("Sheet1").Cells(1, 2) = Range("A1").Interior.ColorIndex

End Sub

って ことでしょうか?


3 ● Ktwo
●26ポイント

VBAを使用した方法で宜しければ、下記の方法は如何でしょうか?

(1)Excel上部のメニューから、ツール→マクロ→Visual Basic Editor

(2)画面左にあるリストの、"Microsoft Excel オブジェクト"のところで、右クリック→挿入→標準モジュール

(3)↓のテキストをコピー&貼付け

Public Function Get_Color_Index(Pin_Cell As String) As Variant

On Error GoTo Get_Color_Index_Error

Get_Color_Index = Range(Pin_Cell).Font.ColorIndex

Exit Function

Get_Color_Index_Error:

Get_Color_Index = "#VALUE!"

End Function

(4)Excelシートに戻りまして、B1セルに、

=Get_Color_Index("A1")

と入力。

(ご参考)

http://www.tsucchy.com/Excel/contents.html

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ