[塗りつぶし]の色ダイアログボックスを表示し、ユーザーが選択した色番号を取得する

---

[塗りつぶし]の色ダイアログボックスを表示し、ユーザーが選択した色番号を取得する

[塗りつぶし]の色ダイアログボックスを表示し、色番号をメッセージボックスで表示します。

Sub Sample60()
If Application.Dialogs(xlDialogPatterns).Show = True Then
　　MsgBox "「" & ActiveCell.Interior.ColorIndex & "」番の色です"
End If
End Sub

エクセルＶＢＡテクニック集トップ

---